Надо реализовать на SWI-prolog вычисление НОК ПОСЛЕДОВАТЕЛЬНОСТИ ЧИСЕЛ. Я понимаю, как это реализовать для ДВУХ чисел. А вот для ПОСЛЕДОВАТЕЛЬНОСТИ не могу.
-
Может так? nod(A,A,A). nod(A, B, C) :- A > B, D is A-B, nod(D, B, C). nod(A, B, C) :- B > A, nod(B, A, C). nok(A, B, X) :- nod(A, B, C), X is A * B / C. nok(A, X) :- nok1(A, 1, X). nok1([A|S], C, X) :- nok(A, C, C1), nok1(S, C1, X). nok1([], C, C).– alexlz4 мар 2014 в 9:30
Добавить комментарий
|
1 ответ
Может так?
nod(A, A, A).
nod(A, B, C) :- A > B, D is A-B, nod(D, B, C).
nod(A, B, C) :- B > A, nod(B, A, C).
nok(A, B, X) :- nod(A, B, C), X is A * B / C.
nok(A, X) :- nok1(A, 1, X).
nok1([A|S], C, X) :- nok(A, C, C1), nok1(S, C1, X).
nok1([], C, C).