Leonardo numbers: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: Tidied output) |
|||
Line 911:
--------------------- LEONARDO NUMBERS ---------------------
-- L0 -> L1 -> Add number -> Series (infinite)
leo :: Integer -> Integer -> Integer -> [Integer]
Line 924 ⟶ 923:
--------------------------- TEST ---------------------------
main :: IO ()
main =
unlines . fmap (('\t' :) . intercalate ",") . chunksOf 16 . fmap show▼
(putStrLn . unlines)
[ "First 25 default (1, 1, 1) Leonardo numbers:\n"
,
, "First 25 of the (0, 1, 0) Leonardo numbers (= Fibonacci numbers):\n"
,
]
where
{{Out}}
<pre>First 25 default (1, 1, 1) Leonardo numbers:
| |||