list-length.pl 99 B

12
  1. lengthof(L, 0) :- L == [].
  2. lengthof([_|R], NewLength) :- lengthof(R,Length), NewLength is Length+1.