Question

我想从列表中找到夫妇的最小公倍数（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].

Answer 1

append/3正在将两个列表连接起来，而在这里：

append(List, R, Res),

R是一个标量。将其更改为

append(List, [R], Res),

PROLOG-列表中的夫妻的LCM

1 个答案: