リストからカップルの最小公倍数 (LCM) を見つけたいです。しかし、次の方法で：
たとえば、次のリストがあるとします。
L1 = [1,2,3,4,5] .
このリストを作成したい：
L2 = [1,2,6,12,60] .
L1 の最初の要素を L2 の最初の要素として使用し、残りは次の形式に従います。
L2[0] = L1[0]
L2[i+1] = lcm( L1[i+1] , L2[i] )
これが私がこれまで行ってきたことですが、うまくいきません。常に偽を印刷します。
%CALL_MAKE----------------------------------------
%Using call_make to append Hd to L2 list
call_make([Hd|Tail], Result) :-
make_table(Tail, [Hd], Result).
%MAKE_TABLE---------------------------------------
%Using make_table to create the rest L2
make_table([],Res,Res).
make_table([Head|Tail], List, Result) :-
my_last(X, List),
lcm(Head, X, R),
append(List, R, Res),
make_table(Tail, Res, Result).
%last element of a list---------------------------
my_last(X,[X]).
my_last(X,[_|L]):- my_last(X, L).
%GCD----------------------------------------------
gcd(X, 0, X) :- !.
gcd(X, Y, Z) :-
H is X rem Y,
gcd(Y, H, Z).
%LCM----------------------------------------------
lcm(X,Y,LCM):-
gcd(X,Y,GCD),
LCM is X*Y//GCD.
プログラムを実行してこれを取得したい：
?- call_make([1,2,3,4,5], Result).
Result = [1,2,6,12,60].