[[
✎ pl:prolog:pllib:dollar
]]
aiWiki
Pokaż stronę
Ostatnie zmiany
Indeks
Zaloguj
Ta strona jest tylko do odczytu. Możesz wyświetlić źródła tej strony ale nie możesz ich zmienić.
====== Dollar ====== {{tag>money}} ===== Description ===== This simple Prolog program checks or generates change adding up to a dollar consisting of half-dollars, quarters, dimes, nickels, and pennies. **Source**: PrologTutorial (on-line tutorial) ===== Download ===== Program source code: {{dollar.pl}} ===== Listing ===== <code prolog> change([H,Q,D,N,P]) :- member(H,[0,1,2]), /* Half-dollars */ member(Q,[0,1,2,3,4]), /* quarters */ member(D,[0,1,2,3,4,5,6,7,8,9,10]) , /* dimes */ member(N,[0,1,2,3,4,5,6,7,8,9,10, /* nickels */ 11,12,13,14,15,16,17,18,19,20]), S is 50*H + 25*Q +10*D + 5*N, S =< 100, P is 100-S. % ?- change([H,Q,D,N,P]). % ?- change([0,2,3,4,6]). % ?- change([0,2,3,2,P]). </code> ===== Comments =====
pl/prolog/pllib/dollar.txt
· ostatnio zmienione: 2019/06/27 15:50 (edycja zewnętrzna)
Pokaż stronę
Poprzednie wersje
Menadżer multimediów
Do góry