@@ -24,7 +24,10 @@ foldl1 f (x::xs) = foldl f x xs
24foldr1 : (a -> a -> a) -> [a] -> a
24foldr1 : (a -> a -> a) -> [a] -> a
25foldr1 f (x::xs) = foldr f x xs
25foldr1 f (x::xs) = foldr f x xs
27+scanl : (a -> b -> b) -> b -> [a] -> [b]
27scanl f b xs = b :: (case xs of { x::xs -> scanl f (f x b) xs; [] -> [] })
28scanl f b xs = b :: (case xs of { x::xs -> scanl f (f x b) xs; [] -> [] })
30+scanl1 : (a -> a -> a) -> [a] -> [a]
28scanl1 f lst = case lst of { x::xs -> scanl f x xs; [] -> [] }
31scanl1 f lst = case lst of { x::xs -> scanl f x xs; [] -> [] }
30filter : (a -> Bool) -> [a] -> [a]
33filter : (a -> Bool) -> [a] -> [a]