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-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])