Hofstadter Figure-Figure sequences: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: Applied Hlint, hindent to second Haskell version) |
(→{{header|Haskell}}: Type signatures, minor tidying) |
||
| Line 955: | Line 955: | ||
-- Functions by Reinhard Zumkeller |
-- Functions by Reinhard Zumkeller |
||
ffr :: Int -> Int |
|||
ffr n = rl !! (n - 1) |
ffr n = rl !! (n - 1) |
||
where |
where |
||
| Line 962: | Line 963: | ||
n_ = n + x |
n_ = n + x |
||
ffs :: Int -> Int |
|||
ffs n = rl !! n |
ffs n = rl !! n |
||
where |
where |
||
| Line 969: | Line 971: | ||
n_ = n + x |
n_ = n + x |
||
main :: IO () |
|||
main = do |
main = do |
||
print $ |
print $ ffr <$> [1 .. 10] |
||
let i1000 = sort ( |
let i1000 = sort (fmap ffr [1 .. 40] ++ fmap ffs [1 .. 960]) |
||
print (i1000 == [1 .. 1000])</lang> |
print (i1000 == [1 .. 1000])</lang> |
||
Output: |
Output: |
||