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