1

我正在尝试编写一个简单的翻译器，您可以在其中输入数字列表并返回它们的字符串值，如下所示：

翻译（[1,2,3]，X）。X=[一、二、三]。

我编写的代码有效......除了它返回一个空列表。这是我的代码和跟踪：

means(1, one).
means(2, two).
means(3, three).
means(4, four).
means(5, five).
means(6, six).
means(7, seven).
means(8, eight).
means(9, nine).
means(10, ten).

translate([], X).
translate([H|T], []):-
    means(H, X),
translate(T, X).

translate([H|T], X):-
    means(H, Y),
    translate(T, [X|Y]).


[trace] 1 ?- translate([1,2,3], X).
    Call: (6) translate([1, 2, 3], _G2219) ? creep
    Call: (7) means(1, _G2301) ? creep
    Exit: (7) means(1, one) ? creep
    Call: (7) translate([2, 3], one) ? creep
    Call: (8) means(2, _G2301) ? creep
    Exit: (8) means(2, two) ? creep
    Call: (8) translate([3], [one|two]) ? creep
    Call: (9) means(3, _G2304) ? creep
    Exit: (9) means(3, three) ? creep
    Call: (9) translate([], [[one|two]|three]) ? creep
    Exit: (9) translate([], [[one|two]|three]) ? creep
    Exit: (8) translate([3], [one|two]) ? creep
    Exit: (7) translate([2, 3], one) ? creep
    Exit: (6) translate([1, 2, 3], []) ? creep
X = [] .

我的另一个问题是：为什么我的列表连接为 [[one|two]|three]？而不是[一，二，三]？

谢谢，

4

2 回答 2

3

由于translate([H|T], [])子句，您得到空列表。

整个程序（means事实除外）可以这么简单：

translate([], []).

translate([NumH | NumT], [WordH | WordT]) :-
    means(NumH, WordH),
    translate(NumT, WordT).
于 2013-02-27T01:27:27.960 回答
1

手动执行 Sergey 的方式是一种很好的做法，但您可以进一步简化maplist/3：

translate(Numbers, Words) :- maplist(means, Numbers, Words).
于 2013-02-27T04:56:17.580 回答