Skip to content

Instantly share code, notes, and snippets.

@coodoo

coodoo/a.hs

Created July 24, 2017 23:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save coodoo/fb134569c4414c6a96a23ed04d0a4748 to your computer and use it in GitHub Desktop.
Save coodoo/fb134569c4414c6a96a23ed04d0a4748 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
a.hs
big :: Int
big =
-- (\x -> x - 1) -- 可以
(-1) -- 不行
$ length
$ takeWhile (< 10)
$ scanl (\acc x -> sqrt x + acc) 0 [1..]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment