ubuntuusers.de

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]