いろんな言語で宿題スレ

いろんな言語で宿題ス ..

297:デフォルトの名無しさん
09/06/26 18:13:37
>>296
% Prolog

t296(Name) :-
　　sub_atom(Name,S,1,R,A),
　　not(A=' '),
　　char_code(A,C),
　　N is S+1,
　　write_formatted('%2d: %t\n',[N,C]),
　　fail;
　　true.

次ページ