all tasks

Task/Sorting-algorithms-Stooge-sort/PowerBASIC/sorting-algorithms-stooge-sort.powerbasic

@@ -0,0 +1,41 @@
+%arraysize = 10
+
+SUB stoogesort (L() AS LONG, i AS LONG, j AS LONG)
+    IF L(j) < L(i) THEN SWAP L(i), L(j)
+    IF (j - i) > 1 THEN
+        DIM t AS LONG
+        t = (j - i + 1) / 3
+        stoogesort L(), i, j - t
+        stoogesort L(), i + t, j
+        stoogesort L(), i, j - t
+    END IF
+END SUB
+
+FUNCTION PBMAIN () AS LONG
+    RANDOMIZE TIMER
+
+    DIM x(%arraysize) AS LONG
+    DIM i AS LONG, s AS STRING
+
+    s = "Before: "
+    FOR i = 0 TO %arraysize
+        x(i) = INT(RND * 100)
+        s = s & STR$(x(i)) & " "
+    NEXT
+
+    stoogesort x(), 0, %arraysize
+
+    #IF %DEF(%PB_CC32)
+        PRINT s
+        s = ""
+    #ELSE
+        s = s & $CRLF
+    #ENDIF
+
+    s = s & "After: "
+    FOR i = 0 TO %arraysize
+        s = s & STR$(x(i)) & " "
+    NEXT
+
+    ? s
+END FUNCTION