blob: 9552632c6435863d60d46d8dbbed9d3760b8888c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
classify : n ->
with (
lo Int; hi Int;
lo : 10; hi : 100;
) ->
when n is
0 then "zero"
_ then when (n > hi) is
true then "large"
_ then when (n > lo) is
true then "medium"
_ then "small";
|