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-Insertion-sort/Maxima/sorting-algorithms-insertion-sort.maxima
+++ b/Task/Sorting-algorithms-Insertion-sort/Maxima/sorting-algorithms-insertion-sort.maxima
@ -0,0 +1,12 @@
+insertion_sort(u) := block(
+   [n: length(u), x, j],
+   for i from 2 thru n do (
+      x: u[i],
+      j: i - 1,
+      while j >= 1 and u[j] > x do (
+         u[j + 1]: u[j],
+         j: j - 1
+      ),
+      u[j + 1]: x
+   )
+)$