¤³¤Î¥Ç¥£¥ì¥¯¥È¥ê¤Îº÷°ú 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.").