09/12/22 14:49:40
>>12
% Prolog
'数値(n)を反転した値を表示' :-
get_integer(N),
'数値(n)を反転する'(N,N2),
write_formatted('%t\n',[M]).
'数値(n)を反転する'(N,N1) :-
number_chars(N,Chars1),
reverse(Chars1,Chars2),
number_chars(N1,Chars2).
09/12/22 14:49:40
>>12
% Prolog
'数値(n)を反転した値を表示' :-
get_integer(N),
'数値(n)を反転する'(N,N2),
write_formatted('%t\n',[M]).
'数値(n)を反転する'(N,N1) :-
number_chars(N,Chars1),
reverse(Chars1,Chars2),
number_chars(N1,Chars2).