blob: c904cda513cf75f2d9e45a78e5cc665aa43f294a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
infixr ->!,=\
-- auxiliary functions -----------------------------------------------------
g u v w (x:y:z) = i(v x y)(u x y (w z) z)(x:w(y:z))
g u v w [x] = [x,512]
q u v w nil = u : 95 : z v : w
long = several.length
((->!),(=\))=(map,($))
a = g q f
y = (-)32
z = (+)32
several = (>)2
fairly_small = (<)64
not_too_small = (>)91
just_right = (==)95
not_too_big = (<)96
very_big = (>)123
good_size x =foldr(&&)
otherwise =\($x)->![not_too_big,very_big]
f y z =fairly_small(z)&&good_size(y)&¬_too_small(z)
i cond th el=if(cond)then(th)else(el)
to_be_is_to_do_and_to_do_is_to_be_said_con_fu_tse
-- main functions ----------------------------------------------------------
g = interact$map
chr.g.map
ord
main =
to_be_is_to_do_and_to_do_is_to_be_said_con_fu_tse(let h=a;t=x where x x=i(long x)x(h t x)
q v w x z =- y w:x
a = g q f
f x y = just_right x
&& good_size y
in t)
-- rittri@cs.chalmers.se ---------------------------------------------------
|
