>>27
% Prolog

'1から10までの積を計算する。このとき，画面に 1*2*3*・・・・*10 = という風に表示
されるようにする' :-
　　　　'1から10までの積を計算する。このとき，画面に 1*2*3*・・・・*10 = という
されるようにする'(1,1).

'1から10までの積を計算する。このとき，画面に 1*2*3*・・・・*10 = という風に表示
されるようにする'(10,S1) :-
　　　　S is S1 * 10,
　　　　write_formatted('10 = %t\n',[S]),!.
'1から10までの積を計算する。このとき，画面に 1*2*3*・・・・*10 = という風に表示
されるようにする'(N,S1) :-
　　　　S2 is S1 * N,
　　　　N2 is N + 1,
　　　　write_formatted('%t*',[N]),
　　　　'1から10までの積を計算する。このとき，画面に 1*2*3*・・・・*10 = という
風に表示されるようにする'(N2,S2).