Exemplu - Facultatea de Electrotehnică şi Electroenergetică

22. Construiţi o procedură care să asigure scrierea unei liste cu elemente
numere întregi pe rânduri succesive, fiecare rând având 3 elemente.
domains
lista = integer*
predicates
scrie(lista)
scrie_rind(lista, i i d(li t iinteger) t )
clauses
scrie (L) if
write(„ \ n ”),
scrie_rind(L, 0).
scrie_rind ( [ ], _ ). % oprirea procesului
recursiv
scrie_rind (L, 3) if
write(„\n”),
scrie scrie_rind(L, rind(L 0) 0).
scrie_rind ([E|Rest], N) if
write(" write( "E) ,E),
N1=N+1,
scrie_rind(Rest, N1).