Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl -- hofstadter's sequence import Data.List hofstadter = 1 : figure 1 [2..] where figure n (x:xs) = n' : figure n' (delete n' xs) where n' = n + x hofstadterNth n = hofstadter !! (n-1) main = do print $ take 25 hofstadter print $ hofstadterNth 100 Private [?] Run code Submit