Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 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
+)