function r = scalini(M)
    % Programma per controllare se una matrice "M" e' ridotta
    % a scalini per righe.

    % Presunzione d'innocenza: fino a prova contraria, la matrice e'
    % a scalini.  Poniamo inizialmente la risposta (cioe' la variabile "r") uguale
    % a vero (cioe' "1").
    r = 1;
    % Dimensioni della matrice.
    [n, m] = size(M);
    % Controlliamo ogni riga con la successiva
    for i = 1:n-1
        if pn(M(i,:)) >= pn(M(i+1,:)) & pn(M(i+1,:)) < m
            % In questo caso, la matrice non e' a scalini.
            % Poniamo quindi la risposta uguale a falso.
            r = 0;
            % E usciamo dal ciclo "for".
            break
        end
    end