Sorting algorithms/Bubble sort: Difference between revisions

<lang seed7>const proc: bubbleSort (inout array integerelemType: arr) is func

local

var integerboolean: iswapped is 0FALSE;

var integer: ji is 0;

var integerelemType: help is 0elemType.value;

begin

for if arr[i] <range 1 to length(arr[j]) - 1 thendo

if helparr[i] :=> arr[i + 1]; then

arr[i] help := arr[ji];

arr[ji] := helparr[i + 1];

end if arr[i + 1] := help;

end for swapped := TRUE;

end forif;

end funcfor;

bubbleSort(arr) end func;</lang>