Sorting algorithms/Bubble sort: Difference between revisions
Content added Content deleted
imported>Maxima enthusiast No edit summary |
|||
Line 4,741: | Line 4,741: | ||
1 2 3 4 5 6 7 8 9</pre> |
1 2 3 4 5 6 7 8 9</pre> |
||
=={{header|Maxima}}== |
|||
<syntaxhighlight lang="maxima"> |
|||
bubble_sort(u) := block( |
|||
[n: length(u), swapped: true, temp], |
|||
while swapped do ( |
|||
swapped: false, |
|||
for i: 1 thru n - 1 do ( |
|||
if u[i] > u[i + 1] then ( |
|||
temp: u[i], |
|||
u[i]: u[i + 1], |
|||
u[i + 1]: temp, |
|||
swapped: true |
|||
) |
|||
) |
|||
), |
|||
u |
|||
); |
|||
/* Example */ |
|||
/* sample:[3,65,6,24,24,89,2,59,6]$ |
|||
bubble_sort(%); |
|||
[2,3,6,6,24,24,59,65,89] |
|||
*/ |
|||
</syntaxhighlight> |
|||
=={{header|MAXScript}}== |
=={{header|MAXScript}}== |