mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-25 22:38:04 +02:00
3 lines
96 B
Perl
3 lines
96 B
Perl
|
remove([(X,A)|L],X,[(X,ANew)|L]) :- A>0, ANew is A-1.
|
||
|
|
remove([X|L],Y,[X|L1]) :- remove(L,Y,L1).
|