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-Comb-sort/J/sorting-algorithms-comb-sort.j
+++ b/Task/Sorting-algorithms-Comb-sort/J/sorting-algorithms-comb-sort.j
@ -0,0 +1,13 @@
+combSort=:3 :0
+  gap=. #y
+  whilst.1 < gap+swaps do.
+    swaps=. 0
+    i=. i.2,gap=. 1 >. <.gap%1.25
+    while.{:$i=.i #"1~ ({: i) < #y do.
+      swaps=.swaps+#{:k=.i #"1~b=. >/ i{y
+      i=. i+gap
+      y=.((|.k){y) k} y
+    end.
+  end.
+  y
+)