Skip to content

Instantly share code, notes, and snippets.

@fardinshikhiyev

fardinshikhiyev/ex9(halves).icl

Created April 20, 2018 16:48
Show Gist options
  • Save fardinshikhiyev/c6144f726f6a047b3d1e5d95ac5c96f0 to your computer and use it in GitHub Desktop.
Save fardinshikhiyev/c6144f726f6a047b3d1e5d95ac5c96f0 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ex9(halves).icl
a1 :: {Int}
a1 = { x \\ x <- f1 100}
where
f1 :: Int -> [Int]
f1 0 = [0]
f1 n = [n] ++ f1(n/2)
Start = a1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment