Non-transitive dice: Difference between revisions

Content added Content deleted

Inline

@@ Line 373: / Line 373: @@
   ud=. udice y
   lt=. lthan ud
+  extend=. [:; lt&{{< y,"1 0 y-.~I.x{~{:y }}"1
-  r=. i.0 0
+  r=. ; extend^:(x-1)@,:&.> i.#ud
-  extend=. [:; {{< y,"1 0 y-.~I.x{~{:y }}"2 1
-  for_c. i.(#ud),1 1 do.
+  ud{~ ~.((i.<./)|.])"1 r #~ lt{~({:,&.>{.)|:r
-    for. }.i.x do.
-      c=. lt extend c
-    end.
-    if.#c do.
-      r=.r, c #~ lt{~({:"1 ,&.> {."1)c
-    end.
-  end.
-  (~.((i.<./)|.])"1 r){ud
 }}</lang>