如何解决使用Prolog生成Lucas /斐波那契序列的列表
我只是在摆弄序言,我遇到了一个我不知道如何解决的问题。我想创建一个返回给定数字In的Lucas sequence的过程。我已经获得了返回实际数字的代码,但正是这样做,返回了In的Lucas值。我想要的是返回一个包含所有Lucas序列号的列表。我一直在努力做到这一点,但我不知道如何实现这一目标。以下是我的尝试。任何帮助将不胜感激!!!
lucas(0,[2]).
lucas(1,[2,1]).
lucas(In,Exit):-
In>1,First is In-1,Second is In-2,lucas(First,First1),lucas(Second,Second1),[Out] is First1+Second1,Lucas(1,L),app([L],Out,Exit).
解决方法
一个简单的解决方案是定义卢卡斯编号,然后生成卢卡斯编号列表:
% Definition of Lucas numbers according to Wikipedia
lucas(0,2) :- !.
lucas(1,1) :- !.
lucas(N,R) :-
N > 1,N_Pre is N - 1,N_PrePre is N - 2,lucas(N_Pre,LHS),lucas(N_PrePre,RHS),R is LHS + RHS.
% Memoization of Lucas numbers
:- table lucas/2.
% Generate List
seq(M,Result) :-
numlist(0,M,List),maplist(lucas,List,Result).
如果我随后调用seq,它会产生一系列卢卡斯数字:
?- seq(5,R).
R = [2,1,3,4,7,11].
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。