cleanup old files
This commit is contained in:
@@ -0,0 +1,10 @@
|
||||
|
||||
|
||||
do(DCG) :-
|
||||
fd_domain(X, 0, 9),
|
||||
fd_labeling(X),
|
||||
number_codes(X, [C]),
|
||||
DCG = `-->`(digit(C), [C]).
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user