Simplification: 202 Bytes

Datum:

11. Februar 2011 21:49

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")!!)