Speed up Operators.purs example by avoiding long chains of nested calls to >>=
commitca5a7c7e9933b411a3c6e73ebdac706c5e188b71
authorPhil Freeman <paf31@cantab.net>
dateMon 3 Feb 2014, 21:26 (13 years ago)
parentc4fd309
examples/passing/Operators.purs+14−14
@@ -62,17 +62,17 @@ import Trace
6262import Global
6363import Arrays
6464
65−main = do
66− print $ test1 1 2 $ \x y -> x + y
67− print test2
68− print test3
69− print test4
70− print test5
71− print test6
72− print test7
73− print test8
74− print test9
75− print test10
76− print test11
77− print (test12 k 1 2)
78−
65+main =
66+ print [ show $ test1 1 2 $ \x y -> x + y
67+ , show test2
68+ , show test3
69+ , show test4
70+ , show test5
71+ , show test6
72+ , show test7
73+ , show test8
74+ , show test9
75+ , show test10
76+ , show test11
77+ , show (test12 k 1 2)
78+ ]