diff options
Diffstat (limited to 'testsuite/tests/programs/rittri/Main.hs')
| -rw-r--r-- | testsuite/tests/programs/rittri/Main.hs | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/testsuite/tests/programs/rittri/Main.hs b/testsuite/tests/programs/rittri/Main.hs index e62c8a4667..1bc0203924 100644 --- a/testsuite/tests/programs/rittri/Main.hs +++ b/testsuite/tests/programs/rittri/Main.hs @@ -1,39 +1,39 @@ -infixr ->!,=\ +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 +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 +a = g q f +y = (-)32 +z = (+)32 +several = (>)2 fairlySmall = (<)64 notTooSmall = (>)91 justRight = (==)95 notTooBig = (<)96 -veryBig = (>)123 +veryBig = (>)123 goodSize x =foldr(&&) otherwise =\($x)->![notTooBig,veryBig] -f y z =fairlySmall(z)&&goodSize(y)&¬TooSmall(z) +f y z =fairlySmall(z)&&goodSize(y)&¬TooSmall(z) i cond th el=if(cond)then(th)else(el) toBeIsToDoAndToDoIsToBeSaidConFuTse -- main functions ---------------------------------------------------------- - g = interact$map - toEnum.g.map - fromEnum + g = interact$map + toEnum.g.map + fromEnum main = toBeIsToDoAndToDoIsToBeSaidConFuTse(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 = justRight x - && goodSize y - in t) + q v w x z = - y w:x + a = g q f + f x y = justRight x + && goodSize y + in t) -- rittri@cs.chalmers.se --------------------------------------------------- |