Jacobsthal numbers: Difference between revisions
Content added Content deleted
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 |
go [a, b] = Just (a, [b, 2 * a + b]) |
||
--------------------------- TEST ------------------------- |
--------------------------- TEST ------------------------- |