>>579 (その二)
% Prolog こちらがトップレベル　>>580 はレジの中身を更新するのを忘れている

おつりの計算(_お買い上げ金額,_うけとったお金,_金種) :-
　　_受け取ったお金 > _お買い上げ金額,
　　_おつり is　_うけとったお金 - _お買い上げ金額,
　　金種計算(_おつり,[10000,5000,2000,1000,500,100,50,10,5,1],_金種).