10/07/06 17:33:45
>>262
% Prolog
'1からの文字連鎖によって文字列を成長させながら表示する' :-
文字連鎖によって文字列を成長させながら表示する('1').
文字連鎖によって文字列を成長させながら表示する(_文字列) :- write_formatted('%t\n',_文字列]).
文字連鎖によって文字列を成長させながら表示する(_文字列) :-
sub_atom(_文字列,_,1,1,_最後の文字),
文字連鎖(_最後の文字,_次の文字),
atom_concat(_文字列,_次の文字,_付加された文字列),
文字連鎖によって文字列を成長させながら表示する(_付加された文字列).
文字連鎖('1','2'). 文字連鎖('2','3'). 文字連鎖('3','4'). 文字連鎖('4','5'). 文字連鎖('5','6').
文字連鎖('6','7'). 文字連鎖('7','8'). 文字連鎖('8','9'). 文字連鎖('9','0'). 文字連鎖('0','1').