- 106 名前：デフォルトの名無しさん mailto:sage [2010/06/27(日) 08:20:49 ]
- >>99
% Prolog (つづき)
ならびと数字の対応([],'0').
ならびと数字の対応([a],'1').
ならびと数字の対応([a,a],'2').
ならびと数字の対応([a,a,a],'3').
ならびと数字の対応([a,a,a,a],'4').
ならびと数字の対応([a,a,a,a,a],'5').
ならびと数字の対応([a,a,a,a,a,a],'6').
ならびと数字の対応([a,a,a,a,a,a,a],'7').
ならびと数字の対応([a,a,a,a,a,a,a,a],'8').
ならびと数字の対応([a,a,a,a,a,a,a,a,a],'9').
ならびによる数表現を数値文字列に変換([],'') :- !.
ならびによる数表現を数値文字列に変換([L|R],_数値文字列) :-
ならびと数字の対応(L,S),
ならびによる数表現を数値文字列に変換(R,_数値文字列2),
concat_atom([S,_数値文字列2],_数値文字列).
