Anonymous user
Non-transitive dice: Difference between revisions
m
→{{header|Haskell}}: fixed typos
(→{{header|Haskell}}: added solution) |
m (→{{header|Haskell}}: fixed typos) |
||
Line 342:
return (b:a:as)</lang>
<pre>*Main> mapM_ print $ nonTrans (dices 4) 3
[(2 2 2 4),(1 3 3 3),(1 1 4 4)]
[(1 1 4 4),(2 2 2 4),(1 3 3 3)]
| |||