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-Bead-sort/Octave/sorting-algorithms-bead-sort.octave
+++ b/Task/Sorting-algorithms-Bead-sort/Octave/sorting-algorithms-bead-sort.octave
@ -0,0 +1,21 @@
+function sorted = beadsort(a)
+  sorted = a;
+  m = max(a);
+  if ( any(a < 0) )
+    error("can't sort");
+  endif
+  t = zeros(m, m);
+  for i = 1:numel(a)
+    t(i, 1:a(i)) = 1;
+  endfor
+  for i = 1:m
+    s = sum(t(:, i));
+    t(:, i) = 0;
+    t(1:s, i) = 1;
+  endfor
+  for i = 1:numel(a)
+    sorted(i) = sum(t(i, :));
+  endfor
+endfunction
+
+beadsort([5, 7, 1, 3, 1, 1, 20])