prolog - Prolog 如何在 pl 文件中使用 get_code

Question

我想打印一个字符的 ASCII 值。我正在使用 GNU 序言。

我在 1 小时内尝试的一切都没有奏效。所以我来到这里，我看到了这个帖子：Prolog - get_code/1 without prompt

但是，对于输入中的每个字符，它写 10。这是我的代码：

my_get_code(C) :- get_linedit_prompt(''), get_code(C).

/*
lower_case(X,Y) :- 
   my_get_code(X), Y = X.
*/
/*
lower :-
   read(X),
   lower_case(X,Y),
   write(Y).
*/
lower :-
   read(X),
   my_get_code(X),
   write(X).

事实上，我的目标是取一个 ASCII 字符的值，然后将大写字母转换为小写字母。我需要获取 tha ascii 值，然后添加 32 以获得 lower_case 值。