Non-transitive dice: Difference between revisions
Content added Content deleted
Line 89: | Line 89: | ||
===The task (4 sided die)=== |
===The task (4 sided die)=== |
||
<lang fsharp> |
<lang fsharp> |
||
// Non-transitive |
// Non-transitive dice. Nigel Galloway: August 9th., 2020 |
||
let die=[for n0 in [1..4] do for n1 in [n0..4] do for n2 in [n1..4] do for n3 in [n2..4]->[n0;n1;n2;n3]] |
let die=[for n0 in [1..4] do for n1 in [n0..4] do for n2 in [n1..4] do for n3 in [n2..4]->[n0;n1;n2;n3]] |
||
let N=seq{for n in die->(n,[for g in die do if (seq{for n in n do for g in g->compare n g}|>Seq.sum<0) then yield g])}|>Map.ofSeq |
let N=seq{for n in die->(n,[for g in die do if (seq{for n in n do for g in g->compare n g}|>Seq.sum<0) then yield g])}|>Map.ofSeq |