このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301553333/213
#  [1] 授業単元: 無し 
#  [2] 問題文(含コード&リンク):  
#  A,A+,B,B+,C,C+,D,D+,E,E+,F,F+と文字が並んでて、1つ文字を入力したときに 
#  その文字が例えばAならA→B+→D→E+→A、D+ならD+→F→A+→C→D+というように 
#  入力された文字から2つ飛ばしで最初の文字まで表示する 
#  

'A,A+,B,B+,C,C+,D,D+,E,E+,F,F+と文字が並んでて、1つ文字を入力したときにその文字が例えばAならA→B+→D→E+→A、D+ならD+→F→A+→C→D+というように入力された文字から2つ飛ばしで最初の文字まで表示する' :-
        write('ひとつの文字を入力してください : '),
        get_line(_ひとつの文字),
        split('A,A+,B,B+,C,C+,D,D+,E,E+,F,F+',[','],L),
        append(L0,[_ひとつの文字|R],L),
        append(R,L0,L2),
        '2つ飛ばして表示'(_ひとつの文字,L2).

'2つ飛ばして表示'(A,[]) :-
        write_formatted('%t\n',[A]),!.
'2つ飛ばして表示'(A,[_]) :-
        write_formatted('%t\n',[A]),!.
'2つ飛ばして表示'(A,[_,B|R]) :-
        write_formatted('%t,',[B]),
        '2つ飛ばして表示'(A,R).