all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Counting-sort/PureBasic/sorting-algorithms-counting-sort.purebasic
+++ b/Task/Sorting-algorithms-Counting-sort/PureBasic/sorting-algorithms-counting-sort.purebasic
@ -0,0 +1,16 @@
+Procedure Counting_sort(Array data_array(1), min, max)
+  Define i, j
+  Dim c(max - min)
+
+  For i = 0 To ArraySize(data_array())
+    c(data_array(i) - min) + 1
+  Next
+
+  For i = 0 To ArraySize(c())
+    While c(i)
+      data_array(j) = i + min
+      j + 1
+      c(i) - 1
+    Wend
+  Next
+EndProcedure