Hofstadter Figure-Figure sequences: Difference between revisions
→{{header|Haskell}}: Applied hlint hindent, adjusted one name to side-step Wiki formatting glitch
m (→{{header|zkl}}: comment) |
(→{{header|Haskell}}: Applied hlint hindent, adjusted one name to side-step Wiki formatting glitch) |
||
Line 955:
-- Functions by Reinhard Zumkeller
ffr n = rl !! (n - 1)
where
fig n (x:xs) = n_ : fig n_ (delete n_ xs)
where
n_ = n + x
ffs n = rl !! n
where
figDiff n (x:xs) = x : figDiff n_ (delete n_ xs)
where
n_ = n + x
main = do
Output:
<pre>[1,3,7,12,18,26,35,45,56,69]
| |||