Data commit

Task/Josephus-problem/REBOL/josephus-problem-1.rebol

@@ -0,0 +1,13 @@
+Rebol []
+
+execute: func [death-list [block!] kill [integer!]] [
+    assert [not empty? death-list]
+    until [
+        loop kill - 1 [append death-list take death-list]
+        (1 == length? remove death-list)
+    ]
+]
+
+prisoner: [] for n 0 40 1 [append prisoner n]
+execute prisoner 3
+print ["Prisoner" prisoner "survived"]

Task/Josephus-problem/REBOL/josephus-problem-2.rebol

@@ -0,0 +1,3 @@
+for-the-chop: [Joe Jack William Averell Rantanplan]
+execute for-the-chop 2
+print [for-the-chop "survived"]