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

    % Presunzione d'innocenza: fino a prova contraria assumiamo che
    % la matrice "M" sia ridotta a scalini.  Poniamo inizialmente la
    % risposta (cioe' la variabile "r") uguale a vero (cioe' "1").
    r = 1;
    % Dimensioni della matrice.
    [n, m] = size(M);
    
    % Ad ogni iterazione, salviamo il "pn" della riga nella variabile
    % "t" per non dovrlo ricalcolare al ciclo successivo.
    % Per cominciare, assegnamo un valore negativo a "t"
    t = -1;

    % Controlliamo ogni riga con la successiva
    for i = 1:n
        h = pn(M(i,:));
        if t >= h & h < m
            % In questo caso, la matrice non e' a scalini.
            % Poniamo quindi la risposta uguale a falso.
            r = 0;
            % Non e' necessario controllare altre righe: usciamo
            % dal ciclo "for".
            break
        else
            % Per il momento non la matrice risulta essere a scalini.
            % Copiamo il nuovo valore di "pn" in "t" e continuiamo.
            t = h;
        end
    end