このディレクトリの索引
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)まで表示されるプログラムを作成せよ 
#  

挨拶 :-
        挨拶(0).

挨拶(N) :- N > 20,!.
挨拶(N) :-
        M is N mod 4,
        挨拶文選択(M,_挨拶文),
        writef('%t(%t)\n',[_挨拶文,N]),
        N2 is N + 1,
        挨拶(N2).

挨拶文選択(0,こんにちは).
挨拶文選択(1,こんにちは).
挨拶文選択(2,ありがとう).
挨拶文選択(3,ありがとう).