¤³¤Î¥Ç¥£¥ì¥¯¥È¥ê¤Îº÷°ú
http://toro.2ch.net/test/read.cgi/tech/1322562648/779
#  [1] ¼ø¶Èñ¸µ¡§·×»»µ¡¥¢¥ë¥´¥ê¥º¥à­µ  
#  [2] ÌäÂêʸ(´Þ¥³¡¼¥É&¥ê¥ó¥¯)¡§  
#  ÀßÌä1-1 
#  ¥­¡¼¥Ü¡¼¥É¤«¤éÀ°¿ôÃͤò¼õ¤±¼è¤ê¡¢¤½¤Î¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î("Jan", "Feb",¡¦¡¦¡¦)¤òɽ¼¨¤¹¤ë¥×¥í¥°¥é¥à¤òºîÀ®¤·¤Ê¤µ¤¤¡£ 
#  ¤Ê¤ª¡¢·î¤Îά¾Î¤Ï¥Ý¥¤¥ó¥¿ÇÛÎó¡Ö char *month[ ]={"Jan.", "Feb.", "Mar.", "Apr.", "May.", "Jun.", "Jul.", "Aug.", "Sep.", "Oct.", "Nov.", "Dec."};¡×¤ÇÄêµÁ¤¹¤ë¤â¤Î¤È¤¹¤ë¡£  
#  

'¥­¡¼¥Ü¡¼¥É¤«¤éÀ°¿ôÃͤò¼õ¤±¼è¤ê¡¢¤½¤Î¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î("Jan", "Feb",¡¦¡¦¡¦)¤òɽ¼¨¤¹¤ë¡£¤Ê¤ª¡¢·î¤Îά¾Î¤Ï¥Ý¥¤¥ó¥¿ÇÛÎó¡Ö char *month[ ]={"Jan.", "Feb.", "Mar.", "Apr.", "May.", "Jun.", "Jul.", "Aug.", "Sep.", "Oct.", "Nov.", "Dec."};¡×¤ÇÄêµÁ¤¹¤ë¤â¤Î¤È¤¹¤ë¡£' :-
        '¥­¡¼¥Ü¡¼¥É¤«¤éÀ°¿ôÃͤò¼õ¤±¼è¤ê'(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ),
        '¤½¤Î¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¤òɽ¼¨¤¹¤ë'(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ).

'¥­¡¼¥Ü¡¼¥É¤«¤éÀ°¿ôÃͤò¼õ¤±¼è¤ê'(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ) :-
        get_line(Line),
        ¥­¡¼¥Ü¡¼¥É¤«¤é¤ÎÀ°¿ôÃͤμõ¤±¼è¤ê¿ÇÃÇ(Line,_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ),!.
'¥­¡¼¥Ü¡¼¥É¤«¤éÀ°¿ôÃͤò¼õ¤±¼è¤ê'(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ) :-
        '¥­¡¼¥Ü¡¼¥É¤«¤éÀ°¿ôÃͤò¼õ¤±¼è¤ê'(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ).

¥­¡¼¥Ü¡¼¥É¤«¤é¤ÎÀ°¿ôÃͤμõ¤±¼è¤ê¿ÇÃÇ(Line,_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ) :-
        atom_to_term(Line,_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ,_),
        integer(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ),!.
¥­¡¼¥Ü¡¼¥É¤«¤é¤ÎÀ°¿ôÃͤμõ¤±¼è¤ê¿ÇÃÇ(Line,_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ) :-
        writef('ÆþÎϤµ¤ì¤¿ %t ¤«¤é¤Ï·î¿ô¤ËÁêÅö¤¹¤ë¿ôÃͤ¬ÆÀ¤é¤ì¤Þ¤»¤ó¡£ºÆÆþÎϤò¤ª´ê¤¤¤·¤Þ¤¹¡£\n',[Line]),
        fail.

'¤½¤Î¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¤òɽ¼¨¤¹¤ë'(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ) :-
        ¿ôÃͤ˳ºÅö¤¹¤ë¥Ô¥ê¥ª¥ÉÉÕ¤­·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ,_¥Ô¥ê¥ª¥ÉÉÕ¤­·î¤Îά¾Î¥¹¥È¥ê¥ó¥°),
        append(L1,[_],_¥Ô¥ê¥ª¥ÉÉÕ¤­·î¤Îά¾Î¥¹¥È¥ê¥ó¥°),
        string_to_atom(L1,_¤½¤Î¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î),
        writef('¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿¿ô»ú %t(·î),³ºÅö¤¹¤ë·î¤Îά¾Î %t\n',[_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ,_¤½¤Î¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î]),!.
'¤½¤Î¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¤òɽ¼¨¤¹¤ë'(_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ,_) :-
        writef('¥­¡¼¥Ü¡¼¥É¤«¤é¤ÎÆþÎÏ %t ¤Ë³ºÅö¤¹¤ë·î¤Ï¸ºß¤·¤Þ¤»¤ó¡£\n',[_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ,[_¥­¡¼¥Ü¡¼¥É¤«¤é¼õ¤±¼è¤Ã¤¿À°¿ôÃÍ]).

¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(1,"Jan.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(2,"Feb.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(3,"Mar.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(4,"Apr.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(5,"May.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(6,"Jun.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(7,"Jul.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(8,"Aug.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(9,"Sep.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(10,"Oct.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(11,"Nov.").
¿ôÃͤ˳ºÅö¤¹¤ë·î¤Îά¾Î¥¹¥È¥ê¥ó¥°(12,"Dec.").