Rosetta Code

Sorting algorithms/Insertion sort: Difference between revisions

Page Discussion

Sorting algorithms/Insertion sort (view source)

Revision as of 14:48, 31 January 2012

70 bytes added ,  12 years ago
→‎{{header|Mathematica}}
Line 917:
 
=={{header|Mathematica}}==
<lang Mathematica>insertionSort[A_Lista_List] := Module[{A = a},
For[ i = 2, i <= Length[A], i++,
value = A[[i]]; j = i - 1;
While[ j >= 1 && A[[j]] > value , A[[j + 1]] = A[[j]]; j--;];
A[[j + 1]] = value;];
A
];</lang>
 
<pre>insertionSort@{ 2, 1, 3, 5}
{1, 2, 3, 5}</pre>
 
=={{header|MATLAB}} / {{header|Octave}}==
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/42842"