11 lines
118 B
Prolog
11 lines
118 B
Prolog
|
|
|
|
do(DCG) :-
|
|
fd_domain(X, 0, 9),
|
|
fd_labeling(X),
|
|
number_codes(X, [C]),
|
|
DCG = `-->`(digit(C), [C]).
|
|
|
|
|
|
|