- 70 名前：デフォルトの名無しさん mailto:sage [2010/06/25(金) 06:32:37 ]
- >>69
% Prolog (その一)
テキストAの一番右の列の数値３つをそれぞれ上から順番に、テキストBの一番右の列の
数値に足す(_テキストA,_テキストB) :-
get_lines(_テキストA,LinesA),
get_lines(_テキストB,LinesB),
テキストAの一番右の列の数値３つをそれぞれ上から順番に、テキストBの一番
右の列の数値に足す(LinesA,LinesB,LinesC),
put_lines(_テキストB,LineC).
テキストAの一番右の列の数値３つをそれぞれ上から順番に、テキストBの一番右の列の
数値に足す(LinesA,LinesB,LinesC) :-
テキストの一番右の列の数値を切り取る(LinesA,LA),
テキストの一番右の列の数値を切り取る(LinesB,LB),
加算([LA,LB],LC),
テキストBの最終数値要素を置換(LB,LC,LineC).
テキスト一番右の列の数値を切り取る([],[]) :- !.
テキスト一番右の列の数値を切り取る([Line|R1],[V|R2]) :-
split(Line,[ ],L),
数値要素が3個以上(L),
last(L,V),
テキストAの一番右の列の数値を切り取る(R1,R2).
|
 |
