TO http://codegolf.stackexchange.com/que
- Datum:
- 11. Februar 2011 19:59
- Code:
-
1 2 3 4 5 6
import List import Random main=newStdGen>>=putStr.f.(`mod`720).fst.next f n=foldl(\a(x,y)->a++x++" buys for "++y++"\n")[]$zip(l n)$r$l n l=(permutations["Andy","Barb","Carl","Didi","Earl","Fran"]!!) r(h:t)=t++[h]