% Numere
% Pe documentele oficiale, cum ar fi cecurile, numerele trebuie
% scrise cateodata si in cuvinte. De exemplu, 175 trebuie scris
% unu-sapte-cinci.
% cuvinte(N) :- scrie numerele in cuvinte
cuvinte(0) :- !, write(zero), nl.
cuvinte(N) :- integer(N), N > 0, cuvinte1(N), nl.
cuvinte1(0) :- !.
cuvinte1(N) :- N > 0,
Q is N // 10, R is N mod 10,
cuvinte1(Q), nr_cuvant(R,RW), liniuta(Q), write(RW).
liniuta(0) :- !.
liniuta(Q) :- Q > 0, write(‘-‘).
nr_cuvant(0,zero).
nr_cuvant(1,unu).
nr_cuvant(2,doi).
nr_cuvant(3,trei).
nr_cuvant(4,patru).
nr_cuvant(5,cinci).
nr_cuvant(6,sase).
nr_cuvant(7,sapte).
nr_cuvant(8,opt).
nr_cuvant(9,noua).
Interogări:
| ?- cuvinte(123) .
unu-doi-trei
yes
| ?- cuvinte(0) .
zero
yes
| ?- cuvinte(-56) .
no
| ?- cuvinte(35641) .
trei-cinci-sase-patru-unu
yes
| ?- cuvinte(9854030) .
noua-opt-cinci-patru-zero-trei-zero
yes
InfoCad Blog 