いろんな言語で宿題スレ
■ このスレッドは過去ログ倉庫に格納されています
0173デフォルトの名無しさん
2009/06/15(月) 19:01:53% Prolog
整数１〜１０までの累計(X) :-
sum(0,1,10,X).
sum(_空リストの時の値,[],_空リストの時の値). /* _空リストの時の値は 0 か 0.0 */
sum(_空リストの時の値,[A|R1],X) :-
sum(_空リストの時の値,R,Y),
X is A + Y.
■ このスレッドは過去ログ倉庫に格納されています