list - 在Prolog中将数字拆分为数字列表

我一直在尝试使用Prolog将数字拆分为列表时遇到麻烦，例如123456变成[1,2,3,4,5,6]。

您能帮我解决该怎么做吗？

最佳答案

可用的内置函数是ISO标准:

?- number_codes(123456,X),format('~s',[X]).
123456
X = [49, 50, 51, 52, 53, 54].

?- number_chars(123456,X),format('~s',[X]).
123456
X = ['1', '2', '3', '4', '5', '6'].

我还为我的解释器开发了一些非常旧的代码。必须将:=重命名为is才能与标准Prologs一起运行。但是，那么最好从内置函数之上为您服务...

itoa(N, S) :-
    N < 0, !,
    NN := 0 - N,
    iptoa(NN, SR, _),
    reverse(SR, SN),
    append("-", SN, S).
itoa(N, S) :-
    iptoa(N, SR, _),
    reverse(SR, S).

iptoa(V, [C], 1) :-
    V < 10, !,
    C := V + 48.
iptoa(V, [C|S], Y) :-
    M := V / 10,
    iptoa(M, S, X),
    Y := X * 10,
    C := V - M * 10 + 48.

在此处编辑以获得号码所需的其他调用:

?- number_codes(123456,X), maplist(plus(48),Y,X).
X = [49, 50, 51, 52, 53, 54],
Y = [1, 2, 3, 4, 5, 6].

关于list - 在Prolog中将数字拆分为数字列表，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11701991/