>>789
% Prolog

課題文２ :-
　　write('一文字入力してください: '),
　　get_line(_行),
　　sub_atom(_行,0,1,_,_文字),
　　課題文２_文字選択(_文字,_表示する文字),
　　write_formatted('課題文２の答えは"%t"です\n',[_表示する文字]).

課題文２_文字選択(_文字,_表示する文字) :-
　　list_nth(N,[a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z],_文字),
　　ならびの左回転([a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z],L1),
　　list_nth(N,L1,_表示する文字),!.
課題文２_文字選択(_文字,_文字).