Du tar det nte tegnet i den nte strengen/symbolet fra listen der n går fra 0 og opp, slår det sammen til en streng, og printer det. Pent.
Jeg lagde en ny Haskell-utgave og da den gamle med baklengs gjennomsnitt ikke var så kul…
Kode
import Data.Char
-- | Löb's theorem.
löb :: Functor φ => φ (φ α -> α) -> φ α
löb x = result where result = fmap ($ result) x
main :: IO ()
main = putStrLn . map chr $ löb [\x->x!!1-x!!5+15,(+(-7)).(!!3),(+(-3)).(!!4),(!!2),subtract 18.flip mod 133.sum.drop 5,const 44,\x ->x!!(x!!5-x!!12+1)-1,(+5).(!!9),(+(-3)).(!!9),\x->x!!5+x!!6+x!!12+5,(+8).(!!11),(+(-14)).(!!9),(+(-11)).(!!5)]
Sist endret av Akhkharu; 13. desember 2010 kl. 14:35.