Data commit

Task/Josephus-problem/Oz/josephus-problem.oz

@@ -0,0 +1,23 @@
+declare
+fun {Pipe Xs L H F}
+   if L=<H then {Pipe {F Xs L} L+1 H F} else Xs end
+end
+fun {Josephus N K}
+   fun {Victim Xs I}
+      case Xs of kill(X S)|Xr then
+	 if S==1 then Last=I nil
+	 elseif X mod K==0 then
+	    Killed:=I-1|@Killed
+	    kill(X+1 S-1)|Xr
+	 else
+	    kill(X+1 S)|{Victim Xr I}
+	 end
+      [] nil then nil end
+   end
+   Last Zs Killed={NewCell nil}
+in
+   Zs={Pipe kill(1 N)|Zs 1 N
+       fun {$ Is I} thread {Victim Is I} end end}
+   result(survivor: Last-1 killed: {Reverse @Killed})
+end
+{Show {Josephus 41 3}}