在Prolog中将八进制转换为二进制数

Question

这就是我试图将八进制数转换为二进制数的方法。 我想做的就是找到给定的八进制数除以10的余数，以获得每个数字并将该数字转换为3位二进制数。 但是此代码不会产生任何输出。 请帮忙。 提前致谢。

convert_bin(0, '0').
convert_bin(1, '1').
convert_bin(N, B) :-
    N > 1,
    X is N mod 2,
    Y is N // 2,
    convert_bin(Y, B1),
    atom_concat(B1, X, B).

convert_oct(N, O) :-
    X is N mod 10,
    convert_bin(X, B),
    Y is N // 10,
    convert_oct(Y, O1),
    atom_concat(O1, B, O).

Answer 1

编码数字最好是数字列表，而不是原子！

使用clpfd和n_base_digits/3我们可以编写以下示例查询：

?- use_module(library(clpfd)).
true.

?- n_base_digits(27, 2, Binary).
Binary = [1,1,0,1,1].

?- n_base_digits(N, 2, [1,1,0,0,1,0,0,1]).
   N = 201
;  false.

?- n_base_digits(N, 2, [1,1,0,0,1,0,0,1]),
   n_base_digits(N, 8, Octal).
   N = 201, Octal = [3,1,1]
;  false.