Padovan sequence: Difference between revisions
m
→{{header|Haskell}}: preferred concatMap to =<< (fewer brackets needed)
m (→{{header|Haskell}}: Added a variant expressed in terms of unfoldr.) |
m (→{{header|Haskell}}: preferred concatMap to =<< (fewer brackets needed)) |
||
Line 635:
rule 'B' = "C"
rule 'C' = "AB"
f
f = Just . ((,) <*> concatMap rule)
-------------------------- TESTS -------------------------
Line 660 ⟶ 661:
32
)
prefixesMatch :: Eq a => [a] -> [a] -> Int -> Bool
prefixesMatch xs ys n = and (zipWith (==) (take n xs) ys)</lang>
{{Out}}
<pre>First 20 padovans:
| |||