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

'午前四時から正午までは Good Morning!、正午から午後八時まではGood Afternoon!、午後八時から午前四時までは Good Evening!と表示する。ただし、境界の時刻は前の時間帯に含まれる。' :-
        T is time,
        localtime(T,_,_,_,_,_,_時,_分,_秒),
        '午前四時から正午までは Good Morning!、正午から午後八時まではGood Afternoon!、午後八時から午前四時までは Good Evening!と表示する。ただし、境界の時刻は前の時間帯に含まれる。'(_時,_分,_秒).

'午前四時から正午までは Good Morning!、正午から午後八時まではGood Afternoon!、午後八時から午前四時までは Good Evening!と表示する。ただし、境界の時刻は前の時間帯に含まれる。'(_時,_分,_秒) ,-
        '午前四時から正午までは Good Morning!'(_時,_分,_秒),!.
'午前四時から正午までは Good Morning!、正午から午後八時まではGood Afternoon!、午後八時から午前四時までは Good Evening!と表示する。ただし、境界の時刻は前の時間帯に含まれる。'(_時,_分,_秒) ,-
        '正午から午後八時までは Good Afternoon!'(_時,_分,_秒),!.
'午前四時から正午までは Good Morning!、正午から午後八時まではGood Afternoon!、午後八時から午前四時までは Good Evening!と表示する。ただし、境界の時刻は前の時間帯に含まれる。'(_時,_分,_秒) ,-
        '後八時から午前四時までは Good Evening!'(_時,_分,_秒),!.

'午前四時から正午までは Good Morning!と表示する'(_時,_分,_秒) ,-
        (_時,_分,_秒) @> (4,0,0),
        (_時,_分,_秒) @=< (12,0,0),
        write('Good Morning!\n').

'正午から午後八時までは Good Afternoon!と表示する'(_時,_分,_秒) ,-
        (_時,_分,_秒) @> (12,0,0),
        (_時,_分,_秒) @=< (20,0,0),
        write('Good Afternoon!\n').

'後八時から午前四時までは Good Evening!と表示する'(_時,_分,_秒) ,-
        (_時,_分,_秒) @> (20,0,0),
        (_時,_分,_秒) @=< (24,0,0),
        write('Good Afternoon!\n').
'後八時から午前四時までは Good Evening!と表示する'(_時,_分,_秒) ,-
        (_時,_分,_秒) @> (0,0,0),
        (_時,_分,_秒) @=< (4,0,0),
        write('Good Afternoon!\n').