Verificare se gli elementi di una lista sono tutti uguali

[Vincent]

Salve a tutti!

Vorrei realizzare un algoritmo in Pascal Like che mi permetta di verificare se data una lista, tutti i suoi elementi sono uguali...

ho pensato ad una cosa del tipo:

function list_elem ( head ) : integer
        if ( head != NULL ) then
              if ( head.info = head.link.info) then
                     list_elem := list_elem(head.link)
              else
                     list_elem := 0
              
              endif
       else
              list_elem := 1
       
       endif

end list_elem

Non so, il professore di programmazione Mod. B mi ha detto che quella notazione head.link.info va bene per il C, ma in P-Like non è preferibile...

Come potrei realizzare l'algoritmo evitando questa notazione?

Grazie a tutti

[LeleFT]

Prova a sostituirla con la notazione Pascal dei puntatori:

Dichiarazione di un puntatore:
Var p1 : ^INTEGER;   // Puntatore ad intero

Utilizzo del puntatore
P1^ := 5;   // La variabile puntata da P1 prende il valore 5.

PS: Ho tralasciato l'allocazione e la deallocazione (utilizzo delle istruzioni new e dispose ) che non hanno rilevanza qui.


Ciao.

[Vincent]

Non è che ho capito proprio bene...se puoi essere un pò più chiaro, grazie!