このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1307166756/592
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  http://ime.nu/www.dotup.org/uploda/www.dotup.org1699968.c 
#  これを改良して 
#  こんにちは(0) 
#  こんにちは(1) 
#  ありがとう(2) 
#  ありがとう(3) 
#  と4つの言葉をループして(20)まで表示されるプログラムを作成せよ 
#  

挨拶 :-
        挨拶([こんにちは,こんにちは,ありがとう,ありがとう]).

挨拶(L) :-
        append([A,B,C,D],Ln,L),
        length(Ln,Len),
        挨拶(A,B,C,D,Ln,Len),!.

挨拶(A,B,C,D,Ln,Len) :-
        Len > 20.
挨拶(A,B,C,D,Ln,Len) :-
        writef('%t(%t)\n',[A,Len]),
        挨拶([B,C,D,A|[_|Ln]]).