mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-26 06:48:04 +02:00
2 lines
99 B
Perl
2 lines
99 B
Perl
|
lengthof(L, 0) :- L == [].
|
||
|
|
lengthof([_|R], NewLength) :- lengthof(R,Length), NewLength is Length+1.
|