all tasks

Task/Sorting-algorithms-Pancake-sort/BBC-BASIC/sorting-algorithms-pancake-sort.bbc

@@ -0,0 +1,32 @@
+      DIM test(9)
+      test() = 4, 65, 2, -31, 0, 99, 2, 83, 782, 1
+      PROCpancakesort(test())
+      FOR i% = 0 TO 9
+        PRINT test(i%) ;
+      NEXT
+      PRINT
+      END
+
+      DEF PROCpancakesort(a())
+      LOCAL i%, j%, m%
+      FOR i% = DIM(a(),1)+1 TO 2 STEP -1
+        m% = 0
+        FOR j% = 1 TO i%-1
+          IF a(j%) > a(m%) m% = j%
+        NEXT
+        m% += 1
+        IF m% < i% THEN
+          IF m% > 1 PROCflip(a(), m%)
+          PROCflip(a(), i%)
+        ENDIF
+      NEXT
+      ENDPROC
+
+      DEF PROCflip(a(), n%)
+      IF n% < 2 ENDPROC
+      LOCAL i%
+      n% -= 1
+      FOR i% = 0 TO n% DIV 2
+        SWAP a(i%), a(n%-i%)
+      NEXT
+      ENDPROC