10/06/25 06:33:34
>>69
% Prolog (その二)
テキストBの最終数値要素を置換([],_,[]) :- !.
テキストBの最終数値要素を置換([Line|R1],[V|R2],[LineC|R3]) :-
sPLIT(Line,[ ],L1),
数値要素が3個以上(L1),
length(L1,Len),
findmax(Nth,(
for(1,Nth,Len),
list_nth(Nth,L1,V1),number(V1)),
LastNth),
要素番号によるならびの置換(LastNth,V,L1,L3),
concat_atom(L3,LineC),
テキストBの最終数値要素を置換(R1,R2,R3),!.
テキストBの最終数値要素を置換([Line|R1],L2,[Line|R3]) :-
テキストBの最終数値要素を置換(R1,L2,R3),!.
数値要素が3個以上(L1) :-
count((member(A,L1),number(A)),Count),
Count >= 3,!.