shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add iterate

--- a/lib/Data/List.hs

+++ b/lib/Data/List.hs

@@ -315,3 +315,6 @@

 anySameBy :: forall a . (a -> a -> Bool) -> [a] -> Bool

 anySameBy _ [] = False

 anySameBy eq (x:xs) = elemBy eq x xs || anySameBy eq xs

+

+iterate :: forall a . (a -> a) -> a -> [a]

+iterate f x = x : iterate f (f x)

-- 

⑨