Commit 6b3261bb authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-31 11:29:04 by simonmar]

Update test after the behaviour of scan{r,l}1 changed
parent a3140fb7
......@@ -45,7 +45,7 @@ main = do
-- scanl1
print (scanl1 (+) [1..10])
catch (print (scanl1 (+) [] :: [Int])) (\_ -> putStr "scanl1 []\n")
print (scanl1 (+) [] :: [Int])
-- foldr1
print (foldr1 (+) [1..10])
......@@ -56,7 +56,7 @@ main = do
-- scanr1
print (scanr1 (+) [1..10])
catch (print (scanr1 (+) [] :: [Int])) (\_ -> putStr "scanr1 []\n")
print (scanr1 (+) [] :: [Int])
-- iterate
print (take 10 (cycle (take 4 (iterate (+1) 1))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment