ubuntuusers.de

Titel:
Simplification: 202 Bytes
Datum:
11. Februar 2011 21:49
Aktionen:
Code:
1
2
3
4
5
import Data.List
import Random
main=newStdGen>>=mapM_ putStrLn.f.(`mod`720).fst.next
f n=map(\(x,y)->x++" buys for "++y).zip(l n).tail$cycle$l n
l=(permutations(words"Andy Barb Carl Didi Earl Fran")!!)