Sylvester's sequence: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: Added an applicative variant) |
|||
Line 334: | Line 334: | ||
<lang haskell>sylvester :: [Integer] |
<lang haskell>sylvester :: [Integer] |
||
sylvester = iterate (\x -> x * (x-1) + 1) 2</lang> |
sylvester = iterate (\x -> x * (x-1) + 1) 2</lang> |
||
or applicatively: |
|||
<lang haskell>sylvester :: [Integer] |
|||
sylvester = iterate (succ . ((*) <*> pred)) 2</lang> |
|||
=={{header|jq}}== |
=={{header|jq}}== |