all tasks

Task/Sorting-algorithms-Bubble-sort/Forth/sorting-algorithms-bubble-sort-1.fth

@@ -0,0 +1,9 @@
+defer bubble-test
+' > is bubble-test
+
+: bubble { addr cnt -- }
+  cnt 1 do
+    addr cnt i - cells bounds do
+      i 2@ bubble-test if i 2@ swap i 2! then
+    cell +loop
+  loop ;

Task/Sorting-algorithms-Bubble-sort/Forth/sorting-algorithms-bubble-sort-2.fth

@@ -0,0 +1,6 @@
+: bubble ( addr cnt -- )
+  dup 1 do
+    2dup i - cells bounds do
+      i 2@ bubble-test if i 2@ swap i 2! then
+    cell +loop
+  loop ;

Task/Sorting-algorithms-Bubble-sort/Forth/sorting-algorithms-bubble-sort-3.fth

@@ -0,0 +1,10 @@
+: bubble ( addr len -- )
+  begin
+    1- 2dup  true -rot  ( sorted addr len-1 )
+    cells bounds ?do
+      i 2@ bubble-test if
+        i 2@ swap i 2!
+        drop false   ( mark unsorted )
+      then
+    cell +loop  ( sorted )
+  until 2drop ;