このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/217
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  午前四時から正午までは Good Morning! と、 
#  正午から午後八時までは Good Afternoon! と、 
#  午後八時から午前四時までは Good Evening! と、表示するプログラムを書け。ただし、境界の時刻は前の時間帯に含まれるものとする 
#   

挨拶 :-
        '午前四時から正午までは Good Morning! と、正午から午後八時までは Good Afternoon! と、午後八時から午前四時までは Good Evening! と、表示する'.

'午前四時から正午までは Good Morning! と、正午から午後八時までは Good Afternoon! と、午後八時から午前四時までは Good Evening! と、表示する' :-
        _時刻 is time,
        localtime(_時刻,_年,_月,_日,_曜日番号,_通算日数,_時,_分,_秒),
        挨拶を表示する(_時,_分,_秒),!.

挨拶を表示する(_時,_分,_秒) :-
        [_時,_分,_秒] @> [4,0,0],
        [_時,_分,_秒] @=< [12,0,0],
        write(' Good Mornig! \n').
挨拶を表示する(_時,_分,_秒) :-
        [_時,_分,_秒] @> [12,0,0],
        [_時,_分,_秒] @=< [20,0,0],
        write(' Good Afternoon! \n').
挨拶を表示する(_時,_分,_秒) :-
        [_時,_分,_秒] @> [20,0,0],
        write(' Good Evening! \n').
挨拶を表示する(_時,_分,_秒) :-
        [_時,_分,_秒] @=< [4,0,0],
        write(' Good Evening! \n').