Jacobsthal numbers: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: Adjusted a type) |
m (→{{header|Haskell}}: Preferred (:) to (<>) in unfoldr variant) |
||
| Line 846: | Line 846: | ||
jacobsthalish (x, y) = unfoldr go [x, y] |
jacobsthalish (x, y) = unfoldr go [x, y] |
||
where |
where |
||
go (a : b : xs) = Just (a, b : |
go (a : b : xs) = Just (a, b : 2 * a + b : xs) |
||
--------------------------- TEST ------------------------- |
--------------------------- TEST ------------------------- |
||