import Char ---- \\_// main = {-~( )~-} (putStr.concat )(map(uncurry(flip (.)(800*).flip take.( map((chr.round).(64 +). (16*).cos).enumFromThen 0.flip(/)8000) .(map(flip (*)32)[98,110,123.47,130.81 ,146.83]!!)))(zip(a++[2,1,1 ,2,1,4]++a++[4, 4,3,1,0])(b ++[4,4]++b++[8])))where {a= [2,2,2,2,2,2,2,4,0,1,2,3,3,3, 3,{-˚˚˚˚˚˚˚˚˚-}3,2{-˚˚˚˚˚˚˚˚˚-},2 ,2,2];b=[2,2,4,2,2,4,2,2,2,2,8,2,2,2,2, 2,2,2,1,1,2 ,2,2,2]}
Pro vyzkoušení uložte třeba do jingle.hs a spusťte:
runhaskell jingle.hs | aplay -f U8 -r 8000 -
(Vytvořil Nathan.)
1990: Výbor utvořený Simonem Peytonem-Jonesem, Paulem Hudakem, Philipem Wadlerem, Ashtonem Kutcherem, spolu s Lidmi pro etické zacházení se zvířaty (PETA) vytváří Haskell, což je čistý, nestriktní, funkcionální jazyk. Proti Haskellu se zvedla vlna odporu z důvodů složitosti používání monád pro kontrolu vedlejších efektů. Walder se snaží uchlácholit kritiky vysvětlením, že „monáda je monoid v kategorii endofunktorů, v čem je problém?“.
(Překlad části článku A Brief, Incomplete, and Mostly Wrong History of Programming Languages.)