Bubble Sort em Scilab

Descrição

Esconder código-fonte

//Desenvolvido por White Hawk
//Licenciado sob a GPL (GNU Public License)

function sA = bubbleSort(A)
    Troca = %T;

    while (Troca == %T)
        Troca = %F
        for i=1:(length(A)-1)
            if (A(i) > A(i+1)) then
                Aux = A(i);
                A(i) = A(i+1);
                A(i+1) = Aux;
                Troca = %T;
            end
        end
    end

    sA = A;
endfunction