¤³¤Î¥Ç¥£¥ì¥¯¥È¥ê¤Îº÷°ú% °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê http://toro.2ch.net/test/read.cgi/tech/1363769640/325 # xyz ¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½ # # [regexp 60]¤è¤ê # # |fmcat =(retofm <<<'(x+y+z+a)*xyz(x+y+z+a)*'|fmcment) =(retofm <<<'xyz')|fmdeterm|fmmin|fmtore|perl -pe 'y/+/|/; s/a/[^xyz]/g' # |¤È¤·¤Æ¡¢ # |([^xyz]|y|z)*x(z([^xyz]|y|z)*x|[^xyz]([^xyz]|y|z)*x|x|yx|y[^xyz]([^xyz]|y|z)*x|yy([^xyz]|y|z)*x)*yz # # Á«°Ü¿Þ¤Ï # # x # <-----------+ # [^x] | x | # <----+ <----+ | # | | | | | # ¡À¡¿ x ¡À¡¿ y | z # £° ----> £± ----> £² ----> £³(DEAD) # | | | # | [^xy] | | # <----------+ | # | [^xz] | # <--------------------- # # ¡Öxyz ¤ò´Þ¤Þ¤Ê¤¤Ê¸»úÎó¡×¤ÎÅú¤Ï¡¢ # # ([^x]|x(y?x)*([^xy]|y[^xz]))*(x(y?x)*x?)? # # (x(y?x)*x?)? ¤ÎÉôʬ¤Ï¤³¤Î¾ì¹ç¤Ë¸Â¤ê (x|y)* ¤ÇÂåÍѤǤ¤ë¤«¤Ê # ¸å¡¢¤Ä¤ë¤«¤á»»¤ÎÍͤˡִª¡×¤Ç½ñ¤¤¤¿¤Î¤¬ # # [^x]*(x+(y|y[^xz][^x]*|[^xy][^x]*))* # # ¤Ç¤¹¤¬¤Á¤ç¤Ã¤È¼«¿®Ìµ¤· # 'xyz ¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,xyz,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(xyz,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % http://nojiriko.asia/prolog/prolog/seikihyogen11_325.html¤È¤ÎÈæ³Ó¤Î¤¿¤á¤Î¥×¥í¥°¥é¥à¤Ç¤¹ % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Regular Expression(Àµµ¬É½¸½) Part13 # ¡Ö1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·¡¢¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤¡× # Î㤨¤Ð abcd ¡¢ ffgabc ¡¢ bbbbbbbbbbbbbdddddbbbbbbb ¤Ë¤Ï¥Ò¥Ã¥È¤· # abcdffgabcbbbbbbbbbbbbbdddddbccdddddddddccbbbbbb ¤ò¤«¤±¤ë¤È abcdffgabcbbbbbbbbbbbbbdddddb ¡Ê¤È bbbbbb ¡Ë¤òÆÀ¤é¤ì¤ëÀµµ¬É½¸½ # ¤É¤¦¤ä¤Ã¤Æºî¤Ã¤¿¤éÎɤ¤¤ó¤Ç¤·¤ç¤¦¤« '¡Ö1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·¡¢¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤¡× Î㤨¤Ð abcd ¡¢ ffgabc ¡¢ bbbbbbbbbbbbbdddddbbbbbbb ¤Ë¤Ï¥Ò¥Ã¥È¤· abcdffgabcbbbbbbbbbbbbbdddddbccdddddddddccbbbbbb ¤ò¤«¤±¤ë¤È abcdffgabcbbbbbbbbbbbbbdddddb ¡Ê¤È bbbbbb ¡Ë¤òÆÀ¤é¤ì¤ë'(_ʸ»úÎó,_Îã³°¤ò½üµî¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·¡¢¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_ʸ»úÎó,_Îã³°¤ò½üµî¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó). 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·¡¢¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_ʸ»úÎó,_Îã³°¤ò½üµî¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·'(_ʸ»úÎó,_Ŭ¹çʸ»úÎó¤Ê¤é¤Ó), '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_Ŭ¹çʸ»úÎó¤Ê¤é¤Ó,_Îã³°¤ò½üµî¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó),!. 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·'(_ʸ»úÎó,[_Ŭ¹çʸ»úÎó|R]) :- 'Ŭ¹çʸ»úÎó¤ò¤¤ê¤À¤¹¡£¤½¤ÎÁ°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïabcdefg¤Î¤¤¤º¤ì¤«¤Ç¤â¤Ê¤¯¡¢¤½¤Î¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âabcdefg¤Î¤¤¤º¤ì¤«¤Ç¤â¤Ê¤¤'(_ʸ»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·'(_¸åʸ»úÎó,R),!. 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·'(_,[]). 'Ŭ¹çʸ»úÎó¤ò¤¤ê¤À¤¹¡£¤½¤ÎÁ°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïabcdefg¤Î¤¤¤º¤ì¤«¤Ç¤â¤Ê¤¯¡¢¤½¤Î¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âabcdefg¤Î¤¤¤º¤ì¤«¤Ç¤â¤Ê¤¤'(_ʸ»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), Ŭ¹çʸ»úÎó¤Ïabcdefg¤Î¤¤¤º¤ì¤«¤«¤é¤Ê¤ë(_Ŭ¹çʸ»úÎó), Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïabcdefg¤Î¤¤¤º¤ì¤Ç¤â¤Ê¤¤(_Á°Ê¸»úÎó), ¸åʸ»úÎó¤ÎÀèÆ¬Ê¸»ú¤Ïabcdefg¤Î¤¤¤º¤ì¤Ç¤â¤Ê¤¤(_¸åʸ»úÎó),!. Ŭ¹çʸ»úÎó¤Ïabcdefg¤Î¤¤¤º¤ì¤«¤«¤é¤Ê¤ë('') :- !,fail. Ŭ¹çʸ»úÎó¤Ïabcdefg¤Î¤¤¤º¤ì¤«¤«¤é¤Ê¤ë(_Ŭ¹çʸ»úÎó) :- forall(sub_atom(_Ŭ¹çʸ»úÎó,_,1,_,_Ŭ¹çʸ»ú),sub_atom(abcdefg,_,1,_,_Ŭ¹çʸ»ú)). Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïabcdefg¤Î¤¤¤º¤ì¤Ç¤â¤Ê¤¤(_Á°Ê¸»úÎó) :- \+((sub_atom(_Á°Ê¸»úÎó,_,1,0,_ʸ»ú),sub_atom(abcdefg,_,1,_,_ʸ»ú))). ¸åʸ»úÎó¤ÎÀèÆ¬Ê¸»ú¤Ïabcdefg¤Î¤¤¤º¤ì¤Ç¤â¤Ê¤¤(_¸åʸ»úÎó) :- \+((sub_atom(_¸åʸ»úÎó,0,1,_,_ʸ»ú),sub_atom(abcdefg,_,1,_,_ʸ»ú))). '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'([],[]) :- !. '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'([_ʸ»úÎó|R1],_µá¤á¤ëʸ»úÎó¤Ê¤é¤Ó) :- 'ʸ»úÎ󤫤é ccd+cc ¤ò½ü³°¤¹¤ë'(_ʸ»úÎó,_Éôʬʸ»úÎó¤Ê¤é¤Ó), '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(R1,R2), append(_Éôʬʸ»úÎó¤Ê¤é¤Ó,R2,_µá¤á¤ëʸ»úÎó¤Ê¤é¤Ó),!. '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'([_ʸ»úÎó|R1],[_ʸ»úÎó|R2]) :- '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(R1,R2). 'ʸ»úÎ󤫤é ccd+cc ¤ò½ü³°¤¹¤ë'('',[]) :- !. 'ʸ»úÎ󤫤é ccd+cc ¤ò½ü³°¤¹¤ë'(_ʸ»úÎó,[_Á°Ê¸»úÎó|R]) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_½ü³°Ê¸»úÎó,_¸åʸ»úÎó), atom_concat(ccd,_,_½ü³°Ê¸»úÎó), atom_concat(_,cc,_½ü³°Ê¸»úÎó), 'ʸ»úÎ󤫤é ccd+cc ¤ò½ü³°¤¹¤ë'(_¸åʸ»úÎó,R),!. 'ʸ»úÎ󤫤é ccd+cc ¤ò½ü³°¤¹¤ë'(_ʸ»úÎó,[_ʸ»úÎó]). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part8 #814 # Java¤Çaaaa1.txt ¤È bbbb2_2.txt¤È¤¤¤¦¥Õ¥¡¥¤¥ë̾¤¬Í¤ê¡¢ # aaaa¤È1¡¢bbbb2_¤È2¤òÃê½Ð¤·¤¿¤¤ # ¤É¤¦½ñ¤¤¤¿¤é¤¤¤¤¡© # 'aaaa1.txt ¤È bbbb2_2.txt¤È¤¤¤¦¥Õ¥¡¥¤¥ë̾¤¬Í¤ê¡¢aaaa¤È1¡¢bbbb2_¤È2¤òÃê½Ð¤·¤¿¤¤'(_ʸ»úÎó,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- '¥Õ¥¡¥¤¥ë̾¤«¤é¼Â¥Õ¥¡¥¤¥ë̾¤È»ØÉ¸¤òÃê½Ð¤¹¤ë'(_ʸ»úÎó,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸). '¥Õ¥¡¥¤¥ë̾¤«¤é¼Â¥Õ¥¡¥¤¥ë̾¤È»ØÉ¸¤òÃê½Ð¤¹¤ë'(_ʸ»úÎó,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- '¥Õ¥¡¥¤¥ë̾¤Ï̾Á°Éôʬ¤È¥µ¥Õ¥£¥Ã¥¯¥¹¤Ëʬ¤«¤ì¤ë¡£¥µ¥Õ¥£¥¯¥¹¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£Ì¾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë)¤³¤È¤È¡¢¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£¿ôÃÍ»ØÉ¸¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£'(_ʸ»úÎó,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸). '¥Õ¥¡¥¤¥ë̾¤Ï̾Á°Éôʬ¤È¥µ¥Õ¥£¥Ã¥¯¥¹¤Ëʬ¤«¤ì¤ë¡£¥µ¥Õ¥£¥¯¥¹¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£Ì¾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë)¤³¤È¤È¡¢¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£¿ôÃÍ»ØÉ¸¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£'(_ʸ»úÎó,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- '¥Õ¥¡¥¤¥ë̾¤Ï̾Á°Éôʬ¤È¥µ¥Õ¥£¥Ã¥¯¥¹¤Ëʬ¤«¤ì¤ë¡£¥µ¥Õ¥£¥¯¥¹¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£'(_ʸ»úÎó,_̾Á°Éôʬ,_¥µ¥Õ¥£¥Ã¥¯¥¹), '̾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë)¤³¤È¤È¡¢¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸). '¥Õ¥¡¥¤¥ë̾¤Ï̾Á°Éôʬ¤È¥µ¥Õ¥£¥Ã¥¯¥¹¤Ëʬ¤«¤ì¤ë¡£¥µ¥Õ¥£¥¯¥¹¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£'(_ʸ»úÎó,_̾Á°Éôʬ,_¥µ¥Õ¥£¥Ã¥¯¥¹) :- '¥Õ¥¡¥¤¥ë̾¤Ï̾Á°Éôʬ¤È¥µ¥Õ¥£¥Ã¥¯¥¹¤Ëʬ¤«¤ì¤ë¡£'(_ʸ»úÎó,_̾Á°Éôʬ,_¥µ¥Õ¥£¥Ã¥¯¥¹). '¥Õ¥¡¥¤¥ë̾¤Ï̾Á°Éôʬ¤È¥µ¥Õ¥£¥Ã¥¯¥¹¤Ëʬ¤«¤ì¤ë¡£¥µ¥Õ¥£¥¯¥¹¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£'(_ʸ»úÎó,_̾Á°Éôʬ,_¥µ¥Õ¥£¥Ã¥¯¥¹) :- '¥µ¥Õ¥£¥¯¥¹¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£'(_ʸ»úÎó,_̾Á°Éôʬ,_¥µ¥Õ¥£¥Ã¥¯¥¹). '¥Õ¥¡¥¤¥ë̾¤Ï̾Á°Éôʬ¤È¥µ¥Õ¥£¥Ã¥¯¥¹¤Ëʬ¤«¤ì¤ë¡£'(_ʸ»úÎó,_̾Á°Éôʬ,_¥µ¥Õ¥£¥Ã¥¯¥¹) :- Éûʸ»úÎó(_ʸ»úÎó,_̾Á°Éôʬ,'.',_¥µ¥Õ¥£¥Ã¥¯¥¹), ¥µ¥Õ¥£¥Ã¥¯¥¹¤ÎÃæ¤Ë¥Ô¥ê¥ª¥É¤Ï´Þ¤Þ¤Ê¤¤(_¥µ¥Õ¥£¥Ã¥¯¥¹). ¥µ¥Õ¥£¥Ã¥¯¥¹¤ÎÃæ¤Ë¥Ô¥ê¥ª¥É¤Ï´Þ¤Þ¤Ê¤¤(_¥µ¥Õ¥£¥Ã¥¯¥¹) :- \+(sub_atom(_¥µ¥Õ¥£¥Ã¥¯¥¹,_,1,_,'.')). '¥µ¥Õ¥£¥¯¥¹¤Ï¤Ê¤¤¤³¤È¤â¤¢¤ë¡£'(_̾Á°Éôʬ,_̾Á°Éôʬ,'') :- \+(sub_atom(_̾Á°Éôʬ,_,1,_,'.')). '̾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë)¤³¤È¤È¡¢¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- '̾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë)¤³¤È¤È¡¢'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸). '̾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë)¤³¤È¤È¡¢¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- '¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸). '̾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë)¤³¤È¤È¡¢'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- ̾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(_̾Á°Éôʬ,_ËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò½ü¤¤¤¿¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸), ¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë(_ËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò½ü¤¤¤¿¼Â¥Õ¥¡¥¤¥ë̾,_¼Â¥Õ¥¡¥¤¥ë̾). ̾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(_̾Á°Éôʬ,_ËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò½ü¤¤¤¿¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- Éûʸ»úÎó(_̾Á°Éôʬ,_ËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò½ü¤¤¤¿¼Â¥Õ¥¡¥¤¥ë̾,'_',_¿ôÃÍ»ØÉ¸Ê¸»úÎó), ¿ôÃÍ»ØÉ¸(_¿ôÃÍ»ØÉ¸Ê¸»úÎó,_¿ôÃÍ»ØÉ¸). ¿ôÃÍ»ØÉ¸(_¿ôÃÍ»ØÉ¸Ê¸»úÎó,_¿ôÃÍ»ØÉ¸) :- forall(sub_atom(_¿ôÃÍ»ØÉ¸Ê¸»úÎó,_,1,_,_¿ô»ú),¿ô»ú(_¿ô»ú)), atom_number(_¿ôÃÍ»ØÉ¸Ê¸»úÎó,_¿ôÃÍ»ØÉ¸). ¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë(_ËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò½ü¤¤¤¿¼Â¥Õ¥¡¥¤¥ë̾,_¼Â¥Õ¥¡¥¤¥ë̾) :- atom_concat(_ËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò½ü¤¤¤¿¼Â¥Õ¥¡¥¤¥ë̾,'_',_¼Â¥Õ¥¡¥¤¥ë̾). '¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- '¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë'(_̾Á°Éôʬ), '¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸). '¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ê¤·¤Ë'(_̾Á°Éôʬ) :- \+('̾Á°Éôʬ¤Ï¥¢¥ó¥À¡¼¥¹¥³¥¢¤Ë¿ôÃÍ»ØÉ¸¤¬Éղ䵤ì¤ë(¤¿¤À¤·¼Â¥Õ¥¡¥¤¥ë̾¤ÏËöÈø¤Î¥¢¥ó¥À¡¼¥¹¥³¥¢¤ò´Þ¤á¤¿¤â¤Î¤È¤¹¤ë)¤³¤È¤È¡¢'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸)). '¿ôÃÍ»ØÉ¸¤¬ºÇ¸å¤ËÍè¤ë¤³¤È¤¬¤¢¤ë¡£'(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸) :- ËöÈø¤Ë³¤¯¿ôÃÍʸ»úÎó¤òÀÚ¤ê¼è¤ë(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸Ê¸»úÎó), atom_number(_¿ôÃÍ»ØÉ¸Ê¸»úÎó,_¿ôÃÍ»ØÉ¸). ËöÈø¤Ë³¤¯¿ôÃÍʸ»úÎó¤òÀÚ¤ê¼è¤ë(_̾Á°Éôʬ,_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸Ê¸»úÎó) :- atom_concat(_¼Â¥Õ¥¡¥¤¥ë̾,_¿ôÃÍ»ØÉ¸Ê¸»úÎó,_̾Á°Éôʬ), '_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤'(_¼Â¥Õ¥¡¥¤¥ë̾). '_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤'(_¼Â¥Õ¥¡¥¤¥ë̾) :- \+('_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú¤Ï¿ô»ú'(_¼Â¥Õ¥¡¥¤¥ë̾)). '_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú¤Ï¿ô»ú'(_¼Â¥Õ¥¡¥¤¥ë̾) :- '_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú¤Ï'(_¼Â¥Õ¥¡¥¤¥ë̾,_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú), ¿ô»ú(_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú). '_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú¤Ï'(_¼Â¥Õ¥¡¥¤¥ë̾,_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú) :- sub_atom(_¼Â¥Õ¥¡¥¤¥ë̾,_,1,0,_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú). ¿ô»ú(_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú) :- member(_¼Â¥Õ¥¡¥¤¥ë̾¤ÎËöÈøÊ¸»ú,['0','1','2','3','4','5','6','7','8','9']). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê: http://toro.2ch.net/test/read.cgi/tech/1387257592/395 # ¡üRegular Expression¤Î»ÈÍѴĶ # JavaScript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Ʊ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¦¤¨¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤¢¤¢¤¢¤¤¤¤¤¤¤¦¤¨¤ª¤ª¤ª Ʊ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(_ʸ»úÎó,_ÃÖ´¹¤·¤¿Ê¸»úÎó) :- 'Ϣ³ʸ»úÎó¤Ï4ʸ»ú°Ê¾å¤Ç_°¿¤ëʸ»ú¤À¤±¤«¤é¤Ê¤ê¡¢_Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤È_¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¤³¤Îʸ»ú¤È¤Ï°Û¤Ê¤ë¡£'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ϣ³ʸ»úÎó,_¸åʸ»úÎó,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó), '¸åʸ»úÎó¤ÎƱ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë½èÍý¤·¤Æ¡¢¤½¤ÎÁ°¤Ë_Á°Ê¸»úÎó¤È_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó¤òÉղ乤ë'(_Á°Ê¸»úÎó,_Ϣ³ʸ»úÎó,_¸åʸ»úÎó,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤·¤¿Ê¸»úÎó),!. Ʊ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(_ʸ»úÎó,_ʸ»úÎó). '¸åʸ»úÎó¤ÎƱ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë½èÍý¤·¤Æ¡¢¤½¤ÎÁ°¤Ë_Á°Ê¸»úÎó¤È_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó¤òÉղ乤ë'(_Á°Ê¸»úÎó,_Ϣ³ʸ»úÎó,_¸åʸ»úÎó,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤·¤¿Ê¸»úÎó) :- Ʊ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(_¸åʸ»úÎó,_¸åʸ»úÎó¤òÃÖ´¹¤·¤¿Ê¸»úÎó), '¤½¤ÎÁ°¤Ë_Á°Ê¸»úÎó¤È_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó¤òÉղ乤ë'(_Á°Ê¸»úÎó,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó,_¸åʸ»úÎó¤òÃÖ´¹¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤·¤¿Ê¸»úÎó). '¤½¤ÎÁ°¤Ë_Á°Ê¸»úÎó¤È_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó¤òÉղ乤ë'(_Á°Ê¸»úÎó,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó,_¸åʸ»úÎó¤òÃÖ´¹¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤·¤¿Ê¸»úÎó) :- atomic_list_concat([_Á°Ê¸»úÎó,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó,_¸åʸ»úÎó¤òÃÖ´¹¤·¤¿Ê¸»úÎó],_ÃÖ´¹¤·¤¿Ê¸»úÎó). 'Ϣ³ʸ»úÎó¤Ï4ʸ»ú°Ê¾å¤Ç_°¿¤ëʸ»ú¤À¤±¤«¤é¤Ê¤ê¡¢_Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤È_¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¤³¤Îʸ»ú¤È¤Ï°Û¤Ê¤ë¡£'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ϣ³ʸ»úÎó,_¸åʸ»úÎó,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó) :- Ϣ³ʸ»úÎó¤Ï4ʸ»ú°Ê¾å¤Ç_°¿¤ëʸ»ú¤À¤±¤«¤é¤Ê¤ê(_ʸ»úÎó,_°¿¤ëʸ»ú,_Á°Ê¸»úÎó,_Ϣ³ʸ»úÎó,_¸åʸ»úÎó), '_Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤È_¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¤³¤Îʸ»ú¤È¤Ï°Û¤Ê¤ë¡£'(_°¿¤ëʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó), °¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó(_°¿¤ëʸ»ú,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó). Ϣ³ʸ»úÎó¤Ï4ʸ»ú°Ê¾å¤Ç_°¿¤ëʸ»ú¤À¤±¤«¤é¤Ê¤ê(_ʸ»úÎó,_°¿¤ëʸ»ú,_Á°Ê¸»úÎó,_Ϣ³ʸ»úÎó,_¸åʸ»úÎó) :- Ϣ³ʸ»úÎó¤Ï(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ϣ³ʸ»úÎó,_¸åʸ»úÎó), '4ʸ»ú°Ê¾å¤Ç_°¿¤ëʸ»ú¤À¤±¤«¤é¤Ê¤ê'(_Ϣ³ʸ»úÎó,_°¿¤ëʸ»ú). Ϣ³ʸ»úÎó¤Ï(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ϣ³ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_Ϣ³ʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). '4ʸ»ú°Ê¾å¤Ç_°¿¤ëʸ»ú¤À¤±¤«¤é¤Ê¤ê'(_Ϣ³ʸ»úÎó,_°¿¤ëʸ»ú) :- atom_chars(_Ϣ³ʸ»úÎó,[_°¿¤ëʸ»ú,_°¿¤ëʸ»ú,_°¿¤ëʸ»ú,_°¿¤ëʸ»ú|_]), forall(sub_atom(_Ϣ³ʸ»úÎó,_,1,_,_ʸ»ú),_ʸ»ú = _°¿¤ëʸ»ú). '_Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤È_¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¤³¤Îʸ»ú¤È¤Ï°Û¤Ê¤ë¡£'(_°¿¤ëʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- '_Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï°¿¤ëʸ»ú¤È°Û¤Ê¤ë'(_Á°Ê¸»úÎó,_°¿¤ëʸ»ú), '_¸åʸ»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï°¿¤ëʸ»ú¤È°Û¤Ê¤ë'(_¸åʸ»úÎó,_°¿¤ëʸ»ú). '_Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï°¿¤ëʸ»ú¤È°Û¤Ê¤ë'(_Á°Ê¸»úÎó,_°¿¤ëʸ»ú) :- \+(sub_atom(_Á°Ê¸»úÎó,_,1,0,_°¿¤ëʸ»ú)). '_¸åʸ»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï°¿¤ëʸ»ú¤È°Û¤Ê¤ë'(_¸åʸ»úÎó,_°¿¤ëʸ»ú) :- \+(sub_atom(_¸åʸ»úÎó,0,1,_,_°¿¤ëʸ»ú)). °¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó(_°¿¤ëʸ»ú,_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó) :- atom_chars(_°¿¤ëʸ»ú¤ò3²óϢ³¤·¤¿Ê¸»úÎó,[_°¿¤ëʸ»ú,_°¿¤ëʸ»ú,_°¿¤ëʸ»ú]). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: twitter_by_@a_hisame_20150219 # # "a¤¬n²ó°Ê¾å³¤¤¤¿Ä¾¸å¤Ëb¤¬n²ó³¤¯"¤³¤È¤ò(³ÈÄ¥)Àµµ¬É½¸½¤Ç͸ÂŤÇɽ¸½¤Ç¤¤ë¤ó¤Ç¤·¤¿¤Ã¤±¡© (n¤Ï0°Ê¾å¤ÎǤ°Õ¤ÎÀ°¿ô) # 'a¤¬n²ó°Ê¾å³¤¤¤¿Ä¾¸å¤Ëb¤¬n²ó³¤¯(n¤Ï0°Ê¾å¤ÎǤ°Õ¤ÎÀ°¿ô)'(_ʸ»úÎó,_n,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- Ŭ¹çʸ»úÎó¤Ï(_ʸ»úÎó,S,R,_Ŭ¹çʸ»úÎó), 'a¤¬n²ó°Ê¾å³¤¤¤¿Ä¾¸å¤Ëb¤¬n²ó³¤¯(n¤Ï0°Ê¾å¤ÎǤ°Õ¤ÎÀ°¿ô)'(_Ŭ¹çʸ»úÎó,_n), 'Á°Ê¸»úÎ󡦸åʸ»úÎó'(_ʸ»úÎó,S,R,_Á°Ê¸»úÎó,_¸åʸ»úÎó). Ŭ¹çʸ»úÎó¤Ï(_ʸ»úÎó,S,R,_Ŭ¹çʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_Ŭ¹çʸ»úÎó). 'a¤¬n²ó°Ê¾å³¤¤¤¿Ä¾¸å¤Ëb¤¬n²ó³¤¯(n¤Ï0°Ê¾å¤ÎǤ°Õ¤ÎÀ°¿ô)'(_Ŭ¹çʸ»úÎó,_n) :- a¤¬n²ó°Ê¾å³¤¤¤¿(_Ŭ¹çʸ»úÎó,_n,_a¤Îʸ»ú¿ô), ľ¸å¤Ëb¤¬n²ó³¤¯(_Ŭ¹çʸ»úÎó,_n,_a¤Îʸ»ú¿ô). a¤¬n²ó°Ê¾å³¤¤¤¿(_Ŭ¹çʸ»úÎó,_n,_a¤Îʸ»ú¿ô) :- sub_atom(_Ŭ¹çʸ»úÎó,0,_a¤Îʸ»ú¿ô,_n,_Á´¤Æa¤Îʸ»úÎó), _a¤Îʸ»ú¿ô >= _n, Á´¤Æa¤Îʸ»úÎó(_Á´¤Æa¤Îʸ»úÎó,_a). Á´¤Æa¤Îʸ»úÎó(_Á´¤Æa¤Îʸ»úÎó,_a) :- forall(sub_atom(_Á´¤Æa¤Îʸ»úÎó,_,1,_,A),A = a). ľ¸å¤Ëb¤¬n²ó³¤¯(_Ŭ¹çʸ»úÎó,_n,_a¤Îʸ»ú¿ôÊѰÌ) :- sub_atom(_Ŭ¹çʸ»úÎó,_a¤Îʸ»ú¿ôÊѰÌ,_n,0,_Á´¤Æb¤Îʸ»úÎó), Á´¤Æb¤Îʸ»úÎó(_Á´¤Æb¤Îʸ»úÎó,_b). Á´¤Æb¤Îʸ»úÎó(_Á´¤Æb¤Îʸ»úÎó,_b) :- forall(sub_atom(_Á´¤Æb¤Îʸ»úÎó,_,1,_,B),B = b). 'Á°Ê¸»úÎ󡦸åʸ»úÎó'(_ʸ»úÎó,S,R,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: C/C++¤Î½ÉÂêÊÒÉÕ¤±¤Þ¤¹ 152ÂåÌÜ #111 # # [1] ¼ø¶Èñ¸µ¡§ ¥×¥í¥°¥é¥ß¥ó¥°±é½¬¡ÊȯŸ²ÝÂê¡Ë # [2] # ²¼¤ÎÇÛÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤Ç¤¤ëÀµµ¬É½¸½¤òºîÀ®¤»¤è¡£ # # CCAGCUCCC-G---U--UGGG # 'ʸ»úÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(_Ŭ¹çʸ»úÎó). '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(_Ŭ¹çʸ»úÎó) :- 'ÀèÆ¬Ê¸»ú¤âËöÈøÊ¸»ú¤â¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó), '¥®¥ã¥Ã¥×("-")¤ò¼è¤ê½ü¤¯¤ÈCGUU¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ë'(_Ŭ¹çʸ»úÎó). 'ÀèÆ¬Ê¸»ú¤âËöÈøÊ¸»ú¤â¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó) :- 'ÀèÆ¬Ê¸»ú¤¬¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó), 'ËöÈøÊ¸»ú¤¬¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó). 'ÀèÆ¬Ê¸»ú¤¬¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó) :- \+(sub_atom(_Ŭ¹çʸ»úÎó,0,1,_,'-')). 'ËöÈøÊ¸»ú¤¬¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó) :- \+(sub_atom(_Ŭ¹çʸ»úÎó,_,1,0,'-')). '¥®¥ã¥Ã¥×("-")¤ò¼è¤ê½ü¤¯¤ÈCGUU¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ë'(_Ŭ¹çʸ»úÎó) :- '¥®¥ã¥Ã¥×("-")¤ò¼è¤ê½ü¤¤¤¿Ê¸»ú¤Ê¤é¤Ó'(_Ŭ¹çʸ»úÎó,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó), ʸ»ú¤Ê¤é¤Ó¤ò·ë¹ç¤·¤¿¤â¤Î¤ÏCGUU¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ë(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó). '¥®¥ã¥Ã¥×("-")¤ò¼è¤ê½ü¤¤¤¿Ê¸»ú¤Ê¤é¤Ó'(_Ŭ¹çʸ»úÎó,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó) :- findall(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú, '¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤Ê¸»ú'(_Ŭ¹çʸ»úÎó,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú),_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó). ʸ»ú¤Ê¤é¤Ó¤ò·ë¹ç¤·¤¿¤â¤Î¤ÏCGUU¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ë(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó) :- atomic_list_concat(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó,'CGUU'). '¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤Ê¸»ú'(_Ŭ¹çʸ»úÎó,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú) :- sub_atom(_Ŭ¹çʸ»úÎó,_,1,_,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú), \+(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú = '-'). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Regular Expression(Àµµ¬É½¸½) Part13 # ¡Ö1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·¡¢¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤¡× # Î㤨¤Ð abcd ¡¢ ffgabc ¡¢ bbbbbbbbbbbbbdddddbbbbbbb ¤Ë¤Ï¥Ò¥Ã¥È¤· # abcdffgabcbbbbbbbbbbbbbdddddbccdddddddddccbbbbbb ¤ò¤«¤±¤ë¤È abcdffgabcbbbbbbbbbbbbbdddddb ¡Ê¤È bbbbbb ¡Ë¤òÆÀ¤é¤ì¤ëÀµµ¬É½¸½ # ¤É¤¦¤ä¤Ã¤Æºî¤Ã¤¿¤éÎɤ¤¤ó¤Ç¤·¤ç¤¦¤« '¡Ö1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·¡¢¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤¡× Î㤨¤Ð abcd ¡¢ ffgabc ¡¢ bbbbbbbbbbbbbdddddbbbbbbb ¤Ë¤Ï¥Ò¥Ã¥È¤· abcdffgabcbbbbbbbbbbbbbdddddbccdddddddddccbbbbbb ¤ò¤«¤±¤ë¤È abcdffgabcbbbbbbbbbbbbbdddddb ¡Ê¤È bbbbbb ¡Ë¤òÆÀ¤é¤ì¤ë'(_ʸ»úÎó,_ÉôʬŬ¹çʸ»úÎó¤Ê¤é¤Ó) :- 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·¡¢¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_ʸ»úÎó,_ÉôʬŬ¹çʸ»úÎó¤Ê¤é¤Ó). 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·¡¢¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_ʸ»úÎó,_ÉôʬŬ¹çʸ»úÎó¤Ê¤é¤Ó) :- 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·'(_ʸ»úÎó), '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_ʸ»úÎó,_ÉôʬŬ¹çʸ»úÎó¤Ê¤é¤Ó). 'ʸ»úÎó¤Ï1²ó°Ê¾å¤Î abcdefg ¤¤¤º¤ì¤«¤Îʸ»ú¤Î·«¤êÊÖ¤·'(_ʸ»úÎó) :- forall(sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú),sub_atom(abcdefg,_,1,_,_ʸ»ú)). '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_ʸ»úÎó,[_Á°Ê¸»úÎó|R]) :- sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_½ü³°Ê¸»úÎó,_¸åʸ»úÎó), sub_atom(_½ü³°Ê¸»úÎó,0,3,_,ccd), sub_atom(_½ü³°Ê¸»úÎó,_,2,0,cc), '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_¸åʸ»úÎó,R),!. '¤¿¤À¤· ccd+cc ¤ò´Þ¤Þ¤Ê¤¤'(_ʸ»úÎó,[_ʸ»úÎó]). sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_Ŭ¹çʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï #½Ðŵ: Regular Expression(Àµµ¬É½¸½) Part12 #507 #¡üRegular Expression¤Î»ÈÍѴĶ #½¨´Ý # #¡ü¸¡º÷¤«ÃÖ´¹¤«¡© #ÃÖ´¹ # #¡üÀâÌÀ #¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿¤¤¡£ # #¡üÂоݥǡ¼¥¿ # #Åìµþ abc ÂçºåÀŲ¬ 123 ̾¸Å²° apple orange # # #¡ü´õ˾¤¹¤ë·ë²Ì # #Åìµþ abc ÂçºåÀŲ¬ 123 ̾¸Å²° # # #µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ '¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿¤¤¡£'(_¹Ôʸ»úÎó,_¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿Ê¸»úÎó) :- ¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ), '¸å¤òºï½ü¤·¤¿¤¤¡£'(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿Ê¸»úÎó),!. ¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ) :- ¹Ô¤Î°ìÈֺǸå¤Î(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_ʸ»ú), Á´³Ñʸ»ú¤«¤é(_ʸ»ú). ¹Ô¤Î°ìÈֺǸå¤Î(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_ʸ»ú) :- sub_atom(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,1,_ºÇ¸å¤ÎÁ´³Ñʸ»ú¤Î³«»Ï°ÌÃÖ,_), sub_atom(_¹Ôʸ»úÎó,_ºÇ¸å¤ÎÁ´³Ñʸ»ú¤Î³«»Ï°ÌÃÖ,1,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_ʸ»ú). Á´³Ñʸ»ú¤«¤é(_Á´³Ñʸ»ú) :- char_code(_Á´³Ñʸ»ú,_ʸ»ú¥³¡¼¥É), _ʸ»ú¥³¡¼¥É > 255. '¸å¤òºï½ü¤·¤¿¤¤¡£'(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿Ê¸»úÎó) :- sub_atom(_¹Ôʸ»úÎó,0,_,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ: Regular Expression(Àµµ¬É½¸½)Part12 #561 # ¡üRegular Expression¤Î»ÈÍѴĶ # Perl # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤Þ¤Ê¤¤¡¢¡Ö¥¹¥±¡¼¥È¡×¤À¤±¥Þ¥Ã¥Á¤µ¤»¤¿¤¤ # # # ¡üÂоݥǡ¼¥¿ # ¥¢¥¤¥¹¥¹¥±¡¼¥È # ¥í¡¼¥é¡¼¥¹¥±¡¼¥È # ¥¹¥±¡¼¥È # 'Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´§¤È¤·¤Ê¤¤¸¡º÷ʸ»úÎó'(_ʸ,_¸¡º÷ʸ»úÎó,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó,_Á°¥Ç¡¼¥¿,_¸¡º÷ʸ»úÎó,_¸å¥Ç¡¼¥¿) :- sub_atom(_ʸ,_Á°¥Ç¡¼¥¿,_¸¡º÷ʸ»úÎó,_¸å¥Ç¡¼¥¿), Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤Þ¤Ê¤¤(_Á°¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó). Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤Þ¤Ê¤¤(_Á°¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó) :- \+(Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤à(_Á°¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó)). Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤à(_Á°¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó) :- member(_»ØÄꤷ¤¿¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó), sub_atom(_Á°¥Ç¡¼¥¿,_,_,0,_»ØÄꤷ¤¿¥Ç¡¼¥¿). sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_Ŭ¹çʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). ?- 'Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´§¤È¤·¤Ê¤¤¸¡º÷ʸ»úÎó'(¤ªµ¤¤ËÆþ¤ê¤Î¥í¡¼¥é¡¼¥¹¥±¡¼¥È,¥¹¥±¡¼¥È,[¥¢¥¤¥¹,¥í¡¼¥é¡¼],_Á°¥Ç¡¼¥¿,_¸¡º÷ʸ»úÎó,_¸å¥Ç¡¼¥¿). false. ?- 'Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´§¤È¤·¤Ê¤¤¸¡º÷ʸ»úÎó'(¤ªµ¤¤ËÆþ¤ê¤Î¥¹¥±¡¼¥È,¥¹¥±¡¼¥È,[¥¢¥¤¥¹,¥í¡¼¥é¡¼],_Á°¥Ç¡¼¥¿,_¸¡º÷ʸ»úÎó,_¸å¥Ç¡¼¥¿). _Á°¥Ç¡¼¥¿ = ¤ªµ¤¤ËÆþ¤ê¤Î, _¸¡º÷ʸ»úÎó = ¥¹¥±¡¼¥È, _¸å¥Ç¡¼¥¿ = ''. ?- % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: C/C++¤Î½ÉÂêÊÒÉÕ¤±¤Þ¤¹ 152ÂåÌÜ #111 # # [1] ¼ø¶Èñ¸µ¡§ ¥×¥í¥°¥é¥ß¥ó¥°±é½¬¡ÊȯŸ²ÝÂê¡Ë # [2] # ²¼¤ÎÇÛÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤Ç¤¤ëÀµµ¬É½¸½¤òºîÀ®¤»¤è¡£ # # CCAGCUCCC-G---U--UGGG # '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð'(_ʸ»úÎó,_Á°Ê¸»úÎó,_CGUU,_¸åʸ»úÎó) :- atom_chars(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), 'CGUU¤ò³ÎÄꤹ¤ë'(_ʸ»ú¤Ê¤é¤Ó,L1,R1,R2,R3,R4), '_Á°Ê¸»úÎó¡¦_¸åʸ»úÎó¤ò¼è¤ê¤À¤¹'(L1,R4,_Á°Ê¸»úÎó,_¸åʸ»úÎó). 'CGUU¤ò³ÎÄꤹ¤ë'(_ʸ»ú¤Ê¤é¤Ó,L1,R1,R2,R3,R4) :- append([L1,['C'|R1],['G'|R2],['U'|R3],['U'|R4]],_ʸ»ú¤Ê¤é¤Ó), 'R1,R2,R3¤ÏÁ´¤Æ¥®¥ã¥Ã¥×¤ÇËþ¤µ¤ì¤Æ¤¤¤ë¤«[]¤Ç¤¢¤ë'(R1,R2,R3), 'CGUU'(R1,R2,R3,_CGUU). 'R1,R2,R3¤ÏÁ´¤Æ¥®¥ã¥Ã¥×¤ÇËþ¤µ¤ì¤Æ¤¤¤ë¤«[]¤Ç¤¢¤ë'(R1,R2,R3) :- forall(member(_¥®¥ã¥Ã¥×¤Ê¤é¤Ó,[R1,R2,R3]),'Á´¤Æ¥®¥ã¥Ã¥×¤ÇËþ¤¿¤µ¤ì¤Æ¤¤¤ë¤«[]¤Ç¤¢¤ë'(_¥®¥ã¥Ã¥×¤Ê¤é¤Ó)). 'Á´¤Æ¥®¥ã¥Ã¥×¤ÇËþ¤¿¤µ¤ì¤Æ¤¤¤ë¤«[]¤Ç¤¢¤ë'([]), 'Á´¤Æ¥®¥ã¥Ã¥×¤ÇËþ¤¿¤µ¤ì¤Æ¤¤¤ë¤«[]¤Ç¤¢¤ë'(['-'|R]) :- 'Á´¤Æ¥®¥ã¥Ã¥×¤ÇËþ¤¿¤µ¤ì¤Æ¤¤¤ë¤«[]¤Ç¤¢¤ë'(R). 'CGUU'(R1,R2,R3,_CGUU) :- append([['C'|R1],['G'|R2],['U|R3],['U']],L2), atom_chars(_CGUU,L2). '_Á°Ê¸»úÎó¡¦_¸åʸ»úÎó¤ò¼è¤ê¤À¤¹'(L1,R4,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- atom_chars(_Á°Ê¸»úÎó,L1), atom_chars(_¸åʸ»úÎó,R4). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part9 #786 # \r¤¬30²óÅо줷¤¿¤é30²óÌܤè¤ê¸å¤í¤Îʸ»ú¤òºï½ü¤·¤¿¤¤¤ó¤Ç¤¹¤¬¤É¤¦µ½Ò¤·¤¿¤éÎɤ¤¤Ç¤·¤ç¤¦¡£ # \r¤«¤é¼¡¤Î\r´Ö¤Ë¤ÏǤ°Õ¤Îʸ»ú¿ô¤Îʸ»úÎ󤬤¢¤ê¤Þ¤¹ # ¸À¸ì¤Ï¥Ñ¡¼¥ë¤Ç¤¹ # # $s =~ s/(((.*?)\r){3})(.*$)//s; # print "$1\n$2\n$3\n$4\n"; # ¤³¤ì¤Ç¤Ï¤À¤á¤Ç¤·¤¿ # # # '¥¥ã¥ê¥Ã¥¸¡¦¥ê¥¿¡¼¥ó¤¬30²óÅо줷¤¿¤é30²óÌܤè¤ê¸å¤í¤Îʸ»ú¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- n¸Ä¼ý½¸¤·¤¿ºÇ¸å(30,_»Ä¤êʸ»ú¿ô,sub_atom(_ʸ»úÎó,_,1,_»Ä¤êʸ»ú¿ô,'\r'),_ºï½ü¤¹¤ëʸ»ú¿ô), '30²óÌܤè¤ê¸å¤í¤Îʸ»ú¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_ºï½ü¤¹¤ëʸ»ú¿ô,_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó). n¸Ä¼ý½¸¤·¤¿ºÇ¸å(_n¸Ä,_¼Í±Æ¹à,_ÌÜɸ,_n¸Ä¼ý½¸¤·¤¿ºÇ¸å) :- n¸Ä¼ý½¸¤·¤¿(_n¸Ä,_¼Í±Æ¹à,_ÌÜɸ,_n¸Ä¼ý½¸¤·¤¿), ºÇ¸å(_n¸Ä¼ý½¸¤·¤¿,_n¸Ä¼ý½¸¤·¤¿ºÇ¸å). n¸Ä¼ý½¸¤·¤¿(_n¸Ä,_¼Í±Æ¹à,_ÌÜɸ,_n¸Ä¼ý½¸¤·¤¿) :- findnsols(_n¸Ä,_¼Í±Æ¹à,_ÌÜɸ,_n¸Ä¼ý½¸¤·¤¿),!. ºÇ¸å(_¤Ê¤é¤Ó,_¤Ê¤é¤Ó¤ÎºÇ¸å) :- last(_¤Ê¤é¤Ó,_¤Ê¤é¤Ó¤ÎºÇ¸å). '30²óÌܤè¤ê¸å¤í¤Îʸ»ú¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_ºï½ü¤¹¤ëʸ»ú¿ô,_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,0,_,_ºï½ü¤¹¤ëʸ»ú¿ô,_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: ¤É¤ó¤Ê¥×¥í¥°¥é¥à¸À¸ì¤Ç¤â³Ð¤¨¤ë»þ¤Ë¤Î¶¦Ä̽¬ÆÀ»ÅÍÍ¡§15¹àÌÜ prolog¤Ç¤Ï(1,'Hello Worldɽ¼¨', '¤É¤ó¤ÊÊýË¡¤Ç¤â¤¤¤¤¤Î¤Ç¡¢¤½¤Î¸À¸ì¤ò½ñ¤±¤ë´ðÈפ¬À°¤Ã¤Æ¤¤¤Æ¡¢print½ÐÍè¤ë¾Ú ¤½¤·¤Æ¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤Ç¤¤ë´Ä¶¹½ÃÛ¤¬½ÐÍè¤ë¾Ú') :- true. prolog¤Ç¤Ï(2,forʸ, '¥×¥í¥°¥é¥à¤ÎÂé¸ïÌ£¤Ï¡¢·«¤êÊÖ¤·¤òüŪ¤Ë¹Ô¤¨¤ë»ö¤Ë¤¢¤ë¡£ ¿Í´Ö¤¬¼êºî¶È¤Ç¤ä¤ë¤È¡¢¥¿¥¤¥à¥í¥¹¤ä¼ºÇÔ¤¬À¸¤Þ¤ì¤ë¤¬¡¢¥Ð¥°¤Î̵¤¤¥×¥í¥°¥é¥à¤Ï̵Ũ¤Ç¤¢¤ë¡£ ¾åµ¡¢print¤ÈÁȤ߹ç¤ï¤ì¤ë¤È¥¢¥¦¥È¥×¥Ã¥È¤â²Äǽ¡£') :- fail. prolog¤Ç¤Ï(3,ifʸ, '¾åµforʸ¤ÈÁȤ߹ç¤ï¤»¤ë¤È¡¢´û¤Ë¾ò·ïʬ´ô¤Ë¤è¤ëÂçÎ̽èÍý¤¬²Äǽ¤È¤Ê¤ë¡£ À褺¤Ï´Êñ¤Êifʸ¤«¤é½ñ¤¤¤Æ¤ß¤è¤¦¡£ ¾ò·ï±é»»¤â¡¢¸À¸ì¤Ë¤è¤êÆÃÀ¤¬°ã¤¦¤Î¤Ç¡¢°ìÄ̤ê½ÐÍè¤ë»ö¡£ Ʊ¤¸¡¢°Û¤Ê¤ë¡¢·¿¡¢Ê¸»úÈæ³Ó') :- fail. prolog¤Ç¤Ï(4,¥Õ¥¡¥¤¥ëÆÉ¤ß¹þ¤ß, '¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤Î¥Ç¡¼¥¿¤ò¼èÆÀ¤·¤Æ¤ß¤è¤¦¡£ csv¥Ç¡¼¥¿¤«¤é¡¢´Êñ¤Ê¥ì¥Ý¡¼¥È»ñÎÁ¤¬ºî¤ì¤ë¤è¤¦¤Ë¤Ê¤ë¡£ ÆÉ¤ß¹þ¤ß»þ¤Î·Á¼°¤Ï¡¢¹Ôñ°Ì¤Î¥ì¥³¡¼¥ÉÊý¼°¤Ç¹Ô¤¦¤ÈÈÆÍÑÀ¤¬Áý¤¹¡£') :- true. prolog¤Ç¤Ï(5,¥Õ¥¡¥¤¥ë½ñ¤¹þ¤ß, '¹Ô¶èÀÚ¤ê¤Î¥ì¥³¡¼¥ÉÄɵ·¿¤Ç¡¢¥Õ¥¡¥¤¥ë¥¢¥¯¥»¥¹¤·¤Æ¡¢¥Ç¡¼¥¿Äɵ¤ò¹Ô¤¦¡£ ¸À¸ì¤Ë¤è¤Ã¤Æ¤Ï¡¢¥Õ¥¡¥¤¥ë¤ò²õ¤·¤Æ¤·¤Þ¤¦¶²¤ì¤â¤¢¤ë¤Î¤Çµ¡Ç½¤ò½¬ÆÀ¤·¤è¤¦¡£') :- true. prolog¤Ç¤Ï(6,'¥Õ¥¡¥¤¥ë¡¦¥Ç¥£¥ì¥¯¥È¥êÁàºî', '¥Ç¥£¥ì¥¯¥È¥ê¤ÎºîÀ® ¥Õ¥¡¥¤¥ë̾¤ÎÊѹ¹ ¿·µ¬¥Õ¥¡¥¤¥ëºîÀ® ¤³¤ì¤Ë¤è¤êOS¤ä¾¸À¸ì¡Ê¥Ä¡¼¥ë¡Ë¤Ê¤É¤È¤ÎÏ¢·È¤¬½ÀÆð¤Ë¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ë¡£') :- true. prolog¤Ç¤Ï(7,·×»»¤Ë¤ª¤±¤ë±é»», '+ , ? , ¡ß , ¡à , ;¤ê¡¢¾è»» ³ÎΨ¤ä¡¢¹ç·×¤Ê¤É¤¬½ÀÆð¤Ë½Ð¤»¤ë¤è¤¦¤Ë¤¹¤ë¤Î¤¬¥Ý¥¤¥ó¥È¡£') :- true. prolog¤Ç¤Ï(8,ʸ»úÎóÁàºî, 'split¡¢join¡¢Ê¸»ú¸¡º÷¡¢Ê¸»úÃÖ´¹¡¢Ï¢·ë¡¢·¿ÊÑ´¹¡¢Àµµ¬É½¸½Âбþ') :- fail. prolog¤Ç¤Ï(9,ÇÛÎó, '¿¼¡¸µÇÛÎó¡¢Ï¢ÁÛÇÛÎó¡¢ÇÛÎó¥Ç¡¼¥¿¤Îºï½ü¡¢json¥Ç¡¼¥¿¤Î°·¤¤¡¢xml¥Ç¡¼¥¿¤Î°·¤¤¡¢csv¥Ç¡¼¥¿¤Î°·¤¤') :- fail. prolog¤Ç¤Ï(10,Àµµ¬É½¸½, '¹Ô¥Þ¥¿¥®¤¬²Äǽ¤«¡© ¤É¤Î¥ì¥Ù¥ë¤Þ¤Ç¤ÎȽÄ꤬½ÐÍè¤ë¤«³Îǧ¡£ ¾¤Î¸À¸ì¤È¥³¥Ô¥Ú½ÐÍè¤ë¤«¡©') :- fail. prolog¤Ç¤Ï(11,´Ø¿ô, 'class¡¢ÌµÌ¾´Ø¿ô¡¢ÊÖ¤êÃͤÎÀ©¸Â ¥é¥¤¥Ö¥é¥ê¤Î³èÍÑ') :- fail. prolog¤Ç¤Ï(12,¥×¥í¥°¥é¥à¤Î¥Õ¥¡¥¤¥ëÆÉ¤ß¹þ¤ß, 'include,require¤¬½ÐÍè¤ë¤«¡©¾åµ¥é¥¤¥Ö¥é¥ê¤ÈƱ¤¸ ¥ª¥Ö¥¸¥§¥¯¥È»Ö¸þ¤Î¹½À®¤¬¤É¤Î¥ì¥Ù¥ë¤Ç¹Ô¤¨¤ë¤«¤ò¸«¶Ë¤á¤é¤ì¤ë¤È¥Ù¥¹¥È') :- true. prolog¤Ç¤Ï(13,¾¸À¸ìϢư, '¥µ¡¼¥Ð¤Ç¼Â¹Ô¤¹¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢shell¤äawk¤ò¼Â¹Ô¤·¤Æ¡¢ÊÖ¤êÃͤòÆÀ¤é¤ì¤ë¤«¡£ ¤³¤Î´Ä¶¤òÀ°¤¨¤é¤ì¤ë¤È¤Û¤Ü̵Ũ¤Ë¤Ê¤ë¡£') :- true. prolog¤Ç¤Ï(14,¥×¥í¥°¥é¥àÉé²Ù·×»», '¸À¸ì¤ò¼Â¹Ô¤¹¤ëºÝ¤ÎÉé²Ù¤ò¬Äꤹ¤ë¡Ê¤Ç¤¤ì¤Ð¿¸À¸ì¤È¤ÎÈæ³Ó¤Ê¤É¤¬¤Ç¤¤ë¤È¥Ù¥¹¥È¡Ë ¥µ¡¼¥Ó¥¹¤Î°ÂÄ걿ÍѤʤÉÈó¾ï¤Ë¾å°Ì¤Î¹½ÃÛ¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ë¡£') :- fail. prolog¤Ç¤Ï(15,Ê£¿ô´Ä¶¤Ë¤ª¤±¤ë¼Â¹Ô´Ä¶,'') :- true. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part10 #311 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ÎýÇÏ¡¢nemeryÅù¤Î¥ê¥Í¡¼¥à¥½¥Õ¥È # ²Äǽ¤Ê¥½¥Õ¥È¤Ë¾è¤ê´¹¤¨¤è¤¦¤È»×¤Ã¤Æ¤Þ¤¹ # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # 1.¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ # ¡¡¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤ # 2.ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¥¥ê¥ó¡ô¢þ☓ưʪ±à-10·î1 # ¤·¤í¤¯¤Þ¡ô¢¤☓¢þưʪ±à-5·î12 # Ç(2ɤÌÜ)¡ô²æ¤¬²È-11·î5 # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¥¥ê¥ó-10·î01 # ¤·¤í¤¯¤Þ-5·î12 # Ç(2ɤÌÜ)-11·î05 # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # '1.¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤ 2.ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- '1.¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾_1), '2.ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤'(_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾_1,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '1.¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_¥Õ¥¡¥¤¥ë̾) :- '2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾),!. '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,S,2,0,_ËöÈøÊ¸»ú2·å), atom_number(_ËöÈøÊ¸»ú2·å,_). '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å), '0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,S,1,0,_ËöÈøÊ¸»ú1·å), atom_number(_ËöÈøÊ¸»ú1·å,_). '0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,0,S,1,_Á°Ê¸»úÎó), atomic_list_concat([_Á°Ê¸»úÎó,'0',_ËöÈøÊ¸»ú1·å],_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '2.ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- 'ºï½ü³«»Ïʸ»ú¤È½ªÎ»¤Î¼¡¤Îʸ»ú¤Ç»ØÄꤵ¤ì¤¿ÈϰϤòºï½ü¤¹¤ë'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó),!. 'ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_,_,_ʸ»úÎó). 'ºï½ü³«»Ïʸ»ú¤È½ªÎ»¤Î¼¡¤Îʸ»ú¤Ç»ØÄꤵ¤ì¤¿ÈϰϤòºï½ü¤¹¤ë'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- 'ºï½ü³«»Ïʸ»ú¤È½ªÎ»¤Î¼¡¤Îʸ»ú¤Ç»ØÄꤵ¤ì¤¿ÈϰϤò'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó), ºï½ü¤¹¤ë(_Á°Ê¸»úÎó,_¸åʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó). 'ºï½ü³«»Ïʸ»ú¤È½ªÎ»¤Î¼¡¤Îʸ»ú¤Ç»ØÄꤵ¤ì¤¿ÈϰϤò'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_ºï½ü¤µ¤ì¤ëʸ»úÎó,_¸åʸ»úÎó), sub_atom(_ºï½ü¤µ¤ì¤ëʸ»úÎó,0,1,_,_ºï½ü³«»Ïʸ»ú), sub_atom(_¸åʸ»úÎó,0,1,_,ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú). sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_¸¡º÷ʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). ºï½ü¤¹¤ë(_Á°Ê¸»úÎó,_¸åʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_¸åʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: Regular Expression(Àµµ¬É½¸½) Part11 #844 # ¤¿¤Ö¤ó¤ä¤ê¤¿¤¤¤³¤È¤Ï¤³¤¦¤À¤í¤¦¡£¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð¥¨¥é¡¼¤ò½Ð¤¹¡£ # # [[ "$A" =~ [^0-9] ]] && echo "not number" # '¤¿¤Ö¤ó¤ä¤ê¤¿¤¤¤³¤È¤Ï¤³¤¦¤À¤í¤¦¡£¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð¥¨¥é¡¼¤ò½Ð¤¹¡£ [[ "$A" =~ [^0-9] ]] && echo "not number" '(_ʸ»úÎó) :- ¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð¥¨¥é¡¼¤ò½Ð¤¹(_ʸ»úÎó). ¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð¥¨¥é¡¼¤ò½Ð¤¹(_ʸ»úÎó) :- ¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð(_ʸ»úÎó), ¥¨¥é¡¼¤ò½Ð¤¹. ¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,1,_,_¿ô»ú°Ê³°¤Îʸ»ú), ¿ô»ú°Ê³°¤Îʸ»ú(_¿ô»ú°Ê³°¤Îʸ»ú),!. ¿ô»ú°Ê³°¤Îʸ»ú(_¿ô»ú°Ê³°¤Îʸ»ú) :- \+(member(_¿ô»ú°Ê³°¤Îʸ»ú,['0','1','2','3','4','5','6','7','8','9'])). ¥¨¥é¡¼¤ò½Ð¤¹ :- write('¥¨¥é¡¼\n'). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/905 # ¡ü¼ÂÁõ¤·¤è¤¦¤È¤·¤Æ¤¤¤ëÀµµ¬É½¸½ # ^[1-9]\d{3}$ # # PHP¤Îpreg_match¤Ç¤¤¤¨¤Ð # preg_match (/^[1-9]\d{3}$/, $subject) # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP 5.2 # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # 4·å¤ÎÀ¾¤Ç0000¤Î¤ß¤ò½ü³°¤·¤¿¤¤¡£ # À¾Îñ1Ëüǯ¡Ê10000¡Ë°Ê¾å¤Ï¹Íθ¤·¤Ê¤¤ # # 0000¡¡¡ß # 1000¡Á9999¡¡¡û # # ¡üÂоݥǡ¼¥¿ # ÀâÌÀ¤Î¹à¤ò»²¾È # ¡ü´õ˾¤¹¤ë·ë²Ì # ÀâÌÀ¤Î¹à¤ò»²¾È # # # '4·å¤ÎÀ¾Îñ¤Ç0000¤Î¤ß¤ò½ü³°¤·¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- '4·å¤ÎÀ¾Îñ¤Ç'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó), '0000¤Î¤ß½ü³°¤·¤¿¤¤'(_¸¡º÷ʸ»úÎó). '4·å¤ÎÀ¾Îñ¤Ç'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- ¸¡º÷ʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,S,R,_¸¡º÷ʸ»úÎó), Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤È¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_ʸ»úÎó,S,R,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó). ¸¡º÷ʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,S,R,_¸¡º÷ʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,4,R,_¸¡º÷ʸ»úÎó), Á´¤Æ¤Îʸ»ú¤¬¿ô»ú¤Ç¤¢¤ë(_¸¡º÷ʸ»úÎó). Á´¤Æ¤Îʸ»ú¤¬¿ô»ú¤Ç¤¢¤ë(_¸¡º÷ʸ»úÎó) :- forall(sub_atom(_¸¡º÷ʸ»úÎó,_,1,_,_ʸ»ú),¿ô»ú(_ʸ»ú)). Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤È¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_ʸ»úÎó,S,R,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_ʸ»úÎó,S,_Á°Ê¸»úÎó), ¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_ʸ»úÎó,R,_¸åʸ»úÎó). Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_ʸ»úÎó,S,_Á°Ê¸»úÎó) :- Á°Ê¸»úÎó¤Î(_ʸ»úÎó,S,_Á°Ê¸»úÎó), ºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_Á°Ê¸»úÎó). Á°Ê¸»úÎó¤Î(_ʸ»úÎó,S,_Á°Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó). ºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_¸åʸ»úÎó) :- \+((sub_atom(_¸åʸ»úÎó,_,1,0,_ʸ»ú),¿ô»ú(_ʸ»ú))). ¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_ʸ»úÎó,R,_¸åʸ»úÎó) :- ¸åʸ»úÎó¤Î(_ʸ»úÎó,R,_¸åʸ»úÎó), ºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_¸åʸ»úÎó). ¸åʸ»úÎó¤Î(_ʸ»úÎó,R,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). ºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(_Á°Ê¸»úÎó) :- \+((sub_atom(_Á°Ê¸»úÎó,0,1,_,_ʸ»ú),¿ô»ú(_ʸ»ú))). ¿ô»ú(_¿ô»ú) :- _¿ô»ú @>= '0', _¿ô»ú @=< '9'. '0000¤Î¤ß½ü³°¤·¤¿¤¤'(_¸¡º÷ʸ»úÎó) :- \+(sub_atom(_¸¡º÷ʸ»úÎó,0,1,_,'0')). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part9 #786 # \r¤¬30²óÅо줷¤¿¤é30²óÌܤè¤ê¸å¤í¤Îʸ»ú¤òºï½ü¤·¤¿¤¤¤ó¤Ç¤¹¤¬¤É¤¦µ½Ò¤·¤¿¤éÎɤ¤¤Ç¤·¤ç¤¦¡£ # \r¤«¤é¼¡¤Î\r´Ö¤Ë¤ÏǤ°Õ¤Îʸ»ú¿ô¤Îʸ»úÎ󤬤¢¤ê¤Þ¤¹ # ¸À¸ì¤Ï¥Ñ¡¼¥ë¤Ç¤¹ # # $s =~ s/(((.*?)\r){3})(.*$)//s; # print "$1\n$2\n$3\n$4\n"; # ¤³¤ì¤Ç¤Ï¤À¤á¤Ç¤·¤¿ # # # '¥¥ã¥ê¥Ã¥¸¡¦¥ê¥¿¡¼¥ó¤¬30²óÅо줷¤¿¤é30²óÌܤè¤ê¸å¤í¤Îʸ»ú¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- '¥¥ã¥ê¥Ã¥¸¡¦¥ê¥¿¡¼¥ó¤¬30²óÅо줷¤¿¤é'(_ʸ»úÎó,_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó). '¥¥ã¥ê¥Ã¥¸¡¦¥ê¥¿¡¼¥ó¤¬30²óÅо줷¤¿¤é30²óÌܤè¤ê¸å¤í¤Îʸ»ú¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó_1,_ʸ»úÎó) :- '¥¥ã¥ê¥Ã¥¸¡¦¥ê¥¿¡¼¥ó¤¬30²ó̤Ëþ¤·¤«¤Ê¤¤¾ì¹ç¤½¤Î¤Þ¤Þʸ»úÎó¤ò²ò¤È¤¹¤ë'(_ʸ»úÎó_1,_ʸ»úÎó). '¥¥ã¥ê¥Ã¥¸¡¦¥ê¥¿¡¼¥ó¤¬30²óÅо줷¤¿¤é'(_ʸ»úÎó,_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,0,_,_,_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,1,0,'\r'), ÅÙ¿ô(sub_atom(_ËöÈø¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó,_,1,_,'\r'),30). ÅÙ¿ô(P,_ÅÙ¿ô) :- findall(1,P,L), length(L,_ÅÙ¿ô). '¥¥ã¥ê¥Ã¥¸¡¦¥ê¥¿¡¼¥ó¤¬30²ó̤Ëþ¤·¤«¤Ê¤¤¾ì¹ç¤½¤Î¤Þ¤Þʸ»úÎó¤ò²ò¤È¤¹¤ë'(_ʸ»úÎó,_ʸ»úÎó) :- \+('¥¥ã¥ê¥Ã¥¸¡¦¥ê¥¿¡¼¥ó¤¬30²óÅо줷¤¿¤é'(_ʸ»úÎó,_)). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1312201995/111 # # [1] ¼ø¶Èñ¸µ¡§ ¥×¥í¥°¥é¥ß¥ó¥°±é½¬¡ÊȯŸ²ÝÂê¡Ë # [2] # ²¼¤ÎÇÛÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤Ç¤¤ëÀµµ¬É½¸½¤òºîÀ®¤»¤è¡£ # # CCAGCUCCC-G---U--UGGG # '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð'(_ʸ»úÎó,_Á°Ê¸»úÎó,_CGUU,_¸åʸ»úÎó) :- '"CGUU"¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Î¥®¥ã¥Ã¥×("-")¤ÈÁ°¸å¤Îʸ»ú¤Ê¤é¤Ó'(R1,R2,R3,L1,L2), 'R1,R2,R3¤ÏÁ´¤Æ[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R1,R2,R3), 'Á°Ê¸»úÎ󡦥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"¡¦¸åʸ»úÎó¤òÆÀ¤ë'(L1,R1,R2,R3,L2,_Á°Ê¸»úÎó,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU,_¸åʸ»úÎó). '"CGUU"¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Î¥®¥ã¥Ã¥×("-")¤ÈÁ°¸å¤Îʸ»ú¤Ê¤é¤Ó'(R1,R2,R3,L1,L2) :- ʸ»úÎó¤òʸ»ú¤Ê¤é¤Ó¤ËÊÑ´¹¤·(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), '¥®¥ã¥Ã¥×("-")¤ÈÁ°¸å¤Îʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë'(_ʸ»ú¤Ê¤é¤Ó,R1,R2,R3,L1,L2). ʸ»úÎó¤òʸ»ú¤Ê¤é¤Ó¤ËÊÑ´¹¤·(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó) :- atom_chars(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó). '¥®¥ã¥Ã¥×("-")¤ÈÁ°¸å¤Îʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë'(_ʸ»ú¤Ê¤é¤Ó,R1,R2,R3,L1,L2) :- append([L1,['C'|R1],['G'|R2],['U'|R3],['U'|L2]],_ʸ»ú¤Ê¤é¤Ó). 'R1,R2,R3¤ÏÁ´¤Æ[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R1,R2,R3) :- 'R1¤Ï[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R1), 'R2¤Ï[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R2), 'R3¤Ï[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R3). 'R1¤Ï[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R1) :- forall(member(_Í×ÁÇ,R1),_Í×ÁÇ='-'). 'R2¤Ï[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R2) :- forall(member(_Í×ÁÇ,R2),_Í×ÁÇ='-'). 'R3¤Ï[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R3) :- forall(member(_Í×ÁÇ,R3),_Í×ÁÇ='-'). 'Á°Ê¸»úÎ󡦥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"¡¦¸åʸ»úÎó¤òÆÀ¤ë'(L1,R1,R2,R3,L2,_Á°Ê¸»úÎó,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU,_¸åʸ»úÎó) :- 'L1¤«¤éÁ°Ê¸»úÎó¤òÆÀ¤ë'(L1,_Á°Ê¸»úÎó), '¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"'(R1,R2,R3,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU), 'L2¤«¤é¸åʸ»úÎó¤òÆÀ¤ë'(L2,_¸åʸ»úÎó). 'L1¤«¤éÁ°Ê¸»úÎó¤òÆÀ¤ë'(L1,_Á°Ê¸»úÎó) :- atom_chars(_Á°Ê¸»úÎó,L1). '¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"'(R1,R2,R3,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU) :- '¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"ʸ»ú¤Ê¤é¤Ó¤òºî¤ê'(R1,R2,R3,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUUʸ»ú¤Ê¤é¤Ó), '¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"¤ËÊÑ´¹¤¹¤ë'(_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUUʸ»ú¤Ê¤é¤Ó,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU). '¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"ʸ»ú¤Ê¤é¤Ó¤òºî¤ê'(R1,R2,R3,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUUʸ»ú¤Ê¤é¤Ó) :- append([['C'|R1],['G'|R2],['U'|R3],['U']],_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUUʸ»ú¤Ê¤é¤Ó), '¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"¤ËÊÑ´¹¤¹¤ë'(_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUUʸ»ú¤Ê¤é¤Ó,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU) :- atom_chars(_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUUʸ»ú¤Ê¤é¤Ó). 'L2¤«¤é¸åʸ»úÎó¤òÆÀ¤ë'(L2,_¸åʸ»úÎó) :- atom_chars(_¸åʸ»úÎó,L2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: C/C++¤Î½ÉÂêÊÒÉÕ¤±¤Þ¤¹ 152ÂåÌÜ #111 # # [1] ¼ø¶Èñ¸µ¡§ ¥×¥í¥°¥é¥ß¥ó¥°±é½¬¡ÊȯŸ²ÝÂê¡Ë # [2] # ²¼¤ÎÇÛÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤Ç¤¤ëÀµµ¬É½¸½¤òºîÀ®¤»¤è¡£ # # CCAGCUCCC-G---U--UGGG # '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤Ç¤¤¤Æ¤âCGUU,_¸åʸ»úÎó) :- '"CGUU"¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Î¥®¥ã¥Ã¥×¤ÈÁ°¸å¤Îʸ»ú¤Ê¤é¤Ó'(_ʸ»úÎó,R1,R2,R3,L1,L2), 'R1,R2,R3¤ÏÁ´¤Æ[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R1,R2,R3), 'Á°Ê¸»úÎ󡦥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"¡¦¸åʸ»úÎó¤òÆÀ¤ë'(L1,R1,R2,R3,L2,_Á°Ê¸»úÎó,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤Ç¤¤¤Æ¤âCGUU,_¸åʸ»úÎó). '"CGUU"¤¬¸¡½Ð¤µ¤ì¤¿¾ì¹ç¤Î¥®¥ã¥Ã¥×¤ÈÁ°¸å¤Îʸ»ú¤Ê¤é¤Ó'(_ʸ»úÎó,R1,R2,R3,L1,L2) :- atom_chars(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), append([L1,['C'|R1],['G'|R2],['U'|R3],['U'|L2]],_ʸ»ú¤Ê¤é¤Ó). 'R1,R2,R3¤ÏÁ´¤Æ[]¤Ç¤¢¤ë¤«Á´¤Æ¤ÎÍ×ÁǤ¬¥®¥ã¥Ã¥×("-")¤Î¥ê¥¹¥È¤Ç¤¢¤ë'(R1,R2,R3) :- forall(member(_1,R1),_1='-'), forall(member(_2,R2),_2='-'), forall(member(_3,R3),_3='-'). 'Á°Ê¸»úÎ󡦥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"¡¦¸åʸ»úÎó¤òÆÀ¤ë'(L1,R1,R2,R3,L2,_Á°Ê¸»úÎó,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU,_¸åʸ»úÎó) :- atom_chars(_Á°Ê¸»úÎó,L1), '¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"'(R1,R2,R3,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU), atom_chars(_¸åʸ»úÎó,L2). '¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤À"CGUU"'(R1,R2,R3,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU) :- append([['C'|R1],['G'|R2],['U'|R3],['U']],_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUUʸ»ú¤Ê¤é¤Ó), atom_chars(_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUU,_¥®¥ã¥Ã¥×¤ò´Þ¤ó¤ÀCGUUʸ»ú¤Ê¤é¤Ó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: C/C++¤Î½ÉÂêÊÒÉÕ¤±¤Þ¤¹ 152ÂåÌÜ #111 # # [1] ¼ø¶Èñ¸µ¡§ ¥×¥í¥°¥é¥ß¥ó¥°±é½¬¡ÊȯŸ²ÝÂê¡Ë # [2] # ²¼¤ÎÇÛÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤Ç¤¤ëÀµµ¬É½¸½¤òºîÀ®¤»¤è¡£ # # CCAGCUCCC-G---U--UGGG # 'ʸ»úÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(_Ŭ¹çʸ»úÎó). '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(_Ŭ¹çʸ»úÎó) :- 'ÀèÆ¬Ê¸»ú¤âËöÈøÊ¸»ú¤â¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó), '¥®¥ã¥Ã¥×("-")¤ò¼è¤ê½ü¤¯¤ÈCGUU¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ë'(_Ŭ¹çʸ»úÎó). 'ÀèÆ¬Ê¸»ú¤âËöÈøÊ¸»ú¤â¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó) :- 'ÀèÆ¬Ê¸»ú¤¬¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó), 'ËöÈøÊ¸»ú¤¬¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó). 'ÀèÆ¬Ê¸»ú¤¬¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó) :- \+(sub_atom(_Ŭ¹çʸ»úÎó,0,1,_,'-')). 'ËöÈøÊ¸»ú¤¬¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤'(_Ŭ¹çʸ»úÎó) :- \+(sub_atom(_Ŭ¹çʸ»úÎó,_,1,0,'-')). '¥®¥ã¥Ã¥×("-")¤ò¼è¤ê½ü¤¯¤ÈCGUU¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ë'(_Ŭ¹çʸ»úÎó) :- '¥®¥ã¥Ã¥×("-")¤ò¼è¤ê½ü¤¤¤¿Ê¸»ú¤Ê¤é¤Ó'(_Ŭ¹çʸ»úÎó,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó), ʸ»ú¤Ê¤é¤Ó¤ò·ë¹ç¤·¤¿¤â¤Î¤ÏCGUU¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ë(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó). '¥®¥ã¥Ã¥×("-")¤ò¼è¤ê½ü¤¤¤¿Ê¸»ú¤Ê¤é¤Ó'(_Ŭ¹çʸ»úÎó,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó) :- findall(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú, '¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤Ê¸»ú'(_Ŭ¹çʸ»úÎó,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú),_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó). ʸ»ú¤Ê¤é¤Ó¤ò·ë¹ç¤·¤¿¤â¤Î¤ÏCGUU¤È¤¤¤¦Ê¸»úÎó¤Ë¤Ê¤ë(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó) :- atomic_list_concat(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú¤Ê¤é¤Ó,'CGUU'). '¥®¥ã¥Ã¥×("-")¤Ç¤Ï¤Ê¤¤Ê¸»ú'(_Ŭ¹çʸ»úÎó,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú) :- sub_atom(_Ŭ¹çʸ»úÎó,_,1,_,_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú), \+(_¥®¥ã¥Ã¥×¤Ç¤Ï¤Ê¤¤Ê¸»ú = '-'). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1284632294/649 # [1] ¼ø¶Èñ¸µ¡§¥×¥í¥°¥é¥ß¥ó¥°´ðÁà # [2] ÌäÂêʸ(´Þ¥³¡¼¥É&¥ê¥ó¥¯)¡§ # ¥À¥¤¥¨¥Ã¥È¥Õ¥¡¥¤¥ë¤Ë # # 20100930,curry and rice # 20101003,kitsune soba # 20101003,rice ball # # ¤Î¤è¤¦¤Ê·Á¤ÇÆüÉդȤ½¤ÎÆü¿©¤Ù¤¿Ãë¿©¤¬Êݸ¤µ¤ì¤Æ¤¤¤ë¤È¤¹¤ë¡¥ # ¥³¥Þ¥ó¥É¹Ô°ú¿ô¤Ë¥À¥¤¥¨¥Ã¥È¥Õ¥¡¥¤¥ë̾¤ÈÆüÉÕ(yyyymmdd ·Á¼°) ¤ò»ØÄꤷ¤Æ¼Â¹Ô¤¹¤ë¤È¡¤ # ¥Õ¥¡¥¤¥ë¤ÎÃæ¤«¤é»ØÄꤷ¤¿ÆüÉÕ¤ò´Þ¤à¹Ô¤ò¸¡º÷¤·¡¤¤½¤ÎÆü¤ÎÃë¿©¤ò½ÐÎϤ¹¤ë¥×¥í¥°¥é¥à¤òºîÀ®¤»¤è¡¥ # ¤Þ¤¿¡¤°ú¿ô¤È¤·¤Æ¥Õ¥¡¥¤¥ë¤Èʸ»úÎó¤ò»ØÄꤷ¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¡¤»È¤¤Êý¤ò½ÐÎϤ·¤Æ½ªÎ»¤¹¤ë¤è¤¦¤Ë¤»¤è¡¥ # ÆüÉդθ¡º÷¤Ë¤Ï¡¤É¸½à´Ø¿ôchar *strstr(const char *str1, const char *str2); ¤ò»ÈÍѤ¹¤ë¤Î¤¬´Êñ¤Ç¤¢¤ë¡¥ # # ¡Ú¼Â¹ÔÎã¡Û # % ./q3-3 diet.txt 20100929 # date 20100929 was not found in file diet.txt # % ./q3-3 diet.txt 20101003 # 20101003,kitsune soba # 20101003,rice ball # % ./q3-3 # Usage: ./q3-3 filename date(yyyymmdd) # % # # program :- ¥Ñ¥é¥á¡¼¥¿¤òÆÀ¤ë(_¥Õ¥¡¥¤¥ë,_ÆüÉÕ), get_split_lines(_¥Õ¥¡¥¤¥ë,[','],LL), ÆüÉÕ¤ò¥¡¼¤Ë¸¡º÷¤¹¤ë(_ÆüÉÕ,LL,LL2), ¸¡º÷¤·¤¿¹Ô¤òɽ¼¨¤¹¤ë(_ÆüÉÕ,LL2). halt. ¥Ñ¥é¥á¡¼¥¿¤òÆÀ¤ë(_¥Õ¥¡¥¤¥ë,_ÆüÉÕ) :- user_paramaters(L), ¿ÇÃÇ(L,_¥Õ¥¡¥¤¥ë,_ÆüÉÕ),!. ¿ÇÃÇ([_¥Õ¥¡¥¤¥ë,_ÆüÉÕ],_¥Õ¥¡¥¤¥ë,_ÆüÉÕ) :- !. ¿ÇÃÇ(_,_,_) :- write('Usage: ./prolog filename date(yyyymmdd)\n'), halt. ÆüÉÕ¤ò¥¡¼¤Ë¸¡º÷¤¹¤ë(_,[],[]) :- !. ÆüÉÕ¤ò¥¡¼¤Ë¸¡º÷¤¹¤ë(_ÆüÉÕ,[[_ÆüÉÕ,_¤½¤ÎÆü¿©¤Ù¤¿Ãë¿©]|R1],[[_ÆüÉÕ,_¤½¤ÎÆü¿©¤Ù¤¿Ãë¿©]|R2]) :- ÆüÉÕ¤ò¥¡¼¤Ë¸¡º÷¤¹¤ë(_ÆüÉÕ,R1,R2),!. ÆüÉÕ¤ò¥¡¼¤Ë¸¡º÷¤¹¤ë(_ÆüÉÕ,[_|R1],R2) :- ÆüÉÕ¤ò¥¡¼¤Ë¸¡º÷¤¹¤ë(_ÆüÉÕ,R1,R2),!. ¸¡º÷¤·¤¿¹Ô¤òɽ¼¨¤¹¤ë([]) :- !. ¸¡º÷¤·¤¿¹Ô¤òɽ¼¨¤¹¤ë([[_,_ÆüÉÕ,_¤½¤ÎÆü¿©¤Ù¤¿Ãë¿©]|R]) :- write('%t,%t\n',[_ÆüÉÕ,_¤½¤ÎÆü¿©¤Ù¤¿Ãë¿©]), ¸¡º÷¤·¤¿¹Ô¤òɽ¼¨¤¹¤ë(R). http://hibari.2ch.net/test/read.cgi/tech/1312201995/477 # [1] ¥¢¥ë¥´¥ê¥º¥àÏÀ # [2] Unix¥³¥Þ¥ó¥É¤Îgrep¤ò¼ÂÁõ¤·¤¿mygrep¤ÎºîÀ® # ¡¡¡¡¥³¥Þ¥ó¥É¥é¥¤¥ó°ú¿ô¤Ç¸¡º÷ʸ»úÎó¤È¥Õ¥¡¥¤¥ë̾¤ò¤â¤é¤¤¡¢¥Õ¥¡¥¤¥ëÆâ¤Ë¸¡º÷ʸ»úÎ󤬴ޤޤì¤ë¹Ô¤¬¤¢¤ì¤Ð¤½¤Î¹Ô¤ò½ÐÎϤ¹¤ë # ¡¡¡¡Àµµ¬É½¸½¤ËÂбþ¤µ¤»¤ëɬÍפϤʤ¤ # [3] # [3.1]windows xp¡¡ # [3.2]gcc¡¡ # [3.3]c¸À¸ì # [4] ̵´ü¸Â # [5] strstr¤Ï»ÈÍÑ¶Ø»ß # # ¤è¤í¤·¤¯¤ª¤Í¤¬¤¤¤·¤Þ¤¹ # program :- user_paramaters([_¸¡º÷ʸ»úÎó,_¥Õ¥¡¥¤¥ë̾]), open(_¥Õ¥¡¥¤¥ë̾,read,Instream), grep_line(Instream,_¸¡º÷ʸ»úÎó), close(Instream), halt. grep_line(Instream,_¸¡º÷ʸ»úÎó) :- at_end_of_stream(Instream),!. grep_line(Instream,_¸¡º÷ʸ»úÎó) :- get_line(Stream,Line), sub_atom(Line,_,_,_,_¸¡º÷ʸ»úÎó), writef('%t\n',[Line]), fail. grep_line(Instream,_¸¡º÷ʸ»úÎó) :- grep_line(Instream,_¸¡º÷ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: twitter_by_@a_hisame_20150219 # # "a¤¬n²ó°Ê¾å³¤¤¤¿Ä¾¸å¤Ëb¤¬n²ó³¤¯"¤³¤È¤ò(³ÈÄ¥)Àµµ¬É½¸½¤Ç͸ÂŤÇɽ¸½¤Ç¤¤ë¤ó¤Ç¤·¤¿¤Ã¤±¡© (n¤Ï0°Ê¾å¤ÎǤ°Õ¤ÎÀ°¿ô) # 'a¤¬n²ó°Ê¾å³¤¤¤¿Ä¾¸å¤Ëb¤¬n²ó³¤¯(n¤Ï0°Ê¾å¤ÎǤ°Õ¤ÎÀ°¿ô)'(_ʸ»úÎó,_n,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- 'a¤¬n²ó°Ê¾å³¤¤¤¿'(_n,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1), 'ľ¸å¤Ëb¤¬n²ó³¤¯'(_n,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). a¤¬n²ó°Ê¾å³¤¤¤¿(_n,_a,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- a¤¬n²ó°Ê¾å³¤¤¤¿(_n,_a,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_), ¤½¤ÎϢ³Éôʬ¤Ç¤ÏºÇŤǤ¢¤ë(_a,_Á°Ê¸»úÎó,_¸åʸ»úÎó). a¤¬n²ó°Ê¾å³¤¤¤¿(_n,_a,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_ʸ»úÎóĹ) :- sub_atom(_ʸ»úÎó,S,_ʸ»úÎóĹ,R,_Ŭ¹çʸ»úÎó), _ʸ»úÎóĹ >= _n, forall(sub_atom(_Ŭ¹çʸ»úÎó,_,1,_,_ʸ»ú),_a = _ʸ»ú), Á°Ê¸»úÎó¤È¸åʸ»úÎó¤òÀÚ¤ê½Ð¤¹(_ʸ»úÎó,S,R,_Á°Ê¸»úÎó,_¸åʸ»úÎó). Á°Ê¸»úÎó¤È¸åʸ»úÎó¤òÀÚ¤ê½Ð¤¹(_ʸ»úÎó,S,R,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). ¤½¤ÎϢ³Éôʬ¤Ç¤ÏºÇŤǤ¢¤ë(_°¿¤ëʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- \+(sub_atom(_Á°Ê¸»úÎó,_,1,0,_°¿¤ëʸ»ú)), \+(sub_atom(_¸åʸ»úÎó,0,1,_,_°¿¤ëʸ»ú)). 'ľ¸å¤Ëb¤¬n²ó³¤¯'(_n,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- b¤¬n²ó³¤¯(_n,_¸åʸ»úÎó_1,_b¤¬n¸Ä¤Îʸ»úÎó), atom_concat(_Ŭ¹çʸ»úÎó_1,_b¤¬n¸Ä¤Îʸ»úÎó,_Ŭ¹çʸ»úÎó), sub_atom(_¸åʸ»úÎó_1,_,R,0,_¸åʸ»úÎó). b¤¬n²ó³¤¯(_n,_¸åʸ»úÎó_1,_b¤¬n¸Ä¤Îʸ»úÎó) :- sub_atom(_¸åʸ»úÎó_1,0,_n,R,_b¤¬n¸Ä¤Îʸ»úÎó), forall(sub_atom(_b¤¬n¸Ä¤Îʸ»úÎó,_,1,_,_ʸ»ú),_ʸ»ú = b), \+(sub_atom(_¸åʸ»úÎó,_n,1,_,b)). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: twitter_by_@a_hisame_20150219 # # "a¤¬n²ó°Ê¾å³¤¤¤¿Ä¾¸å¤Ëb¤¬n²ó³¤¯"¤³¤È¤ò(³ÈÄ¥)Àµµ¬É½¸½¤Ç͸ÂŤÇɽ¸½¤Ç¤¤ë¤ó¤Ç¤·¤¿¤Ã¤±¡© (n¤Ï0°Ê¾å¤ÎǤ°Õ¤ÎÀ°¿ô) # 'a¤¬n²ó°Ê¾å³¤¤¤¿Ä¾¸å¤Ëb¤¬n²ó³¤¯(n¤Ï0°Ê¾å¤ÎǤ°Õ¤ÎÀ°¿ô)'(_ʸ»úÎó,_n,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- 'a¤¬n²ó°Ê¾å³¤¤¤¿'(_n,_ʸ»úÎó,_Á°Ê¸»úÎó,L2,L3), 'ľ¸å¤Ëb¤¬n²ó³¤¯'(_n,L2,L3,L2_2,L3_2), atom_chars(_Ŭ¹çʸ»úÎó,L2_2), atom_chars(_¸åʸ»úÎó,L3_2). 'a¤¬n²ó°Ê¾å³¤¤¤¿'(_n,_ʸ»úÎó,_Á°Ê¸»úÎó,L2,L3) :- sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,L1,L2,L3), all(L2,a), \+(last(L1,a)), \+(L3 = [a|_]), length(L2,Len_1), Len_1 >= _n. 'ľ¸å¤Ëb¤¬n²ó³¤¯'(_n,L2,L3,L2_2,L3_2) :- findall(b,between(1,_n,_),L), append(L,L3_2,L3), \+(L3_2 = [b|_]), append(L2,L,L2_2). all([],A). all([A|R],A) :- all(R,A). sub_atom(A,H,X,T,HL,XL,TL) :- atomic(X), atom_chars(A,L), atom_chars(X,XL), sub_atom_2(L,S,Len,R,HL,XL,TL), atom_chars(H,HL), atom_chars(X,XL), atom_chars(T,TL). sub_atom(A,H,X,T,HL,XL,TL) :- var(X), atom_chars(A,L), sub_atom_2(L,S,Len,R,HL,XL,TL), atom_chars(H,HL), atom_chars(X,XL), \+(XL = []), atom_chars(T,TL). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://peace.2ch.net/test/read.cgi/tech/1387257592/898 # ¡üRegular Expression¤Î»ÈÍѴĶ # 2¤Á¤ã¤ó¤Í¤ëÀì¥Ö¥éŽ¢JaneViewŽ£ ¤Þ¤¿¤Ï Ž¢phpŽ£ # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¡¦Ž¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢¤â¤¦¤¹¤°Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤Î¤¤¤º¤ì¤«¤Îʸ»úÎó¤ÈŽ¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤Îʸ»ú¤¬Æþ¤Ã¤¿Ê¸¾Ï¤ò¸¡½Ð¤·¤¿¤¤¡£ # ¡¦Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤È¤¤¤¦Ê¸»ú¤ÏŽ¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤È¤¤¤¦Ê¸»úÎó¤ÎÁ°¤Ë¤¢¤Ã¤Æ¤â¸å¤í¤Ë¤¢¤Ã¤Æ¤âÎɤ¤¡£ # # ¡¡¡¡((½Õ|Åß).*(µ¨Àá|¤Þ¤À´¨¤¤|¤â¤¦¤¹¤°|º£¤Ï|¤â¤¦¤¹¤°)|(µ¨Àá|¤Þ¤À´¨¤¤|¤â¤¦¤¹¤°|º£¤Ï|¤â¤¦¤¹¤°).*(½Õ|Åß)) # ¤È¤¤¤¦¤³¤È¤¬¤·¤¿¤¤¤Î¤Ç¤¹¤¬Ã»¤¯¤Ê¤ê¤Þ¤»¤ó¤«? # # Ʊ¤¸Ã±¸ì¤¬¤½¤ì¤¾¤ì2¤Ä¤º¤ÄɬÍפÀ¤ÈÀµµ¬É½¸½¤¬Ä¹¤¯¤Ê¤ê¤¬¤Á¤Ê¤Î¤Ç (µ¨Àá|¤Þ¤À´¨¤¤|¤â¤¦¤¹¤°|º£¤Ï|¤â¤¦¤¹¤°) # ¤Ï£±²ó¤ÇºÑ¤Þ¤»¤ë¤Î¤¬´õ˾¤Ç¤¹¡£ # # ¡¡¡¡(½Õ|Åß(Ãí:¸å¤í¤¢¤ì¤ÐÉÔÍ×))(µ¨Àá|¤Þ¤À´¨¤¤|¤â¤¦¤¹¤°|º£¤Ï|¤â¤¦¤¹¤°)(½Õ|Åß(Ãí:Á°¤Ë¤¢¤ì¤ÐÉÔÍ×)) # ¢¬¤³¤ó¤Ê´¶¤¸¤¬´õ˾¤Ç¤¹ # # ¡üÂоݥǡ¼¥¿ ¡ü´õ˾¤¹¤ë·ë²Ì # £± ¤Þ¤â¤Ê¤¯Ž¢µ¨ÀᎣ¤ÏŽ¢½ÕŽ£¤Ç¤¹¤Í ¡¡¡¡·ë²Ì:¸¡½Ð (µ¨Àá & ½Õ) # £² Ž¢½ÕŽ£¤Ï¤è¤¤Ž¢µ¨ÀᎣ¤Ç¤¹¤Í ¡¡¡¡¡¡¡¡·ë²Ì:¸¡½Ð (½Õ & ¤â¤¦¤¹¤°) # £³ Ž¢½ÕŽ£¤è¤³¤¤¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡·ë²Ì:È󸡽Р# # '¡¦Ž¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢¤â¤¦¤¹¤°Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤Î¤¤¤º¤ì¤«¤Îʸ»úÎó¤ÈŽ¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤Îʸ»ú¤¬Æþ¤Ã¤¿Ê¸¾Ï¤ò¸¡½Ð¤·¤¿¤¤¡£ ¡¦Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤È¤¤¤¦Ê¸»ú¤ÏŽ¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤È¤¤¤¦Ê¸»úÎó¤ÎÁ°¤Ë¤¢¤Ã¤Æ¤â¸å¤í¤Ë¤¢¤Ã¤Æ¤âÎɤ¤¡£'(_ʸ¾Ï) :- 'Ž¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢¤â¤¦¤¹¤°Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤Î¤¤¤º¤ì¤«¤Îʸ»úÎó¤È'(_ʸ¾Ï,_Á°Ê¸»úÎó,_¸åʸ»úÎó), 'Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤Îʸ»ú¤¬Æþ¤Ã¤¿Ê¸¾Ï¤ò¸¡½Ð¤·¤¿¤¤¡£ ¡¦Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤È¤¤¤¦Ê¸»ú¤ÏŽ¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤È¤¤¤¦Ê¸»úÎó¤ÎÁ°¤Ë¤¢¤Ã¤Æ¤â¸å¤í¤Ë¤¢¤Ã¤Æ¤âÎɤ¤¡£'(_Á°Ê¸»úÎó,_¸åʸ»úÎó). 'Ž¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢¤â¤¦¤¹¤°Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤Î¤¤¤º¤ì¤«¤Îʸ»úÎó¤È'(_ʸ¾Ï,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ¾Ï,_Á°Ê¸»úÎó,_ʸ»úÎó,_¸åʸ»úÎó), member(_ʸ»úÎó,[µ¨Àá,¤Þ¤À´¨¤¤,¤â¤¦¤¹¤°,º£¤Ï,¤â¤¦¤¹¤°]). 'Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤Îʸ»ú¤¬Æþ¤Ã¤¿Ê¸¾Ï¤ò¸¡½Ð¤·¤¿¤¤¡£ ¡¦Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤È¤¤¤¦Ê¸»ú¤ÏŽ¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤È¤¤¤¦Ê¸»úÎó¤ÎÁ°¤Ë¤¢¤Ã¤Æ¤â¸å¤í¤Ë¤¢¤Ã¤Æ¤âÎɤ¤¡£'(_Á°Ê¸»úÎó,_) :- 'Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤Îʸ»ú¤¬Æþ¤Ã¤¿Ê¸¾Ï¤ò¸¡½Ð¤·¤¿¤¤¡£'(_Á°Ê¸»úÎó),!. 'Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤Îʸ»ú¤¬Æþ¤Ã¤¿Ê¸¾Ï¤ò¸¡½Ð¤·¤¿¤¤¡£ ¡¦Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤È¤¤¤¦Ê¸»ú¤ÏŽ¢µ¨ÀáŽ£Ž¢¤Þ¤À´¨¤¤Ž£Ž¢º£¤Ïޣޢ¤â¤¦¤¹¤°Ž£¤È¤¤¤¦Ê¸»úÎó¤ÎÁ°¤Ë¤¢¤Ã¤Æ¤â¸å¤í¤Ë¤¢¤Ã¤Æ¤âÎɤ¤¡£'(_,_¸åʸ»úÎó) :- 'Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤Îʸ»ú¤¬Æþ¤Ã¤¿Ê¸¾Ï¤ò¸¡½Ð¤·¤¿¤¤¡£'(_¸åʸ»úÎó). 'Ž¢½ÕŽ£¤Þ¤¿¤ÏŽ¢Åߎ£¤Îʸ»ú¤¬Æþ¤Ã¤¿Ê¸¾Ï¤ò¸¡½Ð¤·¤¿¤¤¡£'(_ʸ»úÎó) :- sub_atom(_Á°Ê¸»úÎó,_,1,_,_ʸ»ú), member(_ʸ»ú,[½Õ,Åß]). sub_atom(_ʸ¾Ï,_Á°Ê¸»úÎó,_ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ¾Ï,S,_,R,_ʸ»úÎó), sub_atom(_ʸ¾Ï,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ¾Ï,_,R,0,_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # php¤Îʸ»úÃÖ´¹¤Ç¼ÁÌä¤Ç¤¹ # # ¡ÚÌÜŪ¡Û ʸ»úÎóÆâ¤Î ab ¤ò a ¤Ë¤¹¤ë ¤¿¤À¤·ab¤Î¸å¤í¤¬c¤Î¾ì¹ç¤ò½ü¤¯ # Îã ab123 ¢ª a123 ¡¢¡¡abcde ¢ª abcde # # ¤È¤¤¤¦¾ò·ï¤òÀµµ¬É½¸½¤Çµ½Ò¤¹¤ë¤Ë¤Ï¤É¤Î¤è¤¦¤Ë½ñ¤±¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤«¡© # # ¤è¤í¤·¤¯¤ª¤Í¤¬¤¤¤·¤Þ¤¹ 'ʸ»úÎóÆâ¤Î ab ¤ò a ¤Ë¤¹¤ë ¤¿¤À¤·ab¤Î¸å¤í¤¬c¤Î¾ì¹ç¤ò½ü¤¯'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- 'ʸ»úÎóÆâ¤Îab¤¿¤À¤·ab¤Î¸å¤í¤¬c¤Î¾ì¹ç¤ò½ü¤¯'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸åʸ»úÎó), 'ʸ»úÎóÆâ¤Î ab ¤ò a ¤Ë¤¹¤ë ¤¿¤À¤·ab¤Î¸å¤í¤¬c¤Î¾ì¹ç¤ò½ü¤¯'(_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), atomic_list_concat([_Á°Ê¸»úÎó,a,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'ʸ»úÎóÆâ¤Î ab ¤ò a ¤Ë¤¹¤ë ¤¿¤À¤·ab¤Î¸å¤í¤¬c¤Î¾ì¹ç¤ò½ü¤¯'(_ʸ»úÎó,_ʸ»úÎó). 'ʸ»úÎóÆâ¤Îab¤¿¤À¤·ab¤Î¸å¤í¤¬c¤Î¾ì¹ç¤ò½ü¤¯'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- 'ʸ»úÎóÆâ¤Îab'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸åʸ»úÎó), '¤¿¤À¤·ab¤Î¸å¤í¤¬c¤Î¾ì¹ç¤ò½ü¤¯'(_¸åʸ»úÎó). 'ʸ»úÎóÆâ¤Îab'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,2,R,ab), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). '¤¿¤À¤·ab¤Î¸å¤í¤¬c¤Î¾ì¹ç¤ò½ü¤¯'(_¸åʸ»úÎó) :- \+(sub_atom(_¸åʸ»úÎó,0,1,_,c)). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ: Regular Expression(Àµµ¬É½¸½) Part12 #723 # # ¡üRegular Expression¤Î»ÈÍѴĶ # JavaScript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Î㤨¤Ð¤¢¤ëʸ»úÎó¤ÎÃæ¤Î¡ÖÂΡפò¡Öñó¡×¤Ø¡¢¡Öµì¡×¤ò¡Öçѡפءġ¢¤È¤¤¤¦¤è¤¦¤ËÊÑ´¹¤·¤¿¤¤¤È¤¤ËÁ´¤Æ½ñ¤Ï¢¤Í¤ë¤Î¤Ç¤Ï¤Ê¤¯Àµµ¬É½¸½¤Ç´Ê·é¤Ëɽ¸½¤¹¤ëÊýË¡¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤« # °ÛÂλú(ÂÎ,ñó). °ÛÂλú(µì,çÑ). 'Î㤨¤Ð¤¢¤ëʸ»úÎó¤ÎÃæ¤Î¡ÖÂΡפò¡Öñó¡×¤Ø¡¢¡Öµì¡×¤ò¡Öçѡפءġ¢¤È¤¤¤¦¤è¤¦¤ËÊÑ´¹¤·¤¿¤¤¤È¤¤ËÁ´¤Æ½ñ¤Ï¢¤Í¤ë¤Î¤Ç¤Ï¤Ê¤¯Àµµ¬É½¸½¤Ç´Ê·é¤Ëɽ¸½¤¹¤ëÊýË¡¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- findall(_ʸ»ú,ʸ»úÎóÃæ¤Îʸ»ú¤ò²Äǽ¤Ê¤é¤Ð°ÛÂλú¤ËÊÑ´¹¤¹¤ë(_ʸ»úÎó,_ʸ»ú),L), atomic_list_concat(L,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ʸ»úÎóÃæ¤Îʸ»ú¤ò²Äǽ¤Ê¤é¤Ð°ÛÂλú¤ËÊÑ´¹¤¹¤ë(_ʸ»úÎó,_ʸ»ú) :- sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú_1), °ÛÂλúÊÑ´¹(_ʸ»ú_1,_ʸ»ú). °ÛÂλúÊÑ´¹(_ʸ»ú_1,_ʸ»ú_2) :- °ÛÂλú(_ʸ»ú_1,_ʸ»ú_2),!. °ÛÂλúÊÑ´¹(_ʸ»ú,_ʸ»ú). 'Àµµ¬É½¸½¤¸¤ã¤Ê¤¤¤±¤É¡Ä str=str.replace(/./g,function(c){ ¡¡¡¡var t="Âεì"; ¡¡¡¡var r="ñóçÑ"; ¡¡¡¡return r.charAt(t.indexOf(c))||c; }); '(_ʸ»úÎó,_µì»úÂΤ¬Í¤ë¤â¤Î¤Ïµì»úÂΤËÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- 'Î㤨¤Ð¤¢¤ëʸ»úÎó¤ÎÃæ¤Î¡ÖÂΡפò¡Öñó¡×¤Ø¡¢¡Öµì¡×¤ò¡Öçѡפءġ¢¤È¤¤¤¦¤è¤¦¤ËÊÑ´¹¤·¤¿¤¤¤È¤¤ËÁ´¤Æ½ñ¤Ï¢¤Í¤ë¤Î¤Ç¤Ï¤Ê¤¯Àµµ¬É½¸½¤Ç´Ê·é¤Ëɽ¸½¤¹¤ëÊýË¡¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«'(_ʸ»úÎó,_µì»úÂΤ¬Í¤ë¤â¤Î¤Ïµì»úÂΤËÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ: Regular Expression(Àµµ¬É½¸½) Part12 #713 # # abcxy # abcxY # abcXy # abcXY # ¤Ë°ìÃפ¹¤ëɽ¸½¤ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # 'abcxy abcxY abcXy abcXY ¤Ë°ìÃפ¹¤ë'(_°ìÃפ¹¤ëʸ»úÎó) :- sub_atom(_°ìÃפ¹¤ëʸ»úÎó,_,_,_,_Éûʸ»úÎó), member(_Éûʸ»úÎó,[abcxy,abcXy,abcxY,abcXY]). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ: Regular Expression(Àµµ¬É½¸½)Part12 #561 # ¡üRegular Expression¤Î»ÈÍѴĶ # Perl # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤Þ¤Ê¤¤¡¢¡Ö¥¹¥±¡¼¥È¡×¤À¤±¥Þ¥Ã¥Á¤µ¤»¤¿¤¤ # # # ¡üÂоݥǡ¼¥¿ # ¥¢¥¤¥¹¥¹¥±¡¼¥È # ¥í¡¼¥é¡¼¥¹¥±¡¼¥È # ¥¹¥±¡¼¥È # 'Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤Þ¤Ê¤¤¡¢¡Ö¥¹¥±¡¼¥È¡×¤À¤±¥Þ¥Ã¥Á¤µ¤»¤¿¤¤'(_ʸ,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó,_Á°¥Ç¡¼¥¿,¥¹¥±¡¼¥È,_¸å¥Ç¡¼¥¿) :- sub_atom(_ʸ,_Á°¥Ç¡¼¥¿,¥¹¥±¡¼¥È,_¸å¥Ç¡¼¥¿), Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤Þ¤Ê¤¤(_Á°¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó). Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤Þ¤Ê¤¤(_Á°¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó) :- \+(Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤à(_Á°¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó)). Á°¤Ë»ØÄꤷ¤¿¥Ç¡¼¥¿¤ò´Þ¤à(_Á°¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó) :- member(_»ØÄꤷ¤¿¥Ç¡¼¥¿,_»ØÄꤷ¤¿¥Ç¡¼¥¿¤Ê¤é¤Ó), sub_atom(_Á°¥Ç¡¼¥¿,_,_,0,_»ØÄꤷ¤¿¥Ç¡¼¥¿). sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_Ŭ¹çʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ: Regular Expression(Àµµ¬É½¸½) Part12 #524 # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¡üRegular Expression¤Î»ÈÍѴĶ # javascript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # {{ ¤È }} ¤Ç°Ï¤Þ¤ì¤¿Ê¸»ú¤òºï½ü¤·¤¿¤¤ # ²þ¹Ô¤¢¤ê # # ¡üÂоݥǡ¼¥¿ # {{ABCA # BCAA}} # CABA # {{ABCA}} # # ¡ü´õ˾¤¹¤ë·ë²Ì # CABA '¡ü¸¡º÷¤«ÃÖ´¹¤«¡© ÃÖ´¹ ¡üÀâÌÀ {{ ¤È }} ¤Ç°Ï¤Þ¤ì¤¿Ê¸»ú¤òºï½ü¤·¤¿¤¤ ²þ¹Ô¤¢¤ê'(_ʸ»úÎó,_Æó½Å³ç¸Ì¤òºï½ü¤·¤¿Ê¸»úÎó) :- '{{ ¤È }} ¤Ç°Ï¤Þ¤ì¤¿Ê¸»ú¤òºï½ü¤·¤¿¤¤ ²þ¹Ô¤¢¤ê'(_ʸ»úÎó,_Æó½Å³ç¸Ì¤òºï½ü¤·¤¿Ê¸»úÎó). '{{ ¤È }} ¤Ç°Ï¤Þ¤ì¤¿Ê¸»ú¤òºï½ü¤·¤¿¤¤ ²þ¹Ô¤¢¤ê'(_ʸ»úÎó,_Æó½Å³ç¸Ì¤òºï½ü¤·¤¿Ê¸»úÎó) :- '{{¤òÀÚ¤ê½Ð¤·¡¢Á°Ê¸»úÎó¤È¸åʸ»úÎó¤Ëʬ²ò¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸åʸ»úÎó), '}} ¤Þ¤Çʸ»úÎó¤òºï½ü¤·¤¿¤¤ ²þ¹Ô¤¢¤ê'(_¸åʸ»úÎó,_Æó½Å³ç¸Ì¤òºï½ü¤·¤¿¸åʸ»úÎó), atom_concat(_Á°Ê¸»úÎó,_Æó½Å³ç¸Ì¤òºï½ü¤µ¤ì¤¿¸åʸ»úÎó,_Æó½Å³ç¸Ì¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó),!. '{{ ¤È }} ¤Ç°Ï¤Þ¤ì¤¿Ê¸»ú¤òºï½ü¤·¤¿¤¤ ²þ¹Ô¤¢¤ê'(_ʸ»úÎó,_ʸ»úÎó). '}} ¤Þ¤Çʸ»úÎó¤òºï½ü¤·¤¿¤¤ ²þ¹Ô¤¢¤ê'(_ʸ»úÎó,_Æó½Å³ç¸Ì¤òºï½ü¤·¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,S,2,R,'}}'), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó), '{{ ¤È }} ¤Ç°Ï¤Þ¤ì¤¿Ê¸»ú¤òºï½ü¤·¤¿¤¤ ²þ¹Ô¤¢¤ê'(_»Ä¤êʸ»úÎó,_Æó½Å³ç¸Ì¤òºï½ü¤·¤¿¸åʸ»úÎó),!. '}} ¤Þ¤Çʸ»úÎó¤òºï½ü¤·¤¿¤¤ ²þ¹Ô¤¢¤ê'(_ʸ»úÎó,_ʸ»úÎó). '{{¤òÀÚ¤ê½Ð¤·¡¢Á°Ê¸»úÎó¤È¸åʸ»úÎó¤Ëʬ²ò¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,2,R,'{{'), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï #½Ðŵ: Regular Expression(Àµµ¬É½¸½) Part12 #507 #¡üRegular Expression¤Î»ÈÍѴĶ #½¨´Ý # #¡ü¸¡º÷¤«ÃÖ´¹¤«¡© #ÃÖ´¹ # #¡üÀâÌÀ #¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿¤¤¡£ # #¡üÂоݥǡ¼¥¿ # #Åìµþ abc ÂçºåÀŲ¬ 123 ̾¸Å²° apple orange # # #¡ü´õ˾¤¹¤ë·ë²Ì # #Åìµþ abc ÂçºåÀŲ¬ 123 ̾¸Å²° # # #µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ '¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿¤¤¡£'(_¹Ôʸ»úÎó,_¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿Ê¸»úÎó) :- ¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ), '¸å¤òºï½ü¤·¤¿¤¤¡£'(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿Ê¸»úÎó),!. ¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ) :- ¹Ô¤Î°ìÈֺǸå¤Î(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_ʸ»ú), Á´³Ñʸ»ú¤«¤é(_ʸ»ú). ¹Ô¤Î°ìÈֺǸå¤Î(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_ʸ»ú) :- sub_atom(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,1,_ºÇ¸å¤ÎÁ´³Ñʸ»ú¤Î³«»Ï°ÌÃÖ,_), sub_atom(_¹Ôʸ»úÎó,_ºÇ¸å¤ÎÁ´³Ñʸ»ú¤Î³«»Ï°ÌÃÖ,1,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_ʸ»ú). Á´³Ñʸ»ú¤«¤é(_Á´³Ñʸ»ú) :- char_code(_Á´³Ñʸ»ú,_ʸ»ú¥³¡¼¥É), _ʸ»ú¥³¡¼¥É > 255. '¸å¤òºï½ü¤·¤¿¤¤¡£'(_¹Ôʸ»úÎó,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿Ê¸»úÎó) :- sub_atom(_¹Ôʸ»úÎó,0,_,_Á´³Ñʸ»ú¤«¤é¸å¤ÎŤµ,_¹Ô¤Î°ìÈֺǸå¤ÎÁ´³Ñʸ»ú¤«¤é¸å¤òºï½ü¤·¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ: Regular Expression(Àµµ¬É½¸½) Part12 #468 # # ¡üRegular Expression¤Î»ÈÍѴĶ # sed¡¢grep # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # ¡üÀâÌÀ # ¥Þ¥Ã¥Á¤·¤¿·ë²Ì¤ò¤½¤Î¤Þ¤ÞÃÖ¤´¹¤¨¤ë¤Ç¤Ê¤¯¡¢ # £±¤ÄÁ°¤Ë²þ¹Ô¤òÆþ¤ì¤¿¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # 0ABC1DEF2GHI3JKL4MNO # # ¡ü´õ˾¤¹¤ë·ë²Ì # 0ABC # 1DEF # 2GHI # 3JKL # 4MNO # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ ÃÖ´¹µ¬Â§('0','0'). ÃÖ´¹µ¬Â§('1','1'). ÃÖ´¹µ¬Â§('2','2'). ÃÖ´¹µ¬Â§('3','3'). ÃÖ´¹µ¬Â§('4','4'). ÃÖ´¹µ¬Â§('5','5'). ÃÖ´¹µ¬Â§('6','6'). ÃÖ´¹µ¬Â§('7','7'). ÃÖ´¹µ¬Â§('8','8'). ÃÖ´¹µ¬Â§('9','9'). '¥Þ¥Ã¥Á¤·¤¿·ë²Ì¤ò¤½¤Î¤Þ¤ÞÃÖ¤´¹¤¨¤ë¤Ç¤Ê¤¯¡¢£±¤ÄÁ°¤Ë²þ¹Ô¤òÆþ¤ì¤¿¤¤¡£'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- ¸¡º÷ʸ»úÎó¤òÃÖ´¹¤¹¤ë(_ʸ»úÎó,_Á°Ê¸»úÎó,_ÃÖ´¹Ê¸»úÎó,_¸åʸ»úÎó), ¸åʸ»úÎó¤âÃÖ´¹¤·¤ÆÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤òÀ¸À®¤¹¤ë(_Á°Ê¸»úÎó,_ÃÖ´¹Ê¸»úÎó,_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. '¥Þ¥Ã¥Á¤·¤¿·ë²Ì¤ò¤½¤Î¤Þ¤ÞÃÖ¤´¹¤¨¤ë¤Ç¤Ê¤¯¡¢£±¤ÄÁ°¤Ë²þ¹Ô¤òÆþ¤ì¤¿¤¤¡£'(_ʸ»úÎó,_ʸ»úÎó). ¸åʸ»úÎó¤âÃÖ´¹¤·¤ÆÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤òÀ¸À®¤¹¤ë(_Á°Ê¸»úÎó,_ÃÖ´¹Ê¸»úÎó,_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- '¥Þ¥Ã¥Á¤·¤¿·ë²Ì¤ò¤½¤Î¤Þ¤ÞÃÖ¤´¹¤¨¤ë¤Ç¤Ê¤¯¡¢£±¤ÄÁ°¤Ë²þ¹Ô¤òÆþ¤ì¤¿¤¤¡£'(_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), atomic_list_concat([_Á°Ê¸»úÎó,'\n',_ÃÖ´¹Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ¸¡º÷ʸ»úÎó¤òÃÖ´¹¤¹¤ë(_ʸ»úÎó,_Á°Ê¸»úÎó,_ÃÖ´¹Ê¸»úÎó_1,_¸åʸ»úÎó) :- ¸¡º÷ʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó), ÃÖ´¹µ¬Â§(_¸¡º÷ʸ»úÎó,_ÃÖ´¹Ê¸»úÎó_1). ¸¡º÷ʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,Len,R,_¸¡º÷ʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê: http://toro.2ch.net/test/read.cgi/tech/1387257592/395 # ¡üRegular Expression¤Î»ÈÍѴĶ # JavaScript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Ʊ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¦¤¨¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤¢¤¢¤¢¤¤¤¤¤¤¤¦¤¨¤ª¤ª¤ª Ʊ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(_ʸ»úÎó,_ÃÖ´¹¤·¤¿Ê¸»úÎó) :- atom_chars(_ʸ»úÎó,Chars_1), ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(Chars_1,Chars_2), atom_chars(_ÃÖ´¹¤·¤¿Ê¸»úÎó,Chars_2). ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤([],[]). ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(L1,L2) :- ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò(L1,_Ʊ¤¸Í×ÁÇ,R1_1), '3²ó¤Ë¤·¤¿¤¤'(R1_1,_Ʊ¤¸Í×ÁÇ,R1_2,L2,R2), ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(R1_2,R2),!. ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤([A|R1],[A|R2]) :- ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(R1,R2),!. ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò([A,A,A,A|R],A,R). '3²ó¤Ë¤·¤¿¤¤'(R1_1,_Ʊ¤¸Í×ÁÇ,R1_2,L2,R2) :- ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹(R1_1,_Ʊ¤¸Í×ÁÇ,R1_2), L2 = [_Ʊ¤¸Í×ÁÇ,_Ʊ¤¸Í×ÁÇ,_Ʊ¤¸Í×ÁÇ|R2]. ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹([],_,[]) :- !. ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹([A|R],B,[A|R]) :- \+(A = B),!. ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹([A|R1],A,R2) :- ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹(R1,A,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ¡üRegular Expression¤Î»ÈÍѴĶ # ¥µ¥¯¥é¥¨¥Ç¥£¥¿ 2.1.1.1 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # []Æâ¤Îʸ»ú¤À¤±¤Ë¤·¤¿¤¤ # ¢¨¡¡[¡¡¤È¡¡]¡¡¤È (Ⱦ³Ñ¥¹¥Ú¡¼¥¹)¤Î3¤Ä¤ò¾Ã¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # [¤¢¤¤¤¦¤¨¤ª] ¢«ºÇ¸å¤ËȾ³Ñ¥¹¥Ú¡¼¥¹¤¢¤ê¡Ê°Ê²¼Æ±¤¸¡Ë # [¥«¥¥¯¥±¥³] # [AIUEO] # [´Á»úÅù¡¹] # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤¢¤¤¤¦¤¨¤ª¢«ºÇ¸å¤ÎȾ³Ñ¥¹¥Ú¡¼¥¹¤â¾Ã¤·¤¿¤¤¡Ê°Ê²¼Æ±¤¸¡Ë # ¥«¥¥¯¥±¥³ # AIUEO # ´Á»úÅù¡¹ '[]Æâ¤Îʸ»ú¤À¤±¤È¤·¤¿¤¤'(_ʸ»úÎó,_ÊÑ´¹¤µ¤ì¤¿¥Ç¡¼¥¿) :- '[]Æâ¤Îʸ»ú¤À¤±¤È¤·¤¿¤¤'(_ʸ»úÎó,S1,S2_2,S3), '[]Æâ¤Îʸ»ú¤À¤±¤Ë¤·¤¿¤¤'(S3,S3_2), atomic_list_concat([S1,S2_2,S3_2],_ÊÑ´¹¤µ¤ì¤¿¥Ç¡¼¥¿),!. '[]Æâ¤Îʸ»ú¤À¤±¤È¤·¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). '[]Æâ¤Îʸ»ú¤À¤±¤È¤·¤¿¤¤'(_ʸ»úÎó,S1,S2_2,S3) :- sub_atom(_ʸ»úÎó,S1,S2,S3,L1,L2,L3), sub_atom(S2,0,1,_,'['), sub_atom(S2,_,1,0,']'), '[]¤È¥¹¥Ú¡¼¥¹¤òºï½ü¤¹¤ë'(S2,S2_2),!. '[]¤È¥¹¥Ú¡¼¥¹¤òºï½ü¤¹¤ë'(S2,S2_2) :- '[]¤òºï½ü¤¹¤ë'(S2,S2_1), ¥¹¥Ú¡¼¥¹¤òºï½ü¤¹¤ë(S2_1,S2_2). '[]¤òºï½ü¤¹¤ë'(S2,S2_1) :- sub_atom(S2,1,_,1,S2_2). ¥¹¥Ú¡¼¥¹¤òºï½ü¤¹¤ë(S2_1,S2_2) :- findall(A,( ¥¹¥Ú¡¼¥¹¤Ç¤Ê¤¤Ê¸»ú¤ò¼è¤ê½Ð¤¹(S2_1,A)), L), atom_chars(S2_2,L). ¥¹¥Ú¡¼¥¹¤Ç¤Ê¤¤Ê¸»ú¤ò¼è¤ê½Ð¤¹(S2,A) :- sub_atom(S2,_,1,_,A), \+(A = ' ')). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # twitter_by_@dll7_20140324 # @dll7 29ʬ # Àµµ¬É½¸½¤Ç # AXAYAZ # BXBYBZ # CXCYZC # ¤ÎA B C¤¬¥Þ¥Ã¥Á¤¹¤ë¤è¤¦¤Ë½ñ¤¯¤Ë¤Ï²¿¤¬°ìÈÖ³Ú¡© # ¤¿¤À¤·¡¢ # AXBYCZ # BXAYAZ # ¤È¤«¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡£»°¤ÄƱ¤¸»þ¤À¤±¥Þ¥Ã¥Á¤·¤¿¤¤¤È¤ 'Àµµ¬É½¸½¤Ç AXAYAZ BXBYBZ CXCYZC ¤ÎA B C¤¬¥Þ¥Ã¥Á¤¹¤ë¤è¤¦¤Ë½ñ¤¯¤Ë¤Ï²¿¤¬°ìÈÖ³Ú¡© ¤¿¤À¤·¡¢ AXBYCZ BXAYAZ ¤È¤«¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡£Æ±¤¸Ê¸»ú¤¬»°¤Ä¸«¤Ä¤«¤Ã¤¿¤È¤¤À¤±¥Þ¥Ã¥Á¤¹¤ë¡£'(_ʸ»úÎó,_¸¡º÷ʸ»ú) :- ʸ»ú¸õÊä(_ʸ»úÎó,_¸¡º÷ʸ»ú), 'Ʊ¤¸Ê¸»ú¤¬»°¤Ä¸«¤Ä¤«¤Ã¤¿¤È¤¤À¤±¥Þ¥Ã¥Á¤¹¤ë¡£'(_ʸ»úÎó,_¸¡º÷ʸ»ú). ʸ»ú¸õÊä(_ʸ»úÎó,_ʸ»ú) :- setof(_ʸ»ú,[_ʸ»úÎó,_ʸ»ú] ^ °ìʸ»ú¤º¤Ä¼è¤ê½Ð¤¹(_ʸ»úÎó,_ʸ»ú),_ʸ»ú¤Ê¤é¤Ó), member(_ʸ»ú,_ʸ»ú¤Ê¤é¤Ó). °ìʸ»ú¤º¤Ä¼è¤ê½Ð¤¹(_ʸ»úÎó,_ʸ»ú) :- sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú). 'Ʊ¤¸Ê¸»ú¤¬»°¤Ä¸«¤Ä¤«¤Ã¤¿¤È¤¤À¤±¥Þ¥Ã¥Á¤¹¤ë¡£'(_ʸ»úÎó,_¸¡º÷ʸ»ú) :- findall(_,sub_atom(_ʸ»úÎó,_,1,_,_¸¡º÷ʸ»ú),[_,_,_]). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê: http://toro.2ch.net/test/read.cgi/tech/1387257592/395 # ¡üRegular Expression¤Î»ÈÍѴĶ # JavaScript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Ʊ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¢¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¦¤¨¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª¤ª # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤¢¤¢¤¢¤¤¤¤¤¤¤¦¤¨¤ª¤ª¤ª Ʊ¤¸Ê¸»ú¤Î4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(_ʸ»úÎó,_ÃÖ´¹¤·¤¿Ê¸»úÎó) :- atom_chars(_ʸ»úÎó,Chars_1), ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(Chars_1,Chars_2), atom_chars(_ÃÖ´¹¤·¤¿Ê¸»úÎó,Chars_2). ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤([],[]). ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤([A,A,A,A|R1],[A,A,A|R2]) :- ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹(R1,A,R1_1), ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(R1_1,R2),!. ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤([A|R1],[A|R2]) :- ¤Ê¤é¤Ó¤ÎƱ¤¸Ê¸»úÍ×ÁǤÎ4²ó°Ê¾å¤Î·«¤êÊÖ¤·¤ò3²ó¤Ë¤·¤¿¤¤(R1,R2),!. ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹([],_,[]) :- !. ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹([A|R],B,[A|R]) :- \+(A = B),!. ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹([A|R1],A,R2) :- ¤Ê¤é¤Ó¤ÎÀèÆ¬¤«¤é¤Î»ØÄêÍ×ÁǤòÆÉ¤ßÈô¤Ð¤¹(R1,A,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ¡üRegular Expression¤Î»ÈÍѴĶ # # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Ê£¿ô¹Ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # # # # # # ¡ü´õ˾¤¹¤ë·ë²Ì # Ê£¿ô¹Ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¤¤(_¥Õ¥¡¥¤¥ë) :- get_chars(_¥Õ¥¡¥¤¥ë,_ʸ»ú¤Ê¤é¤Ó), Ê£¿ô¹Ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¤¤(_¹Ô¤Ê¤é¤Ó,_Ê£¿ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿Ê¸»ú¤Ê¤é¤Ó), put_chars(_¥Õ¥¡¥¤¥ë,_Ê£¿ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿Ê¸»ú¤Ê¤é¤Ó). Ê£¿ô¹Ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¤¤([],[]). Ê£¿ô¹Ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¤¤(['\n','\n'|_»Ä¤ê¹Ô¤Ê¤é¤Ó],_Ê£¿ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¹Ô¤Ê¤é¤Ó) :- Ê£¿ô¹Ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¤¤(['\n'|_»Ä¤ê¹Ô¤Ê¤é¤Ó],_Ê£¿ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¹Ô¤Ê¤é¤Ó),!. Ê£¿ô¹Ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¤¤([A|R1],[A|R2]) :- Ê£¿ô¹Ô¤Î¶õ¹Ô¤ò£±¤Ä¤Î¶õ¹Ô¤Ë¤·¤¿¤¤(R1,R2),!. get_chars(_¥Õ¥¡¥¤¥ë,_ʸ»ú¤Ê¤é¤Ó) :- open(_¥Õ¥¡¥¤¥ë,read,Instream), findall(_ʸ»ú,( at_end_of_stream(Instream),!,fail; get_char(Instream,_ʸ»ú))), _ʸ»ú¤Ê¤é¤Ó), close(Instream). put_chars(_¥Õ¥¡¥¤¥ë,_ʸ»ú¤Ê¤é¤Ó) :- open(_¥Õ¥¡¥¤¥ë,write,Outstream), append(_,[_ʸ»ú|R],_ʸ»ú¤Ê¤é¤Ó), putchar(Outstream,_ʸ»ú), R = [], close(Outstream). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://toro.2ch.net/test/read.cgi/tech/1387257592/351 # ¡üRegular Expression¤Î»ÈÍѴĶ # ¥µ¥¯¥é¥¨¥Ç¥£¥¿ # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ABCA Test # BCAA Example # CABA Abc # # ¡ü´õ˾¤¹¤ë·ë²Ì # BCAA Example # # # ¥Í¥Ã¥È¤Ç¸¡º÷¤·¤Æ½Ð¤Æ¤¤¿^(?!.*Example).+$¤ä^((?!Example).)*$ # ¤Ç»î¤·¤¿¤ó¤Ç¤¹¤¬¶õ¹Ô¤¬»Ä¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿ # # ʸ»úÎó¤ò¹Ô¤Ëʬ²ò¤·¤¿¾å¤ÇExample¤ò´Þ¤Þ¤Ê¤¤¹Ô¤À¤±ºï½ü¤·¤¿Ê¸»úÎó¤òºî¤ë(ʸ»úÎó,_Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- ²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó¤òÆÀ¤ë(_ʸ»úÎó,_²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó), 'Example¤ò´Þ¤Þ¤Ê¤¤¹Ô¤À¤±ºï½ü¤·¤¿Ê¸»úÎó¤òºî¤ë'(_²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó,_Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó). ²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó¤òÆÀ¤ë('',[]) :- !. ²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó¤òÆÀ¤ë(_ʸ»úÎó,_²þ¹Ôµ¹æÉÕ¤¹Ô¤Ê¤é¤Ó) :- ²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó¤òÀÚ¤ê¼è¤Ã¤Æ¹Ô¤¯(_ʸ»úÎó,_²þ¹Ôµ¹æÉÕ¤¹Ô¤Ê¤é¤Ó). ²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó¤òÀÚ¤ê¼è¤Ã¤Æ¹Ô¤¯(_ʸ»úÎó,[_²þ¹Ôµ¹æÉÕ¤¹Ô|R]) :- ²þ¹Ôµ¹æ¤ò´Þ¤à¹Ô¤òÆÀ¤ë(_ʸ»úÎó,_²þ¹Ôµ¹æÉÕ¤¹Ô,_»Ä¤êʸ»úÎó), ²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó¤òÆÀ¤ë(_»Ä¤êʸ»úÎó,R). ²þ¹Ôµ¹æ¤ò´Þ¤à¹Ô¤òÆÀ¤ë(_ʸ»úÎó,_²þ¹Ôµ¹æÉÕ¤¹Ô,_»Ä¤êʸ»úÎó) :- ²þ¹Ôµ¹æ¤ò´Þ¤à¹Ô(_ʸ»úÎó,_²þ¹Ôµ¹æÉÕ¤¹Ô,_»Ä¤êʸ»úÎó),!. ²þ¹Ôµ¹æ¤ò´Þ¤à¹Ô¤òÆÀ¤ë(_ʸ»úÎó,_ʸ»úÎó,''). ²þ¹Ôµ¹æ¤ò´Þ¤à¹Ô(_ʸ»úÎó,_²þ¹Ôµ¹æÉÕ¤¹Ô,_»Ä¤êʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,1,R,'\n'), sub_atom(_ʸ»úÎó,0,_,R,_²þ¹Ôµ¹æÉÕ¤¹Ô), sub_atom(_ʸ»úÎó,_,R,0,_»Ä¤êʸ»úÎó). 'Example¤ò´Þ¤Þ¤Ê¤¤¹Ô¤À¤±ºï½ü¤·¤¿Ê¸»úÎó¤òºî¤ë'(_²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó,_Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- findall(_¹Ô,( 'Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤Ç¤Ï¤Ê¤¤'(_²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó,_¹Ô)),_Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤òºï½ü¤µ¤ì¤¿¹Ô¤Ê¤é¤Ó), atomic_list_concat(_Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤òºï½ü¤µ¤ì¤¿¹Ô¤Ê¤é¤Ó,_Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó). 'Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô¤Ç¤Ï¤Ê¤¤'(_²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó,_¹Ô) :- member(_¹Ô,_²þ¹Ôµ¹æÉÕ¤¤Î¹Ô¤Ê¤é¤Ó), \+('Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô'(_¹Ô)). 'Example¤Îʸ»úÎó¤ò´Þ¤Þ¤Ê¤¤¹Ô'(_¹Ô) :- \+(sub_atom(_¹Ô,_,_,_,'Example')). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://toro.2ch.net/test/read.cgi/tech/1387257592/263 # ¡üRegular Expression¤Î»ÈÍѴĶ # Javascript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # '1'¤ò´Þ¤Þ¤Ê¤¤ABC¤«¤éDEF¤Þ¤Ç¤òºï½ü¤·¤¿¤¤¤Ç¤¹ # # ¡üÂоݥǡ¼¥¿ # ABC # 1 # DEF # # ABC # 2 # DEF # # ABC # 3 # DEF # # ¡ü´õ˾¤¹¤ë·ë²Ì # ABC # 1 # DEF # # '''1''¤ò´Þ¤Þ¤Ê¤¤ABC¤«¤éDEF¤Þ¤Ç¤òºï½ü¤·¤¿¤¤¤Ç¤¹'(_ʸ»úÎó,_´õ˾¤¹¤ë·ë²Ì) :- atom_char(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), '''1''¤ò´Þ¤Þ¤Ê¤¤''A'',''B'',''C''¤«¤é''D'',''E'',''F''¤Þ¤Ç¤ò¤Ê¤é¤Ó¤«¤éºï½ü¤·¤¿¤¤¤Ç¤¹'(_ʸ»ú¤Ê¤é¤Ó,L), atomic_list_concat(L,_´õ˾¤¹¤ë·ë²Ì). '''1''¤ò´Þ¤Þ¤Ê¤¤''A'',''B'',''C''¤«¤é''D'',''E'',''F''¤Þ¤Ç¤ò¤Ê¤é¤Ó¤«¤éºï½ü¤·¤¿¤¤¤Ç¤¹'([],[]). '''1''¤ò´Þ¤Þ¤Ê¤¤''A'',''B'',''C''¤«¤é''D'',''E'',''F''¤Þ¤Ç¤ò¤Ê¤é¤Ó¤«¤éºï½ü¤·¤¿¤¤¤Ç¤¹'(_ʸ»ú¤Ê¤é¤Ó,L) :- '''1''¤ò´Þ¤Þ¤Ê¤¤''A'',''B'',''C''¤«¤é''D'',''E'',''F''¤Þ¤Ç¤ò'(_ʸ»úÎó,L3), '''1''¤ò´Þ¤Þ¤Ê¤¤''A'',''B'',''C''¤«¤é''D'',''E'',''F''¤Þ¤Ç¤ò¤Ê¤é¤Ó¤«¤éºï½ü¤·¤¿¤¤¤Ç¤¹'(L3,L),!. '''1''¤ò´Þ¤Þ¤Ê¤¤ABC¤«¤éDEF¤Þ¤Ç¤òºï½ü¤·¤¿¤¤¤Ç¤¹'([A|R1],[A|R2]) :- '''1''¤ò´Þ¤Þ¤Ê¤¤''A'',''B'',''C''¤«¤é''D'',''E'',''F''¤Þ¤Ç¤ò¤Ê¤é¤Ó¤«¤éºï½ü¤·¤¿¤¤¤Ç¤¹'(R1,R2). '''1''¤ò´Þ¤Þ¤Ê¤¤''A'',''B'',''C''¤«¤é''D'',''E'',''F''¤Þ¤Ç¤ò'(_ʸ»úÎó,L3) :- append(['A','B','C'|L2],['D','E','F'|L3],_ʸ»ú¤Ê¤é¤Ó), \+(append(_,['A','B','C'|_],L2)), \+(append(_,['D','E','F'|_],L2)), \+(append(_,['1'|_],L2)),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://toro.2ch.net/test/read.cgi/tech/1387257592/189 # ¡üRegular Expression¤Î»ÈÍѴĶ # ruby # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¹ÔÃæ¤Î²þ¹Ô¤òºï½ü¤·¤¿¤¤ # °Ê²¼¤Ç¤ä¤ë¤È²þ¹Ô¤À¤±¤Ç¤Ê¤¯²þ¹Ô¤ÎÁ°¤Î°ìʸ»ú¤â²¿¸Î¤«¾Ã¤¨¤Æ¤¦¤Þ¤¯¤¤¤¤Þ¤»¤ó # Âоݥǡ¼¥¿¤Î¾ì¹ç¤Ï¡Ö¸µ¡×¤¬¾Ã¤¨¤Æ¤·¤Þ¤¤¤Þ¤¹ # # ruby -e 'puts open("input.txt").read.gsub(/[^¡£¥n]¥n/,"")' > output.txt # # ¡üÂоݥǡ¼¥¿ # ¤³¤ó¤Ë¤Á¤Ï¤ª¸µ # µ¤¤Ç¤¹¤«¡£ # »ä¤Ï¸µµ¤¤Ç¤¹¡£ # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤³¤ó¤Ë¤Á¤Ï¤ª¸µµ¤¤Ç¤¹¤«¡£ # »ä¤Ï¸µµ¤¤Ç¤¹¡£ # # ʸ»úÎóÃæ¤Î²þ¹Ô¤òºï½ü¤·¤¿¤¤(_ʸ»úÎó,_²þ¹Ô¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- findall(_ʸ»ú,( sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú), \+(_ʸ»ú = '\n')), _²þ¹Ô¤òºï½ü¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó), atomic_list_concat(_²þ¹Ô¤òºï½ü¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó,_²þ¹Ô¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê http://toro.2ch.net/test/read.cgi/tech/1363769640/325 # xyz ¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½ # # [regexp 60]¤è¤ê # # |fmcat =(retofm <<<'(x+y+z+a)*xyz(x+y+z+a)*'|fmcment) =(retofm <<<'xyz')|fmdeterm|fmmin|fmtore|perl -pe 'y/+/|/; s/a/[^xyz]/g' # |¤È¤·¤Æ¡¢ # |([^xyz]|y|z)*x(z([^xyz]|y|z)*x|[^xyz]([^xyz]|y|z)*x|x|yx|y[^xyz]([^xyz]|y|z)*x|yy([^xyz]|y|z)*x)*yz # # Á«°Ü¿Þ¤Ï # # x # <-----------+ # [^x] | x | # <----+ <----+ | # | | | | | # ¡À¡¿ x ¡À¡¿ y | z # £° ----> £± ----> £² ----> £³(DEAD) # | | | # | [^xy] | | # <----------+ | # | [^xz] | # <--------------------- # # ¡Öxyz ¤ò´Þ¤Þ¤Ê¤¤Ê¸»úÎó¡×¤ÎÅú¤Ï¡¢ # # ([^x]|x(y?x)*([^xy]|y[^xz]))*(x(y?x)*x?)? # # (x(y?x)*x?)? ¤ÎÉôʬ¤Ï¤³¤Î¾ì¹ç¤Ë¸Â¤ê (x|y)* ¤ÇÂåÍѤǤ¤ë¤«¤Ê # ¸å¡¢¤Ä¤ë¤«¤á»»¤ÎÍͤˡִª¡×¤Ç½ñ¤¤¤¿¤Î¤¬ # # [^x]*(x+(y|y[^xz][^x]*|[^xy][^x]*))* # # ¤Ç¤¹¤¬¤Á¤ç¤Ã¤È¼«¿®Ìµ¤· # 'xyz ¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó) :- 'xyz ¤ò´Þ¤Þ¤Ê¤¤¤â¤Î'(_ʸ»úÎó). 'xyz ¤ò´Þ¤Þ¤Ê¤¤¤â¤Î'(_ʸ»úÎó) :- \+('xyz ¤ò´Þ¤à'(_ʸ»úÎó)). 'xyz ¤ò´Þ¤à'(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,xyz). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://toro.2ch.net/test/read.cgi/tech/1387257592/14 # ¡üRegular Expression¤Î»ÈÍѴĶ # Perl # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¥ß¥É¥ë¥Í¡¼¥à¤ò´Þ¤à̾Á°¤â¡¢¥ß¥É¥ë¥Í¡¼¥à¤ò´Þ¤Þ¤Ê¤¤Ì¾Á°¤âʬ²ò¤·¤ÆÃê½Ð¤·¤¿¤¤ # ¤Þ¤¿¡¢Ì¾Á°¤Î¶èÀÚ¤ê¤Ï¥¹¥Ú¡¼¥¹¤ä¥É¥Ã¥È¤Ê¤É¿§¡¹¤Ê¤â¤Î¤ËÂбþ¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # Edward Snowden # Edward.Joseph.Snowden # ¥¨¥É¥ï¡¼¥É¡¦¥¹¥Î¡¼¥Ç¥ó # ¥¨¥É¥ï¡¼¥É¡á¥¸¥ç¥»¥Õ¡á¥¹¥Î¡¼¥Ç¥ó # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¡ÊÃͤòÆþ¤ì¤Æ¤¤¤ë¤ï¤±¤Ç¤Ï¤Ê¤¯¡¢$1¡Á$3¤ËÆþ¤Ã¤Æ¤¤¤ÆÍߤ·¤¤¤â¤Î¤Ç¤¹¡Ë # $1 = "Edward"¡¡¡¡¡¡$2 = ""¡¡¡¡¡¡$3 = "Snowden" # $1 = "Edward"¡¡¡¡¡¡$2 = "Joseph"¡¡¡¡¡¡$3 = "Snowden" # $1 = "¥¨¥É¥ï¡¼¥É"¡¡¡¡¡¡$2 = ""¡¡¡¡¡¡$3 = "¥¹¥Î¡¼¥Ç¥ó" # $1 = "¥¨¥É¥ï¡¼¥É"¡¡¡¡¡¡$2 = "¥¸¥ç¥»¥Õ"¡¡¡¡¡¡$3 = "¥¹¥Î¡¼¥Ç¥ó" # # '¥ß¥É¥ë¥Í¡¼¥à¤ò´Þ¤à̾Á°¤â¡¢¥ß¥É¥ë¥Í¡¼¥à¤ò´Þ¤Þ¤Ê¤¤Ì¾Á°¤âʬ²ò¤·¤ÆÃê½Ð¤·¤¿¤¤ ¤Þ¤¿¡¢Ì¾Á°¤Î¶èÀÚ¤ê¤Ï¥¹¥Ú¡¼¥¹¤ä¥É¥Ã¥È¤Ê¤É¿§¡¹¤Ê¤â¤Î¤ËÂбþ¤·¤¿¤¤'(_̾Á°,_¥Õ¥¡¡¼¥¹¥È¥Í¡¼¥à,_¥ß¥É¥ë¥Í¡¼¥à,_¥é¥¹¥È¥Í¡¼¥à) :- split(_̾Á°,[' ','.','=','¡¦','¡á'],L), ̾Á°¤Îʬ²ò(L,_¥Õ¥¡¡¼¥¹¥È¥Í¡¼¥à,_¥ß¥É¥ë¥Í¡¼¥à,_¥é¥¹¥È¥Í¡¼¥à),!. ̾Á°¤Îʬ²ò([_¥Õ¥¡¡¼¥¹¥È¥Í¡¼¥à,_¥é¥¹¥È¥Í¡¼¥à],_¥Õ¥¡¡¼¥¹¥È¥Í¡¼¥à,'',_¥é¥¹¥È¥Í¡¼¥à) :- !. ̾Á°¤Îʬ²ò([_¥Õ¥¡¡¼¥¹¥È¥Í¡¼¥à,_¥ß¥É¥ë¥Í¡¼¥à,_¥é¥¹¥È¥Í¡¼¥à],_¥Õ¥¡¡¼¥¹¥È¥Í¡¼¥à,_¥ß¥É¥ë¥Í¡¼¥à,_¥é¥¹¥È¥Í¡¼¥à). split(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- ¶èÀÚ¤êʸ»ú¤Ç¶èÀڤäƹԤ¯(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó). split(_ʸ»úÎó,_,[_ʸ»úÎó]). ¶èÀÚ¤êʸ»ú¤Ç¶èÀڤäƹԤ¯(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,[_Á°Ê¸»úÎó|R]) :- ¶èÀÚ¤êʸ»ú¤Ç(_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_¶èÀÚ¤êʸ»úÎó), ¶èÀڤäƹԤ¯(_ʸ»úÎó,_¶èÀÚ¤êʸ»ú¤Ê¤é¤Ó,_Á°Ê¸»úÎó,_¶èÀÚ¤êʸ»úÎó,_¸åʸ»úÎó,R). ¶èÀÚ¤êʸ»ú¤Ç(_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_¶èÀÚ¤êʸ»úÎó) :- member(_¶èÀÚ¤êʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó). ¶èÀڤäƹԤ¯(_ʸ»úÎó,_¶èÀÚ¤êʸ»ú¤Ê¤é¤Ó,_Á°Ê¸»úÎó,_¶èÀÚ¤êʸ»úÎó,_¸åʸ»úÎó,R) :- sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_¶èÀÚ¤êʸ»úÎó,_¸åʸ»úÎó), split(_¸åʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,R). sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_Ŭ¹çʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê http://toro.2ch.net/test/read.cgi/tech/1387257592/131 # ¤¹¤¤¤Þ¤»¤ó¡£VBScript¤Ç # Ãê½Ð¤·¤¿Ê¸»úÎó¤Ë¥À¥Ö¤ê¤¬¤¢¤ê¤Þ¤¹¡£ # Îã¡§ # AAA # BBB # AAA # CCC # BBB # CCC # ¤³¤ì¤ò # AAA # BBB # CCC # ¤Î¤è¤¦¤ËÃê½Ð¤·Ä¾¤¹¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Ç¤·¤ç¤¦¤«¡© 'Ãê½Ð¤·¤¿Ê¸»úÎó¤Ë¥À¥Ö¤ê¤¬¤¢¤ê¤Þ¤¹¡£\\nÎã¡§\\nAAA\\nBBB\\nAAA\\nCCC\\nBBB\\nCCC\\n¤³¤ì¤ò\\nAAA\\nBBB\\nCCC\\n¤Î¤è¤¦¤ËÃê½Ð¤·Ä¾¤¹¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Ç¤·¤ç¤¦¤«¡©'(_ʸ»úÎó¤Ê¤é¤Ó,_Ãê½Ð¤·Ä¾¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- findall(_ʸ»úÎó,( append(L1,[_ʸ»úÎó|R],_ʸ»úÎó¤Ê¤é¤Ó), \+(member(_ʸ»úÎó,L1))), _Ãê½Ð¤·Ä¾¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://toro.2ch.net/test/read.cgi/tech/1362913813/854 # ¡üRegular Expression¤Î»ÈÍѴĶ # Becky! Internet Mail Ver.2 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # +0900¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤ò¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # +0900 # +0500 # +0630 # # ¡ü´õ˾¤¹¤ë·ë²Ì # +0500 # +0630 # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # '+0900¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤ò¸¡º÷¤·¤¿¤¤'(_ʸ»úÎó) :- ¹Ô¤Ê¤é¤ÓÆþÎÏ(_¹Ô¤Ê¤é¤Ó), '+0900¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤ò¸¡º÷¤·¤¿¤¤'(_¹Ô¤Ê¤é¤Ó,_ʸ»úÎó). '+0900¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤ò¸¡º÷¤·¤¿¤¤'(_¹Ô¤Ê¤é¤Ó,_ʸ»úÎó) :- member(_ʸ»úÎó,_¹Ô¤Ê¤é¤Ó), '+0900¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤ò'(_ʸ»úÎó). '+0900¤ò´Þ¤Þ¤Ê¤¤¤â¤Î¤ò'(_ʸ»úÎó) :- \+(sub_atom(_ʸ»úÎó,_,_,_,'+0900')). ¹Ô¤Ê¤é¤ÓÆþÎÏ([]) :- at_end_of_stream(user_input),!. ¹Ô¤Ê¤é¤ÓÆþÎÏ(_¹Ô¤Ê¤é¤Ó) :- ¹Ô¤òÆþÎϤ·¤Æ¹Ô¤¯(_¹Ô¤Ê¤é¤Ó) :- ¹Ô¤òÆþÎϤ·¤Æ¹Ô¤¯([_¹Ô|_»Ä¤ê¹Ô¤Ê¤é¤Ó]) :- ¹ÔÆþÎÏ(_¹Ô), ¹Ô¤Ê¤é¤ÓÆþÎÏ(_»Ä¤ê¹Ô¤Ê¤é¤Ó). ¹ÔÆþÎÏ(_¹Ô) :- read_line_to_codes(user_input,Codes), atom_codes(_¹Ô,Codes). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://toro.2ch.net/test/read.cgi/tech/1362913813/844 # ¤¿¤Ö¤ó¤ä¤ê¤¿¤¤¤³¤È¤Ï¤³¤¦¤À¤í¤¦¡£¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð¥¨¥é¡¼¤ò½Ð¤¹¡£ # # [[ "$A" =~ [^0-9] ]] && echo "not number" # ¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð¥¨¥é¡¼¤ò½Ð¤¹(_ʸ»úÎó) :- forall(sub_atom(_ʸ»úÎó,_,1,_,A),member(A,['0','1','2','3','4','5','6','7','8','9'])),!. ¿ô»ú°Ê³°¤Îʸ»ú¤¬1ʸ»ú¤Ç¤â¤¢¤ì¤Ð¥¨¥é¡¼¤ò½Ð¤¹(_) :- write('¥¨¥é¡¼\n'). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Regular Expression(Àµµ¬É½¸½) Part11 #843 # ^[^0-9]+$ ¤Ï¿ô»ú°Ê³°¤À¤±¤Îʸ»úÎó¤Î¾ì¹ç¥Ò¥Ã¥È¡¢¿ô»úº®¤¸¤ê¤À¤ÈÀäÂХҥåȤ·¤Ê¤¤ '¿ô»ú°Ê³°¤À¤±¤Îʸ»úÎó¤Î¾ì¹ç¥Ò¥Ã¥È¡¢¿ô»úº®¤¸¤ê¤À¤ÈÀäÂХҥåȤ·¤Ê¤¤ '(_ʸ»úÎó) :- '¿ô»ú°Ê³°¤À¤±¤Îʸ»úÎó¤Î¾ì¹ç¥Ò¥Ã¥È¡¢'(_ʸ»úÎó). '¿ô»ú°Ê³°¤À¤±¤Îʸ»úÎó¤Î¾ì¹ç¥Ò¥Ã¥È¡¢¿ô»úº®¤¸¤ê¤À¤ÈÀäÂХҥåȤ·¤Ê¤¤ '(_ʸ»úÎó) :- '¿ô»úº®¤¸¤ê¤À¤ÈÀäÂХҥåȤ·¤Ê¤¤ '(_ʸ»úÎó). '¿ô»ú°Ê³°¤À¤±¤Îʸ»úÎó¤Î¾ì¹ç¥Ò¥Ã¥È¡¢'(_ʸ»úÎó) :- forall(sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú),¿ô»ú°Ê³°(_ʸ»ú)). ¿ô»ú°Ê³°(_ʸ»ú) :- \+(¿ô»ú(_ʸ»ú)). ¿ô»ú(_¿ô»ú) :- member(_¿ô»ú,['0','1','2','3','4','5','6','7','8','9']). '¿ô»úº®¤¸¤ê¤À¤ÈÀäÂХҥåȤ·¤Ê¤¤ '(_ʸ»úÎó) :- '¿ô»úº®¤¸¤ê¤À¤È'(_ʸ»úÎó),!,fail. '¿ô»úº®¤¸¤ê¤À¤È'(_ʸ»úÎó) :- ʸ»úÎó¤ÎÃæ¤Ë¿ô»ú¤¬¤¢¤ë(_ʸ»úÎó). ʸ»úÎó¤ÎÃæ¤Ë¿ô»ú¤¬¤¢¤ë(_ʸ»úÎó) :- ʸ»úÎó¤ÎÃæ¤Ë(_ʸ»úÎó), ¿ô»ú¤¬¤¢¤ë(_ʸ»úÎó). ʸ»úÎó¤ÎÃæ¤Ë(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú), ¿ô»ú°Ê³°(ʸ»ú). ¿ô»ú¤¬¤¢¤ë(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,1,_,_¿ô»ú), ¿ô»ú(_¿ô»ú). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://toro.2ch.net/test/read.cgi/tech/1362913813/843 # ^[^0-9]+$ ¤Ï¿ô»ú°Ê³°¤À¤±¤Îʸ»úÎó¤Î¾ì¹ç¥Ò¥Ã¥È¡¢¿ô»úº®¤¸¤ê¤À¤ÈÀäÂХҥåȤ·¤Ê¤¤ '¿ô»ú°Ê³°¤À¤±¤Îʸ»úÎó¤Î¾ì¹ç¥Ò¥Ã¥È¡¢¿ô»úº®¤¸¤ê¤À¤ÈÀäÂХҥåȤ·¤Ê¤¤ '(_ʸ»úÎó) :- \+((sub_atom(_ʸ»úÎó,_,1,_,A),member(A,['0','1','2','3','4','5','6','7','8','9']))). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê # # ¡üRegular Expression¤Î»ÈÍѴĶ # Python3.3 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¶ÑÅù³ä¤ê¤Ë¤·¤Æ¤¤¤ë¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤ # °ìʸ»ú¤º¤Ä¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤¤¤ëʸ»ú¤Î¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤¢¡¡¤¤¡¡¤¦¡¡¤¨¡¡¤ª # ¤«¤¡¡¤¯¤±¡¡¤³¤³ # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤¢¤¤¤¦¤¨¤ª # ¤«¤¡¡¤¯¤±¡¡¤³¤³ # '°ìʸ»ú¤º¤Ä¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤¤¤ëʸ»úÎó¤Î¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_¥¹¥Ú¡¼¥¹¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- atom_chars(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), '°ìʸ»ú¤º¤Ä¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤¤¤ëʸ»ú¤Ê¤é¤Ó¤Î¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤'(_ʸ»ú¤Ê¤é¤Ó,_¥¹¥Ú¡¼¥¹¤òºï½ü¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó), atom_chars(_¥¹¥Ú¡¼¥¹¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó,_¥¹¥Ú¡¼¥¹¤òºï½ü¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó). '°ìʸ»ú¤º¤Ä¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤¤¤ëʸ»ú¤Ê¤é¤Ó¤Î¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤'([_ʸ»ú],[_ʸ»ú]) :- \+(_ʸ»ú=' '). '°ìʸ»ú¤º¤Ä¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤¤¤ëʸ»ú¤Ê¤é¤Ó¤Î¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤'([_ʸ»ú,' '|R1],[_ʸ»ú|R2]) :- '°ìʸ»ú¤º¤Ä¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤¤¤ëʸ»ú¤Ê¤é¤Ó¤Î¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤'(R1,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê # # ¡üRegular Expression¤Î»ÈÍѴĶ # Python3.3 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¶ÑÅù³ä¤ê¤Ë¤·¤Æ¤¤¤ë¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤ # °ìʸ»ú¤º¤Ä¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤¤¤ëʸ»ú¤Î¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤¢¡¡¤¤¡¡¤¦¡¡¤¨¡¡¤ª # ¤«¤¡¡¤¯¤±¡¡¤³¤³ # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤¢¤¤¤¦¤¨¤ª # ¤«¤¡¡¤¯¤±¡¡¤³¤³ # ¶ÑÅù³ä¤ê¤Ë¤·¤Æ¤¤¤ë¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿¤¤(_ʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ,_¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿Ê¸»úÎó) :- ¶ÑÅù³äʸ»úÎó(_ʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ,_¶ÑÅù³äʸ»úÎó¤Ê¤é¤Ó), atomic_list_concat(_¶ÑÅù³äʸ»úÎó¤Ê¤é¤Ó,_¥¹¥Ú¡¼¥¹¤òºï½ü¤·¤¿Ê¸»úÎó). ¶ÑÅù³äʸ»úÎó(_ʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ,[_ʸ»úÎó]) :- 'ʸ»úÎ󤬶ÑÅù³äʸ»úŤµ¤Ç¤¢¤ê¡¢¹½À®¤¹¤ëʸ»úÁ´¤Æ¤¬¥¹¥Ú¡¼¥¹¤Ç¤Ï¤Ê¤¤'(_ʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ). ¶ÑÅù³äʸ»úÎó(_ʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ,[_Á°Ê¸»úÎó|R]) :- ¶ÑÅù³äÉûʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,_Á°Ê¸»úÎó,_¥¹¥Ú¡¼¥¹Ê¸»úÎó,_¸åʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ), ¶ÑÅù³äʸ»úÎó(_¸åʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ,R). 'ʸ»úÎ󤬶ÑÅù³äʸ»úŤµ¤Ç¤¢¤ê¡¢¹½À®¤¹¤ëʸ»úÁ´¤Æ¤¬¥¹¥Ú¡¼¥¹¤Ç¤Ï¤Ê¤¤'(_ʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ) :- ʸ»úÎó¤ò¹½À®¤¹¤ëʸ»úÁ´¤Æ¤¬¥¹¥Ú¡¼¥¹¤Ç¤Ï¤Ê¤¤(_ʸ»úÎó), atom_length(_ʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ). ¶ÑÅù³äÉûʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,_Á°Ê¸»úÎó,_¥¹¥Ú¡¼¥¹Ê¸»úÎó,_¸åʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ) :- 'Á°Ê¸»úÎ󡦥¹¥Ú¡¼¥¹Ê¸»úÎ󡦸åʸ»úÎó¸õÊä'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¥¹¥Ú¡¼¥¹Ê¸»úÎó,_¸åʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ), 'Á°Ê¸»úÎó¤Ï¶õʸ»ú¤Ç¤Ê¤¯Á´¤ÆÊ¸»ú¡¢¥¹¥Ú¡¼¥¹Ê¸»úÎó¤Ï¶õʸ»ú¤Ç¤Ê¤¯Á´¤Æ¥¹¥Ú¡¼¥¹'(_Á°Ê¸»úÎó,_¥¹¥Ú¡¼¥¹Ê¸»úÎó), ¸åʸ»úÎó¤ÎÀèÆ¬Ê¸»ú¤Ï¥¹¥Ú¡¼¥¹¤Ç¤Ï¤Ê¤¤(_¸åʸ»úÎó). 'Á°Ê¸»úÎ󡦥¹¥Ú¡¼¥¹Ê¸»úÎ󡦸åʸ»úÎó¸õÊä'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¥¹¥Ú¡¼¥¹Ê¸»úÎó,_¸åʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ) :- sub_atom(_ʸ»úÎó,_¶ÑÅù³äʸ»úÎóŤµ,_,R,_¥¹¥Ú¡¼¥¹Ê¸»úÎó), sub_atom(_ʸ»úÎó,0,_¶ÑÅù³äʸ»úÎóŤµ,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). 'Á°Ê¸»úÎó¤Ï¶õʸ»ú¤Ç¤Ê¤¯Á´¤ÆÊ¸»ú¡¢¥¹¥Ú¡¼¥¹Ê¸»úÎó¤Ï¶õʸ»ú¤Ç¤Ê¤¯Á´¤Æ¥¹¥Ú¡¼¥¹'(_Á°Ê¸»úÎó,_¥¹¥Ú¡¼¥¹Ê¸»úÎó) :- Á°Ê¸»úÎó¤Ï¶õʸ»ú¤Ç¤Ê¤¯Á´¤ÆÊ¸»ú(_Á°Ê¸»úÎó), ¥¹¥Ú¡¼¥¹Ê¸»úÎó¤Ï¶õʸ»ú¤Ç¤Ê¤¯Á´¤Æ¥¹¥Ú¡¼¥¹(_¥¹¥Ú¡¼¥¹Ê¸»úÎó). Á°Ê¸»úÎó¤Ï¶õʸ»ú¤Ç¤Ê¤¯Á´¤ÆÊ¸»ú(_Á°Ê¸»úÎó) :- ¶õʸ»ú¤Ç¤Ï¤Ê¤¯(_Á°Ê¸»úÎó), ʸ»úÎó¤ò¹½À®¤¹¤ëʸ»úÁ´¤Æ¤¬¥¹¥Ú¡¼¥¹¤Ç¤Ï¤Ê¤¤(_Á°Ê¸»úÎó). ¥¹¥Ú¡¼¥¹Ê¸»úÎó¤Ï¶õʸ»ú¤Ç¤Ê¤¯Á´¤Æ¥¹¥Ú¡¼¥¹(_¥¹¥Ú¡¼¥¹Ê¸»úÎó) :- ¶õʸ»ú¤Ç¤Ï¤Ê¤¯(_¥¹¥Ú¡¼¥¹Ê¸»úÎó), ʸ»úÎó¤ò¹½À®¤¹¤ëʸ»úÁ´¤Æ¤¬¥¹¥Ú¡¼¥¹¤Ç¤¢¤ë(_¥¹¥Ú¡¼¥¹Ê¸»úÎó). ¶õʸ»ú¤Ç¤Ï¤Ê¤¯(_ʸ»úÎó) :- \+(_ʸ»úÎó=''). ¸åʸ»úÎó¤ÎÀèÆ¬Ê¸»ú¤Ï¥¹¥Ú¡¼¥¹¤Ç¤Ï¤Ê¤¤(_¸åʸ»úÎó) :- \+(sub_atom(_¸åʸ»úÎó,0,1,_,' ')). ʸ»úÎó¤ò¹½À®¤¹¤ëʸ»úÁ´¤Æ¤¬¥¹¥Ú¡¼¥¹¤Ç¤Ï¤Ê¤¤(_ʸ»úÎó) :- forall(sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú),\+(_ʸ»ú=' ')). ʸ»úÎó¤ò¹½À®¤¹¤ëʸ»úÁ´¤Æ¤¬¥¹¥Ú¡¼¥¹¤Ç¤¢¤ë(_ʸ»úÎó) :- forall(sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú),_ʸ»ú=' '). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/779 # ¡üRegular Expression¤Î»ÈÍѴĶ # Perl(Emeditor) # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ³Æ¹Ô¤Î1ÈÖÌܤÎA¤Þ¤Ç¤ò¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤ªÆùÎÁÍý # ¤ªµûÎÁÍý # ÎÁÍý # # # ¡ü´õ˾¤¹¤ë·ë²Ì # 3¹ÔÌܤÎ"ÎÁÍý"¤Î¤ß¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¤Ç¤¹¡£ '³Æ¹Ô¤Î1ÈÖÌܤÎA¤Þ¤Ç¤ò¸¡º÷¤·¤¿¤¤¡£¤¿¤À¤·Á°Éô¤Ë´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì¤¬Â¸ºß¤·¤Þ¤¹¡£'(_ʸ»úÎó,_A,_Á°Ê¸»úÎó,_A,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_A,_¸åʸ»úÎó), forall(´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì(_A,_´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì),\+(sub_atom(_Á°Ê¸»úÎó,_,_,0,_´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì))),!. ´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì(ÎÁÍý,¤ªÆù). ´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì(ÎÁÍý,¤ªµû). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/779 # ¡üRegular Expression¤Î»ÈÍѴĶ # Perl(Emeditor) # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ³Æ¹Ô¤Î1ÈÖÌܤÎA¤Þ¤Ç¤ò¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤ªÆùÎÁÍý # ¤ªµûÎÁÍý # ÎÁÍý # # # ¡ü´õ˾¤¹¤ë·ë²Ì # 3¹ÔÌܤÎ"ÎÁÍý"¤Î¤ß¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¤Ç¤¹¡£ # '³Æ¹Ô¤Î1ÈÖÌܤÎA¤Þ¤Ç¤ò¸¡º÷¤·¤¿¤¤¡£¤¿¤À¤·Á°Éô¤Ë´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì¤¬Â¸ºß¤·¤Þ¤¹¡£'(_ʸ»úÎó,_A,_Á°Ê¸»úÎó,_A,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,Len,R,_A), sub_atom(_ʸ»úÎó,0,S,0,_Á°Ê¸»úÎó), forall(´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì(_A,_´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì),\+(sub_atom(_Á°Ê¸»úÎó,_,_,0,_´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì))), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). ´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì(ÎÁÍý,¤ªÆù). ´÷Èò¤¹¤ëÏ¢Àܤ·¤¿¸ì(ÎÁÍý,¤ªµû). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # @1to100pen: # git grep -e abc --and -e 123 ¤Ç¡Öabc¡×¤È¡Ö123¡×¤¬½çÉÔÆ±¤ÇξÊý¤¬¸½¤ì¤ë¹Ô¤ò¸¡º÷¤Ç¤¤ë --and ¥ª¥×¥·¥ç¥ó¤òÃΤä¿¡£¡Êgrep¥³¥Þ¥ó¥É¤Ç¤Ï grep abc | grep 123 ¤ß¤¿¤¤¤Ë¤·¤Ê¤¤¤È¤Ç¤¤Ê¤¤¡Ë 'git grep -e abc --and -e 123 ¤Ç¡Öabc¡×¤È¡Ö123¡×¤¬½çÉÔÆ±¤ÇξÊý¤¬¸½¤ì¤ë¹Ô¤ò¸¡º÷¤Ç¤¤ë'(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,'abc'), sub_atom(_ʸ»úÎó,_,_,_,'123'). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/758 # ¤¢¤ë¥·¥¹¥Æ¥à¤Ë¥Ç¥Ð¥¤¥¹¤Î¥·¥ê¥¢¥ë¤òÅÐÏ¿¤¹¤ë¤Î¤Ç¤¹¤¬¡¢¥·¥ê¥¢¥ë¤ËȾ³Ñ¥¹¥Ú¡¼¥¹¤¬Æþ¤Ã¤Æ¤¤¤ë¤ÈÀµ¾ï¤ËÅÐÏ¿¤¬¤Ç¤¤Þ¤»¤ó¡£ # Àµµ¬É½¸½¤¬»È¤¨¤ë¤è¤¦¤Ê¤Î¤Ç¡¢¼ÁÌä¤Ç¤¹¤¬¡¢²¼µ¤Î¥·¥ê¥¢¥ë¤òÀµµ¬É½¸½¤Çɽµ¤¹¤ë¤Ë¤Ï¤É¤¦É½µ¤¹¤ì¤ÐÎɤ¤¤Ç¤·¤ç¤¦¤«¡£ #
# ¾åµ¥·¥ê¥¢¥ë¤ÏÆó¤Ä¤Îʸ»úÎó´Ö¤ËȾ³Ñ¥¹¥Ú¡¼¥¹¤¬12¸Ä´Þ¤ó¤Ç¤¤¤Þ¤¹¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ 'Æó¤Ä¤Îʸ»úÎó´Ö¤ËȾ³Ñ¥¹¥Ú¡¼¥¹¤¬12¸Ä´Þ¤ó¤Ç¤¤¤Þ¤¹¡£'(_ʸ»úÎó,_°ì¤ÄÌܤÎʸ»úÎó,_Æó¤ÄÌܤÎʸ»úÎó) :- sub_atom(_ʸ»úÎó,_°ì¤ÄÌܤÎʸ»úÎó,' ',_Æó¤ÄÌܤÎʸ»úÎó,[A|L1],L2,[B|L3]), \+(member(' ',[A|L1])), \+(member(' ',[B|L3])). sub_atom(A,H,X,T,HL,XL,TL) :- sub_atom(A,_,_,_,H,X,T,HL,XL,TL). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # wsh¤Îjscript¤Ç # abc123def456 # ¤³¤ì¤Îc¤È1¤Î´Ö¤Èf¤È4¤Î´Ö¤À¤±¤Ë°ìÃפµ¤»¤ëÊýË¡¤Ê¤¤¤Ç¤¹¤«¤Í¡© # "abc123def456".split¤ËÅꤲ¤¿¤é["abc", "123def", "456"]¤¬Ê֤äƤ¯¤ë¤Î¤¬ÍýÁۤǤ¹ 'wsh¤Îjscript¤Ç abc123def456 ¤³¤ì¤Îc¤È1¤Î´Ö¤Èf¤È4¤Î´Ö¤À¤±¤Ë°ìÃפµ¤»¤ëÊýË¡¤Ê¤¤¤Ç¤¹¤«¤Í¡© "abc123def456".split¤ËÅꤲ¤¿¤é["abc", "123def", "456"]¤¬Ê֤äƤ¯¤ë¤Î¤¬ÍýÁۤǤ¹'(_ʸ»úÎó,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- 'ʸ»úÎó¤Î_ʸ»ú1¤È_ʸ»ú2¤Î´Ö¤È_ʸ»ú3¤È_ʸ»ú4¤Î´Ö¤À¤±¤Ë°ìÃפµ¤»¤ëÊýË¡¤Ê¤¤¤Ç¤¹¤«¤Í¡©'('abc123def456',c,'1',f,'4',_¶èÀÚ¤ê¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó). 'ʸ»úÎó¤Î_ʸ»ú1¤È_ʸ»ú2¤Î´Ö¤È_ʸ»ú3¤È_ʸ»ú4¤Î´Ö¤À¤±¤Ë°ìÃפµ¤»¤ëÊýË¡¤Ê¤¤¤Ç¤¹¤«¤Í¡©'(_ʸ»úÎó,_ʸ»ú1,_ʸ»ú2,_ʸ»ú3,_ʸ»ú4,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- sub_atom(_ʸ»úÎó,_,_ÂоݤȤ¹¤ëÉûʸ»úÎó,_), findall(_¶èÀÚ¤ê¸õÊä,( ÂоݤȤ¹¤ëÉûʸ»úÎó_ʸ»ú1¤È_ʸ»ú2¤Î´Ö¤È_ʸ»ú3¤È_ʸ»ú4¤Î´Ö¤À¤±¤Ë°ìÃפµ¤»¤ë(_ÂоݤȤ¹¤ëÉûʸ»úÎó,_¶èÀÚ¤ê¸õÊä)), _¶èÀÚ¤ê¸õÊä¤Ê¤é¤Ó), sPLIT(_ʸ»úÎó,_¶èÀÚ¤ê¸õÊä¤Ê¤é¤Ó,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó). ÂоݤȤ¹¤ëÉûʸ»úÎó¤Î_ʸ»ú1¤È_ʸ»ú2¤Î´Ö¤È_ʸ»ú3¤È_ʸ»ú4¤Î´Ö¤À¤±¤Ë°ìÃפµ¤»¤ë(_ÂоݤȤ¹¤ëÉûʸ»úÎó,_ʸ»ú1,_ʸ»ú2,_ʸ»ú3,_ʸ»ú4,_¶èÀÚ¤ê¸õÊä) :- ÀèÆ¬Ê¸»ú¤ÈËöÈøÊ¸»ú¤Î´Ö¤Îʸ»úÎó(_ÂоݤȤ¹¤ëÉûʸ»úÎó,_ʸ»ú1,_ʸ»ú2,_¶èÀÚ¤ê¸õÊä). ÂоݤȤ¹¤ëÉûʸ»úÎó¤Î_ʸ»ú1¤È_ʸ»ú2¤Î´Ö¤È_ʸ»ú3¤È_ʸ»ú4¤Î´Ö¤À¤±¤Ë°ìÃפµ¤»¤ë(_ÂоݤȤ¹¤ëÉûʸ»úÎó,_ʸ»ú1,_ʸ»ú2,_ʸ»ú3,_ʸ»ú4,_¶èÀÚ¤ê¸õÊä) :- ÀèÆ¬Ê¸»ú¤ÈËöÈøÊ¸»ú¤Î´Ö¤Îʸ»úÎó(_ÂоݤȤ¹¤ëÉûʸ»úÎó,_ʸ»ú3,_ʸ»ú4,_¶èÀÚ¤ê¸õÊä). ÀèÆ¬Ê¸»ú¤ÈËöÈøÊ¸»ú¤Î´Ö¤Îʸ»úÎó(_ÂоݤȤ¹¤ëÉûʸ»úÎó,_ÀèÆ¬Ê¸»ú,_ËöÈøÊ¸»ú,_ÀèÆ¬Ê¸»ú¤ÈËöÈøÊ¸»ú¤Î´Ö¤Îʸ»úÎó) :- sub_atom(_ÂоݤȤ¹¤ëÉûʸ»úÎó,0,1,_,_ÀèÆ¬Ê¸»ú), sub_atom(_ÂоݤȤ¹¤ëÉûʸ»úÎó,_,1,0,_ËöÈøÊ¸»ú), sub_atom(_ÂоݤȤ¹¤ëÉûʸ»úÎó,1,_,1,_ÀèÆ¬Ê¸»ú¤ÈËöÈøÊ¸»ú¤Î´Ö¤Îʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/689 # ¡üJava1.5 # ¡ü¸¡º÷ # ¡ü¿¿¤óÃæ¤Î£Á¤òÈÝÄê¡¡¤«¤Ä¡¡£Á¤¬´Þ¤Þ¤ì¤ë ¤Ë¥Þ¥Ã¥Á¤¹¤ë¤« # # ¡üÂоݥǡ¼¥¿ £³·å¸ÂÄê # ABC true # BAC false # CBA true # DEF false # # .*1.* & ^.[^9].* # ¤³¤ó¤ÊÀµµ¬¤ò»È¤Ã¤¿¤Î¤Ç¤¹¤¬¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£ # µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # '¿¿¤óÃæ¤Î£Á¤òÈÝÄê¡¡¤«¤Ä¡¡£Á¤¬´Þ¤Þ¤ì¤ë ¤Ë¥Þ¥Ã¥Á¤¹¤ë¤«(Âоݥǡ¼¥¿ £³·å¸ÂÄê)'(_Âоݥǡ¼¥¿,_£Á) :- '¿¿¤óÃæ¤Î£Á¤òÈÝÄê(Âоݥǡ¼¥¿ £³·å¸ÂÄê)'(_Âоݥǡ¼¥¿,_£Á), '£Á¤¬´Þ¤Þ¤ì¤ë(Âоݥǡ¼¥¿ £³·å¸ÂÄê)'(_Âоݥǡ¼¥¿,_£Á). '¿¿¤óÃæ¤Î£Á¤òÈÝÄê(Âоݥǡ¼¥¿ £³·å¸ÂÄê)'(_Âоݥǡ¼¥¿,_£Á) :- \+(sub_atom(_Âоݥǡ¼¥¿,1,1,1,_£Á)). '£Á¤¬´Þ¤Þ¤ì¤ë(Âоݥǡ¼¥¿ £³·å¸ÂÄê)'(_Âоݥǡ¼¥¿,_£Á) :- sub_atom(_Âоݥǡ¼¥¿,_,1,_,_£Á). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # # ¡üRegular Expression¤Î»ÈÍѴĶ # Visual C# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # Ʊ¤¸Ê¸»ú¤¬5²ó°Ê¾å·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë²Õ½ê¤Î¤¢¤ë¹Ô¤ò¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿¢ª·ë²Ì # ¤¦¤ï¤¢¤¢¤¢¤¢¤¢¤¤¡¡¢ª¡¡¥Þ¥Ã¥Á # aaaaaaaa¡¡¡¡¡¡¡¡¡¡¡¡¢ª¡¡¥Þ¥Ã¥Á # ¤¢¤¤¤¢¤¤¤¢¤¤¡¡¡¡¡¡¢ª¡¡¥Þ¥Ã¥Á¤»¤º # Ʊ¤¸Ê¸»ú¤¬5²ó°Ê¾å·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë²Õ½ê¤Î¤¢¤ë¹Ô¤ò¸¡º÷¤·¤¿¤¤(_ʸ»úÎó,_¹Ô) :- split(_ʸ»úÎó,['\n'],_¹Ô¤Ê¤é¤Ó), Ʊ¤¸Ê¸»ú¤¬5²ó°Ê¾å·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë²Õ½ê¤Î¤¢¤ë¹Ô¤Ê¤é¤Ó¤ò¸¡º÷¤¹¤ë(_¹Ô¤Ê¤é¤Ó,_¹Ô). Ʊ¤¸Ê¸»ú¤¬5²ó°Ê¾å·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë²Õ½ê¤Î¤¢¤ë¹Ô¤Ê¤é¤Ó¤ò¸¡º÷¤¹¤ë(_¹Ô¤Ê¤é¤Ó,_¹Ô) :- nth1(_,_¹Ô¤Ê¤é¤Ó,_¹Ô), Ʊ¤¸Ê¸»ú¤¬5²ó°Ê¾å·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë²Õ½ê¤Î¤¢¤ë¹Ô(_¹Ô). Ʊ¤¸Ê¸»ú¤¬5²ó°Ê¾å·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë²Õ½ê¤Î¤¢¤ë¹Ô(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,5,_,_Ŭ¹çʸ»úÎó), atom_chars(_Ŭ¹çʸ»úÎó,[A,A,A,A,A]),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # "0000000000"¤Î¤è¤¦¤Êʸ»úÎó¤òÍѰդ·¤Æ¤ª¤¤¤Æ¡¢"123" ¤Î¤è¤¦¤Ê # Ǥ°Õ¤Îʸ»úÎó¤ò"0000000123"¤Î¤è¤¦¤ËÃÖ¤´¹¤¨¤ë¤Î¤Ã¤Æ´Êñ¤Ë¤Ç¤¤Þ¤¹¤«¡© # ÃÖ¤´¹¤¨¤ëÊý¤Îʸ»úÎó¤Ï£³·å¤¸¤ã¤Ê¤¯¤Æ¡¢¤¤¤í¤ó¤Ê¿ô»ú¤¬¤¢¤êÆÀ¤Þ¤¹¡£ # # C¸À¸ì¤Ç¤¤¤¦sprintf(%10d, 123)¤ß¤¿¤¤¤Ê¥Õ¥©¡¼¥Þ¥Ã¥È¤òÀµµ¬É½¸½¤Ç´Êñ¤Ë # ºÆ¸½¤Ç¤¤Þ¤¹¤«¡© '"0000000000"¤Î¤è¤¦¤Êʸ»úÎó¤òÍѰդ·¤Æ¤ª¤¤¤Æ¡¢"123" ¤Î¤è¤¦¤Ê Ǥ°Õ¤Îʸ»úÎó¤ò"0000000123"¤Î¤è¤¦¤ËÃÖ¤´¹¤¨¤ë¤Î¤Ã¤Æ´Êñ¤Ë¤Ç¤¤Þ¤¹¤«¡© ÃÖ¤´¹¤¨¤ëÊý¤Îʸ»úÎó¤Ï£³·å¤¸¤ã¤Ê¤¯¤Æ¡¢¤¤¤í¤ó¤Ê¿ô»ú¤¬¤¢¤êÆÀ¤Þ¤¹¡£'(_ÃÖ´¹ÂоÝʸ»úÎó,_ÃÖ´¹Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- atom_length(_ÃÖ´¹Ê¸»úÎó,_ʸ»úĹ), sub_atom(_ÃÖ´¹ÂоÝʸ»úÎó,S1,S2,S3), atom_length(S2,_ʸ»úĹ), atomic_list_concat([S1,_ÃÖ´¹Ê¸»úÎó,S3],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). % *** user: sub_atom / 4 *** sub_atom(A,H,X,T) :- atomic(X), atom_chars(A,L), atom_chars(X,XL), sub_atom_2(L,S,Len,R,HL,XL,TL), atom_chars(H,HL), atom_chars(X,XL), atom_chars(T,TL). sub_atom(A,H,X,T) :- var(X), atom_chars(A,L), sub_atom_2(L,S,Len,R,HL,XL,TL), atom_chars(H,HL), atom_chars(X,XL), \+(XL = []), atom_chars(T,TL). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ¤¤¤í¤¤¤í¤Ê´Ä¶¤ÎÃæ¤Ë¤Ï¡¢ÀèÆÉ¤ß¤ÎÈÝÄê¤Ç¤¢¤ë¡¡(?! )¡¡¤¬ # »È¤¨¤Ê¤¤´Ä¶¤¬¤¢¤ê¤Þ¤¹¡£¡¡¤³¤Î¤è¤¦¤Ê´Ä¶¤Ç¤Ï¡¢ # ¡ÖABC¡× ¤È¤¤¤¦Ê¸»úÎó¤ò´Þ¤Þ¤Ê¤¤ # ¤È¤¤¤¦¤è¤¦¤Ê¡¢Ê¸»úÎó¤ÎÈÝÄê¤ò¤¹¤ëÀµµ¬É½¸½¤òºî¤ë¤Î¤Ï # ¤È¤Æ¤âÆñ¤·¤¤ºî¶È¤Ë¤Ê¤ê¤Þ¤¹ # ¢¨¡¡(?! ) ¤¬»È¤¨¤ë´Ä¶¤Ç¤Îºî¤êÊý¤Ï ¤³¤Á¤é ¡£ # # ¤Ç¤Ï¡¢Îã¤È¤·¤Æ¡¢ # °Ê²¼¤Î¤è¤¦¤Ê¥Æ¥¥¹¥È¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤ò¹Í¤¨¤Æ¤ß¤Þ¤·¤ç¤¦¡ú # ¡¦ ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤¬ AA ¤«¤é»Ï¤Þ¤ë # ¡¦ ¥Æ¥¥¹¥È¤ÎËöÈø¤¬ AA ¤Ç½ª¤ï¤ë # ¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤ # '¡¦ ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤¬ AA ¤«¤é»Ï¤Þ¤ë ¡¦ ¥Æ¥¥¹¥È¤ÎËöÈø¤¬ AA ¤Ç½ª¤ï¤ë ¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤'(_¥Æ¥¥¹¥È) :- sub_atom(_¥Æ¥¥¹¥È,'AA',S2,'AA',_,_,_), \+(sub_atom(S2,_,_,_,'AA')). %%%%%%%% sub_atom/7 %%%%%%%% sub_atom(A,H,X,T,HL,XL,TL) :- atom(A), atom_chars(A,Chars), append(HL,XL,TL,Chars), 'HL_XL_TL_H_X_T'(HL,XL,TL,H,X,T). 'HL_XL_TL_H_X_T'(HL,XL,TL,H,X,T) :- \+(XL=[]), atom_chars(H,HL), atom_chars(X,XL), atom_chars(T,TL). %%%%%%%% append/4 %%%%%%%% append([],L2,L3,L4) :- append(L2,L3,L4). append([U|L1],L2,L3,[U|L4]) :- append(L1,L2,L3,L4). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ¤¤¤í¤¤¤í¤Ê´Ä¶¤ÎÃæ¤Ë¤Ï¡¢ÀèÆÉ¤ß¤ÎÈÝÄê¤Ç¤¢¤ë¡¡(?! )¡¡¤¬ # »È¤¨¤Ê¤¤´Ä¶¤¬¤¢¤ê¤Þ¤¹¡£¡¡¤³¤Î¤è¤¦¤Ê´Ä¶¤Ç¤Ï¡¢ # ¡ÖABC¡× ¤È¤¤¤¦Ê¸»úÎó¤ò´Þ¤Þ¤Ê¤¤ # ¤È¤¤¤¦¤è¤¦¤Ê¡¢Ê¸»úÎó¤ÎÈÝÄê¤ò¤¹¤ëÀµµ¬É½¸½¤òºî¤ë¤Î¤Ï # ¤È¤Æ¤âÆñ¤·¤¤ºî¶È¤Ë¤Ê¤ê¤Þ¤¹ # ¢¨¡¡(?! ) ¤¬»È¤¨¤ë´Ä¶¤Ç¤Îºî¤êÊý¤Ï ¤³¤Á¤é ¡£ # # ¤Ç¤Ï¡¢Îã¤È¤·¤Æ¡¢ # °Ê²¼¤Î¤è¤¦¤Ê¥Æ¥¥¹¥È¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤ò¹Í¤¨¤Æ¤ß¤Þ¤·¤ç¤¦¡ú # ¡¦ ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤¬ AA ¤«¤é»Ï¤Þ¤ë # ¡¦ ¥Æ¥¥¹¥È¤ÎËöÈø¤¬ AA ¤Ç½ª¤ï¤ë # ¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤ # '¡¦ ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤¬ AA ¤«¤é»Ï¤Þ¤ë ¡¦ ¥Æ¥¥¹¥È¤ÎËöÈø¤¬ AA ¤Ç½ª¤ï¤ë ¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤'(_¥Æ¥¥¹¥È) :- sub_atom(_¥Æ¥¥¹¥È,_,_,_,'AA',S2,'AA',_,_,_), \+(sub_atom(S2,_,_,_,'AA')). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% sub_atom(A,S,Len,R,H,X,T,HL,XL,TL) :- atomic(X), atom_chars(A,L), atom_chars(X,XL), subatom_2(L,S,Len,R,HL,XL,TL), atom_chars(H,HL), atom_chars(X,XL), atom_chars(T,TL). sub_atom(A,S,Len,R,H,X,T,HL,XL,TL) :- var(X), atom_chars(A,L), subatom_2(L,S,Len,R,HL,XL,TL), atom_chars(H,HL), atom_chars(X,XL), \+(XL = []), atom_chars(T,TL). sub_atom_2(L,S,Len,R,L1,XL,L2) :- append(L1,XL,L2,L), length_cut(L1,S), length_cut(L2,R), length_cut(XL,Len). length_cut(L,Len) :- length(L,Len),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ¤¤¤í¤¤¤í¤Ê´Ä¶¤ÎÃæ¤Ë¤Ï¡¢ÀèÆÉ¤ß¤ÎÈÝÄê¤Ç¤¢¤ë¡¡(?! )¡¡¤¬ # »È¤¨¤Ê¤¤´Ä¶¤¬¤¢¤ê¤Þ¤¹¡£¡¡¤³¤Î¤è¤¦¤Ê´Ä¶¤Ç¤Ï¡¢ # ¡ÖABC¡× ¤È¤¤¤¦Ê¸»úÎó¤ò´Þ¤Þ¤Ê¤¤ # ¤È¤¤¤¦¤è¤¦¤Ê¡¢Ê¸»úÎó¤ÎÈÝÄê¤ò¤¹¤ëÀµµ¬É½¸½¤òºî¤ë¤Î¤Ï # ¤È¤Æ¤âÆñ¤·¤¤ºî¶È¤Ë¤Ê¤ê¤Þ¤¹ # ¢¨¡¡(?! ) ¤¬»È¤¨¤ë´Ä¶¤Ç¤Îºî¤êÊý¤Ï ¤³¤Á¤é ¡£ # # ¤Ç¤Ï¡¢Îã¤È¤·¤Æ¡¢ # °Ê²¼¤Î¤è¤¦¤Ê¥Æ¥¥¹¥È¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤ò¹Í¤¨¤Æ¤ß¤Þ¤·¤ç¤¦¡ú # ¡¦ ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤¬ AA ¤«¤é»Ï¤Þ¤ë # ¡¦ ¥Æ¥¥¹¥È¤ÎËöÈø¤¬ AA ¤Ç½ª¤ï¤ë # ¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤ # # ¤Á¤Ê¤ß¤Ë¡¢ # "AAAAA" ¤È¤¤¤¦¥Æ¥¥¹¥È¤Î¾ì¹ç¡¢Ãæ¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤¬ # ¡¡A ¤Î1ʸ»ú¤À¤±¤Ê¤Î¤Ç¡¢¥Þ¥Ã¥Á¤¹¤ë¤â¤Î¤È¤·¤Þ¤¹ # # ¢¦¡¡¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¥Æ¥¥¹¥È¤Î¿Þ # # ¤³¤Î¤è¤¦¤Ê¾ì¹ç¡¢ # ¤Þ¤º¡¢°Ê²¼¤Î¤è¤¦¤ËÀµµ¬É½¸½¤Ë»È¤¨¤½¤¦¤Ê¥Ñ¡¼¥Ä¤ò½ñ¤½Ð¤·¤Þ¤¹ # ^AA¡¡¡¦¡¦¡¦¡¡¥Æ¥¥¹¥È¤ÎÀèÆ¬¤Ë¤¢¤ë AA ¤Ë¥Þ¥Ã¥Á¤¹¤ëɽ¸½ # AA$¡¡¡¦¡¦¡¦¡¡¥Æ¥¥¹¥È¤ÎËöÈø¤Ë¤¢¤ë AA ¤Ë¥Þ¥Ã¥Á¤¹¤ëɽ¸½ # A[^A]¡¡¡¦¡¦¡¦¡¡¡ÉA £±Ê¸»ú¡É¡¡¤Î¸å¤í¤Ë¡¡¡ÉA°Ê³°¤Î£±Ê¸»ú¡É¡¡¤¬ # ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¤¢¤ì¤Ð¡¢¤³¤Î£²Ê¸»ú¤Ë¥Þ¥Ã¥Á¤¹¤ëɽ¸½ # [^A]¡¡¡¡¡¦¡¦¡¦¡¡¡ÉA°Ê³°¤Î£±Ê¸»ú¡É¡¡¤Ë¥Þ¥Ã¥Á¤¹¤ëɽ¸½ # (½ÅÍ×)¡¡A[^A]¡¡¤Ï £²Ê¸»ú ¤Ë¥Þ¥Ã¥Á¤¹¤ë¤È¤¤¤¦¤³¤È¤ò˺¤ì¤Ê¤¤¤Ç²¼¤µ¤¤ # # ¤Á¤Ê¤ß¤Ë¡¢ A[^A]¡¡¤È¡¡[^A]¡¡¤Ï°Ê²¼¤Î¤è¤¦¤Ê´Ø·¸¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹ # ¡¦ ¤¢¤ëʸ»ú¤¬ A °Ê³°¤Ê¤é¤Ð¡¢ [^A] ¤Ë¥Þ¥Ã¥Á¤¹¤ë # ¡¦ ¤¢¤ëʸ»ú¤¬ A ¤Ç¤¢¤ê¡¢¼¡¤Îʸ»ú¤¬ A °Ê³°¤Ê¤é¤Ð¡¢ # ¡¡¤³¤Î£²Ê¸»ú¤¬ A[^A] ¤Ë¥Þ¥Ã¥Á¤¹¤ë # ¡¦ ¤¢¤ëʸ»ú¤¬ AA ¤Î A ¤Ê¤é¤Ð¡¢A[^A] ¤Ë¤â [^A] ¤Ë¤â¥Þ¥Ã¥Á¤·¤Ê¤¤ # # ¤³¤ì¤ò¿Þ¤Ë¤¹¤ë¤È²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹ # # ¢¦¡¡A[^A]¡¡¤È¡¡[^A]¡¡¤Î´Ø·¸¿Þ # # ¤³¤Î¿Þ¤ò¸«¤ë¤È¡¢¤¢¤ëʸ»ú¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë¤Ë¤Ï¡¢ # A[^A]¡¡¤Þ¤¿¤Ï¡¡[^A]¡¡¤Ë¥Þ¥Ã¥Á¤µ¤»¤ì¤Ð¤¤¤¤¤³¤È¤¬Ê¬¤«¤ê¤Þ¤¹ # # ¤Ä¤Þ¤ê¡¢°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹ # (A[^A]|[^A]) # # ¤½¤·¤Æ¡¢¤³¤ì¤ò·«¤êÊÖ¤»¤Ð AA ¤ò´Þ¤Þ¤Ê¤¤Ê¸»úÎó¤È¤Ê¤ê¤Þ¤¹ # (A[^A]|[^A])* # # ºÇ¸å¤Ë¡¢ # ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤ÈËöÈø¤Î AA ¤Ë¥Þ¥Ã¥Á¤¹¤ëɽ¸½¤òÉÕ¤±Â¤·¡¢ # °Ê²¼¤Î¤è¤¦¤Ë¤¹¤ì¤Ð´°À®¡¦¡¦¤Î¤Ï¤º¤Ç¤¹¤Í # ^AA(A[^A]|[^A])*AA$ # # ¤Ç¤Ï¡¢»î¤·¤Ëư¤«¤·¤Æ¤ß¤Þ¤·¤ç¤¦¡ª # ¢¨ ¥Æ¥¥¹¥È¥¨¥Ç¥£¥¿¤Î OtbEdit ¤Ç¤Ï ^ ¤È $ ¤¬¹ÔƬ¡¢¹ÔËö¤Ë¤â # ¥Þ¥Ã¥Á¤¹¤ë¤Î¤Ç¡¢£±¹Ô¤Ë¤Ä¤£±¤Ä¤Î¥Æ¥¥¹¥È¤ò¥Æ¥¹¥È¤·¤Þ¤¹ # '¡¦ ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤¬ AA ¤«¤é»Ï¤Þ¤ë ¡¦ ¥Æ¥¥¹¥È¤ÎËöÈø¤¬ AA ¤Ç½ª¤ï¤ë ¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤'(_¥Æ¥¥¹¥È) :- '¡¦ ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤¬ AA ¤«¤é»Ï¤Þ¤ë'(_¥Æ¥¥¹¥È), '¡¦ ¥Æ¥¥¹¥È¤ÎËöÈø¤¬ AA ¤Ç½ª¤ï¤ë'(_¥Æ¥¥¹¥È), '¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤'(_¥Æ¥¥¹¥È). '¡¦ ¥Æ¥¥¹¥È¤ÎÀèÆ¬¤¬ AA ¤«¤é»Ï¤Þ¤ë'(_¥Æ¥¥¹¥È) :- sub_atom(_¥Æ¥¥¹¥È,0,_,_,'AA'). '¡¦ ¥Æ¥¥¹¥È¤ÎËöÈø¤¬ AA ¤Ç½ª¤ï¤ë'(_¥Æ¥¥¹¥È) :- sub_atom(_¥Æ¥¥¹¥È,_,_,0,'AA'). '¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤'(_¥Æ¥¥¹¥È) :- '¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó'(_¥Æ¥¥¹¥È,_ÀèÆ¬¤ÎAA¤ÈËöÈø¤ÎAA¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó), '¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤'(_ÀèÆ¬¤ÎAA¤ÈËöÈø¤ÎAA¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó). '¡¦ ÀèÆ¬¤Î AA ¤È¡¢ËöÈø¤Î AA ¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó'(_¥Æ¥¥¹¥È,_ÀèÆ¬¤ÎAA¤ÈËöÈø¤ÎAA¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó) :- sub_atom(_¥Æ¥¥¹¥È,0,Len1,_,'AA'), sub_atom(_¥Æ¥¥¹¥È,_,Len2,0,'AA'), sub_atom(_¥Æ¥¥¹¥È,Len1,_,Len2,_ÀèÆ¬¤ÎAA¤ÈËöÈø¤ÎAA¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó). '¤ÎÃæ¤Ë¤ÏAA ¤¬Â¸ºß¤·¤Ê¤¤'(_ÀèÆ¬¤ÎAA¤ÈËöÈø¤ÎAA¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó) :- \+(sub_atom(_ÀèÆ¬¤ÎAA¤ÈËöÈø¤ÎAA¤È¤Î´Ö¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó,_,_,_,'AA')). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Regular Expression(Àµµ¬É½¸½) Part11 #535 # "123,456,789"¤«¤é","¤À¤±¤òºï½ü¤·¤Æ"123456789"¤Ë¤¹¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Î¡© # Á°¸å¤¬¿ô»ú¤Ë¤Ê¤Ã¤Æ¤¤¤ë","¤À¤±¤Ë¥Þ¥Ã¥Á¤¹¤ë¤Î¤Ã¤ÆÀµµ¬É½¸½¤À¤±¤Ç¤Ç¤¤ë¤Î¡© # "[0-9],[0-9]¤À¤ÈÁ°¸å¤Î¿ô»ú¤Ë¤â¥Þ¥Ã¥Á¤·¤Á¤ã¤¦¤è¤Í¡£ '"123,456,789"¤«¤é","¤À¤±¤òºï½ü¤·¤Æ"123456789"¤Ë¤¹¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Î¡© Á°¸å¤¬¿ô»ú¤Ë¤Ê¤Ã¤Æ¤¤¤ë","¤À¤±¤Ë¥Þ¥Ã¥Á¤¹¤ë¤Î¤Ã¤ÆÀµµ¬É½¸½¤À¤±¤Ç¤Ç¤¤ë¤Î¡© "[0-9],[0-9]¤À¤ÈÁ°¸å¤Î¿ô»ú¤Ë¤â¥Þ¥Ã¥Á¤·¤Á¤ã¤¦¤è¤Í¡£'(_ʸ»úÎó,_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó) :- ʸ»úÎ󤫤饢¥é¥Ó¥¢¿ô»ú¤Ë°Ï¤Þ¤ì¤¿¥«¥ó¥Þ¤òºï½ü¤¹¤ë(_ʸ»úÎó,_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó). ʸ»úÎ󤫤饢¥é¥Ó¥¢¿ô»ú¤Ë°Ï¤Þ¤ì¤¿¥«¥ó¥Þ¤òºï½ü¤¹¤ë(_ʸ»úÎó,_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_³«»ÏÅÀ,_¸¡º÷¸ì¤ÎŤµ,_»Ä¤êŤµ,S1,',',S3,L1,L2,L3),!, ¸¡º÷¸ì¤ÎÁ°¸å¤Ï¥¢¥é¥Ó¥¢¿ô»ú¤Ç¤¢¤ë(_ʸ»úÎó,_³«»ÏÅÀ,_¸¡º÷¸ì¤ÎŤµ), ʸ»úÎ󤫤饢¥é¥Ó¥¢¿ô»ú¤Ë°Ï¤Þ¤ì¤¿¥«¥ó¥Þ¤òºï½ü¤¹¤ë(S1,S3,_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó). ʸ»úÎ󤫤饢¥é¥Ó¥¢¿ô»ú¤Ë°Ï¤Þ¤ì¤¿¥«¥ó¥Þ¤òºï½ü¤¹¤ë(S1,S3,_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó) :- atomic_list_concat([S1,S3],_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó). ʸ»úÎ󤫤饢¥é¥Ó¥¢¿ô»ú¤Ë°Ï¤Þ¤ì¤¿¥«¥ó¥Þ¤òºï½ü¤¹¤ë(S1,S3,_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó) :- ʸ»úÎ󤫤饢¥é¥Ó¥¢¿ô»ú¤Ë°Ï¤Þ¤ì¤¿¥«¥ó¥Þ¤òºï½ü¤¹¤ë(S3,_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó_2), atomic_list_concat([S1,_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó_2],_¥«¥ó¥Þ¤òºï½ü¤·¤¿Ê¸»úÎó). ¸¡º÷¸ì¤ÎÁ°¸å¤Ï¥¢¥é¥Ó¥¢¿ô»ú¤Ç¤¢¤ë(_ʸ»úÎó,_³«»ÏÅÀ,_¸¡º÷¸ì¤ÎŤµ) :- ¸¡º÷¸ì¤ÎÁ°¤Ï¥¢¥é¥Ó¥¢¿ô»ú¤Ç¤¢¤ë(_ʸ»úÎó,_³«»ÏÅÀ), ¸¡º÷¸ì¤Î¸å¤Ï¥¢¥é¥Ó¥¢¿ô»ú¤Ç¤¢¤ë(_ʸ»úÎó,_³«»ÏÅÀ,_¸¡º÷¸ì¤ÎŤµ). ¸¡º÷¸ì¤ÎÁ°¤Ï¥¢¥é¥Ó¥¢¿ô»ú¤Ç¤¢¤ë(_ʸ»úÎó,_³«»ÏÅÀ) :- _³«»ÏÅÀ_1 is _³«»ÏÅÀ - 1, sub_atom(_ʸ»úÎó,_³«»ÏÅÀ_1,1,_,A), ¥¢¥é¥Ó¥¢¿ô»ú(A). ¸¡º÷¸ì¤Î¸å¤Ï¥¢¥é¥Ó¥¢¿ô»ú¤Ç¤¢¤ë(_ʸ»úÎó,_³«»ÏÅÀ,_¸¡º÷¸ì¤ÎŤµ) :- _³«»ÏÅÀ_2 is _³«»ÏÅÀ + _¸¡º÷¸ì¤ÎŤµ, sub_atom(_ʸ»úÎó,_³«»ÏÅÀ_2,1,_,A), ¥¢¥é¥Ó¥¢¿ô»ú(A). ¥¢¥é¥Ó¥¢¿ô»ú('0'). ¥¢¥é¥Ó¥¢¿ô»ú('1'). ¥¢¥é¥Ó¥¢¿ô»ú('2'). ¥¢¥é¥Ó¥¢¿ô»ú('3'). ¥¢¥é¥Ó¥¢¿ô»ú('4'). ¥¢¥é¥Ó¥¢¿ô»ú('5'). ¥¢¥é¥Ó¥¢¿ô»ú('6'). ¥¢¥é¥Ó¥¢¿ô»ú('7'). ¥¢¥é¥Ó¥¢¿ô»ú('8'). ¥¢¥é¥Ó¥¢¿ô»ú('9'). sub_atom(A,S,L,R,H,X,T,HL,XL,TL) :- atom(A), sub_atom(A,S,L,R,X), sub_atom(A,0,S,_,H), N is S + L, sub_atom(A,N,R,_,T), atom_chars(H,HL), atom_chars(X,XL), atom_chars(T,TL). sub_atom(A,S,L,R,H,X,T,HL,XL,TL) :- var(A), atom_chars(H,HL), atom_chars(X,XL), atom_chars(T,TL), length(HL,S), length(XL,L), length(TL,R), concat_atom([H,X,T],A), sub_atom(A,S,L,R,H,X,T,HL,XL,TL). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/419 # ¡üRegular Expression¤Î»ÈÍѴĶ # sakura editor # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # xml¤ÎtaxiwaypathÍ×ÁǤΤʤ«¤Ë # type="TAXI"¤È centerLineLighted="FALSE"¤¬Â¸ºß¤¹¤ë¤È¤¤Ë¡¢ ¾¤Î°À¤ò½ñ¤´¹¤¨¤º¤ËcenterLineLighted="TRUE"¤Ë½ñ¤´¹¤¨¤¿¤¤¤Ç¤¹ # # ¡üÂоݥǡ¼¥¿ # <TaxiwayPath # type="TAXI" # ¡Ä # centerLineLighted="FALSE" # ¡Ä # /> # # ¡ü´õ˾¤¹¤ë·ë²Ì # <TaxiwayPath # type="TAXI" # ¡Ä # centerLineLighted="TRUE" # ¡Ä # /> # # ¡Ä¤Ï¾Êά¤·¤Æ¤¤¤ë¤È¸À¤¦°ÕÌ£¤Ç¤¹ # # ' ¤Þ¤Ç¤Î´Ö¤Ë type="TAXI" ¤ÈcenterLineLighted="FALSE" ¤¬Â¸ºß¤¹¤ë»þ¡¢centerLineLighted="FALSE" ¤ò centerLineLighted="TRUE" ¤ËÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sPLIT(_ʸ»úÎó,['>',' ','\n','\t'],_¶èÀÚ¤ê¤ò´Þ¤àÍ×ÁǤʤé¤Ó), ' ¤Þ¤Ç¤Î´Ö¤Ë type="TAXI" ¤ÈcenterLineLighted="FALSE" ¤¬Â¸ºß¤¹¤ë»þ¡¢centerLineLighted="FALSE" ¤ò centerLineLighted="TRUE" ¤Ë¤¹¤ë'(R2,R2_2), atomic_list_concat(_ÃÖ´¹¤µ¤ì¤¿¶èÀÚ¤ê¤ò´Þ¤àÍ×ÁǤʤé¤Ó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. ' ¤Þ¤Ç¤Î´Ö¤Ë type="TAXI" ¤ÈcenterLineLighted="FALSE" ¤¬Â¸ºß¤¹¤ë»þ¡¢centerLineLighted="FALSE" ¤ò centerLineLighted="TRUE" ¤ËÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_ʸ»úÎó). ' ¤Þ¤Ç¤Î´Ö¤Ë type="TAXI" ¤ÈcenterLineLighted="FALSE" ¤¬Â¸ºß¤¹¤ë»þ¡¢centerLineLighted="FALSE" ¤ò centerLineLighted="TRUE" ¤ËÃÖ´¹¤¹¤ë'(R2,_ÃÖ´¹¤µ¤ì¤¿¶èÀÚ¤ê¤ò´Þ¤àÍ×ÁǤʤé¤Ó) :- append(L1,[' '|R3],_¶èÀÚ¤ê¤ò´Þ¤àÍ×ÁǤʤé¤Ó), \+(member('>',R2)), member('type="TAXI"',R2), ¤Ê¤é¤Ó¤ÎÃÖ´¹(R2,'centerLineLighted="FALSE"','centerLineLighted="TRUE"',R2_2), append(L1,[' '|R3],_ÃÖ´¹¤µ¤ì¤¿¶èÀÚ¤ê¤ò´Þ¤àÍ×ÁǤʤé¤Ó),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/413 # ¤¢¤¢¤â¤¦Ìõ¤¬Ê¬¤«¤é¤Ê¤¤ # # ¤¢¤¤¤¦¤¨¤ª¤¢¤¤¤¦¤¨¤ª¤¢¤¤¤¦¤¨¤ª # # ¤È¤¤¤¦¡Ö¤¢¤¤¤¦¤¨¤ª¡×¤Î·«¤êÊÖ¤·Ê¸»ú¤¬¤¢¤Ã¤¿¤é # 1ÈֺǸå¤Î¡Ö¤¦¤¨¡×¤À¤±°ìÃפµ¤»¤ëÊýË¡¤È # 2ÈÖÌܤΡ֤¦¤¨¡×¤À¤±°ìÃפµ¤»¤ëÊýË¡¤¬²ò¤é¤Ê¤¤ # ¤½¤ì¤¾¤ì¤É¤¦¤¤¤¦ÊýË¡¤¬¤¢¤ë¤ó¤Ç¤·¤ç¤¦¤«¡© # ¤¹¤ß¤Þ¤»¤ó¶µ¤¨¤Æ²¼¤µ¤¤ '1ÈֺǸå¤Î¡Ö¤¦¤¨¡×¤À¤±°ìÃפµ¤»¤ëÊýË¡'(_ʸ»úÎó,_Á°Ê¸»úÎó,¤¦¤¨,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,2,R,¤¦¤¨), Á°Ê¸»úÎó¤È¸åʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,S,R,_Á°Ê¸»úÎó,_¸åʸ»úÎó), \+(sub_atom(_¸åʸ»úÎó,_,2,_,¤¦¤¨)). '2ÈÖÌܤΡ֤¦¤¨¡×¤À¤±°ìÃפµ¤»¤ëÊýË¡'(_ʸ»úÎó,_Á°Ê¸»úÎó,¤¦¤¨,_¸åʸ»úÎó) :- '2ÈÖÌܤΡ֤¦¤¨¡×¤À¤±°ìÃפµ¤»¤ë'(_ʸ»úÎó,S_2,R_2), Á°Ê¸»úÎó¤È¸åʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,S_2,R_2,_Á°Ê¸»úÎó,_¸åʸ»úÎó). '2ÈÖÌܤΡ֤¦¤¨¡×¤À¤±°ìÃפµ¤»¤ë'(_ʸ»úÎó,S_2,R_2) :- sub_atom(_ʸ»úÎó,S_1,2,_,¤¦¤¨), sub_atom(_ʸ»úÎó,S_2,2,R_2,¤¦¤¨), S_2 > S_1,!. Á°Ê¸»úÎó¤È¸åʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,S,R,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/397 # ¼ÁÌä¤Ç¤¹ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP5.3.3 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¡¦URL¤¬´Þ¤Þ¤ì¤Æ¤¤¤¿¤È¤¤Ë¡¢jpg,png,gif¤Ê¤éimg¥¿¥°¤ØÊÑ´¹¡£ # ¡¦¤½¤ì°Ê³°¤Ê¤éa¥¿¥°¤ØÊÑ´¹¡£ # ¡¦URL¤ËÆüËܸ줬´Þ¤Þ¤ì¤Æ¤¤¤¿¾ì¹ç¤â¡¢¥¹¥Ú¡¼¥¹¤ä²þ¹Ô¡¢Ê¸»úÎó¤Î½ªÃ¼¤Ë¤¯¤ë¤Þ¤Ç¤Î¤â¤Î¤â¾åµ¤Î¤è¤¦¤Ë¥ê¥ó¥¯²½ # # ¡üÂоݥǡ¼¥¿ # [1] ¤³¤Á¤é¤Ø¢ªhttp://ime.nu/example.com/index.html # [2] ¼Ì¿¿¤Ï¤³¤ì¤Ç¤¹¢ªhttps://example.com/¼Ì¿¿.jpg # # ¡ü´õ˾¤¹¤ë·ë²Ì # [1] ¤³¤Á¤é¤Ø¢ª<a href="http://ime.nu/example.com/index.html">http://example.com/index.html</a> # [2] ¼Ì¿¿¤Ï¤³¤ì¤Ç¤¹¢ª<img src="https://example.com/¼Ì¿¿.jpg" /> # # '¡¦URL¤¬´Þ¤Þ¤ì¤Æ¤¤¤¿¤È¤¤Ë¡¢jpg,png,gif¤Ê¤éimg¥¿¥°¤ØÊÑ´¹¡£ ¡¦¤½¤ì°Ê³°¤Ê¤éa¥¿¥°¤ØÊÑ´¹¡£ '(_ʸ»úÎó,_img¥¿¥°) :- 'URLÉôʬ¤ÎÀÚ¤ê½Ð¤·'(_ʸ»úÎó,_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó), 'jpg,png,gif¤Ê¤éimg¥¿¥°¤ØÊÑ´¹¡£'(_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó,_img¥¿¥°),!. '¡¦URL¤¬´Þ¤Þ¤ì¤Æ¤¤¤¿¤È¤¤Ë¡¢jpg,png,gif¤Ê¤éimg¥¿¥°¤ØÊÑ´¹¡£ ¡¦¤½¤ì°Ê³°¤Ê¤éa¥¿¥°¤ØÊÑ´¹¡£ '(_ʸ»úÎó,_img¥¿¥°) :- 'URLÉôʬ¤ÎÀÚ¤ê½Ð¤·'(_ʸ»úÎó,_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó), '¤½¤ì°Ê³°¤Ê¤éa¥¿¥°¤ØÊÑ´¹'(_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó,_img¥¿¥°). 'jpg,png,gif¤Ê¤éimg¥¿¥°¤ØÊÑ´¹¡£'(_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó,_img¥¿¥°) :- 'jpg,png,gif¤Ê¤é'(_URLÉôʬʸ»úÎó), 'img¥¿¥°¤ØÊÑ´¹¡£'(_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó,_img¥¿¥°). 'jpg,png,gif¤Ê¤é'(_URLÉôʬʸ»úÎó) :- sub_atom(_URLÉôʬʸ»úÎó,_,4,0,_¥µ¥Õ¥£¥Ã¥¯¥¹Éôʬʸ»úÎó), member(_¥µ¥Õ¥£¥Ã¥¯¥¹Éôʬʸ»úÎó,['.jpg','.png','.gif']). 'img¥¿¥°¤ØÊÑ´¹¡£'(_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó,_img¥¿¥°) :- atomic_list_concat([_Á°Ê¸»úÎó,' ',_¸åʸ»úÎó],_img¥¿¥°). '¤½¤ì°Ê³°¤Ê¤éa¥¿¥°¤ØÊÑ´¹'(_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó,_a¥¿¥°) :- '¤½¤ì°Ê³°¤Ê¤é'(_URLÉôʬʸ»úÎó), 'a¥¿¥°¤ØÊÑ´¹'(_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó,_a¥¿¥°). '¤½¤ì°Ê³°¤Ê¤é'(_URLÉôʬʸ»úÎó) :- sub_atom(_URLÉôʬʸ»úÎó,_,4,0,_¥µ¥Õ¥£¥Ã¥¯¥¹Éôʬʸ»úÎó), \+(member(_¥µ¥Õ¥£¥Ã¥¯¥¹Éôʬʸ»úÎó,['.jpg','.png','.gif'])). 'a¥¿¥°¤ØÊÑ´¹'(_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó,_a¥¿¥°) :- atomic_list_concat([_Á°Ê¸»úÎó,'',_URLÉôʬʸ»úÎó,'',_¸åʸ»úÎó],_a¥¿¥°). 'URLÉôʬ¤ÎÀÚ¤ê½Ð¤·'(_ʸ»úÎó,_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,Len,R,A), member(A,['http://','file://','ftp://']), S_2 is S + Len, 'URLÉôʬ¤ÎÀÚ¤ê½Ð¤·'(_ʸ»úÎó,S,S_2,_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó). 'URLÉôʬ¤ÎÀÚ¤ê½Ð¤·'(_ʸ»úÎó,S,S_2,_Á°Ê¸»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S_2,_,0,_Éûʸ»úÎó), ¶èÀÚ¤êʸ»ú¤Çʬ³ä(_Éûʸ»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó),!. ¶èÀÚ¤êʸ»ú¤Çʬ³ä(_Éûʸ»úÎó,_URLÉôʬʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_Éûʸ»úÎó,S,1,R,_ʸ»ú), member(_ʸ»ú,[' ','\t','\n']), sub_atom(_Éûʸ»úÎó,0,S,R,_URLÉôʬʸ»úÎó), sub_atom(_Éûʸ»úÎó,_,R,0,_¸åʸ»úÎó),!. ¶èÀÚ¤êʸ»ú¤Çʬ³ä(_URLÉôʬʸ»úÎó,_URLÉôʬʸ»úÎó,''). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/391 # ¡üÍ×˾ # 5·å¤Î±Ñ¿ô»ú¤Îʸ»úÎó¥Ç¡¼¥¿¤«¤é¡¢³Æ·å¤¬¡¡M W w¡¡¤Î¤¤¤º¤ì¤«¤Î¤ß¡¢¤Ç¹½À®¤µ¤ì¤Æ¤¤¤ëʸ»úÎó¤ò¸¡º÷¤¹¤ë # # MwwWM # wwWMw # WWWMM # wMWww¡¡¤Ê¤É¤¬¥Ò¥Ã¥È¤¹¤ë¤è¤¦¤Ë¤¹¤ë # # [MWw][MWw][MWw][MWw][MWw]¤È½ñ¤±¤ÐÎɤ¤¤È¤Ï»×¤¤¤Þ¤¹¤¬¡¢[MWw]{5}¤Èµ½Ò¤·¤Æ¤âƱÍͤηë²Ì¤ÏÆÀ¤é¤ì¤ë¤Î¤Ç¤·¤ç¤¦¤«? # 10·å¤È¤«12·å¤Ç¤â¹Í¤¨¤Æ¤¤¤ë¤Î¤Ç¡¢¥³¥ó¥Ñ¥¯¥È¤Ë¤Þ¤È¤á¤¿¤¤¤Î¤Ç¤¹ # {}¤ÏľÁ°¤Î·«¤êÊÖ¤·¤À¤«¤é # MMMMM # WWWWW # wwwww¡¡¤È¤·¤«°ìÃפ·¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«? # # °ìÆü¤Ç¥Ò¥Ã¥È¤¹¤ë¥Ç¡¼¥¿¤¬ÆÀ¤é¤ì¤ë¤È¤Ï¸Â¤é¤Ê¤¤¤â¤Î¤Ê¤Î¤Ç¡¢´Êñ¤Ë¸¡¾Ú¤Ç¤¤Ê¤¤¤Î¤Ç¤¹ # # ¤è¤í¤·¤¯¤Ç¤¹ # # '5·å¤Î±Ñ¿ô»ú¤Îʸ»úÎó¥Ç¡¼¥¿¤«¤é¡¢³Æ·å¤¬¡¡M W w¡¡¤Î¤¤¤º¤ì¤«¤Î¤ß¡¢¤Ç¹½À®¤µ¤ì¤Æ¤¤¤ëʸ»úÎó¤ò¸¡º÷¤¹¤ë'(_5·å¤Î±Ñ¿ô»ú¤Îʸ»úÎó) :- forall(sub_atom(_5·å¤Î±Ñ¿ô»ú¤Îʸ»úÎó,_,1,_,A),member(A,['M','W',w])). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/370 # ¡üRegular Expression¤Î»ÈÍѴĶ # ActivePerl5.8 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # Ϣ³¤¹¤ë¿ô¤ò¸¡º÷¤·¤¿¤¤(1965¤«¤é2011¤Þ¤Ç¤Î¿ô) # # ¡üÂоݥǡ¼¥¿(ÇÛÎóÆâ¤Ë³ÊǼ) # 1952 # 1965 # 1986 # 2012 # 1972 # 2011 # ¡¡¡¦ # ¡¡¡¦ # ¡ü´õ˾¤¹¤ë·ë²Ì(ÇÛÎó¤Î³ÆÍ×ÁǤòÀµµ¬É½¸½¤Ç¸¡º÷¤·¤Æ¡¢¥Þ¥Ã¥Á¤¹¤ëÍ×ÁǤÀ¤±Ãê½Ð) # 1965 # 1986 # 1972 # 2011 # ¡¡¡¦ # ¡¡¡¦ # # ÇÛÎó¤Î³ÆÍ×ÁǤ¬1955¤«¤é2011¤Þ¤Ç¤Î¿ô¤Î¾ì¹ç¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤ # # '¡ü¸¡º÷¤«ÃÖ´¹¤«¡© ¸¡º÷ ¡üÀâÌÀ Ϣ³¤¹¤ë¿ô¤ò¸¡º÷¤·¤¿¤¤(1965¤«¤é2011¤Þ¤Ç¤Î¿ô) ¡üÂоݥǡ¼¥¿(ÇÛÎóÆâ¤Ë³ÊǼ) 1952 1965 1986 2012 1972 2011 ¡¡¡¦ ¡¡¡¦ ¡ü´õ˾¤¹¤ë·ë²Ì(ÇÛÎó¤Î³ÆÍ×ÁǤòÀµµ¬É½¸½¤Ç¸¡º÷¤·¤Æ¡¢¥Þ¥Ã¥Á¤¹¤ëÍ×ÁǤÀ¤±Ãê½Ð) 1965 1986 1972 2011 ¡¡¡¦ ¡¡¡¦'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- 'Ϣ³¤¹¤ë¿ô¤ò¸¡º÷¤·¤¿¤¤(1965¤«¤é2011¤Þ¤Ç¤Î¿ô)'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). 'Ϣ³¤¹¤ë¿ô¤ò¸¡º÷¤·¤¿¤¤(1965¤«¤é2011¤Þ¤Ç¤Î¿ô)'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- atom_chars(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), 'ʸ»ú¤Ê¤é¤Ó¤«¤éϢ³¤¹¤ë¿ô¤ò¸¡º÷¤·¤¿¤¤(1965¤«¤é2011¤Þ¤Ç¤Î¿ô)'(_ʸ»ú¤Ê¤é¤Ó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). 'ʸ»ú¤Ê¤é¤Ó¤«¤éϢ³¤¹¤ë¿ô¤ò¸¡º÷¤·¤¿¤¤(1965¤«¤é2011¤Þ¤Ç¤Î¿ô)'(_ʸ»ú¤Ê¤é¤Ó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- '¿ôÃͤòÀÚ¤ê½Ð¤¹(1965¤«¤é2011¤Þ¤Ç¤Î¿ô)'(_ʸ»ú¤Ê¤é¤Ó,L1,L2,L3,N), atom_chars(_Á°Ê¸»úÎó,L1), atom_chars(_¸åʸ»úÎó,L3), atom_chars(_Ŭ¹çʸ»úÎó,L2). '¿ôÃͤòÀÚ¤ê½Ð¤¹(1965¤«¤é2011¤Þ¤Ç¤Î¿ô)'(_ʸ»ú¤Ê¤é¤Ó,L1,L2,L3,N) :- append(L1,L2,L3,_ʸ»ú¤Ê¤é¤Ó), Á´¤Æ¤¬¿ô»ú(L2), 'L1¤ÎºÇ¸å¤Îʸ»ú¤ÈL3¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤'(L1,L3), number_chars(_¿ô,L2), '1965¤«¤é2011¤Þ¤Ç¤Î¿ô'(_¿ô). Á´¤Æ¤¬¿ô»ú(_¤Ê¤é¤Ó) :- forall(member(_¿ô»ú,_¤Ê¤é¤Ó),¿ô»ú(_¿ô»ú)). ¿ô»ú(_¿ô»ú) :- _¿ô»ú @>= '0', _¿ô»ú @=< '9'. 'L1¤ÎºÇ¸å¤Îʸ»ú¤ÈL3¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤'(L1,L3) :- 'L1¤ÎºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤'(L1), 'L3¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï̵¤¤'(L3). 'L1¤ÎºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤'(L1) :- \+((last(L1,A),¿ô»ú(A))). 'L3¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Ç¤Ï̵¤¤'(L3) :- \+(([B|_]=L3,¿ô»ú(B))). '1965¤«¤é2011¤Þ¤Ç¤Î¿ô'(_¿ô) :- between(1965,2011,_¿ô). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ¡üÌäÂêʸ # <b>¥¿¥°¤Î¤è¤¦¤Ë³«»Ï¥¿¥°¤ÎÉôʬ¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤òºÇ¾®¸Â¤Î³¬¿ô¤Î¥¥ã¥×¥Á¥ã¤òÍѤ¤¤Æ½ñ¤¤Ê¤µ¤¤¡£ # ¥¿¥°Ì¾¤Ï1ʸ»ú°Ê¾å¤Î±Ññ¸ì¤Ç¤¢¤ê¡¢Â°À¤Ë¤Ï¡Ö>¡×°Ê³°¤ÎǤ°Õ¤Îʸ»ú¤ò»È¤¨¤ë¤â¤Î¤È¤¹¤ë¡£ # ¡üÎãʸ # <b>¥´¥ì¥¤¥Ì¤µ¤ó</b>¤Ï¡¢¤¨¤²¤Ä¤Í¤§¡¦¡¦¡¦<font color="red">¥´¥ì¥¤¥Ì¤µ¤ó</font>¤Ï # ¤¨¤²¤Ä¤Í¤§¡£¡£¡£<font color="blue">Éٳ߻Żö</font>¤·¤í¡£ # ¡ü¥Þ¥Ã¥Á¤¹¤ëÎã # <b> # <font color="red"> # <font color="blue"> # # ¡üÅú¤¨ # <(?:\w+)(?:\s+[^>]*)*> # ¡ü²òÀâ # ¡Ö<¡×¤È¡Ö>¡×¤Ë°Ï¤Þ¤ì¤¿Éôʬ¤Ë¥Þ¥Ã¥Á¤µ¤»¤ì¤Ð¤è¤¤¤Î¤Ç¤¹¤¬¡¢Â°ÀÉÕ¤¤Î¥¿¥°¤ò¹Íθ¤·¤Ê¤¯¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£ # ¤Þ¤¿¡¢ºÇ¾®¸Â¤Î¥¥ã¥×¥Á¥ã¤È¤¤¤¦¾ò·ï¤¬¤¢¤ë¤¿¤á¡¢¥°¥ë¡¼¥×²½¤Î¤ß¤Ç¥¥ã¥×¥Á¥ã¤òɬÍפȤ·¤Ê¤¤¾ì½ê¤Ç¤Ï¡Ö(?:)¡×¤ò»È¤¤¤Þ¤¹¡£ # ¤³¤ÎÌäÂê¤Î¾ì¹ç¤Ë¤Ï¡¢1²ó¤â¥¥ã¥×¥Á¥ã¤ò»È¤ï¤º¤Ëµ½Ò¤¹¤ë»ö¤¬²Äǽ¤Ç¤¹¡£ # # ¤È¡¢¤¢¤ë¤Î¤Ç¤¹¤¬ # <\w+(?:\s+[^>]*)*> # ¤Ç¤Ê¤¤¤«¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£ # \w+¤Ï¥°¥ë¡¼¥×²½¤¹¤ëɬÍפ¬¤½¤â¤½¤â¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡© # '<b>¥¿¥°¤Î¤è¤¦¤Ë³«»Ï¥¿¥°¤ÎÉôʬ¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_³«»Ï¥¿¥°,_¸åʸ»úÎó) :- ³«»Ï¥¿¥°¤òÀÚ¤ê½Ð¤¹(_ʸ»úÎó,_Á°Ê¸»úÎó_1,_³«»Ï¥¿¥°_1,_¸åʸ»úÎó_1), ³«»Ï¥¿¥°Ì¾¤Ï1ʸ»ú°Ê¾å¤Î±Ññ¸ì¤Ç¤¢¤ê(_³«»Ï¥¿¥°_1), '<b>¥¿¥°¤Î¤è¤¦¤Ë³«»Ï¥¿¥°¤ÎÉôʬ¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_Á°Ê¸»úÎó_1,_³«»Ï¥¿¥°_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_³«»Ï¥¿¥°,_¸åʸ»úÎó). '<b>¥¿¥°¤Î¤è¤¦¤Ë³«»Ï¥¿¥°¤ÎÉôʬ¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). '<b>¥¿¥°¤Î¤è¤¦¤Ë³«»Ï¥¿¥°¤ÎÉôʬ¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- '<b>¥¿¥°¤Î¤è¤¦¤Ë³«»Ï¥¿¥°¤ÎÉôʬ¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_¸åʸ»úÎó_1,_Á°Ê¸»úÎó_2,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), atomic_list_concat([_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_Á°Ê¸»úÎó_2],_Á°Ê¸»úÎó). ³«»Ï¥¿¥°¤òÀÚ¤ê½Ð¤¹(_Á°Ê¸»úÎó,_³«»Ï¥¿¥°,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,St,Len,R,_³«»Ï¥¿¥°), ³«»Ï¥¿¥°(_³«»Ï¥¿¥°), sub_atom(_ʸ»úÎó,0,St,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó),!. ³«»Ï¥¿¥°(_³«»Ï¥¿¥°) :- sub_atom(_³«»Ï¥¿¥°,0,1,_,<), \+(sub_atom(_³«»Ï¥¿¥°,0,2,_,'')), sub_atom(_³«»Ï¥¿¥°,_,1,R,>). '³«»Ï¥¿¥°¤Î¾ðÊóÉôʬ¤Ï>¤ò´Þ¤Þ¤Ê¤¤'(_³«»Ï¥¿¥°) :- sub_atom(_³«»Ï¥¿¥°,1,_,1,_³«»Ï¥¿¥°¤Î¾ðÊóÉôʬ), \+(sub_atom(_³«»Ï¥¿¥°¤Î¾ðÊóÉôʬ,_,1,_,>)),!. ³«»Ï¥¿¥°Ì¾¤Ï1ʸ»ú°Ê¾å¤Î±Ññ¸ì¤Ç¤¢¤ê(_³«»Ï¥¿¥°) :- ³«»Ï¥¿¥°Ì¾¤Ï(_³«»Ï¥¿¥°,_³«»Ï¥¿¥°Ì¾), '1ʸ»ú°Ê¾å¤Î±Ññ¸ì¤Ç¤¢¤ë'(_³«»Ï¥¿¥°Ì¾),!. ³«»Ï¥¿¥°Ì¾¤Ï(_³«»Ï¥¿¥°,_³«»Ï¥¿¥°Ì¾) :- sub_atom(_³«»Ï¥¿¥°,1,_,1,_³«»Ï¥¿¥°¤Î¾ðÊóÉôʬ), ³«»Ï¥¿¥°Ì¾¤òÀÚ¤ê½Ð¤¹(_³«»Ï¥¿¥°¤Î¾ðÊóÉôʬ,_³«»Ï¥¿¥°Ì¾),!. ³«»Ï¥¿¥°Ì¾¤òÀÚ¤ê½Ð¤¹(_³«»Ï¥¿¥°¤Î¾ðÊóÉôʬ,_³«»Ï¥¿¥°Ì¾) :- sub_atom(_³«»Ï¥¿¥°¤Î¾ðÊóÉôʬ,St,1,_,' '), sub_atom(_³«»Ï¥¿¥°¤Î¾ðÊóÉôʬ,0,St,_,_³«»Ï¥¿¥°Ì¾),!. ³«»Ï¥¿¥°Ì¾¤òÀÚ¤ê½Ð¤¹(_³«»Ï¥¿¥°Ì¾,_³«»Ï¥¿¥°Ì¾). '1ʸ»ú°Ê¾å¤Î±Ññ¸ì¤Ç¤¢¤ë'(_¥¿¥°Ì¾¤Îʸ»ú¤Ê¤é¤Ó) :- forall(sub_atom(_³«»Ï¥¿¥°Ì¾,_,1,_,A),±Ñʸ»ú¤«¿ô»ú(A)). ±Ñʸ»ú¤«¿ô»ú(A) :- ±Ñʸ»ú(A). ±Ñʸ»ú¤«¿ô»ú(A) :- ¿ô»ú(A). ±Ñʸ»ú(A) :- A @>= 'a', A @=< 'z',!. ±Ñʸ»ú(A) :- A @>= 'A', A @=< 'Z',!. ¿ô»ú(A) :- A @>= '0', A @=< '9',!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ^.*\d{2}[a-zA-Z]?\.gif # ¤È¤¤¤¦É½¸½¤¬¥Þ¥Ã¥Á¤¹¤ëʸ»úÎ󤬤¢¤ë¤È¤·¤Þ¤¹¡£ # Î㤨¤Ð¡¢img01A.gif¤Ç¤¹¡£ # ¤³¤Îʸ»úÎ󤫤顢Ƭ¤Î¥¼¥í¤ò³°¤·¤¿¿ô»ú¤òÈ´¤½Ð¤·¤¿¤¤¤Ç¤¹¡£ # ¾å¤ÎÎã¤Ç¤Ï¡¢¡Ö£±¡×¤òÈ´¤½Ð¤·¤¿¤¤¤Ç¤¹¡£ # ¡Ö01¡×¤òÈ´¤½Ð¤¹¤Î¤Ç¤è¤±¤ì¤Ð¡¢ # ^.*(\d{2})[a-zA-Z]?\.gif # ¤È¤·¤Æ¡¢¡Ö$1¡×¤Ç¼õ¤±¤ì¤Ð¤¤¤¤¤Ç¤¹¤¬¡¢ # Ƭ¤Î¥¼¥í¤ò¥¹¥Þ¡¼¥È¤Ë¼è¤ê½ü¤¯ÊýË¡¤òÌϺ÷¤·¤Æ¤¤¤Þ¤¹¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ÍÆñ¤¦¤´¤¶¤¤¤Þ¤¹¡£ '^.*\d{2}[a-zA-Z]?\.gif ¤È¤¤¤¦É½¸½¤¬¥Þ¥Ã¥Á¤¹¤ëʸ»úÎ󤬤¢¤ë¤È¤·¤Þ¤¹¡£ Î㤨¤Ð¡¢img01A.gif¤Ç¤¹¡£ ¤³¤Îʸ»úÎ󤫤顢Ƭ¤Î¥¼¥í¤ò³°¤·¤¿¿ô»ú¤òÈ´¤½Ð¤·¤¿¤¤¤Ç¤¹¡£ ¾å¤ÎÎã¤Ç¤Ï¡¢¡Ö£±¡×¤òÈ´¤½Ð¤·¤¿¤¤¤Ç¤¹¡£ ¡Ö01¡×¤òÈ´¤½Ð¤¹¤Î¤Ç¤è¤±¤ì¤Ð¡¢ ^.*(\d{2})[a-zA-Z]?\.gif ¤È¤·¤Æ¡¢¡Ö$1¡×¤Ç¼õ¤±¤ì¤Ð¤¤¤¤¤Ç¤¹¤¬¡¢ Ƭ¤Î¥¼¥í¤ò¥¹¥Þ¡¼¥È¤Ë¼è¤ê½ü¤¯ÊýË¡¤òÌϺ÷¤·¤Æ¤¤¤Þ¤¹¡£ ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ÍÆñ¤¦¤´¤¶¤¤¤Þ¤¹¡£'(_ʸ»úÎó,_ƬÉô¤Î¥¼¥í¤ò¼è¤ê½ü¤¤¤¿¿ô»úʸ»úÎó) :- 'ʸ»úÎ󤫤顢Ƭ¤Î¥¼¥í¤ò³°¤·¤¿¿ô»ú¤òÈ´¤½Ð¤·¤¿¤¤¤Ç¤¹¡£'(_ʸ»úÎó,_Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¤¤¿¿ô»úʸ»úÎó). 'ʸ»úÎ󤫤顢Ƭ¤Î¥¼¥í¤ò³°¤·¤¿¿ô»ú¤òÈ´¤½Ð¤·¤¿¤¤¤Ç¤¹¡£'(_ʸ»úÎó,_Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¤¤¿¿ô»úʸ»úÎó) :- ¿ô»úʸ»ú¤Ê¤é¤Ó¤òÀÚ¤ê¼è¤ë(_ʸ»úÎó,_¿ô»úʸ»ú¤Ê¤é¤Ó), Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¯(_¿ô»úʸ»ú¤Ê¤é¤Ó,_Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¤¤¿¿ô»úʸ»ú¤Ê¤é¤Ó), atom_chars(_Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¤¤¿¿ô»úʸ»úÎó,_Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¤¤¿¿ô»úʸ»ú¤Ê¤é¤Ó). ¿ô»úʸ»ú¤Ê¤é¤Ó¤òÀÚ¤ê¼è¤ë(_ʸ»úÎó,_¿ô»úʸ»ú¤Ê¤é¤Ó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,_¿ô»úʸ»ú¤Ê¤é¤Ó,L3), '_¿ô»úʸ»ú¤Ê¤é¤Ó¤Ï¿ô»ú¤Î¤ß¤Ç¹½À®¤µ¤ì¡¢L1¤Ë¿ô»ú¤Ï´Þ¤Þ¤º¡¢L3¤ÎÀèÆ¬Ê¸»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤'(L1,_¿ô»úʸ»ú¤Ê¤é¤Ó,L3). '_¿ô»úʸ»ú¤Ê¤é¤Ó¤Ï¿ô»ú¤Î¤ß¤Ç¹½À®¤µ¤ì¡¢L1¤Ë¿ô»ú¤Ï´Þ¤Þ¤º¡¢L3¤ÎÀèÆ¬Ê¸»ú¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤'(L1,_¿ô»úʸ»ú¤Ê¤é¤Ó,L3) :- forall(member(_¿ô»úʸ»ú,_¿ô»úʸ»ú¤Ê¤é¤Ó),¿ô»ú(_¿ô»úʸ»ú)), forall(member(_ʸ»ú,L1),\+(¿ô»ú(_ʸ»ú))), \+((L3 = [_ʸ»ú|_],¿ô»ú(_ʸ»ú))),!. Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¯([],[]). Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¯([A|R],[A|R]) :- \+(A='0'),!. Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¯(['0'|R1],R2) :- Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¯(R1,R2). Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¯([A|R1],[A|R2]) :- Ƭ¤Î¥¼¥í¤ò¼è¤ê½ü¤¯(R1,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê :: http://toro.2ch.net/test/read.cgi/tech/1362913813/233 # # ¡üRegular Expression¤Î»ÈÍѴĶ # ½¨´Ý 8.2.1 # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£ # # ¡üÂоݥǡ¼¥¿ # £±£°£° ¤³¤¯¤´ ¤¨¤¤¤´ 100 20 ¸ÇÄê # ¶¦ÄÌ ¥·¥ã¥«¥¤ ¥¹¥¦¥¬¥¯ 100 10 ¥é¥ó¥À¥à # # ¡Ê¥Ç¡¼¥¿¤Î´Ö¤Î¶õÇò¤ÏÁ´ÉôTab¤Ç¤¹¡Ë # # ¡ü´õ˾¤¹¤ë·ë²Ì # £±£°£° ¤³¤¯¤´ # ¶¦ÄÌ ¤¹¤¦¤¬¤¯ # # # ²¼¤ÎÀµµ¬É½¸½¤Ç»î¤·¤Æ¤ß¤Þ¤·¤¿¡£ # ^(.*)?\t(.*)?\t[¤¢-¤ó ¥¢-¥ó].* # \1\t\2 # (.*)?\t(.*)?\t¤ÇTab¤Þ¤Ç¤ÎºÇû¥Þ¥Ã¥Á¡Ê¤Î¤Ä¤â¤ê¡ËÆó¤Ä¤Ç¡¢¤¨¤¤¤´¡¢¥¹¥¦¥¬¥¯¤Þ¤Ç¤ò»ØÄꤷ¤Æ¤¤¤Þ¤¹¡£ # # 3¤Ä¤á¤Î¥«¥é¥à¤Î1ʸ»úÌܤ¬¤Ò¤é¤¬¤Ê¤È¥«¥¿¥«¥Ê¤Ê¤Î¤Ç¡¢[¤¢-¤ó ¥¢-¥ó]¤Ç»ØÄꤷ¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢ # ¸å¤í¤Î"¥é¥ó¥À¥à"¤¬¥Þ¥Ã¥Á¤·¤Æ¤·¤Þ¤¤¡¢2¹ÔÌܤ¬²¼¤Î¤è¤¦¤Ê·ë²Ì¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # # £±£°£° ¤³¤¯¤´ # ¶¦ÄÌ ¥·¥ã¥«¥¤ ¥¹¥¦¥¬¥¯ 100 10 # # ¤ä¤êÊý¶µ¤¨¤ÆÌ㤨¤ì¤Ð¤¦¤ì¤·¤¤¤Ç¤¹¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'(_ʸ»úÎó,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó) :- atom_chars(_ʸ»úÎó,Chars), 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'(Chars,['\t','\t'],_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»ú¤Ê¤é¤Ó), atom_chars(_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»ú¤Ê¤é¤Ó). 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'([A|_Æó¤Ä¤á¤ÎTab°Ê¹ß],[A],[A]) :- !. 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'([A|R1],[A|R2],[A|R3]) :- 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'(R1,R2,R3). 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'([B|R1],L2,[B|R3]) :- 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'(R1,L2,R3). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'(_ʸ»úÎó,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó) :- atom_chars(_ʸ»úÎó,Chars), '°ìʸ»ú¤º¤ÄºÇ½é¤ÎTab¤¬Íè¤ë¤Þ¤Ç'(Chars,_Tab¤Þ¤Ç¤Îʸ»ú¤Ê¤é¤Ó,_»Ä¤êʸ»ú¤Ê¤é¤Ó_1), 'Æó¸ÄÌܤÎTab¤¬Íè¤ë¤Þ¤Ç'(_»Ä¤êʸ»ú¤Ê¤é¤Ó_1,_Æó¸ÄÌܤÎTab¤Þ¤Ç¤Îʸ»ú¤Ê¤é¤Ó), append(_Tab¤Þ¤Ç¤Îʸ»ú¤Ê¤é¤Ó,_Æó¸ÄÌܤÎTab¤Þ¤Ç¤Îʸ»ú¤Ê¤é¤Ó,_Æó¤ÄÌܤÎTab¤Þ¤Ç¤Îʸ»ú¤Ê¤é¤Ó), atom_chars(_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó,_Æó¤ÄÌܤÎTab¤Þ¤Ç¤Îʸ»ú¤Ê¤é¤Ó). '°ìʸ»ú¤º¤ÄºÇ½é¤ÎTab¤¬Íè¤ë¤Þ¤Ç'(['\t'|_»Ä¤êʸ»ú¤Ê¤é¤Ó],['\t'],_»Ä¤êʸ»ú¤Ê¤é¤Ó) :- !. '°ìʸ»ú¤º¤ÄºÇ½é¤ÎTab¤¬Íè¤ë¤Þ¤Ç'([A|_»Ä¤êʸ»ú¤Ê¤é¤Ó],[],_»Ä¤êʸ»ú¤Ê¤é¤Ó) :- '°ìʸ»ú¤º¤ÄºÇ½é¤ÎTab¤¬Íè¤ë¤Þ¤Ç'([A|_»Ä¤êʸ»ú¤Ê¤é¤Ó],[],_»Ä¤êʸ»ú¤Ê¤é¤Ó),!. 'Æó¸ÄÌܤÎTab¤¬Íè¤ë¤Þ¤Ç'(['\t'|_],['\t']) :- !. 'Æó¸ÄÌܤÎTab¤¬Íè¤ë¤Þ¤Ç'([A|R1],[A|R2]) :- 'Æó¸ÄÌܤÎTab¤¬Íè¤ë¤Þ¤Ç'(R1,R2). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'(_ʸ»úÎó,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó) :- ʸ»ú¤Ê¤é¤Ó¤ËÊÑ´¹¤¹¤ë(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), Æó¤Ä¤ÎTab¤¬Íè¤ë¤Þ¤Ç(_ʸ»ú¤Ê¤é¤Ó,_ºÇ½é¤ÎTab¤Þ¤Ç,_¤½¤Î¸åÆó¤ÄÌܤÎTab¤Þ¤Ç), ʸ»úÎó¤òÉü¸µ(_ºÇ½é¤ÎTab¤Þ¤Ç,_¤½¤Î¸åÆó¤ÄÌܤÎTab¤Þ¤Ç,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó). ʸ»ú¤Ê¤é¤Ó¤ËÊÑ´¹¤¹¤ë(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó) :- atom_chars(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó). Æó¤Ä¤ÎTab¤¬Íè¤ë¤Þ¤Ç(_ʸ»ú¤Ê¤é¤Ó,_ºÇ½é¤ÎTab¤Þ¤Ç,_¤½¤Î¸åÆó¤ÄÌܤÎTab¤Þ¤Ç) :- append(L1,['\t'|R2],['\t'|_],_ʸ»ú¤Ê¤é¤Ó). ʸ»úÎó¤òÉü¸µ(_ºÇ½é¤ÎTab¤Þ¤Ç,_¤½¤Î¸åÆó¤ÄÌܤÎTab¤Þ¤Ç,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó) :- append(_ºÇ½é¤ÎTab¤Þ¤Ç,['\t'|_¤½¤Î¸åÆó¤Ä¤á¤ÎTab¤Þ¤Ç],['\t'],_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»ú¤Ê¤é¤Ó), atom_chars(_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»ú¤Ê¤é¤Ó),!. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 'Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¤·¤¿¤¤¤Ç¤¹¡£'(_ʸ»úÎó,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó) :- ºÇ½é¤ÎTab¤«¤é¸å¤ÎÉûʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,_ºÇ½é¤ÎTab¤ò´Þ¤á¤¿Ê¸»úÎó¤ÎŤµ,_¤½¤ì°Ê¸å¤Îʸ»úÎó), ¤½¤ì°Ê¸å¤Îʸ»úÎó¤ÎºÇ½é¤Ë¸½¤ì¤¿Tab¤ò´Þ¤á¤¿Ä¹¤µ(_¤½¤ì°Ê¸å¤Îʸ»úÎó,_¤½¤ì°Ê¸å¤Îʸ»úÎó¤ÎºÇ½é¤Ë¸½¤ì¤¿Tab¤ò´Þ¤á¤¿Ä¹¤µ), _Ťµ is _ºÇ½é¤ÎTab¤ò´Þ¤á¤¿¤½¤³¤Þ¤Ç¤Îʸ»úÎó¤ÎŤµ + _¤½¤ì°Ê¸å¤Îʸ»úÎó¤ÎºÇ½é¤Ë¸½¤ì¤¿Tab¤ò´Þ¤á¤¿Ä¹¤µ, sub_atom(_ʸ»úÎó,0,_Ťµ,_,_Æó¤ÄÌܤÎTab°Ê¹ß¤òºï½ü¸å¤Îʸ»úÎó),!. ºÇ½é¤ÎTab¤«¤é¸å¤ÎÉûʸ»úÎó¤òÆÀ¤ë(_ʸ»úÎó,_ºÇ½é¤ÎTab¤ò´Þ¤á¤¿Ê¸»úÎó¤ÎŤµ,_¤½¤ì°Ê¸å¤Îʸ»úÎó) :- sub_atom(_ʸ»úÎó,St1,1,R,'\t'), _ºÇ½é¤ÎTab¤ò´Þ¤á¤¿¤½¤³¤Þ¤Ç¤Îʸ»úÎó¤ÎŤµ is St1 + 1, sub_atom(_ʸ»úÎó,_ºÇ½é¤ÎTab¤ò´Þ¤á¤¿Ê¸»úÎó¤ÎŤµ,R,0,_¤½¤ì°Ê¸å¤Îʸ»úÎó). ¤½¤ì°Ê¸å¤Îʸ»úÎó¤ÎºÇ½é¤Ë¸½¤ì¤¿Tab¤ò´Þ¤á¤¿ºÇ½é¤«¤é¤ÎŤµ(_¤½¤ì°Ê¸å¤Îʸ»úÎó,_¤½¤ì°Ê¸å¤Îʸ»úÎó¤ÎºÇ½é¤Ë¸½¤ì¤¿Tab¤ò´Þ¤á¤¿Ä¹¤µ) :- sub_atom(_¤½¤ì°Ê¸å¤Îʸ»úÎó,St,1,_,'\t'), _¤½¤ì°Ê¸å¤Îʸ»úÎó¤ÎºÇ½é¤Ë¸½¤ì¤¿Tab¤ò´Þ¤á¤¿Ä¹¤µ is St + 1,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # # ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹¾ì¹ç¤ÎÀµµ¬É½¸½¶µ¤¨¤Æ²¼¤µ¤¤. # ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(_ʸ»úÎó,_ÆÃÄê¤Îʸ»úÎó,_ÆÃÄê¤Îʸ»ú¤ò´Þ¤à¹Ô¤ò½ü¤¤¤Æ·ë¹ç¤·Ä¾¤·¤¿Ê¸»úÎó) :- sPLIT(_ʸ»úÎó,['\n'],L), ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(L,_ÆÃÄê¤Îʸ»úÎó,_ÆÃÄê¤Îʸ»ú¤ò´Þ¤à¹Ô¤ò½ü¤¤¤¿Ê¸»úÎó¤Ê¤é¤Ó), atomic_list_concat(_ÆÃÄê¤Îʸ»ú¤ò´Þ¤à¹Ô¤ò½ü¤¤¤¿Ê¸»úÎó¤Ê¤é¤Ó,_ÆÃÄê¤Îʸ»ú¤ò´Þ¤à¹Ô¤ò½ü¤¤¤Æ·ë¹ç¤·Ä¾¤·¤¿Ê¸»úÎó). ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹([_ʸ»úÎó,'\n'|R1],_ÆÃÄê¤Îʸ»úÎó,L) :- ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë(_ʸ»úÎó,_ÆÃÄê¤Îʸ»úÎó), ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(R1,_ÆÃÄê¤Îʸ»úÎó,L2),!. ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹([_ʸ»úÎó,'\n'|R1],_ÆÃÄê¤Îʸ»úÎó,[_ʸ»úÎó,'\n'|R2]) :- ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(R1,_ÆÃÄê¤Îʸ»úÎó,R2),!. ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(L,_,L). ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë(_ʸ»úÎó,_ÆÃÄê¤Îʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_ÆÃÄê¤Îʸ»úÎó),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # # ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹¾ì¹ç¤ÎÀµµ¬É½¸½¶µ¤¨¤Æ²¼¤µ¤¤. # ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(_ʸ»úÎó,_ÆÃÄê¤Îʸ»úÎó,_ÆÃÄê¤Îʸ»ú¤ò´Þ¤à¹Ô¤ò½ü¤¤¤Æ·ë¹ç¤·Ä¾¤·¤¿Ê¸»úÎó) :- sPLIT(_ʸ»úÎó,['\n'],L), ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(L,_ÆÃÄê¤Îʸ»úÎó,_ÆÃÄê¤Îʸ»ú¤ò´Þ¤à¹Ô¤ò½ü¤¤¤¿Ê¸»úÎó¤Ê¤é¤Ó), atomic_list_concat(_ÆÃÄê¤Îʸ»ú¤ò´Þ¤à¹Ô¤ò½ü¤¤¤¿Ê¸»úÎó¤Ê¤é¤Ó,_ÆÃÄê¤Îʸ»ú¤ò´Þ¤à¹Ô¤ò½ü¤¤¤Æ·ë¹ç¤·Ä¾¤·¤¿Ê¸»úÎó). ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹([_ʸ»úÎó,'\n'|R1],_ÆÃÄê¤Îʸ»úÎó,L) :- ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë(_ʸ»úÎó,_ÆÃÄê¤Îʸ»úÎó), ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(R1,_ÆÃÄê¤Îʸ»úÎó,L2),!. ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹([_ʸ»úÎó,'\n'|R1],_ÆÃÄê¤Îʸ»úÎó,[_ʸ»úÎó,'\n'|R2]) :- ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(R1,_ÆÃÄê¤Îʸ»úÎó,R2),!. ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë¹Ô¤Î¤ß¾Ã¤¹(L,_,L). ÆÃÄê¤Îʸ»ú¤¬´Þ¤Þ¤ì¤ë(_ʸ»úÎó,_ÆÃÄê¤Îʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_ÆÃÄê¤Îʸ»úÎó),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/172 # ¡üRegular Expression¤Î»ÈÍѴĶ # PHP5 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Java¤Î¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤ß¤¿¤¤¤Ç¤¹¡£ # /**/, "", '' ¤¬Æþ¤ì»Ò¤Ë¤Ê¤Ã¤Æ¤ë¾ì¹ç¤Ë³°Â¦¤À¤±Å¬±þ¤¹¤ë¤Î¤¬¤Ç¤¤Þ¤»¤ó # ¼ºÇÔÎã¡¡<¥À¥Ö¥ë>"¤³¤ì¤Ï<¥·¥ó¥°¥ë>'¥Ú¥ó'</¥·¥ó¥°¥ë>¤Ç¤¹"</¥À¥Ö¥ë> # À®¸ùÎã¡¡<¥À¥Ö¥ë>"¤³¤ì¤Ï'¥Ú¥ó'¤Ç¤¹"</¥À¥Ö¥ë> # # ¡üÂоݥǡ¼¥¿¡Ê¡Ë # /* "hello" 'world' */ # String var="¤³¤ì¤Ï'¥Ú¥ó'¤Ç¤¹"; # String apos='apopo "/* moge'; # # ¡ü´õ˾¤¹¤ë·ë²Ì # <¥³¥á¥ó¥È>/* "hello" 'world' */</¥³¥á¥ó¥È> # String var=<¥À¥Ö¥ë>"¤³¤ì¤Ï'¥Ú¥ó'¤Ç¤¹"</¥À¥Ö¥ë>; # String apos=<¥·¥ó¥°¥ë>'apopo "/* moge'</¥·¥ó¥°¥ë>; # # 'Java¤Î¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤ß¤¿¤¤¤Ç¤¹¡£'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- atom_chars(_ʸ»úÎó,Chars), 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'(Chars,_ÃÖ´¹¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó), atom_chars(_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó). 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'([],[]). 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'([''''|R1],[<,¥·,¥ó,¥°,¥ë,>,''''|L1]) :- '¥·¥ó¥°¥ë¥¯¥©¡¼¥È¤Î³°Â¦Æþ¤ì»Ò¤òÊÑ´¹'(R1,L1,R2),!, 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'(R1,R2). 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'(['"'|R1],[<,¥À,¥Ö,¥ë,>,'"'|L1]) :- '¥À¥Ö¥ë¥¯¥©¡¼¥È¤Î³°Â¦Æþ¤ì»Ò¤òÊÑ´¹'(R1,L1,R2),!, 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'(R1,R2). 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'([/,*|R1],[<,¥³,¥á,¥ó,¥È,>,/,*|L1]) :- '¥³¥á¥ó¥È¤Î³°Â¦Æþ¤ì»Ò¤òÊÑ´¹'(R1,L1,R2),!, 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'(R1,R2). 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'([A|R1],[A|R2]) :- 'ʸ»ú¤Ê¤é¤Ó¤«¤é¥³¥á¥ó¥È¡¦Ê¸»úÎó¤òÃê½Ð¤·¤Æ¥¿¥°¤Ç°Ï¤à'(R1,R2). ¥·¥ó¥°¥ë¥¯¥©¡¼¥È¤Î³°Â¦Æþ¤ì»Ò¤òÊÑ´¹(L,L1,R) :- append(L0,[''''|R],L), \+(member('''',R)), append(L0,['''',<,/,¥·,¥ó,¥°,¥ë,>|R],L1),!. ¥À¥Ö¥ë¥¯¥©¡¼¥È¤Î³°Â¦Æþ¤ì»Ò¤òÊÑ´¹(L,L1,R) :- append(L0,['"'|R],L), \+(member('"',R)), append(L0,['"',<,/,¥À,¥Ö,¥ë,>|R],L1),!. ¥³¥á¥ó¥È¤Î³°Â¦Æþ¤ì»Ò¤òÊÑ´¹(L,L1,R) :- append(L0,[*,/|R],L), \+(append(_,[*,/|_],R)), append(L0,[*,/,<,/,¥³,¥á,¥ó,¥È,>|R],L1),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/117 # ¥³¥á¥ó¥ÈÆâ¤ÎǤ°Õ¤Îʸ»ú¤òÁ´¤ÆÈ¾³Ñ¥¹¥Ú¡¼¥¹¤ËÃÖ¤´¹¤¨¤ëÀµµ¬É½¸½¤Ï²Äǽ¤Ç¤·¤ç¤¦¤«¡© # aaa¤Ï¸ÇÄê¤Ç¤Ï¤Ê¤¯¡¢Ä¹¤µ¤äʸ»ú¤âǤ°Õ¤Ç¤¹¡£ # ʸ»ú¿ôʬ¥¹¥Ú¡¼¥¹¤ËÃÖ¤´¹¤¨¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£ # # ÊÑ´¹Á° # /*aaa*/ # # ÊÑ´¹¸å # /* */ # # '¥³¥á¥ó¥ÈÆâ¤ÎǤ°Õ¤Îʸ»ú¤òÁ´¤ÆÈ¾³Ñ¥¹¥Ú¡¼¥¹¤ËÃÖ¤´¹¤¨¤ëÀµµ¬É½¸½¤Ï²Äǽ¤Ç¤·¤ç¤¦¤«¡© aaa¤Ï¸ÇÄê¤Ç¤Ï¤Ê¤¯¡¢Ä¹¤µ¤äʸ»ú¤âǤ°Õ¤Ç¤¹¡£ ʸ»ú¿ôʬ¥¹¥Ú¡¼¥¹¤ËÃÖ¤´¹¤¨¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£ ÊÑ´¹Á° /*aaa*/ ÊÑ´¹¸å /* */'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- ¥³¥á¥ó¥ÈÆâ¤ÎǤ°Õ¤Îʸ»ú¤òÁ´¤ÆÈ¾³Ñ¥¹¥Ú¡¼¥¹¤ËÃÖ¤´¹¤¨¤ë(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ¥³¥á¥ó¥ÈÆâ¤ÎǤ°Õ¤Îʸ»ú¤òÁ´¤ÆÈ¾³Ñ¥¹¥Ú¡¼¥¹¤ËÃÖ¤´¹¤¨¤ë(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,'/*','*/',_,_,_,S1,S2,S3,L1,L2,L3), sub_atom(S2,2,Len,2,_), length(L0,Len), all(L0,' '), atomic_list_concat([S1,'/*',L0,'*/',S3],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/103 # # ̵Íý¤À¤í¤¦¤Í # ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG¤ß¤¿¤¤¤Ê¤Î¤ÏÀµµ¬É½¸½¤Ç¤Ï̵Íý # ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG(_ʸ»úÎó,'NG') :- sub_atom(_ʸ»úÎó,S,2,_,¥Ð¥«), \+(sub_atom(_ʸ»úÎó,S,6,_,¥Ð¥«¥Ð¥«¤·¤¤)),!. ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG(_ʸ»úÎó,'OK'). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1362913813/103 # # ̵Íý¤À¤í¤¦¤Í # ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG¤ß¤¿¤¤¤Ê¤Î¤ÏÀµµ¬É½¸½¤Ç¤Ï̵Íý # ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG('') :- !. ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,2,_,¥Ð¥«), \+(sub_atom(_ʸ»úÎó,0,6,_,¥Ð¥«¥Ð¥«¤·¤¤)),!, fail. ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,6,R,¥Ð¥«¥Ð¥«¤·¤¤), sub_atom(_ʸ»úÎó,_,R,0,_Éûʸ»úÎó), ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG(_Éûʸ»úÎó),!. ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,1,_,0,_Éûʸ»úÎó), ¥Ð¥«¥Ð¥«¤·¤¤¤ÏOK¤Ç¥Ð¥«¤ÏNG(_Éûʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/591 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Perl # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¥È¥Ã¥×¤«¤éÂè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó¤Þ¤Ç¤ò¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¡£ # www.¡Êmydomain.co.jp)¢¨³ç¸Ì¤ÎÃæ # ¥µ¥Ö¥É¥á¥¤¥ó¤¬Ìµ¤¤¾ì¹ç¤âÁÛÄꤵ¤ì¤Þ¤¹¡£ # mydomain.com # www.aaa.mydomain.com # aaa.bbb.mydomain.com # # ¡üÂоݥǡ¼¥¿ # www.mydomain.co.jp # mydomain.co.jp # mydomain.com # www.aaa.mydomain.com # aaa.bbb.mydomain.com # # ¡ü´õ˾¤¹¤ë·ë²Ì # mydomain.co.jp # mydomain.com # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # '¥È¥Ã¥×¤«¤éÂè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó¤Þ¤Ç¤ò¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¡£'(_ʸ»úÎó,_Âè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó¤Þ¤Ç¤Îʸ»úÎó) :- 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó¤ÈÂè»°°Ê¾å¥ì¥Ù¥ë¥É¥á¥¤¥óʸ»úÎó¤òÆÀ¤ë'(_ʸ»úÎó,_ÂèÆóÂè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó,_Âè»°°Ê¾å¥ì¥Ù¥ë¥É¥á¥¤¥óʸ»úÎó), 'Âè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó¤òÀÚ¤ê½Ð¤¹'(_Âè»°°Ê¾å¥ì¥Ù¥ë¥É¥á¥¤¥óʸ»úÎó,_Âè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó), atomic_list_concat([_Âè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó,_ÂèÆóÂè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó],_Âè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó¤Þ¤Ç¤Îʸ»úÎó]). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó¤ÈÂè»°°Ê¾å¥ì¥Ù¥ë¥É¥á¥¤¥óʸ»úÎó¤òÆÀ¤ë'(_ʸ»úÎó,_ÂèÆóÂè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó,_Âè»°°Ê¾å¥ì¥Ù¥ëʸ»úÎó) :- 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(_ÂèÆóÂè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó), sub_atom(_ʸ»úÎó,S,Len,R,_ÂèÆóÂè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó), sub_atom(_ʸ»úÎó,0,S,_,_Âè»°°Ê¾å¥ì¥Ù¥ëʸ»úÎó). 'Âè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó¤òÀÚ¤ê½Ð¤¹'(_Âè»°°Ê¾å¥ì¥Ù¥ë¥É¥á¥¤¥óʸ»úÎó,_Âè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó) :- split(_Âè»°°Ê¾å¥ì¥Ù¥ë¥É¥á¥¤¥óʸ»úÎó,['.'],L), last(L,_Âè»°¥ì¥Ù¥ë¥É¥á¥¤¥ó),!. 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(a). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ab). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(abo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(abog). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(aboga). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(abogad). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(abogado). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ac). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ad). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(adu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(adul). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(adult). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ae). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(aer). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(aero). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(af). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(afr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(afri). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(afric). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(africa). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ag). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ai). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(al). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(am). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ams). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(amst). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(amste). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(amster). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(amsterd). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(amsterda). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(amsterdam). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ap). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(app). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(as). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(asi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(asia). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(at). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(au). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(auc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(auct). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(aucti). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(auctio). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(auction). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ax). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(az). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(b). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ba). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bab). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(baby). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ban). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bank). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bar). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(barc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(barce). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(barcel). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(barcelo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(barcelon). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(barcelona). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bb). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(be). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bee). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(beer). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ber). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(berl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(berli). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(berlin). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bik). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bike). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(biz). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bj). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(blo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(blog). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(boo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(book). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(booki). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bookin). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(booking). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bos). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bost). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bosto). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(boston). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(br). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bru). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(brus). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bruss). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(brusse). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(brussel). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(brussels). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bs). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bud). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(buda). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(budap). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(budape). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(budapes). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(budapest). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(by). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(bz). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(c). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ca). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cap). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cape). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(capet). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(capeto). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(capetow). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(capetown). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(car). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(care). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(caree). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(career). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cas). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cash). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cat). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cd). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cf). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ch). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(chr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(chri). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(chris). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(christ). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(christm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(christma). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(christmas). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ci). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cli). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(clic). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(click). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(co). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.a'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.ao'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.at'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.b'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.bw'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.ck'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.cm'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.cr'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.f'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.fk'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.h'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.hu'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.i'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.id'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.il'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.in'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.ir'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.j'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.jp'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.k'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.ke'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.kr'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.l'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.ls'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.m'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.mz'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.n'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.nl'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.no'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.nz'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.r'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.rs'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.t'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.th'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.tt'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.tz'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.u'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.ug'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.uk'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.z'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.za'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('co.zw'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cof). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(coff). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(coffe). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(coffee). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(com). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.a'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ag'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ai'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.al'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.an'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ar'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.au'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.aw'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.az'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.b'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.bd'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.bh'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.bn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.bo'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.br'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.bs'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.bt'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.cm'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.cn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.co'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.cy'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.d'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.de'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.dz'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.e'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ec'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.eg'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.es'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.et'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.f'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.fj'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.g'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ge'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.gh'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.gi'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.gl'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.gn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.gr'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.gt'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.gu'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.h'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.hk'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.hr'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.j'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.jm'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.jo'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.k'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.kh'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.kw'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.l'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.lb'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.lr'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.lv'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ly'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.m'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.mg'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.mk'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.mo'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.mt'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.mx'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.my'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.n'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.na'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ng'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ni'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.np'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.o'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.om'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.p'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.pa'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.pe'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ph'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.pk'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.pl'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.pr'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.pt'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.py'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.q'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.qa'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.r'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ro'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.s'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.sg'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.sn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.sv'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.sy'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.t'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.tn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.tr'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.tw'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.u'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ua'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.uy'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.v'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.ve'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('com.vn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(con). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cond). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(condo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(condos). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cons). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(consu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(consul). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(consult). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(consulti). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(consultin). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(consulting). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(coo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(coop). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cor). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cors). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(corsi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(corsic). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(corsica). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cre). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cred). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(credi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(credit). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cv). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cw). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cx). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cy). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cym). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cymr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cymru). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(cz). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(d). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(de). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('de.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('de.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('de.co'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('de.com'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(den). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dent). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(denta). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dental). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dj). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dk). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(do). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dow). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(down). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(downl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(downlo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(downloa). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(download). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(du). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dub). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(duba). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dubai). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(dz). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(e). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ec). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(eco). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ed). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(edu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ee). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(eg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(em). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ema). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(emar). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(emara). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(emarat). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(es). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(eu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('eu.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('eu.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('eu.co'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('eu.com'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ev). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(eve). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(even). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(event). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(events). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(f). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fil). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(film). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fli). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(flig). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fligh). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(flight). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(flights). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fly). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(foo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(food). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(foot). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(footb). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(footba). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(footbal). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(football). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(for). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(foru). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(forum). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fre). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(free). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fri). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(frie). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(frien). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(friend). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(friends). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fun). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fund). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(fut). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(futb). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(futbo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(futbol). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(g). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ga). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gam). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(game). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gay). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gd). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ge). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gen). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gent). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gf). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gmb). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gmbh). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(go). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gol). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gold). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gov). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gp). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('gr.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('gr.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('gr.co'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('gr.com'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gs). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gt). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(gy). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(h). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(he). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hel). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hels). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(helsi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(helsin). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(helsink). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(helsinki). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hiv). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hk). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ho). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hoc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hock). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hocke). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hockey). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hol). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(holi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(holid). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(holida). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(holiday). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hor). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hors). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(horse). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hos). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hosp). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hospi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hospit). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hospita). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hospital). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hot). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hote). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hotel). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hou). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hous). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(house). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ht). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(hu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(i). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ie). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(im). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(in). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(inc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(inf). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(info). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ins). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(insu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(insur). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(insure). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(io). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(iq). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ir). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(iri). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(iris). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(irish). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(is). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(isl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(isla). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(islam). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ist). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ista). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(istan). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(istanb). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(istanbu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(istanbul). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(it). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(j). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(je). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(jo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(job). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(jobs). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(jp). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(k). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ki). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kit). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kitc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kitch). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kitche). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kitchen). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ko). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(koe). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(koel). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(koeln). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ky). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(kz). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(l). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(la). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lat). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(law). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(li). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lim). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(limi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(limit). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(limite). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(limited). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lk). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lon). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lond). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(londo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(london). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lot). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lott). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lotto). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lt). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(lv). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ly). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(m). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ma). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(md). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(me). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(med). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(medi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(medic). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(medica). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(medical). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mel). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(melb). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(melbo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(melbou). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(melbour). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(melbourn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(melbourne). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(men). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(menu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mia). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(miam). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(miami). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mk). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mob). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mobi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mos). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mosc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mosco). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(moscow). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mp). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ms). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mus). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(musi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(music). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mv). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mw). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(mx). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(my). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(n). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(na). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(nam). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(name). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ne). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(net). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.a'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.au'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.b'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.bn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.br'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.cm'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.cn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.g'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.gt'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.h'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.hk'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.i'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.il'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.m'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.mx'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.n'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.nz'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.p'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.ph'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.u'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('net.uk'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(new). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(news). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(nl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(no). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(nom). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('nom.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('nom.e'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('nom.es'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(nr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(nu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(o). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(or). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(org). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.b'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.bn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.cn'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.e'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.es'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.i'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.il'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.l'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.lv'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.n'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.nz'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.p'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.ph'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.pl'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.u'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('org.uk'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(orga). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(organ). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(organi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(organic). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(p). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pa). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(par). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pari). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(paris). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pe). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ph). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pho). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(phot). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(photo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pin). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pink). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(piz). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pizz). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pizza). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pk). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(po). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pok). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(poke). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(poker). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(por). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(porn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pro). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ps). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pt). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pub). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(pw). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(q). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(qa). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(qu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(que). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(queb). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(quebe). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(quebec). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(r). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(re). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rei). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(reis). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(reise). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rep). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(repo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(repor). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(report). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(res). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rest). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(resta). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(restau). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(restaur). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(restaura). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(restauran). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(restaurant). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ro). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rom). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(roma). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rs). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ru). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rug). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rugb). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rugby). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ruh). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ruhr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(rw). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(s). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sa). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sco). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(scot). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sd). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(se). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sec). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(secu). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(secur). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(secure). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sh). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sho). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(shoe). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(shoes). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(shop). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(si). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sk). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ska). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(skat). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(skate). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ski). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(so). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sp). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(spa). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(spac). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(space). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(spo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(spor). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sport). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(st). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sto). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(stoc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(stock). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(stockh). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(stockho). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(stockhol). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(stockholm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(su). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sup). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(supp). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(suppo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(suppor). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(support). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sur). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(surf). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sv). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sx). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sy). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(syd). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sydn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sydne). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(sydney). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(t). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ta). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tat). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tatt). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tatto). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tattoo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(td). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(te). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tel). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ten). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tenn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tenni). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tennis). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tf). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(th). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tha). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(thai). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ti). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tir). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tiro). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tirol). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tj). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tk). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tl). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tm). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(to). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tok). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(toky). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tokyo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tr). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tra). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(trai). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(train). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(traini). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(trainin). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(training). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(trav). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(trave). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(travel). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tv). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(tw). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(u). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ua). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ug). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(uk). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('uk.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('uk.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('uk.co'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('uk.com'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(us). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('us.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('us.c'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('us.co'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('us.com'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('us.o'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('us.or'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('us.org'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(uy). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(uz). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(v). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(vc). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(vg). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(vi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(via). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(viaj). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(viaje). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(viajes). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(vn). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(vo). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(voy). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(voya). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(voyag). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(voyage). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(w). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wa). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wal). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wale). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wales). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(we). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(web). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('web.'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('web.d'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('web.do'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wf). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wi). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wie). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wien). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(win). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(wine). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(ws). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(x). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(xx). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(xxx). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(y). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'(yt). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§Þ'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§Þ§à'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§Þ§à§ã'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§Þ§à§ã§Ü'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§Þ§à§ã§Ü§Ó'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§Þ§à§ã§Ü§Ó§Ñ'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§â'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§â§æ'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§ã'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§ã§â'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('§ã§â§Ò'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('¹á'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('¹á¹Á'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('Ãæ'). 'ÂèÆó¡¦Âè°ì¥ì¥Ù¥ë¥É¥á¥¤¥ó'('Ãæ¹ñ'). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/600 # ¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Javascript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # HMV¤Î¾¦ÉÊID¤é¤·¤ÈÖ¹æ¤ò¼èÆÀ¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # http://ime.nu/www.hmv.co.jp/artist_¾¾Ê¿·ò_000000000039225/item_¥Þ¥Ä¥±¥ó¥µ¥ó¥Ð-2-¥ê¥ß¥Ã¥¯¥¹-¥È¥é¥Ã¥¯¥¹-dvd_1789889 # # http://ime.nu/www.hmv.co.jp/artist_¾¾Ê¿·ò_000000000039225/item_¥Þ¥Ä¥±¥ó¥µ¥ó¥Ð-2-¥ê¥ß¥Ã¥¯¥¹-¥È¥é¥Ã¥¯¥¹-dvd_1789889/ref/1448035_8 # # ¡ü´õ˾¤¹¤ë·ë²Ì # 1789889 # # ÀâÌÀ # ¥¢¥ó¥À¡¼¥Ð¡¼°Ê¹ß¤ÎËöÈø¤Î¼«Á³¿ô¤¬¾¦ÉÊID¤Ê¤Î¤Ç¤¹¤¬¡Ê¤³¤ì¤Ê¤é´Êñ¡Ë # ¥ê¥Õ¥¡¥é¡¼ÉÕ¤¤Î¾ì¹ç¤ÏËöÈø¤¸¤ã¤Ê¤¯¤Ê¤ë¤Î¤Ç½é¿´¼Ô¤Î¼«Ê¬¤Ë¤ÏÆñ¤·¤¤¤Ç¤¹¡£ # ¤Ê¤ª¡¢¾¦ÉÊID¤Ï0¡Ê¥¼¥í¡Ë¤Ç·å¹ç¤ï¤»¤Ï¤·¤Æ¤¤¤Þ¤»¤ó # # 'HMV¤Î¾¦ÉÊID¤é¤·¤ÈÖ¹æ¤ò¼èÆÀ¤·¤¿¤¤'(_ʸ»úÎó,_¾¦ÉÊID) :- sub_atom(_ʸ»úÎó,S,5,_,'/ref/'), sub_atom(_ʸ»úÎó,0,S,_,_ʸ»úÎó_1), '¾¦ÉÊID¤ÏºÇ¸å¤Î_¤«¤éËöÈø¤Þ¤Ç¤ÎÉûʸ»úÎó'(_ʸ»úÎó_1,_¾¦ÉÊID),!. 'HMV¤Î¾¦ÉÊID¤é¤·¤ÈÖ¹æ¤ò¼èÆÀ¤·¤¿¤¤'(_ʸ»úÎó,_¾¦ÉÊID) :- '¾¦ÉÊID¤ÏºÇ¸å¤Î_¤«¤éËöÈø¤Þ¤Ç¤ÎÉûʸ»úÎó'(_ʸ»úÎó,_¾¦ÉÊID),!. '¾¦ÉÊID¤ÏºÇ¸å¤Î_¤«¤éËöÈø¤Þ¤Ç¤ÎÉûʸ»úÎó'(_ʸ»úÎó,_¾¦ÉÊID) :- atom_chars(_ʸ»úÎó,Chars), append(_,['_'|R1],Chars), \+(member('_',R1)), atom_chars(_¾¦ÉÊID,R1). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/357 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # MSVC2012 / .NET Framework 4.5 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¡Ö|¡×¡Ö(¡×¡Ö)¡×¤¬Ê¸»ú¤È¤·¤ÆÆþ¤Ã¤Æ¤¤¤ë¥Ç¡¼¥¿¤«¤é¡¢ÆÃÄê¤Îʸ»úÎó¤òÈ´¤½Ð¤·¤¿¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # area|name (value) # # tokyo|yamada benzo (123) # kyoto|namae tarou (21) # saga|shitemo mitukaranai you (7) # # ¡ü´õ˾¤¹¤ë·ë²Ì # area, name, value # # "tokyo", "yamada benzo", "123" # "kyoto", "namae tarou", "21" # "saga", "shitemo mitukaranai you", "7" # # ¤³¤Î¤è¤¦¤Ë¼è¤ê½Ð¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢¤É¤Î¤è¤¦¤Ë½ñ¤¯¤È¤è¤¤¤Ç¤·¤ç¤¦¤« # # ʸ»úÎó¤ÎÀ°·Á(_ʸ»úÎó,_À°·Á¤µ¤ì¤¿Ê¸»úÎó) :- split(_ʸ»úÎó,['|','(',')'],L_1), ³ÆÍ×ÁǤÎËöÈø¤Î¶õÇò¤ò¼è¤ê½ü¤¯(L_1,L_2), ʸ»úÎó¤ËÀ°·Á¤¹¤ë(L_2,'',_À°·Á¤µ¤ì¤¿Ê¸»úÎó). ³ÆÍ×ÁǤÎËöÈø¤Î¶õÇò¤ò¼è¤ê½ü¤¯([],[]). ³ÆÍ×ÁǤÎËöÈø¤Î¶õÇò¤ò¼è¤ê½ü¤¯([A|R1],[B|R2]) :- ËöÈø¤Î¶õÇò¤ò¼è¤ê½ü¤¯(A,B), ³ÆÍ×ÁǤÎËöÈø¤Î¶õÇò¤ò¼è¤ê½ü¤¯(R1,R2). ËöÈø¤Î¶õÇò¤ò¼è¤ê½ü¤¯(A,B) :- atom_cahrs(A,Chars), append(L1,L2,Chars), all(L2,' '), atomic_list_concat(L1,B),!. ËöÈø¤Î¶õÇò¤ò¼è¤ê½ü¤¯(A,A). ʸ»úÎó¤ËÀ°·Á¤¹¤ë([A],S_1,S) :- atomic_list_concat([S_1,'"',A,'"'],S),!. ʸ»úÎó¤ËÀ°·Á¤¹¤ë([A|R],S_1,S) :- atomic_list_concat([S_1,'"',A,'", '],S_2), ʸ»úÎó¤ËÀ°·Á¤¹¤ë(R,S_2,S). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/314 # t¤Ç»Ï¤Þ¤ëʸ»úÎó¤òʸƬ¤Îthe[¥¹¥Ú¡¼¥¹]¤ò̵»ë¤·¤Æ¸¡º÷¤¹¤ë¾ì¹ç # ^t[^h]|^th[^e]|^the t¤¬»×¤¤¤Ä¤¤¤¿¤±¤É¡¢¤â¤Ã¤È¤¤¤¤Àµµ¬É½¸½¤¢¤ê¤Þ¤¹¤«¡© # # ´Ä¶¤ÏActive Perl5¤ÇÈÝÄê±é»»»Ò!¤Ï»È¤¨¤Þ¤»¤ó # # 't¤Ç»Ï¤Þ¤ëʸ»úÎó¤òʸƬ¤Îthe[¥¹¥Ú¡¼¥¹]¤ò̵»ë¤·¤Æ¸¡º÷¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,4,R,'the '),!, sub_atom(_ʸ»úÎó,4,R,0,_ʸ»úÎó_1), sub_atom(_ʸ»úÎó_1,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,[t|R_2],L3), \+(member(' ',R_2)), \+(member('\n',R_2)), (L3 = [],L3 = [' '|_]). 't¤Ç»Ï¤Þ¤ëʸ»úÎó¤òʸƬ¤Îthe[¥¹¥Ú¡¼¥¹]¤ò̵»ë¤·¤Æ¸¡º÷¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,[t|R_2],L3), \+(member(' ',R_2)), \+(member('\n',R_2)), (L3 = [],L3 = [' '|_]). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part10 #311 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ÎýÇÏ¡¢nemeryÅù¤Î¥ê¥Í¡¼¥à¥½¥Õ¥È # ²Äǽ¤Ê¥½¥Õ¥È¤Ë¾è¤ê´¹¤¨¤è¤¦¤È»×¤Ã¤Æ¤Þ¤¹ # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # 1.¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ # ¡¡¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤ # 2.ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¥¥ê¥ó¡ô¢þ☓ưʪ±à-10·î1 # ¤·¤í¤¯¤Þ¡ô¢¤☓¢þưʪ±à-5·î12 # Ç(2ɤÌÜ)¡ô²æ¤¬²È-11·î5 # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¥¥ê¥ó-10·î01 # ¤·¤í¤¯¤Þ-5·î12 # Ç(2ɤÌÜ)-11·î05 # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_¥Õ¥¡¥¤¥ë̾) :- '2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾),!. '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,S,2,0,_ËöÈøÊ¸»ú2·å), atom_number(_ËöÈøÊ¸»ú2·å,_). '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å), '0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,S,1,0,_ËöÈøÊ¸»ú1·å), atom_number(_ËöÈøÊ¸»ú1·å,_). '0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,0,S,1,_Á°Ê¸»úÎó), atomic_list_concat([_Á°Ê¸»úÎó,'0',_ËöÈøÊ¸»ú1·å],_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part10 #311 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ÎýÇÏ¡¢nemeryÅù¤Î¥ê¥Í¡¼¥à¥½¥Õ¥È # ²Äǽ¤Ê¥½¥Õ¥È¤Ë¾è¤ê´¹¤¨¤è¤¦¤È»×¤Ã¤Æ¤Þ¤¹ # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # 1.¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ # ¡¡¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤ # 2.ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¥¥ê¥ó¡ô¢þ☓ưʪ±à-10·î1 # ¤·¤í¤¯¤Þ¡ô¢¤☓¢þưʪ±à-5·î12 # Ç(2ɤÌÜ)¡ô²æ¤¬²È-11·î5 # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¥¥ê¥ó-10·î01 # ¤·¤í¤¯¤Þ-5·î12 # Ç(2ɤÌÜ)-11·î05 # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # '1.¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤ 2.ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾_1), 'ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤'(_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾_1,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_¥Õ¥¡¥¤¥ë̾) :- '2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾),!. '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '2·å¤Î¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ ¥Õ¥¡¥¤¥ë̾ÅÓÃæ¤Î¿ô»ú¤Ï¥¹¥ë¡¼¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,S,2,0,_ËöÈøÊ¸»ú2·å), atom_number(_ËöÈøÊ¸»ú2·å,_). '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å), '0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). '¥Õ¥¡¥¤¥ë̾ËöÈø¤Î¿ô»ú¤¬1·å¤Î¾ì¹ç¡¢'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,S,1,0,_ËöÈøÊ¸»ú1·å), atom_number(_ËöÈøÊ¸»ú1·å,_). '0¤ò¤Ä¤±¤ë¡£'(_¥Õ¥¡¥¤¥ë̾,S,_ËöÈøÊ¸»ú1·å,_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾) :- sub_atom(_¥Õ¥¡¥¤¥ë̾,0,S,1,_Á°Ê¸»úÎó), atomic_list_concat([_Á°Ê¸»úÎó,'0',_ËöÈøÊ¸»ú1·å],_ÃÖ´¹¤µ¤ì¤¿¥Õ¥¡¥¤¥ë̾). 'ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- 'ºï½ü³«»Ïʸ»ú¤È½ªÎ»¤Î¼¡¤Îʸ»ú¤Ç»ØÄꤵ¤ì¤¿ÈϰϤòºï½ü¤¹¤ë'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó),!. 'ÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï¡ô)¤«¤éÆÃÄê¤Îʸ»ú(Îã¤Ç¤Ï-)¤ÎÁ°¤Þ¤Ç¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_,_,_ʸ»úÎó). 'ºï½ü³«»Ïʸ»ú¤È½ªÎ»¤Î¼¡¤Îʸ»ú¤Ç»ØÄꤵ¤ì¤¿ÈϰϤòºï½ü¤¹¤ë'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- 'ºï½ü³«»Ïʸ»ú¤È½ªÎ»¤Î¼¡¤Îʸ»ú¤Ç»ØÄꤵ¤ì¤¿ÈϰϤò'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó), ºï½ü¤¹¤ë(_Á°Ê¸»úÎó,_¸åʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó). 'ºï½ü³«»Ïʸ»ú¤È½ªÎ»¤Î¼¡¤Îʸ»ú¤Ç»ØÄꤵ¤ì¤¿ÈϰϤò'(_ʸ»úÎó,_ºï½ü³«»Ïʸ»ú,_ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_ºï½ü¤µ¤ì¤ëʸ»úÎó,_¸åʸ»úÎó), sub_atom(_ºï½ü¤µ¤ì¤ëʸ»úÎó,0,1,_,_ºï½ü³«»Ïʸ»ú), sub_atom(_¸åʸ»úÎó,0,1,_,ºï½ü½ªÎ»¤Î¼¡¤Îʸ»ú). sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_¸¡º÷ʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). ºï½ü¤¹¤ë(_Á°Ê¸»úÎó,_¸åʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_¸åʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/296 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó¤ò½ç¤Ë¼è¤ê½Ð¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # <hoge><hoge></hoge>¤¢¤¢¤¢<hoge><hoge></hoge>¤¤¤¤¤¤<hoge></hoge>¤¦¤¦¤¦<hoge><hoge>¡¦¡¦¡¦ # # ¡ü´õ˾¤¹¤ë·ë²Ì # while (m.Success) # ¤Î·«¤êÊÖ¤·¤ÎÃæ¤Ç¤¢¤¢¤¢¡¢¤¤¤¤¤¤¡¢¤¦¤¦¤¦¡¦¡¦¡¦¤È½ç¤Ë¼è¤ê½Ð¤·¤Æ¤¤¤¤¿¤¤ # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó¤ò½ç¤Ë¼è¤ê½Ð¤·¤¿¤¤(_ʸ»úÎó,_¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó) :- atom_chars(_ʸ»úÎó,Chars), ¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó¤ò½ç¤Ë¼è¤ê½Ð¤·¤¿¤¤(Chars,[],_¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó). ¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó¤ò½ç¤Ë¼è¤ê½Ð¤·¤¿¤¤([],L,_¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó) :- \+(L=[]), atom_chars(_¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó,L). ¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó¤ò½ç¤Ë¼è¤ê½Ð¤·¤¿¤¤(Chars,L,_¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó) :- ¥¿¥°¤òÆÉ¤ßÈô¤Ð¤¹(Chars,_»Ä¤êʸ»ú¤Ê¤é¤Ó), atom_chars(_¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó,L). ¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó¤ò½ç¤Ë¼è¤ê½Ð¤·¤¿¤¤([A|R],L,_¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó) :- append(L,[A],L2), ¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó¤ò½ç¤Ë¼è¤ê½Ð¤·¤¿¤¤(R,L2,_¥¿¥°¤Î³°¤Ë¤¢¤ëʸ»úÎó). ¥¿¥°¤òÆÉ¤ßÈô¤Ð¤¹(Chars,_»Ä¤êʸ»ú¤Ê¤é¤Ó) :- ¥¿¥°¤Ç»Ï¤Þ¤Ã¤Æ¤¤¤ë(Chars,_¥¿¥°,_½ªÎ»¥¿¥°,_¥¿¥°¤Î¸å¤Îʸ»ú¤Ê¤é¤Ó), append(_,_½ªÎ»¥¿¥°,_»Ä¤êʸ»ú¤Ê¤é¤Ó,_¥¿¥°¤Î¸åʸ»ú¤Ê¤é¤Ó),!. ¥¿¥°¤Ç»Ï¤Þ¤Ã¤Æ¤¤¤ë(Chars,_¥¿¥°,_½ªÎ»¥¿¥°,_¥¿¥°¤Î¸å¤Îʸ»ú¤Ê¤é¤Ó) :- append(['<'|R1],['>'|_¥¿¥°¤Î¸å¤Îʸ»ú¤Ê¤é¤Ó],Chars), \+(member('<',R1)), \+(member('>',R1)), append(['<','/'|R1],['>'],_½ªÎ»¥¿¥°),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ::Àµµ¬É½¸½ Part10 #301 # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ¥µ¥¯¥é¥¨¥Ç¥£¥¿¡¡bregonig.dll Ver.3.02 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # "START"¤«¤é"END"¤Ë°Ï¤Þ¤ì¤¿"HOGE"¤òºÇû°ìÃ×(¤È¤¤¤¦¤Î¤«?¡Ë¤Ç´Þ¤Þ¤ì¤ë¹Ô¤ò¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # £±¡¥xxxxxxxSTARTyyyyyyyyHOGEzzzzzzzzzzzENDaaaaaaa # £²¡¥xxxxxxxSTARTyyyyyyyyENDbbbbbbbHOGEzzzzzzzzzzzENDaaaaaaa # # ¡ü´õ˾¤¹¤ë·ë²Ì # £±¡¥¤À¤±¥Þ¥Ã¥Á # £²¡¥¤Ï"END"¤¬"HOGE"¤ÎÁ°¤ËÆþ¤Ã¤Æ¤ë¤Î¤Ç¥Þ¥Ã¥ÁÂоݳ° # # '"START"¤«¤é"END"¤Ë°Ï¤Þ¤ì¤¿"HOGE"¤òºÇû°ìÃ×(¤È¤¤¤¦¤Î¤«?¡Ë¤Ç´Þ¤Þ¤ì¤ë¹Ô¤ò¸¡º÷¤·¤¿¤¤ '(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_START¤«¤éEND¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó,_), sub_atom(_START¤«¤éEND¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó,'START',_HOGE¤ò´Þ¤àʸ»úÎó,'END'), sub_atom(_HOGE¤ò´Þ¤àʸ»úÎó,_HOGE¤ÎÁ°Ê¸»úÎó,'HOGE',_HOGE¤Î¸åʸ»úÎó), 'ʸ»úÎó¤ÎÃæ¤ËEND¤¬Â¸ºß¤·¤Ê¤¤'(_HOGE¤ÎÁ°Ê¸»úÎó), 'ʸ»úÎó¤ÎÃæ¤ËSTART¤¬Â¸ºß¤·¤Ê¤¤'(_HOGE¤ÎÁ°Ê¸»úÎó), 'ʸ»úÎó¤ÎÃæ¤ËEND¤¬Â¸ºß¤·¤Ê¤¤'(_HOGE¤Î¸åʸ»úÎó), 'ʸ»úÎó¤ÎÃæ¤ËSTART¤¬Â¸ºß¤·¤Ê¤¤'(_HOGE¤Î¸åʸ»úÎó),!. sub_atom(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,S,_,R,_Ŭ¹çʸ»úÎó), sub_atom(_ʸ»úÎó,0,S,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,_,R,0,_¸åʸ»úÎó). 'ʸ»úÎó¤ÎÃæ¤ËSTART¤¬Â¸ºß¤·¤Ê¤¤'(_ʸ»úÎó) :- \+(sub_atom(_ʸ»úÎó,_,_,_,'START')). 'ʸ»úÎó¤ÎÃæ¤ËEND¤¬Â¸ºß¤·¤Ê¤¤'(_ʸ»úÎó) :- \+(sub_atom(_ʸ»úÎó,_,_,_,'END')). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/141 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¡ü¢§¢£¡¡¤ÎÉôʬ¤ò¥Þ¥Ã¥Á¤µ¤»¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤Û¤²¤Û¤²¡ü¢§¢£¤Û¤²¤ª¤ï¤ê # ¤Û¤²¤Û¤²¡ü¢§¢£¤Û¤²¤³¤³¤Þ¤Ç # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¡ü¢§¢£ # # ¤Û¤²¤Û¤²(?<1>.+?)¤Û¤²¤ª¤ï¤ê|¤Û¤²¤³¤³¤Þ¤Ç # # ¤Î¤è¤¦¤Ë½ñ¤¤Þ¤·¤¿¤¬¤À¤á¤ß¤¿¤¤¤Ç¤¹¡£ # ¤³¤ì¤À¤È # ¤Û¤²¤Û¤²(?<1>.+?)¤Û¤²¤ª¤ï¤ê¡¡¤â¤·¤¯¤Ï # ¤Û¤²¤³¤³¤Þ¤Ç # ¤È¤¤¤¦É÷¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¦¤Î¤Ç¤·¤ç¤¦¤«¡© # ¤Û¤²¤ª¤ï¤ê¡¡¤«¡¡¤Û¤²¤³¤³¤Þ¤Ç¡¡¤Î¤É¤Á¤é¤«¤È¤¤¤¦½ñ¤Êý¤ò¶µ¤¨¤Æ¤Û¤·¤¤¤Ç¤¹¡£ # # '¡Ö¤Û¤²¤Û¤²¡×¤Ç»Ï¤Þ¤ê¡Ö¤Û¤²¤Û¤²¤ª¤ï¤ê¡×¤«¡Ö¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç¡×¤Ç½ª¤ï¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), '¡Ö¤Û¤²¤Û¤²¡×¤Ç»Ï¤Þ¤ê'(S2,S2_1), '¡Ö¤Û¤²¤Û¤²¤ª¤ï¤ê¡×¤«¡Ö¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç¡×¤Ç½ª¤ï¤ë'(S2_1), '¡Ö¤Û¤²¤Û¤²¡×¤Ç»Ï¤Þ¤ê¡Ö¤Û¤²¤Û¤²¤ª¤ï¤ê¡×¤«¡Ö¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç¡×¤Ç½ª¤ï¤ë'(S1,S2,S3). '¡Ö¤Û¤²¤Û¤²¡×¤Ç»Ï¤Þ¤ê¡Ö¤Û¤²¤Û¤²¤ª¤ï¤ê¡×¤«¡Ö¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç¡×¤Ç½ª¤ï¤ë'(_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó). '¡Ö¤Û¤²¤Û¤²¡×¤Ç»Ï¤Þ¤ê¡Ö¤Û¤²¤Û¤²¤ª¤ï¤ê¡×¤«¡Ö¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç¡×¤Ç½ª¤ï¤ë'(S1,S2,S3,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- '¡Ö¤Û¤²¤Û¤²¡×¤Ç»Ï¤Þ¤ê¡Ö¤Û¤²¤Û¤²¤ª¤ï¤ê¡×¤«¡Ö¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç¡×¤Ç½ª¤ï¤ë'(S3,_Á°Ê¸»úÎó_1,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó), atomic_list_concat([S1,S2,_Á°Ê¸»úÎó_1],_Á°Ê¸»úÎó). '¡Ö¤Û¤²¤Û¤²¡×¤Ç»Ï¤Þ¤ê'(S2,S2_1) :- sub_atom(S2,0,4,R,¤Û¤²¤Û¤²), sub_atom(S2,4,R,0,S2_1),!. '¡Ö¤Û¤²¤Û¤²¤ª¤ï¤ê¡×¤«¡Ö¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç¡×¤Ç½ª¤ï¤ë'(S2_1) :- sub_atom(S2_1,S1,Len,0,¤Û¤²¤Û¤²¤ª¤ï¤ê), \+((sub_atom(S2_1,_,_,E,¤Û¤²¤Û¤²),E>3)). '¡Ö¤Û¤²¤Û¤²¤ª¤ï¤ê¡×¤«¡Ö¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç¡×¤Ç½ª¤ï¤ë'(S2_1) :- sub_atom(S2,_,_,0,¤Û¤²¤Û¤²¤³¤³¤Þ¤Ç), \+((sub_atom(S2_1,_,_,E,¤Û¤²¤Û¤²),E>4)). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/102 # Àµµ¬É½¸½¤Ç¤ÎÃÖ¤´¹¤¨Ê¸»úÎó¤ò¥é¥ó¥À¥à²½¤¹¤ëÊýË¡¤Ï¤¢¤ê¤Þ¤»¤ó¤«¡© # # Îã # ¸¡º÷ʸ»úÎó¡¡È¾³Ñ¥¹¥Ú¡¼¥¹¤Ç¶´¤Þ¤ì¤¿¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È4ʸ»ú # ( )(\w{1})(\w{1})(\w{1})(\w{1})( ) # ÃÖ¤´¹¤¨·ë²Ì¡¡°Ê²¼¤«¤é¡¡¥é¥ó¥À¥à¤Ç¤É¤ì¤«¤ò½ÐÎÏ # \1¡ü¡ü\3\4\5 # \1¡ü\2¡ü\4\5 # \1¡ü\2\3¡ü\5 # \1\2¡ü¡ü\4\5 # \1\2¡ü\3¡ü\5 # \1\2\3¡ü¡ü\5 # ʬ¤«¤ëÊý¤¤¤Þ¤·¤¿¤é¤ª´ê¤¤¤·¤Þ¤¹¡£ # ¥µ¥¯¥é¥¨¥Ç¥£¥¿¤Ä¤«¤Ã¤Æ¤Þ¤¹¤¬ # Ⱦ³Ñ¥¹¥Ú¡¼¥¹¤Ç¶´¤Þ¤ì¤¿¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È4ʸ»ú¥é¥ó¥À¥à¤ËÃÖ´¹¸õÊäʸ»úÎó¤ËÃÖ¤´¹¤¨¤ë(_ʸ»úÎó,A,B,C,D,E,F,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,[' '|R2],L3), append(L1_1,[' '],R2), \+(member(' ',L1_1)), ¥é¥ó¥À¥à¤ËÃÖ´¹¸õÊäʸ»úÎó¤òÆÀ¤ë(A,B,C,D,E,F,_ÃÖ´¹¸õÊäʸ»úÎó), Ⱦ³Ñ¥¹¥Ú¡¼¥¹¤Ç¶´¤Þ¤ì¤¿¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È4ʸ»ú¥é¥ó¥À¥à¤ËÃÖ´¹¸õÊäʸ»úÎó¤ËÃÖ¤´¹¤¨¤ë(S3,A,B,C,D,E,F,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), atomic_list_concat([S1,' ',_ÃÖ´¹¸õÊäʸ»úÎó,' ',_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. Ⱦ³Ñ¥¹¥Ú¡¼¥¹¤Ç¶´¤Þ¤ì¤¿¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È4ʸ»ú¥é¥ó¥À¥à¤ËÃÖ´¹¸õÊäʸ»úÎó¤ËÃÖ¤´¹¤¨¤ë(_ʸ»úÎó,A,B,C,D,E,F,_ʸ»úÎó). ¥é¥ó¥À¥à¤ËÃÖ´¹¸õÊäʸ»úÎó¤òÆÀ¤ë(A,B,C,D,E,F,_ÃÖ´¹¸õÊäʸ»úÎó) :- R is random(6) + 1, ÃÖ´¹¸õÊäʸ»úÎó(R,A,B,C,D,E,F,_ÃÖ´¹¸õÊäʸ»úÎó). ÃÖ´¹¸õÊäʸ»úÎó(1,A,B,C,D,E,_ʸ»úÎó) :- atomic_list_concat([A,¡ü¡ü,C,D,E],__ʸ»úÎó),!. ÃÖ´¹¸õÊäʸ»úÎó(2,A,B,C,D,E,_ʸ»úÎó) :- atomic_list_concat([A,¡ü,B,¡ü,D,E],__ʸ»úÎó),!. ÃÖ´¹¸õÊäʸ»úÎó(3,A,B,C,D,E,_ʸ»úÎó) :- atomic_list_concat([A,B,¡ü,C,¡ü,E],__ʸ»úÎó),!. ÃÖ´¹¸õÊäʸ»úÎó(4,A,B,C,D,E,_ʸ»úÎó) :- atomic_list_concat([A,B,¡ü¡ü,D,E],__ʸ»úÎó),!. ÃÖ´¹¸õÊäʸ»úÎó(5,A,B,C,D,E,_ʸ»úÎó) :- atomic_list_concat([A,¡ü,C,D,¡ü,E],__ʸ»úÎó),!. ÃÖ´¹¸õÊäʸ»úÎó(6,A,B,C,D,E,_ʸ»úÎó) :- atomic_list_concat([A,B,C,¡ü¡ü,E],__ʸ»úÎó),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part10 #97 # ºÇ¸å¤Ë¡û¡û¤¬¤Ä¤¯¤±¤É¥Þ¥Ã¥Á¥ó¥°Ê¸»úÎó¤Ë´Þ¤á¤Ê¤¤¤Ã¤Æ¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤ó¤Ç¤·¤Ã¤¿¤Ã¤± # # ËöÈø¤Ë»ØÄêÍ×ÁǤ¬¤¢¤ë¤¬¤½¤ì¤ò½ü¤¤¤¿Ê¸»úÎó(_ʸ»úÎó,_ËöÈø¤Î»ØÄêÍ×ÁÇ,_ËöÈø¤Î»ØÄêÍ×ÁǤò½ü¤¤¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_³«»Ï°ÌÃÖ,_ʸ»úÎóĹ,0,_ËöÈø¤Î»ØÄêʸ»úÎó), sub_atom(_ʸ»úÎó,0,_³«»Ï°ÌÃÖ,_,_ËöÈø¤Î»ØÄêÍ×ÁǤò½ü¤¤¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/71 # ¿ôÃÍÈæ³Ó¤òÀµµ¬É½¸½¤À¤±¤Ç¤ä¤ë¤³¤È¤Ë¤Ê¤Ã¤Æ¡¢¤¿¤Ã¤¿4·å¤Ê¤Î¤Ëµã¤¤½¤¦¡£ # # '¿ôÃÍÈæ³Ó¤òÀµµ¬É½¸½¤À¤±¤Ç¤ä¤ë¤³¤È¤Ë¤Ê¤Ã¤Æ¡¢¤¿¤Ã¤¿4·å¤Ê¤Î¤Ëµã¤¤½¤¦¡£'(_4·å¥Ö¥é¥¹4·å¤Î¿ô»úÎó,_¿ÇÃÇ) :- atom_chars(_4·å¥Ö¥é¥¹4·å¤Î¿ô»úÎó,[A,B,C,D,E,F,G,H]), '¿ÇÃÇ: 4·å¤Î¿ô»ú¤Ê¤é¤ÓÈæ³Ó'([A,B,C,D],[E,F,G,H],_¿ÇÃÇ),!. '¿ÇÃÇ: 4·å¤Î¿ô»ú¤Ê¤é¤ÓÈæ³Ó'(L,L,=) :- !. '¿ÇÃÇ: 4·å¤Î¿ô»ú¤Ê¤é¤ÓÈæ³Ó'(L1,L2,<) :- L1 @< L2,!. '¿ÇÃÇ: 4·å¤Î¿ô»ú¤Ê¤é¤ÓÈæ³Ó'(L1,L2,>) :- L1 @> L2,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/28 # ../test/read.cgi/tech/1340383120/27 # ¤¦¤¢¡ªÁ᡹¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£ # ¤¢¤Þ¤¨¤Ä¤¤¤Ç¤Ë¸¡º÷Âоݤ¬¡Öñ¸ì¡×¤Ë¤Ê¤Ã¤¿¾ì¹ç¤Ï¤É¤¦¤·¤¿¤éÎɤ¤¤Ç¤·¤ç¤¦¤«¡© # # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Java7 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # # Ê£¿ô¤¢¤ëʸ»ú¹Ô¤«¤é¤Î¸¡º÷¤Ç¡Úñ¸ìA¡Û¡Úñ¸ìB¡Û¤òand/or¸¡½Ð # # ¡üÂоݥǡ¼¥¿ # # ¤à¤«¤·¤à¤«¤·¡¢¤ª¤¸¤¤¤µ¤ó¤Ï»³¤Ë¼Ç´¢¤ê¤Ë¡¢¤ª¤Ð¤¢¤µ¤ó¤ÏÀî¤ËÀöÂõ¤Ë¹Ô¤¤Þ¤·¤¿¡Ê²þ¹Ô¡Ë±ºÅçÂÀϺ¤Ï¤«¤á¤Ë¤Î¤Ã¤Æ³¤¤Ë½Ð¤Æ¹Ô¤¤Þ¤·¤¿¡Ê²þ¹Ô¡Ë # ¤½¤¦¤¹¤ë¤È¡¢¤ª¤¸¤¤¤µ¤ó¤Ï¡Ö¤ï¤¿¤·¤Ï¾®¤µ¤Ê¤Ä¤Å¤é¤Ç¤è¤¤¡×¤È¤¤¤¤¤Þ¤·¤¿¡Ê²þ¹Ô¡Ë # # ¡ü´õ˾¤¹¤ë·ë²Ì # # ¡Ö¤ª¤¸¤¤¤µ¤ó¡×and¡Ö¤ª¤Ð¤¢¤µ¤ó¡× # ¤à¤«¤·¤à¤«¤·¡¢¤ª¤¸¤¤¤µ¤ó¤Ï»³¤Ë¼Ç´¢¤ê¤Ë¡¢¤ª¤Ð¤¢¤µ¤ó¤ÏÀî¤ËÀöÂõ¤Ë¹Ô¤¤Þ¤·¤¿¡Ê²þ¹Ô¡Ë # ¡Ö¤ª¤¸¤¤¤µ¤ó¡×or ¡Ö¤ª¤Ð¤¢¤µ¤ó¡× # ¤à¤«¤·¤à¤«¤·¡¢¤ª¤¸¤¤¤µ¤ó¤Ï»³¤Ë¼Ç´¢¤ê¤Ë¡¢¤ª¤Ð¤¢¤µ¤ó¤ÏÀî¤ËÀöÂõ¤Ë¹Ô¤¤Þ¤·¤¿¡Ê²þ¹Ô¡Ë¤½¤¦¤¹¤ë¤È¡¢¤ª¤¸¤¤¤µ¤ó¤Ï¡Ö¤ï¤¿¤·¤Ï¾®¤µ¤Ê¤Ä¤Å¤é¤Ç¤è¤¤¡×¤È¤¤¤¤¤Þ¤·¤¿¡Ê²þ¹Ô¡Ë # 'Ê£¿ô¤¢¤ëʸ»ú¹Ô¤«¤é¤Î¸¡º÷¤Ç°ì¹ÔÃæ¤Ë¡Ö¤ª¤¸¤¤¤µ¤ó¡×and ¡Ö¤ª¤Ð¤¢¤µ¤ó¡×¤ò´Þ¤à¹Ô¤òÃê½Ð¤¹¤ëÊýË¡'(_Ê£¿ô¤¢¤ëʸ»ú¹Ô,_Ŭ¹ç¹Ô) :- split(_Ê£¿ô¤¢¤ëʸ»úÎó,['\n'],_ʸ»ú¹Ô¤Ê¤é¤Ó), member(_Ŭ¹ç¹Ô,_ʸ»ú¹Ô¤Ê¤é¤Ó), '°ì¹ÔÃæ¤Ë¡Ö¤ª¤¸¤¤¤µ¤ó¡×and ¡Ö¤ª¤Ð¤¢¤µ¤ó¡×¤ò´Þ¤à¹Ô¤ò'(_Ŭ¹ç¹Ô). '°ì¹ÔÃæ¤Ë¡Ö¤ª¤¸¤¤¤µ¤ó¡×and ¡Ö¤ª¤Ð¤¢¤µ¤ó¡×¤ò´Þ¤à¹Ô¤ò'(_ʸ»ú¹Ô) :- sub_atom(_ʸ»ú¹Ô,_,_,_,'¤ª¤¸¤¤¤µ¤ó'), sub_atom(_ʸ»ú¹Ô,_,_,_,'¤ª¤Ð¤¢¤µ¤ó'),!. 'Ê£¿ô¤¢¤ëʸ»ú¹Ô¤«¤é¤Î¸¡º÷¤Ç°ì¹ÔÃæ¤Ë¡Ö¤ª¤¸¤¤¤µ¤ó¡×or ¡Ö¤ª¤Ð¤¢¤µ¤ó¡×¤ò´Þ¤à¹Ô¤òÃê½Ð¤¹¤ëÊýË¡'(_Ê£¿ô¤¢¤ëʸ»ú¹Ô,_Ŭ¹ç¹Ô) :- split(_Ê£¿ô¤¢¤ëʸ»úÎó,['\n'],_ʸ»ú¹Ô¤Ê¤é¤Ó), member(_Ŭ¹ç¹Ô,_ʸ»ú¹Ô¤Ê¤é¤Ó), '°ì¹ÔÃæ¤Ë¡Ö¤ª¤¸¤¤¤µ¤ó¡×or ¡Ö¤ª¤Ð¤¢¤µ¤ó¡×¤ò´Þ¤à¹Ô¤ò'(_Ŭ¹ç¹Ô). '°ì¹ÔÃæ¤Ë¡Ö¤ª¤¸¤¤¤µ¤ó¡×or ¡Ö¤ª¤Ð¤¢¤µ¤ó¡×¤ò´Þ¤à¹Ô¤ò'(_ʸ»ú¹Ô) :- sub_atom(_ʸ»ú¹Ô,_,_,_,¤ª¤¸¤¤¤µ¤ó),!, '°ì¹ÔÃæ¤Ë¡Ö¤ª¤¸¤¤¤µ¤ó¡×or ¡Ö¤ª¤Ð¤¢¤µ¤ó¡×¤ò´Þ¤à¹Ô¤ò'(_ʸ»ú¹Ô) :- sub_atom(_ʸ»ú¹Ô,_,_,_,¤ª¤Ð¤¢¤µ¤ó),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1340383120/26 # ¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£Ê£¿ô¹Ô¤«¤é¤Î¤¢¤ëʸ»úÎó¤ò´Þ¤ó¤À # ¹Ô¤Î¸¡º÷¤Îµ½ÒÊýË¡¤Ç¤¹ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Java7 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # Ê£¿ô¤¢¤ëʸ»ú¹Ô¤«¤é¤Î¸¡º÷¤Ç # °ì¹ÔÃæ¤Ë[A]and[C]¤ò´Þ¤à¹Ô¤òÃê½Ð¤¹¤ëÊýË¡ # °ì¹ÔÃæ¤Ë[K]or[S]¤ò´Þ¤à¹Ô¤òÃê½Ð¤¹¤ëÊýË¡ # # # ¡üÂоݥǡ¼¥¿ # ABCDEFG # HIJKLMN # OPQRSTU # # ¡ü´õ˾¤¹¤ë·ë²Ì # ABCDEFG (A and C) # HIJKLMN ¤È¡¡OPQRSTU¡¡ (K or S) # # # # 'Ê£¿ô¤¢¤ëʸ»ú¹Ô¤«¤é¤Î¸¡º÷¤Ç°ì¹ÔÃæ¤Ë[A]and[C]¤ò´Þ¤à¹Ô¤òÃê½Ð¤¹¤ëÊýË¡'(_Ê£¿ô¤¢¤ëʸ»ú¹Ô,_Ŭ¹ç¹Ô) :- split(_Ê£¿ô¤¢¤ëʸ»úÎó,['\n'],_ʸ»ú¹Ô¤Ê¤é¤Ó), member(_Ŭ¹ç¹Ô,_ʸ»ú¹Ô¤Ê¤é¤Ó), '°ì¹ÔÃæ¤Ë[A]and[C]¤ò´Þ¤à¹Ô¤ò'(_Ŭ¹ç¹Ô). '°ì¹ÔÃæ¤Ë[A]and[C]¤ò´Þ¤à¹Ô¤ò'(_ʸ»ú¹Ô) :- sub_atom(_ʸ»ú¹Ô,_,1,_,'A'), sub_atom(_ʸ»ú¹Ô,_,1,_,'C'),!. 'Ê£¿ô¤¢¤ëʸ»ú¹Ô¤«¤é¤Î¸¡º÷¤Ç°ì¹ÔÃæ¤Ë[K]or[S]¤ò´Þ¤à¹Ô¤òÃê½Ð¤¹¤ëÊýË¡'(_Ê£¿ô¤¢¤ëʸ»ú¹Ô,_Ŭ¹ç¹Ô) :- split(_Ê£¿ô¤¢¤ëʸ»úÎó,['\n'],_ʸ»ú¹Ô¤Ê¤é¤Ó), member(_Ŭ¹ç¹Ô,_ʸ»ú¹Ô¤Ê¤é¤Ó), '°ì¹ÔÃæ¤Ë[K]or[S]¤ò´Þ¤à¹Ô¤ò'(_Ŭ¹ç¹Ô). '°ì¹ÔÃæ¤Ë[K]or[S]¤ò´Þ¤à¹Ô¤ò'(_ʸ»ú¹Ô) :- sub_atom(_ʸ»ú¹Ô,_,1,_,'K'),!, '°ì¹ÔÃæ¤Ë[K]or[S]¤ò´Þ¤à¹Ô¤ò'(_ʸ»ú¹Ô) :- sub_atom(_ʸ»ú¹Ô,_,1,_,'S'),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/921 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # µ´¼Ö # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÂоݥǡ¼¥¿ # ¤¢¤¢¤¢¤«¤« # ¤¦¤¦¤¦¤¤ # ¤¤¤¤¤¤¤¯¤¯ # # ¡ü´õ˾¤¹¤ë·ë²Ì¡Ê¤¢¤¢¤¢¡¡¤¤¤¤¤¤¡¡¤¦¤¦¤¦¤ò¥Þ¥Ã¥Á¤µ¤»¤ë¡¡¡õ¡¡¤¤¡¡¤¯¤¯¡¡¤Îʸ»ú¤ò´Þ¤Þ¤Ê¤¤¡Ë # ¤¢¤¢¤¢ # ¡Ê¤¢¤¢¤¢¡¡¤ÎÉôʬ¤Î¤ß¥Þ¥Ã¥Á¡Ë # # ¡üÀâÌÀ # Ê£¿ô¤Îʸ»ú(ʸ»úÎó1)¤ò¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¡¢¤½¤·¤Æ # ¤½¤Îʸ»úÎóÃæ¤Ç¡¢»ØÄꤷ¤¿Ê¸»ú¤¬Æþ¤Ã¤Æ¤¿¤È¤¡¢¤½¤Îʸ»ú(ʸ»úÎó1)¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ï²Äǽ¤Ç¤·¤ç¤¦¤«¡£ # # [Îãʸ] # ¤¢¤¢¤¢¤«¤« # ¤¦¤¦¤¦¤¤ # ¤¤¤¤¤¤¤¯¤¯ # # ¢¹½Ê¸¤Ïnot»È¤Ã¤¿¤ê¤ÈÀµµ¬É½¸½¤È´Ø·¸Ìµ¤¯¤Æ¿½¤·Ìõ¤Ê¤¤¤Ç¤¹¤¬¼«Ê¬¤Î¥¤¥á¡¼¥¸Åª¤Ë¤Ï¤³¤ó¤Ê´¶¤¸¤Ç¤¹¡£ # ( (¤¢¤¢¤¢|¤¤¤¤¤¤|¤¦¤¦¤¦) (not (¤¤|¤¯¤¯)) ) # # ¤³¤Î¾ì¹ç¡¢¡Ö¤¢¤¢¤¢¤«¤«(Àµ³Î¤Ë¤Ï¡¡¤¢¤¢¤¢¡¡¤ÎÉôʬ¤Î¤ß¡Ë¡×¤¬¥Þ¥Ã¥Á¤È¤Ê¤ê¡¢ # ʸ»úÎóÃæ¤Ë¡Ö¤¤¡¢¤¯¤¯¡×¤¬Ê¸»úÎó¤Ë´Þ¤Þ¤ì¤ë # ¡Ö¤¦¤¦¤¦¤¤¡ÊÀµ³Î¤Ë¤Ï¡¡¤¦¤¦¤¦¡¡¤ÎÉôʬ¡Ë¡×¤È¡Ö¤¤¤¤¤¤¤¯¤¯¡ÊÀµ³Î¤Ë¤Ï¡¡¤¤¤¤¤¤¡¡¤ÎÉôʬ¡Ë¡×¤Ï¥Þ¥Ã¥Á¤µ¤»¤Ê¤¤´¶¤¸¤Ç¤¹¡£ # # Ä´¤Ù¤¿´¶¤¸¤Ç¤¹¤È¡¢ÈÝÄêʸ¤ò»È¤¦·Á¤Ë¤Ê¤ë¤È¤Ï»×¤¤¤Þ¤¹¤¬¡¢ÈÝÄêʸ¤¬·ë¹½Ê£»¨¤½¤¦¤Ç¡¢ # ¤½¤ì¤ËÊ£¿ô¤ÎÈÝÄê¤ò²Ã¤¨¤ë¤è¤¦¤À¤È¤«¤Ê¤êÆñ¤·¤¤¤è¤¦¤Ë´¶¤¸¤Þ¤¹¤¬¡¢¼ÂºÝ¤Ë # ¤³¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò¼Â¸½½ÐÍè¤ë¤«É԰¤ʤΤǤ¹¤¬¡¢¼Â¸½²Äǽ¤Ç¤·¤ç¤¦¤«¡£ # ¤Þ¤¿¡¢¤â¤·¾åµ¤òËþ¤¿¤¹Àµµ¬É½¸½¤¬Ê¬¤«¤ëÊý¤ª¤ê¤Þ¤·¤¿¤é¶µ¤¨¤ÆÄº¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£ # ¤É¤¦¤¾¤è¤í¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£ ʸ»úÎó¤Ê¤é¤Ó¤Î¸¡º÷([_Ŭ¹çʸ»úÎó|R],_Ŭ¹çʸ»úÎó) :- \+(sub_atom(_Ŭ¹çʸ»úÎó,_,2,_,¤¤)), \+(sub_atom(_Ŭ¹çʸ»úÎó,_,2,_,¤¯¤¯)), Ŭ¹çʸ»úÎó(_Ŭ¹çʸ»úÎó). ʸ»úÎó¤Ê¤é¤Ó¤Î¸¡º÷([_ʸ»úÎó|R],_Ŭ¹çʸ»úÎó) :- ʸ»úÎó¤Ê¤é¤Ó¤Î¸¡º÷(R,_Ŭ¹çʸ»úÎó). Ŭ¹çʸ»úÎó(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,3,_,¤¢¤¢¤¢),!. Ŭ¹çʸ»úÎó(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,3,_,¤¤¤¤¤¤),!. Ŭ¹çʸ»úÎó(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,0,3,_,¤¦¤¦¤¦),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/862 # °Ê²¼¤Î¤è¤¦¤Ë¸¡º÷¤ÈÃÖ´¹¤ò¤·¤¿¤¤¤Î¤Ç¤¹¤¬ # name0 name1 name2¤¬½çÈÖ¤¬°Û¤Ê¤ë»þ¤É¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò¤«¤±¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤« # # <en_Image name0="image.png" name1="¥«¥ÄЧ" name2="¤´ÈÓ"></en_Image> # <en_Image name0="image.png" name2="¤´ÈÓ" name1="¥«¥ÄЧ"></en_Image> # <en_Image name2="¤´ÈÓ" name1="¥«¥ÄЧ" name0="image.png"></en_Image> # ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¢ # <en_Image name="¥«¥ÄЧ¤´ÈÓimage.png"></en_Image> # # name0 name1 name2¤¬½çÈÖ¤¬°Û¤Ê¤ë»þ,°Ê²¼¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤Ç¤Ï¼è¤ê½Ð¤»¤Þ¤¹¤ó # pattern="<en_Image.*?name0=\"(\\w+?).*?name1=\"(\\w+?).*?name2=\"(\\w+?)">.*?</en_Image>" # replace="<en_Image name==\"$2$3.$1\"></en_Image>" # # # 'name0 name1 name2¤¬½çÈÖ¤¬°Û¤Ê¤ë»þ¤Î¸¡º÷¤ÈÃÖ´¹'(_ʸ»úÎó,_ÃÖ´¹Ê¸»úÎó) :- sPLIT(_ʸ»úÎó,['
'],L), ÃÖ´¹(L,L1), atomic_list_concat(L1,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ÃÖ´¹([],[]) :- !. ÃÖ´¹([A1,B1,' ',A2,B2,' ',A3,C3|R1],['name="¥«¥ÄЧ¤´ÈÓimage.png"'|R2]) :- ¾ò·ï_1([A1,A2,A3]), ¾ò·ï_2([B1,B2,B3]), ÃÖ´¹(R1,R2),!. ÃÖ´¹([A|R1],[A|R2]) :- ÃÖ´¹(R1,R2). ¾ò·ï_1([]) :- !. ¾ò·ï_1([A|R]) :- member(A,['name0=','name1=','name2=']), ¾ò·ï_1(R). ¾ò·ï_2([]) :- !. ¾ò·ï_2([A|R]) :- member(A,['image.png','¤´ÈÓ','¥«¥ÄЧ']), ¾ò·ï_2(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/814 # ¤·¤Ð¤é¤¯¤º¤Ã¤È¥×¥í¥°¥é¥ß¥ó¥°¤·¤Æ¤Ê¤«¤Ã¤¿¤â¤Î¤Ç¡¢Àµµ¬É½¸½¤ò˺¤ì¤Æ¤·¤Þ¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢PHP¤Ë¤Æ # # Japanese system that # <a title=" ¤É¤¦¤ä¤é¡Á¤é¤·¤¤" style="text-decoration: underline" href="javascript:;">apparently</a> # # ¤Î¤è¤¦¤Êʸ¾Ï¤Ç¡¢Î¾<a>¥¿¥°¤ò½üµî¤·¤Æ(apparently¤Ï»Ä¤¹)¡¢¥Æ¥¥¹¥È¤À¤±¤Ë¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢¤É¤Î¤è¤¦¤Ë½ñ¤±¤Ð¤¤¤¤¤Ç¤·¤ç¤¦¤«¡© # ξ¥¿¥°¤ò½üµî¤¹¤ë(_ʸ»úÎó,_ξ¥¿¥°¤ò½üµî¤µ¤ì¤¿Ê¸»úÎó) :- search(_ʸ»úÎó,[<,a],S2_2,[<,/,a,>],S1,S2,S3,L1,L2,L3), search(S2_2,[>],S2_3,[],_,_,_,_,_,_), atomic_list_concat([S1,S2_3,S3],_ξ¥¿¥°¤ò½üµî¤µ¤ì¤¿Ê¸»úÎó). % search/10 % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/775 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PCRE # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # <tag>¤«¤é</tag>Æâ¤Îʸ»úÎóabc¤òABC¤ØÃÖ´¹¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # xabcxxx<tag>abcxxxxxxxxxxxabcxxxxxxxabcxx</tag>xxxxabcxxxabcxx # xabcxxx<tag>abc</tag>xxxxaxxxxxxxabcxxcxxxxx<tag>abcxx</tag>xxx # # ¡ü´õ˾¤¹¤ë·ë²Ì # xabcxxx<tag>ABCxxxxxxxxxxxABCxxxxxxxABCxx</tag>xxxxabcxxxabcxx # xabcxxx<tag>ABC</tag>xxxxaxxxxxxxabcxxcxxxxx<tag>ABCxx</tag>xxx # # # '<tag>¤«¤é</tag>Æâ¤Îʸ»úÎóabc¤òABC¤ØÃÖ´¹¤·¤¿¤¤'(_ʸ»úÎó,_¥¿¥°,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- ¥¿¥°¤È½ªÎ»¥¿¥°Ê¸»ú¤Ê¤é¤Ó(_¥¿¥°,_¥¿¥°Ê¸»ú¤Ê¤é¤Ó,_½ªÎ»¥¿¥°Ê¸»ú¤Ê¤é¤Ó), sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), append(L1_1,_¥¿¥°Ê¸»ú¤Ê¤é¤Ó,L1), append(_½ªÎ»¥¿¥°Ê¸»ú¤Ê¤é¤Ó,R3,L3), ¥¿¥°¤Þ¤¿¤Ï½ªÎ»¥¿¥°¤ò´Þ¤Þ¤Ê¤¤(L2,_¥¿¥°Ê¸»ú¤Ê¤é¤Ó,_½ªÎ»¥¿¥°Ê¸»ú¤Ê¤é¤Ó), abc¤òABC¤ØÃÖ´¹(S2,S2_2), '<tag>¤«¤é</tag>Æâ¤Îʸ»úÎóabc¤òABC¤ØÃÖ´¹¤·¤¿¤¤'(S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), atomic_list_concat([S1,S2_2,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. '<tag>¤«¤é</tag>Æâ¤Îʸ»úÎóabc¤òABC¤ØÃÖ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). ¥¿¥°¤È½ªÎ»¥¿¥°Ê¸»ú¤Ê¤é¤Ó(_¥¿¥°,_¥¿¥°Ê¸»ú¤Ê¤é¤Ó,_½ªÎ»¥¿¥°Ê¸»ú¤Ê¤é¤Ó) :- atom_chars(_¥¿¥°,Chars), append([<],Chars,[>],_¥¿¥°Ê¸»ú¤Ê¤é¤Ó), append([<,/],Chars,[>],_½ªÎ»¥¿¥°Ê¸»ú¤Ê¤é¤Ó),!. ¥¿¥°¤Þ¤¿¤Ï½ªÎ»¥¿¥°¤ò´Þ¤Þ¤Ê¤¤(L,L1,L2) :- \+(append(_,L1,_,L)), \+(append(_,L2,_,L)). abc¤òABC¤ØÃÖ´¹(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,abc,S3,_,_,_), abc¤òABC¤ØÃÖ´¹(S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), atomic_list_concat([S1,'ABC',_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. abc¤òABC¤ØÃÖ´¹(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/775 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PCRE # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # <tag>¤«¤é</tag>Æâ¤Îʸ»úÎóabc¤òABC¤ØÃÖ´¹¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # xabcxxx<tag>abcxxxxxxxxxxxabcxxxxxxxabcxx</tag>xxxxabcxxxabcxx # xabcxxx<tag>abc</tag>xxxxaxxxxxxxabcxxcxxxxx<tag>abcxx</tag>xxx # # ¡ü´õ˾¤¹¤ë·ë²Ì # xabcxxx<tag>ABCxxxxxxxxxxxABCxxxxxxxABCxx</tag>xxxxabcxxxabcxx # xabcxxx<tag>ABC</tag>xxxxaxxxxxxxabcxxcxxxxx<tag>ABCxx</tag>xxx # # # '<tag>¤«¤é</tag>Æâ¤Îʸ»úÎóabc¤òABC¤ØÃÖ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), append(L1_1,[<,t,a,g,>],L1), L3 = [<,/,t,a,g,>|R3], 'tag¤Þ¤¿¤Ï/tag¤ò´Þ¤Þ¤Ê¤¤'(L2), abc¤òABC¤ØÃÖ´¹(S2,S2_2), '<tag>¤«¤é</tag>Æâ¤Îʸ»úÎóabc¤òABC¤ØÃÖ´¹¤·¤¿¤¤'(S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), atomic_list_concat([S1,S2_2,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. '<tag>¤«¤é</tag>Æâ¤Îʸ»úÎóabc¤òABC¤ØÃÖ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). 'tag¤Þ¤¿¤Ï/tag¤ò´Þ¤Þ¤Ê¤¤'(L2) :- \+(append(_,[<,t,a,g,>|_],L2)), \+(append(_,[<,/,t,a,g,>|_],L2)). abc¤òABC¤ØÃÖ´¹(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,abc,S3,_,_,_), abc¤òABC¤ØÃÖ´¹(S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), atomic_list_concat([S1,'ABC',_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. abc¤òABC¤ØÃÖ´¹(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/765 # °Ê²¼¤Î²ò·èÊýË¡¤ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # emacs-lisp # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # ÆÃÄê¤Îʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤¤¬¡¢Ê¸»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ëʸ»úÎó¤ò¸¡º÷¤·¤¿¤¤¡£ # ½é´ü¾õÂÖ¤Çregexp¤Ï¢¤Î¤è¤¦¤Ë¤Ê¤Ã¤Æ¤ª¤ê # "-\\(ring\\|history\\)\\'" # ʸ»úÎóËöÈø¤Ë -ring¡¡¤« -history ¤¬¤¢¤ì¤Ð¥Þ¥Ã¥Á¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # ¤³¤Î¾õÂÖ¤ò°Ý»ý¤·¤Ä¤ÄÆÃÄê¤Îʸ»úÎó¤ò´Þ¤àʸ»úÎó¤Ç¤¢¤ì¤Ð¥Þ¥Ã¥Á¤µ¤»¤¿¤¯¤Ê¤¤¾õ¶·¤òºî¤ê¤¿¤¤¤Ç¤¹¡£ # ¡üÂоݥǡ¼¥¿ # hogehoge-kill-ring # hugahuga-history # user-hogehoge-kill-ring # user-hugahuga-history # hogehoge-user-kill-ring # hugahuga-user-history # ¡ü´õ˾¤¹¤ë·ë²Ì # hogehoge-kill-ring # ^ # hugahuga-history # ^ # ¤À¤±¤¬Æñ¤·¤±¤ì¤ÐºÇ°¢¤â´Þ¤ó¤Ç¤·¤Þ¤Ã¤Æ£Ï£Ë # hogehoge-user-kill-ring # ^ # hugahuga-user-history # ^ # °Ê¾å¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # # 'ÆÃÄê¤Îʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤¤¬¡¢Ê¸»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¸¡º÷'(_ʸ»úÎó,_ʸ»úÎó£Á,_ʸ»úÎó£Â,_ʸ»úÎó£Ã,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_,_,_), 'ʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤'(_Ŭ¹çʸ»úÎó,_ʸ»úÎó£Á), 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_Ŭ¹çʸ»úÎó,_ʸ»úÎó£Â,_ʸ»úÎó£Ã). 'ʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤'(_ʸ»úÎó,_ʸ»úÎó£Á) :- \+(_ʸ»úÎó=_ʸ»úÎó£Á). 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó,_ʸ»úÎó£Â,_) :- _ʸ»úÎó = _ʸ»úÎó£Â,!. 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó,_,_ʸ»úÎó£Ã) :- _ʸ»úÎó = _ʸ»úÎó£Ã. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/765 # °Ê²¼¤Î²ò·èÊýË¡¤ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # emacs-lisp # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # ÆÃÄê¤Îʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤¤¬¡¢Ê¸»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ëʸ»úÎó¤ò¸¡º÷¤·¤¿¤¤¡£ # ½é´ü¾õÂÖ¤Çregexp¤Ï¢¤Î¤è¤¦¤Ë¤Ê¤Ã¤Æ¤ª¤ê # "-\\(ring\\|history\\)\\'" # ʸ»úÎóËöÈø¤Ë -ring¡¡¤« -history ¤¬¤¢¤ì¤Ð¥Þ¥Ã¥Á¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # ¤³¤Î¾õÂÖ¤ò°Ý»ý¤·¤Ä¤ÄÆÃÄê¤Îʸ»úÎó¤ò´Þ¤àʸ»úÎó¤Ç¤¢¤ì¤Ð¥Þ¥Ã¥Á¤µ¤»¤¿¤¯¤Ê¤¤¾õ¶·¤òºî¤ê¤¿¤¤¤Ç¤¹¡£ # ¡üÂоݥǡ¼¥¿ # hogehoge-kill-ring # hugahuga-history # user-hogehoge-kill-ring # user-hugahuga-history # hogehoge-user-kill-ring # hugahuga-user-history # ¡ü´õ˾¤¹¤ë·ë²Ì # hogehoge-kill-ring # ^ # hugahuga-history # ^ # ¤À¤±¤¬Æñ¤·¤±¤ì¤ÐºÇ°¢¤â´Þ¤ó¤Ç¤·¤Þ¤Ã¤Æ£Ï£Ë # hogehoge-user-kill-ring # ^ # hugahuga-user-history # ^ # °Ê¾å¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # # 'ÆÃÄê¤Îʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤¤¬¡¢Ê¸»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¸¡º÷'(_ʸ»úÎó,_ʸ»úÎó£Á,_ʸ»úÎó£Â,_ʸ»úÎó£Ã,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_,_,_), 'ʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤'(_Ŭ¹çʸ»úÎó,_ʸ»úÎó£Á), 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_Ŭ¹çʸ»úÎó,_ʸ»úÎó£Â,_ʸ»úÎó£Ã). 'ʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤'(_ʸ»úÎó,_ʸ»úÎó£Á) :- \+(_ʸ»úÎó=_ʸ»úÎó£Á). 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó,_ʸ»úÎó£Â,_) :- _ʸ»úÎó = _ʸ»úÎó£Â,!. 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó,_,_ʸ»úÎó£Ã) :- _ʸ»úÎó = _ʸ»úÎó£Ã. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/765 # °Ê²¼¤Î²ò·èÊýË¡¤ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # emacs-lisp # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # ÆÃÄê¤Îʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤¤¬¡¢Ê¸»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ëʸ»úÎó¤ò¸¡º÷¤·¤¿¤¤¡£ # ½é´ü¾õÂÖ¤Çregexp¤Ï¢¤Î¤è¤¦¤Ë¤Ê¤Ã¤Æ¤ª¤ê # "-\\(ring\\|history\\)\\'" # ʸ»úÎóËöÈø¤Ë -ring¡¡¤« -history ¤¬¤¢¤ì¤Ð¥Þ¥Ã¥Á¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # ¤³¤Î¾õÂÖ¤ò°Ý»ý¤·¤Ä¤ÄÆÃÄê¤Îʸ»úÎó¤ò´Þ¤àʸ»úÎó¤Ç¤¢¤ì¤Ð¥Þ¥Ã¥Á¤µ¤»¤¿¤¯¤Ê¤¤¾õ¶·¤òºî¤ê¤¿¤¤¤Ç¤¹¡£ # ¡üÂоݥǡ¼¥¿ # hogehoge-kill-ring # hugahuga-history # user-hogehoge-kill-ring # user-hugahuga-history # hogehoge-user-kill-ring # hugahuga-user-history # ¡ü´õ˾¤¹¤ë·ë²Ì # hogehoge-kill-ring # ^ # hugahuga-history # ^ # ¤À¤±¤¬Æñ¤·¤±¤ì¤ÐºÇ°¢¤â´Þ¤ó¤Ç¤·¤Þ¤Ã¤Æ£Ï£Ë # hogehoge-user-kill-ring # ^ # hugahuga-user-history # ^ # °Ê¾å¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # # 'ÆÃÄê¤Îʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤¤¬¡¢Ê¸»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¸¡º÷'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_,_,_), 'ʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤'(_Ŭ¹çʸ»úÎó), 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_Ŭ¹çʸ»úÎó). 'ʸ»úÎó£Á¤Ë¥Þ¥Ã¥Á¤·¤Ê¤¤'(_Ŭ¹çʸ»úÎó) :- ʸ»úÎó£Á(_ʸ»úÎó£Á), \+(_Ŭ¹çʸ»úÎó=_ʸ»úÎó£Á). 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó£Â) :- ʸ»úÎó£Â(_ʸ»úÎó£Â). 'ʸ»úÎó£Â£ï£ò£Ã¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó£Ã) :- ʸ»úÎó£Ã(_ʸ»úÎó£Ã). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/758 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Firefox 3.6.28¤Î*.uc.js # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷¡©ÃÖ´¹¡© # # ¡üÀâÌÀ # ¡¦°ÊÁ°¡¢Ê̤Υ¹¥ì¤ÇA¤ÎURL¤òB¤Î¤è¤¦¤Ë¡¢v=°Ê³°¤Î¥Ñ¥é¥á¡¼¥¿¤ò¾Ã¤¹¤â¤Î¤ò½ñ¤¤¤Æ¤â¤é¤¤¤Þ¤·¤¿¡£ # ¡¡A¡§ http://ime.nu/www.youtube.com/watch?v=abcdef123456&feature=related&etc=sexample # ¡¡B¡§ http://ime.nu/www.youtube.com/watch?v=abcdef123456 # ¡¦Àµµ¬É½¸½ # ¡¡[/^(http:\/\/(\w+\.)?youtube\.com\/watch).*[?&](v=[^]+).*/, '$1?$3'] # # º£²ó¤ÏÊ̤ÎURL¤«¤é¥Ñ¥é¥á¡¼¥¿¤ò¾Ã¤·¤¿¤¤¤Ç¤¹¡£ # # ¡üÂоݥǡ¼¥¿ # http://ime.nu/www.forest.impress.co.jp/docs/news/20120418_527251.html?ref=rss # # ¡ü´õ˾¤¹¤ë·ë²Ì # http://ime.nu/www.forest.impress.co.jp/docs/news/20120418_527251.html # # # ¢¨¤³¤Î¤è¤¦¤Ë¤·¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢¾å¼ê¤¯¤¤¤¤Þ¤»¤ó¤Ç¤·¤¿¡£ # var patterns = [ # //ÃÖ´¹¤·¤¿¤¤URL¥Ñ¥¿¡¼¥ó¤òµ½Ò # [/^(http:\/\/(\w+\.)?youtube\.com\/watch).*[?&](v=[^]+).*/, '$1?$3'], # [/^(http:\/\/www\.forest\.impress\.co\.jp\/docs\/news\/)[0-9]_[0-9]\.html\?ref=rss, '$1'] # ]; # # 'URL¤«¤é¥Ñ¥é¥á¡¼¥¿¤ò¾Ã¤·¤¿¤¤'(_URLʸ»úÎó,_¥Ñ¥é¥á¡¼¥¿¤Î¾Ã¤µ¤ì¤¿URLʸ»úÎó) :- split(_URLʸ»úÎó,['?'],[_¥Ñ¥é¥á¡¼¥¿¤Î¾Ã¤µ¤ì¤¿URLʸ»úÎó|_]). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/745 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PCRE¥é¥¤¥Ö¥é¥ê¤ò»ÈÍѤ·¤¿¥¢¥×¥ê¥±¡¼¥·¥ç¥ó # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # HTML¥¿¥°·Á¼°¤Ç³ç¤é¤ì¤¿¥Æ¥¥¹¥È¤Ç#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷ # ¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # <AB><CD>nea##kv</CD>nk#eccu</AB> # nea<YY><EF>###v</EF>orarcmm</YY> # <HA>ne#<YY>#</YY>ec#cv</HA>axxzi # <KK>#<CD>asiaev</CD>un##ima</KK> # # ¡ü´õ˾¤¹¤ë·ë²Ì # <AB><CD@>nea##kv</CD>nk#eccu</AB> # nea<YY><EF@>###v</EF>orarcmm</YY> # <HA>ne#<YY>#</YY>ec#cv</HA>axxzi # <KK@>#<CD>asiaev</CD>un##ima</KK> # % % ¤³¤³¤Ç¤Ï¡¢ % Èó·èÄêÀ¤Î½èÍý¤ò¹Í¤¨¤ë¡£ÀèÆ¬¤«¤é½ç¤ËÃÖ´¹¤¬¿Ê¤ó¤Ç¤¤¤¯¤è¤¦¤Ë¡£ % Ãí°Õ¤¹¤ë¤Ù¤¤³¤È¤Ï¡¢ÉáÄ̤ËÈó·èÄêÀ¤Ë½ñ¤¯¤È¡¢´û¤ËÃÖ´¹¤·¤¿¤Ä¤â¤ê¤Î % Éôʬ¤¬ÊÑ¿ô¤Î«Çû¤¬²ò¤«¤ì¤Æ¡¢ÃÖ´¹Á°¤Î¾õÂ֤ˤâ¤É¤Ã¤Æ¤·¤Þ¤¦¤³¤È¡£ % ¤³¤Î·¿¤Î½Ò¸ì¤Ç¤Ï¾ï¤Ë¤½¤ÎÅÀ¤ËÃí°Õ¤¹¤ë¡£ % 'HTML¥¿¥°·Á¼°¤Ç³ç¤é¤ì¤¿¥Æ¥¥¹¥È¤Ç#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- ¥¿¥°¤È¥Ç¡¼¥¿¤Ëʬ³ä¤¹¤ë(_ʸ»úÎó,_¥¿¥°¤È¥Ç¡¼¥¿¤Ê¤é¤Ó), '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(_¥¿¥°¤È¥Ç¡¼¥¿¤Ê¤é¤Ó,_ÃÖ´¹¤µ¤ì¤¿¥¿¥°¤È¥Ç¡¼¥¿¤Ê¤é¤Ó), atomic_list_concat(_ÃÖ´¹¤µ¤ì¤¿¥¿¥°¤È¥Ç¡¼¥¿¤Ê¤é¤Ó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ¥¿¥°¤È¥Ç¡¼¥¿¤Ëʬ³ä¤¹¤ë(_ʸ»úÎó,[_Á°¥Ç¡¼¥¿,_¥¿¥°|R]) :- ¥Ç¡¼¥¿¤È¥¿¥°¤ÎÀÚ¤ê¼è¤ê(_ʸ»úÎó,_Á°¥Ç¡¼¥¿,_¥¿¥°,_»Ä¤êʸ»úÎó), ¥¿¥°¤È¥Ç¡¼¥¿¤Ëʬ³ä¤¹¤ë(_»Ä¤êʸ»úÎó,R),!. ¥¿¥°¤È¥Ç¡¼¥¿¤Ëʬ³ä¤¹¤ë(_ʸ»úÎó,[_ʸ»úÎó]). ¥Ç¡¼¥¿¤È¥¿¥°¤ÎÀÚ¤ê¼è¤ê(_ʸ»úÎó,_Á°¥Ç¡¼¥¿,_¥¿¥°,_»Ä¤êʸ»úÎó) :- sub_atom(_ʸ»úÎó,S1,1,_,'<'), sub_atom(_ʸ»úÎó,0,S1,_,_Á°¥Ç¡¼¥¿), sub_atom(_ʸ»úÎó,S2,1,_,'>'), Len is S2 - S1 + 1, sub_atom(_ʸ»úÎó,S1,Len,R,_¥¿¥°), sub_atom(_ʸ»úÎó,S2_2,R,0,_»Ä¤êʸ»úÎó),!. '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(L1,L2) :- append(L0,[A,B|R],L1). ¥¿¥°¤Ç¤¢¤ë(A), '#¤¬Æó¤Ä°Ê¾å¤¢¤ë'(B), sub_atom(A,_,_,2,A_1), atomic_list_concat([A_1,'@>',B],C), append(L0,[C,B|R1],L2), '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(L0,A,B,C,R,L2). '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'([A|R1],[A|R2]) :- '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(R1,R2). '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'([],[]). '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(L0,A,B,C,R1,L2). append(L0,[C|R1],L2). '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(L0,A,B,C,R1,L2) :- '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(R1,L2_1), append(L0,[C,B|L2_1],L2). ¥¿¥°¤Ç¤¢¤ë(A) :- sub_atom(A,0,1,_,<), sub_atom(A,_,1,0,>). '#¤¬Æó¤Ä°Ê¾å¤¢¤ë'(B) :- count(sub_atom(B,_,1,_,'#'),Count), Count >= 2. % % count/2 % % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/745 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PCRE¥é¥¤¥Ö¥é¥ê¤ò»ÈÍѤ·¤¿¥¢¥×¥ê¥±¡¼¥·¥ç¥ó # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # HTML¥¿¥°·Á¼°¤Ç³ç¤é¤ì¤¿¥Æ¥¥¹¥È¤Ç#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷ # ¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # <AB><CD>nea##kv</CD>nk#eccu</AB> # nea<YY><EF>###v</EF>orarcmm</YY> # <HA>ne#<YY>#</YY>ec#cv</HA>axxzi # <KK>#<CD>asiaev</CD>un##ima</KK> # # ¡ü´õ˾¤¹¤ë·ë²Ì # <AB><CD@>nea##kv</CD>nk#eccu</AB> # nea<YY><EF@>###v</EF>orarcmm</YY> # <HA>ne#<YY>#</YY>ec#cv</HA>axxzi # <KK@>#<CD>asiaev</CD>un##ima</KK> # # # 'HTML¥¿¥°·Á¼°¤Ç³ç¤é¤ì¤¿¥Æ¥¥¹¥È¤Ç#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- ¥¿¥°¤È¥Ç¡¼¥¿¤Ëʬ³ä¤¹¤ë(_ʸ»úÎó,_¥¿¥°¤È¥Ç¡¼¥¿¤Ê¤é¤Ó), '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(_¥¿¥°¤È¥Ç¡¼¥¿¤Ê¤é¤Ó,_ÃÖ´¹¤µ¤ì¤¿¥¿¥°¤È¥Ç¡¼¥¿¤Ê¤é¤Ó), atomic_list_concat(_ÃÖ´¹¤µ¤ì¤¿¥¿¥°¤È¥Ç¡¼¥¿¤Ê¤é¤Ó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ¥¿¥°¤È¥Ç¡¼¥¿¤Ëʬ³ä¤¹¤ë(_ʸ»úÎó,[_Á°¥Ç¡¼¥¿,_¥¿¥°|R]) :- ¥Ç¡¼¥¿¤È¥¿¥°¤ÎÀÚ¤ê¼è¤ê(_ʸ»úÎó,_Á°¥Ç¡¼¥¿,_¥¿¥°,_»Ä¤êʸ»úÎó), ¥¿¥°¤È¥Ç¡¼¥¿¤Ëʬ³ä¤¹¤ë(_»Ä¤êʸ»úÎó,R),!. ¥¿¥°¤È¥Ç¡¼¥¿¤Ëʬ³ä¤¹¤ë(_ʸ»úÎó,[_ʸ»úÎó]). ¥Ç¡¼¥¿¤È¥¿¥°¤ÎÀÚ¤ê¼è¤ê(_ʸ»úÎó,_Á°¥Ç¡¼¥¿,_¥¿¥°,_»Ä¤êʸ»úÎó) :- sub_atom(_ʸ»úÎó,S1,1,_,'<'), sub_atom(_ʸ»úÎó,0,S1,_,_Á°¥Ç¡¼¥¿), sub_atom(_ʸ»úÎó,S2,1,_,'>'), Len is S2 - S1 + 1, sub_atom(_ʸ»úÎó,S1,Len,R,_¥¿¥°), sub_atom(_ʸ»úÎó,S2_2,R,0,_»Ä¤êʸ»úÎó),!. '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'([],[]) :- !. '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'([A,B|R1],[A,C|R2]) :- ¥¿¥°¤Ç¤¢¤ë(A), '#¤¬Æó¤Ä°Ê¾å¤¢¤ë'(B), sub_atom(A,_,_,2,A_1), atomic_list_concat([A_1,'@>'],C), '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(R1,R2),!. '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'([A|R1],[A|R2]) :- '#¤¬Æó¤Ä°Ê¾åͤë¤â¤Î¤ò¸¡º÷¤â¤·Í¤ì¤ÐÂбþ¤¹¤ëÁ°Êý¥¿¥°Æâ¤Î¸å¤í¤Ë@¤òÉÕ¤±¤¿¤¤'(R1,R2). ¥¿¥°¤Ç¤¢¤ë(A) :- sub_atom(A,0,1,_,<), sub_atom(A,_,1,0,>). '#¤¬Æó¤Ä°Ê¾å¤¢¤ë'(B) :- count(sub_atom(B,_,1,_,'#'),Count), Count >= 2. % % count/2 % % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/741 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PCRE¥é¥¤¥Ö¥é¥ê¤ò»ÈÍѤ·¤¿¥¢¥×¥ê¥±¡¼¥·¥ç¥ó # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ³ç¸ÌÆâ¤ËÆÃÄê¤Îʸ»úÎó¤¬Í¤ì¤ÐÂбþ¤¹¤ë³ç¸Ì¤òÁõ¾þ¤·¤¿¤¤ # # (Îã¤Ç¤ÏCCC¤ò´Þ¤à¤â¤Î¤ò¸¡º÷¤·Âбþ¤¹¤ë³ç¸Ì¤Ë*¤ò²Ã¤¨¤ë) # # ¡üÂоݥǡ¼¥¿ # (AACCCDDAABBB) # (AACAABBDBABC) # CDAA(DB(CC)C)(CDD) # C(AA(ABBD)(BCCC)C) # # ¡ü´õ˾¤¹¤ë·ë²Ì # (*AACCCDDAABBB*) # (AACAABBDBABC) # CDAA(DB(CC)C)(CDD) # C(AA(ABBD)(*BCCC*)C) # # '³ç¸ÌÆâ¤ËÆÃÄê¤Îʸ»úÎó¤¬Í¤ì¤ÐÂбþ¤¹¤ë³ç¸Ì¤òÁõ¾þ¤·¤¿¤¤'(_ʸ»úÎó,_ÆÃÄêʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sPLIT(_ʸ»úÎó,['(',')',' '],L), findall(_ÃÖ´¹¤µ¤ì¤¿Í×ÁÇ,( append(L0,[A|R],L), Í×ÁÇʸ»úÎóÃÖ´¹(A,_ÆÃÄêʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Í×ÁÇ)), L), atomic_list_concat(L,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). Í×ÁÇʸ»úÎóÃÖ´¹(A,_ÆÃÄêʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Í×ÁÇ) :- sub_atom(A,_,_,_,_ÆÃÄêʸ»úÎó), atomic_list_concat(['*',A,'*'],_ÃÖ´¹¤µ¤ì¤¿Í×ÁÇ),!. Í×ÁÇʸ»úÎóÃÖ´¹(A,_,A). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part9 #729 # Ķ½é¿´¼Ô¼ÁÌä¤Ç¿½¤·Ìõ¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢ # # javascript¤Ç¡¢ # ABC|DEF|GHI|JKL¡¡Åù¤ò¸¡º÷¤·¤¿»þ¤Ë°ìÃפ·¤¿Ê¸»úÎóÁ´¤Æ¤òÆÀ¤ëÊýË¡¤Ï¤¢¤ê¤Þ¤¹¤«¡© # ¹¹¤Ë¤Ç¤¤ì¤ÐABC¤ÈGHI¤¬¥Þ¥Ã¥Á¤·¤¿¾ì¹ç¤Ë¡¢0,2¤ÎÃͤ¬¼è¤ì¤ì¤Ð´ò¤·¤¤¤Ç¤¹¡£ # # ¸¡º÷¤·¤¿»þ¤Ë°ìÃ×(0,'ABC'). ¸¡º÷¤·¤¿»þ¤Ë°ìÃ×(1,'DEF'). ¸¡º÷¤·¤¿»þ¤Ë°ìÃ×(2,'GHI'). ¸¡º÷¤·¤¿»þ¤Ë°ìÃ×(3,'JKL'). 'ABC|DEF|GHI|JKL¡¡Åù¤ò¸¡º÷¤·¤¿»þ¤Ë°ìÃפ·¤¿Ê¸»úÎóÁ´¤Æ¤òÆÀ¤ëÊýË¡¤Ï¤¢¤ê¤Þ¤¹¤«¡© ¹¹¤Ë¤Ç¤¤ì¤ÐABC¤ÈGHI¤¬¥Þ¥Ã¥Á¤·¤¿¾ì¹ç¤Ë¡¢0,2¤ÎÃͤ¬¼è¤ì¤ì¤Ð´ò¤·¤¤¤Ç¤¹¡£'(_ʸ»úÎó¤Ê¤é¤Ó,_ʸ»úÎó,_¸¡º÷Ãͤʤé¤Ó) :- ʸ»úÎó¤Ê¤é¤Ó¤«¤éʸ»úÎó¤ò¼è¤ê½Ð¤·¤Æ¤½¤ÎÁ´¤Æ¤Î¸¡º÷ÃͤòÆÀ¤ë(_ʸ»úÎó¤Ê¤é¤Ó,_ʸ»úÎó,_¸¡º÷Ãͤʤé¤Ó), _¸¡º÷Ãͤʤé¤Ó = [_|_]. ʸ»úÎó¤Ê¤é¤Ó¤«¤éʸ»úÎó¤ò¼è¤ê½Ð¤·¤Æ¤½¤ÎÁ´¤Æ¤Î¸¡º÷ÃͤòÆÀ¤ë(_ʸ»úÎó¤Ê¤é¤Ó,_ʸ»úÎó,_¸¡º÷Ãͤʤé¤Ó) :- member(_ʸ»úÎó,_ʸ»úÎó¤Ê¤é¤Ó), ¸¡º÷¤·¤¿»þ¤Ë°ìÃפ·¤¿ÃͤòÁ´¤Æ¼è¤ê½Ð¤¹(_ʸ»úÎó,_¸¡º÷Ãͤʤé¤Ó). ¸¡º÷¤·¤¿»þ¤Ë°ìÃפ·¤¿ÃͤòÁ´¤Æ¼è¤ê½Ð¤¹(_ʸ»úÎó,_¸¡º÷Ãͤʤé¤Ó) :- findall(_¸¡º÷ÃÍ,( ¸¡º÷¤·¤¿»þ¤Ë°ìÃפ·¤¿Ê¸»úÎó(_ʸ»úÎó,_¸¡º÷ÃÍ)),_¸¡º÷Ãͤʤé¤Ó). ¸¡º÷¤·¤¿»þ¤Ë°ìÃפ·¤¿Ê¸»úÎó(_ʸ»úÎó,_¸¡º÷ÃÍ) :- Éûʸ»úÎó(_ʸ»úÎó,_,_Ŭ¹çʸ»úÎó,_), ¸¡º÷¤·¤¿»þ¤Ë°ìÃ×(_¸¡º÷ÃÍ,_Ŭ¹çʸ»úÎó). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/668 # ½¨´Ý¥¨¥Ç¥£¥¿¤Îgrep¡ÊHMJRE.DLL V1.79¡Ë¤Ç # "hoge"¤È¤¤¤¦Ã±¸ì¤ò¸¡º÷¤¹¤ë¤È¤¤Ë # '.'¤Ë³¤¯¤â¤Î°Ê³°¤òÁ´¤Æ¸¡º÷¤·¤¿¤¤¤È¤¤Î½ñ¤Êý¤ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # # " hoge" ",hoge" Åù¤Ï¸¡º÷¤·¤¿¤¤¤±¤É # ".hoge"¤Ï¸¡º÷¤·¤¿¤¯¤¢¤ê¤Þ¤»¤ó # # # '.¤Ë³¤¯¤â¤Î°Ê³°¤òÁ´¤Æ¸¡º÷¤·¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_,_,_), \+((sub_atom(_Á°Ê¸»úÎó,_,1,0,'.'))). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # # /(a|b)\1{5}/ ¤Ç ¡Öaaaaaa¡×¤È¡Öbbbbbb¡×¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¤±¤É # ¡Öababab¡×¤È¤«¡Öaabbaa¡×¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤¡£ # Àµµ¬É½¸½¤Ã¤Æ¤³¤¦¤¤¤¦½ñ¤Êý¤Ç¤¤ë¤ó¤À¡¦¡¦¡¦¡£ # ¸åÊý»²¾È¤òƱ¤¸Àµµ¬É½¸½¤ÎÃæ¤Ç»È¤¨¤ë¤È¤¤¤¦¤«¡¢¤½¤ó¤Ê´¶¤¸¡£ ʸ»ú¸õÊä(a). ʸ»ú¸õÊä(b). ·è¤Þ¤Ã¤¿Ê¸»ú¿ô¤ÎƱ°ìʸ»ú¤Ê¤é¤Ó(_ʸ»úÎó,_ʸ»ú¿ô,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), length(L2,_ʸ»ú¿ô), all(L1,A), ʸ»ú¸õÊä(A). all([],_). all([A|R],A) :- all(R,A). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/646 # ¼ÁÌä¤Ç¤¹ # # php¤Îpreg_replace¤Çʸ»úÎó¤òÆþ¤ìÂØ¤¨¤¿¤¤¤Î¤Ç¤¹¤¬ # # <a href="mailto:example@example.com">Ì䤤¹ç¤»</a> # # ¤Îexample@example.com¤Î¤ß¤òÆþ¤ìÂØ¤¨¤ë¤Ë¤Ï¤É¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò»È¤¨¤Ð½ÐÍè¤ë¤Ç¤·¤ç¤¦¤«¡© # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # 'example@example.com¤Î¤ß¤òÆþ¤ìÂØ¤¨¤ë'(_ʸ»úÎó,_Æþ¤ìÂØ¤¨¤ëʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), ¥á¡¼¥ë¥¢¥É¥ì¥¹Éôʬ(S2,L2), 'example@example.com¤Î¤ß¤òÆþ¤ìÂØ¤¨¤ë'(S3,_Æþ¤ìÂØ¤¨¤ëʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿S3), concat_atom([S1,'"mailto:',_Æþ¤ìÂØ¤¨¤ëʸ»úÎó,'"',_ÃÖ´¹¤µ¤ì¤¿S3],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'example@example.com¤Î¤ß¤òÆþ¤ìÂØ¤¨¤ë'(_ʸ»úÎó,_,_ʸ»úÎó). ¥á¡¼¥ë¥¢¥É¥ì¥¹Éôʬ(S2,L2) :- L2 = ['"',m,a,i,l,t,o,:|R2], append(L2_1,['"'],R2), \+(member('"',L2_1)), atom_chars(S2_2,R2), ¥á¡¼¥ë¥¢¥É¥ì¥¹¤È¤·¤Æ²Äǽ¤Êʸ»úʸ»úÎó(S2_2),!. ¥á¡¼¥ë¥¢¥É¥ì¥¹¤È¤·¤Æ²Äǽ¤Êʸ»úÎó(_ʸ»úÎó) :- split(_ʸ»úÎó,['@'],[A,B]), ¥á¡¼¥ë¤Ë»ÈÍѤǤ¤ë¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A), ¥á¡¼¥ë¤Ë»ÈÍѤǤ¤ë¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(B). ¥á¡¼¥ë¤Ë»ÈÍѤǤ¤ë¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(_ʸ»ú) :- char_code(_ʸ»ú,_ʸ»ú¥³¡¼¥É), ¥á¡¼¥ë¤Ë»ÈÍѤǤ¤ëʸ»ú¥³¡¼¥É(_ʸ»ú¥³¡¼¥É),!. ¥á¡¼¥ë¤Ë»ÈÍѤǤ¤ë¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(_ʸ»ú) :- member(_ʸ»ú,['_','-','~']). ¥á¡¼¥ë¤Ë»ÈÍѤǤ¤ëʸ»ú¥³¡¼¥É(_ʸ»ú¥³¡¼¥É) :- _ʸ»ú¥³¡¼¥É >= 65, _ʸ»ú¥³¡¼¥É =< 90,!. ¥á¡¼¥ë¤Ë»ÈÍѤǤ¤ëʸ»ú¥³¡¼¥É(_ʸ»ú¥³¡¼¥É) :- _ʸ»ú¥³¡¼¥É >= 97, _ʸ»ú¥³¡¼¥É =< 122,!. ¥á¡¼¥ë¤Ë»ÈÍѤǤ¤ëʸ»ú¥³¡¼¥É(_ʸ»ú¥³¡¼¥É) :- _ʸ»ú¥³¡¼¥É >= 48, _ʸ»ú¥³¡¼¥É =< 57,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï ?- 'a##'. http://toro.2ch.net/test/read.cgi/tech/1323566370/606 # Ì䤤¹ç¤»¥Õ¥©¡¼¥à¤«¤éÍ褿¥á¡¼¥ë¥¢¥É¥ì¥¹¤òÀµµ¬É½¸½¤òÍѤ¤¤ÆÃê½Ð¤·¤¿¤¤¤Î¤Ç¤¹¤¬ # ½¨´Ý¥á¡¼¥ë¤ò»È¤Ã¤Æ¤ª¤ê¥á¡¼¥ëÁ´Ê¸¤ò¥Æ¥¥¹¥È²½¤·¤¿¤â¤Î¤ÎÃæ¤Ë°Ê²¼¤Îʸ¾Ï¤¬´Þ¤Þ¤ì¤Æ¤¤¤Þ¤¹ # # ¢§¥á¡¼¥ë¥¢¥É¥ì¥¹ # aaaaaaaaaa@aaaaaaaaa.com # # ¢§¥á¡¼¥ë¥¢¥É¥ì¥¹¤È¤¤¤¦Ê¸»úÎó¤Î²¼¤Ë¤¢¤ë¹Ô¤À¤±¤ò¸¡º÷¤¹¤ë¤³¤È¤Ï²Äǽ¤Ç¤·¤ç¤¦¤«¡© # # ¥á¡¼¥ë¥¢¥É¥ì¥¹¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤ò»ÈÍѤ¹¤ë¤È¥Ø¥Ã¥À¡¼Æâ¤Î¤è¤¯¤ï¤«¤é¤Ê¤¤¥¢¥É¥ì¥¹¤Þ¤ÇÃê½Ð¤µ¤ì¤Æ¤·¤Þ¤¤ # ¤È¤Æ¤âÌÌÅݤ¯¤µ¤¤¤Î¤Ç¤É¤¦¤Ë¤«Ê¸¾Ï¤Î²¼¤Ë¤¢¤ë¹Ô¤Î¤ß¤òÃê½Ð¤È¤¤¤¦¼êÃʤò¼è¤ê¤¿¤¤¤Î¤Ç¤¹ # # ¤É¤¦¤«²ò·èºö¤ò¤´¶µ¼ø¤¯¤À¤µ¤¤ # '¢§¥á¡¼¥ë¥¢¥É¥ì¥¹¤È¤¤¤¦Ê¸»úÎó¤Î²¼¤Ë¤¢¤ë¹Ô¤À¤±¤ò¸¡º÷¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_²¼¤Ë¤¢¤ë¹Ô,_¸åʸ»úÎó,_¥á¡¼¥ë¥¢¥É¥ì¥¹¤Ê¤é¤Ó) :- sPLIT(_ʸ»úÎó,['\n'],L), '¢§¥á¡¼¥ë¥¢¥É¥ì¥¹¤È¤¤¤¦Ê¸»úÎó¤Î²¼¤Ë¤¢¤ë¹Ô'(L,_Á°Ê¸»úÎó,_²¼¤Ë¤¢¤ë¹Ô,_¸åʸ»úÎó), ¥á¡¼¥ë¥¢¥É¥ì¥¹¤ò¸¡º÷(_²¼¤Ë¤¢¤ë¹Ô,_¥á¡¼¥ë¥¢¥É¥ì¥¹¤Ê¤é¤Ó). '¢§¥á¡¼¥ë¥¢¥É¥ì¥¹¤È¤¤¤¦Ê¸»úÎó¤Î²¼¤Ë¤¢¤ë¹Ô'(L,_Á°Ê¸»úÎó,_²¼¤Ë¤¢¤ë¹Ô,_¸åʸ»úÎó) :- append(L0,[A,'\n',_²¼¤Ë¤¢¤ë¹Ô,'\n'|R],L), sub_atom(A,_,8,_,'¢§¥á¡¼¥ë¥¢¥É¥ì¥¹'), concat_atom(L0,S1), concat_atom([S1,A,'\n'],_Á°Ê¸»úÎó), concat_atom(R,_¸åʸ»úÎó). ¥á¡¼¥ë¥¢¥É¥ì¥¹¤ò¸¡º÷(_¹Ô,_¥á¡¼¥ë¥¢¥É¥ì¥¹¤Ê¤é¤Ó) :- findall(S2,( sub_atom(_¹Ô,_,_,_,S1,S2,S3,L1,L2,L3), ¥á¡¼¥ë¥¢¥É¥ì¥¹·Á¼°(S2), Á°¸å¤¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤Ç¤Ê¤¤(S1,S3)), _¥á¡¼¥ë¥¢¥É¥ì¥¹¤Ê¤é¤Ó). ¥á¡¼¥ë¥¢¥É¥ì¥¹·Á¼°(S) :- split(S2,['@'],[U1,U2]), ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A), ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(B). Á°¸å¤¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤Ç¤Ê¤¤(S1,S3) :- \+((last(S1,A),¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A))), \+((sub_atom(S3,0,1,_,B),¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(B))). ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È('-') :- !. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È('_') :- !. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È('~') :- !. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A) :- A @>= '0', A @=< '9',!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A) :- A @>= 'A', A @=< 'Z',!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A) :- A @>= 'a', A @=< 'z',!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/595 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¤ê¤ó¤´¡á£²£°¡¡°Ê³°¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤ß¤«¤ó£±£°¡¡¤ê¤ó¤´£²£°¡¡¥Ð¥Ê¥Ê£³£° # ¤¤¤Á¤´£´£°¡¡¤á¤í¤ó£²£°¡¡¤ê¤ó¤´£²£° # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤ê¤ó¤´£²£° # ¤ê¤ó¤´£²£° # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # ¸¡º÷ʸ»úÎó(¤ê¤ó¤´20). '¤ê¤ó¤´¡á£²£°¡¡°Ê³°¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_Éôʬºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- findall(_¸¡º÷ʸ»úÎó,( ¸¡º÷ʸ»úÎó(_¸¡º÷ʸ»úÎó)), _¸¡º÷ʸ»úÎó¤Ê¤é¤Ó), ¸¡º÷ʸ»úÎó¤È²þ¹Ô¤À¤±¤òÀÚ¤ê½Ð¤¹(_ʸ»úÎó,_¸¡º÷ʸ»úÎó¤Ê¤é¤Ó,L1), ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë(L1,L2), concat_atom(L2,_Éôʬºï½ü¤µ¤ì¤¿Ê¸»úÎó). ¸¡º÷ʸ»úÎó¤È²þ¹Ô¤À¤±¤òÀÚ¤ê½Ð¤¹(_ʸ»úÎó,_¸¡º÷ʸ»úÎó¤Ê¤é¤Ó,L) :- sPLIT(_ʸ»úÎó,['\n'|_¸¡º÷ʸ»úÎó¤Ê¤é¤Ó],L1), findall(_¸¡º÷ʸ»úÎó,( member(_¸¡º÷ʸ»úÎó,L1), member(_¸¡º÷ʸ»úÎó,_¸¡º÷ʸ»úÎó¤Ê¤é¤Ó)), L). ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([],[]). ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([A],[A]) :- \+(A = '\n'),!. ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë(['\n'|R1],R2) :- ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë(R1,R2),!. ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([A,'\n'|R1],[A,'\n'|R2]) :- ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë(R1,R2),!. ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([A,B|R1],[A,'¡¡'|R2]) :- ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([B|R1],R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/595 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¤ê¤ó¤´¡á£²£°¡¡°Ê³°¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¤ß¤«¤ó£±£°¡¡¤ê¤ó¤´£²£°¡¡¥Ð¥Ê¥Ê£³£° # ¤¤¤Á¤´£´£°¡¡¤á¤í¤ó£²£°¡¡¤ê¤ó¤´£²£° # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤ê¤ó¤´£²£° # ¤ê¤ó¤´£²£° # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # '¤ê¤ó¤´¡á£²£°¡¡°Ê³°¤òºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_Éôʬºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- sPLIT(_ʸ»úÎó,['¡¡','\n'],L), findall(A,( member(A,L), ÃÖ´¹(A)), L1), Éôʬºï½üʸ»úÎó¤ËÊÑ´¹(L1,_Éôʬºï½ü¤µ¤ì¤¿Ê¸»úÎó). ÃÖ´¹('¤ê¤ó¤´£²£°'). ÃÖ´¹('\n'). Éôʬºï½üʸ»úÎó¤ËÊÑ´¹(L1,_Éôʬºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë(L1,L2), concat_atom(L2,_Éôʬºï½ü¤µ¤ì¤¿Ê¸»úÎó). ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([],[]). ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([A],[A]) :- \+(A = '\n'),!. ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë(['\n'|R1],R2) :- ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë(R1,R2),!. ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([A,'\n'|R1],[A,'\n'|R2]) :- ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë(R1,R2),!. ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([A,B|R1],[A,'¡¡'|R2]) :- ¤Ê¤é¤Ó¤òÀ°·Á¤¹¤ë([B|R1],R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/563 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP5.3 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¥Ú¡¼¥¸Æâ¤Ë¤¢¤ë<h2>¡Á<h6>¤ËÂФ·¤ÆÆâ¦¤Ë<span>¤òÆþ¤ì¤¿¤¤¤Ç¤¹¡£ # h¥¿¥°¤Ë¤Ëclass¤¬¤¢¤ë¾ì¹ç¤Ê¤É¤âÁÛÄꤵ¤ì¤Þ¤¹¤¬¤½¤ì¤Ï°ú¤·Ñ¤®¤¿¤¤¤Ç¤¹¡£ # ²¿Â´¤´¶µ¼ø¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£ # # ¡üÂоݥǡ¼¥¿ # <h2>¤¢¤¢¤¢¤¢¤¢</h2> # <h2 class="hoge">¤¢¤¢¤¢¤¢¤¢</h2> # <h2><span>¤¢¤¢¤¢¤¢¤¢</span></h2> # °Ê²¼h6¤Þ¤ÇƱÍÍ # <h6>¤¢¤¢¤¢¤¢¤¢</h6> # <h6 class="hoge">¤¢¤¢¤¢¤¢¤¢</h6> # <h6><span>¤¢¤¢¤¢¤¢¤¢</span></h6> # # ¡ü´õ˾¤¹¤ë·ë²Ì # <h2><span>¤¢¤¢¤¢¤¢¤¢</span></h2> # <h2 class="hoge"><span>¤¢¤¢¤¢¤¢¤¢</span></h2> # <h2><span>¤¢¤¢¤¢¤¢¤¢</span></h2> # °Ê²¼h6¤Þ¤ÇƱÍÍ # <h6><span>¤¢¤¢¤¢¤¢¤¢</span></h6> # <h6 class="hoge"><span>¤¢¤¢¤¢¤¢¤¢</span></h6> # <h6><span>¤¢¤¢¤¢¤¢¤¢</span></h6> # # '¥Ú¡¼¥¸Æâ¤Ë¤¢¤ë<h2>¡Á<h6>¤ËÂФ·¤ÆÆâ¦¤Ë<span>¤òÆþ¤ì¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- 'H¥¿¥°¤ò¸«¤Ä¤±¤Æ¡¢¾ðÊó¤òʬΥ¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Á°¥¿¥°,_Ãæ´Ö¾ðÊó,_¸å¥¿¥°,_¸åʸ»úÎó), 'span¥¿¥°¤òÉÕ²Ã'(_Ãæ´Ö¾ðÊó,_span¥¿¥°¤Ë¶´¤Þ¤ì¤¿Ãæ´Ö¾ðÊó), '¥Ú¡¼¥¸Æâ¤Ë¤¢¤ë<h2>¡Á<h6>¤ËÂФ·¤ÆÆâ¦¤Ë<span>¤òÆþ¤ì¤¿¤¤'(_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), concat_atom([_Á°Ê¸»úÎó,_Á°¥¿¥°,_span¥¿¥°¤Ë¶´¤Þ¤ì¤¿Ãæ´Ö¾ðÊó,_¸å¥¿¥°,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. '¥Ú¡¼¥¸Æâ¤Ë¤¢¤ë<h2>¡Á<h6>¤ËÂФ·¤ÆÆâ¦¤Ë<span>¤òÆþ¤ì¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). 'H¥¿¥°¤ò¸«¤Ä¤±¤Æ¡¢¾ðÊó¤òʬΥ¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Á°¥¿¥°,_Ãæ´Ö¾ðÊó,_¸å¥¿¥°,_¸åʸ»úÎó) :- Á°¥¿¥°(_ʸ»úÎó,_Á°Ê¸»úÎó,_Á°¥¿¥°,A,_»Ä¤êʸ»úÎó), 'Ãæ´Ö¾ðÊ󡦸奿¥°¡¦¸åʸ»úÎó'(_»Ä¤êʸ»úÎó,A,_Ãæ´Ö¾ðÊó,_¸å¥¿¥°,_¸åʸ»úÎó),!. Á°¥¿¥°(_ʸ»úÎó,_Á°Ê¸»úÎó,_Á°¥¿¥°,A,_»Ä¤êʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Á°¥¿¥°,_»Ä¤êʸ»úÎó,L1,['<',h,A|R1],L3), ÁªÂò¤Ç¤¤ë¿ô»ú(A), append(L1_1,['>'],R1), \+(member('>',L1_1)),!. 'Ãæ´Ö¾ðÊ󡦸奿¥°¡¦¸åʸ»úÎó'(_ʸ»úÎó,A,_Ãæ´Ö¾ðÊó,_¸å¥¿¥°,_¸åʸ»úÎó) :- concat_atom(['<','/',h,A,'>'],_¸å¥¿¥°), sub_atom(_ʸ»úÎó,St,_,_,_Ãæ´Ö¾ðÊó,_¸å¥¿¥°,_¸åʸ»úÎó,L1,L2,L3),!. ÁªÂò¤Ç¤¤ë¿ô»ú(A) :- member(A,['2','3','4','5','6']). 'span¥¿¥°¤ÎÉÕ²Ã'(_Ãæ´Ö¾ðÊó,_span¥¿¥°¤Ë¶´¤Þ¤ì¤¿Ãæ´Ö¾ðÊó) :- concat_atom(['',_Ãæ´Ö¾ðÊó,''],_span¥¿¥°¤Ë¶´¤Þ¤ì¤¿Ãæ´Ö¾ðÊó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/502 # Àµµ¬É½¸½¤Ç¤·»»¤Ï¤Ç¤¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡© # # PHP¤Î¥½¡¼¥¹¤Ê¤ó¤Ç¤¹¤¬ # array( 'start' => 10.000, 'end' => 10.166 ), # array( 'start' => 11.166, 'end' => 11.414 ), # array( 'start' => 12.414, 'end' => 14.559 ), # ¤Ê¤É¤Èʤó¤Ç¤ëÉôʬ¤¬¤¢¤ê¡¢¤³¤ì¤é¤Î¿ôÃÍÁ´Éô¤Ë1¤ò¤·¤¿¤¤¤Î¤Ç¤¹¤¬ # # '¤³¤ì¤é¤Î¿ôÃÍÁ´Éô¤Ë1¤ò¤·¤¿¤¤'([],[]). '¤³¤ì¤é¤Î¿ôÃÍÁ´Éô¤Ë1¤ò¤·¤¿¤¤'([_¹Ô|R1],[_Êѹ¹¤µ¤ì¤¿¹Ô|R2]) :- ¿ôÃͤË1¤ò²Ã¤¨¤ë(_¹Ô,_Êѹ¹¤µ¤ì¤¿¹Ô), '¤³¤ì¤é¤Î¿ôÃÍÁ´Éô¤Ë1¤ò¤·¤¿¤¤'(R1,R2). ¿ôÃͤË1¤ò²Ã¤¨¤ë(_¹Ô,_Êѹ¹¤µ¤ì¤¿¹Ô) :- sub_atom(_¹Ô,_,_,_,S1_1,S2_1,S3_1,L1_1,L2_1,L3_1), ¿ôÃͤË1¤ò²Ã¤¨¤ë(S1_1,S2_1,S3_1,L1_1,L2_1,L3_1,_Êѹ¹Éôʬ,S3_1), ¿ôÃͤË1¤ò²Ã¤¨¤ë(S3_1,_»Ä¤ê¤ÎÊѹ¹Éôʬ), concat_atom([_Êѹ¹Éôʬ,_»Ä¤ê¤ÎÊѹ¹Éôʬ],_Êѹ¹¤µ¤ì¤¿¹Ô),!. ¿ôÃͤË1¤ò²Ã¤¨¤ë(_¹Ô,_¹Ô). ¿ôÃͤË1¤ò²Ã¤¨¤ë(S1_1,S2_1,S3_1,L1_1,L2_1,L3_1,_Êѹ¹¤µ¤ì¤¿Éôʬ,S3_1) :- ¿ôÃÍÉôʬ¤ò¼è¤ê½Ð¤¹(L1_1,L2_1,L3_1), ¿ôÃͤË1¤ò²Ã¤¨¤¿Ê¸»úÎó(L2_1,_¿ôÃÍʸ»úÎó), concat_([S1_1,_¿ôÃÍʸ»úÎó],_Êѹ¹¤µ¤ì¤¿Éôʬ). ¿ôÃÍÉôʬ¤ò¼è¤ê½Ð¤¹(L1_1,L2_1,L3_1) :- ¿ôÃͤ˴Ըµ¤Ç¤¤ë¤Ê¤é¤Ó(L2_1), \+((last(L1_1,A),¿ôÃÍ(A))), \+((L3_1 = [B|_],¿ôÃÍ(B))). ¿ôÃͤË1¤ò²Ã¤¨¤¿Ê¸»úÎó(L2_1,_¿ôÃÍʸ»úÎó) :- number_chars(_¿ôÃÍ,L2_1), _¿ôÃÍ_2 is _¿ôÃÍ + 1.0, number_chars(_¿ôÃÍ_2,L2_2), atom_chars(_¿ôÃÍʸ»úÎó,L2_2). ¿ôÃͤ˴Ըµ¤Ç¤¤ë¤Ê¤é¤Ó([A|R]) :- ¿ô»ú(A), last([A|R],B), \+(B='.'), Á´¤Æ¤¬¿ô»ú¤«¥Ô¥ê¥ª¥É(R). Á´¤Æ¤¬¿ô»ú¤«¥Ô¥ê¥ª¥É([]). Á´¤Æ¤¬¿ô»ú¤«¥Ô¥ê¥ª¥É([A|R]) :- member(A,['.','0','1','2','3','4','5','6','7','8','9']), Á´¤Æ¤¬¿ô»ú¤«¥Ô¥ê¥ª¥É(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/458 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # wxWidets (wxRegEx) # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # °ì¹Ô¤ÎÃæ¤Ë´Ý³ç¸Ì¤ÇÊĤ¸¤é¤ì¤¿Ê¸»úÎó¤ò¸¡º÷¤·¤¿¤¤¡£ # ´Ý³ç¸Ì¤¬½Ð¤Æ¤¯¤ë°ÌÃÖ¤ä¿ô¤ÏÉÔÄê¤Ç¤¹ # # ¡üÂоݥǡ¼¥¿ # (2012ǯ2·î)Ë̳¤Æ»¤Ç»£±Æ¡£(raw)¤ÇÊݸ¡£Ç¤È°ì½ï(ͺ) # # ¡ü´õ˾¤¹¤ë·ë²Ì # (2012ǯ2·î)¡¡(raw)¡¡(ͺ) # # (\\(.*?\\))¤Ç¸¡º÷¤¹¤ë¤È¡¢"(2012ǯ2·î)"¤À¤±¸¡º÷¤µ¤ì¤Þ¤¹¡£ # (\\(.*?\\))(?:.*)(\\(.*?\\))(?:.*)(\\(.*?\\))¤Ç¸¡º÷¤¹¤ë¤È(2012ǯ2·î)(raw)(ͺ)¤¬¸¡º÷¤µ¤ì¤Þ¤¹¡£ # ¤¿¤À³ç¸Ì¤Î°ÌÃÖ¤¬ÊѤï¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢¤³¤ÎÀµµ¬É½¸½¤Ç¤Ï¸¡º÷¤Ë¤«¤«¤é¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£ # # ¥µ¥¯¥é¥Æ¥¥¹¥È¥¨¥Ç¥£¥¿Åù¤ÎÀµµ¬É½¸½¤Ç¸¡º÷¤¹¤ë¤È¡¢(\\(.*?\\))¡¡Ê¸¾ÏÆâ¤Ë¤¤¤¯¤Ä³ç¸Ìʸ»úÎ󤬤¢¤Ã¤Æ¤â # ¤¹¤Ù¤Æ¸¡º÷¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ # # Àµµ¬É½¸½¤Ç¤É¤Î¤è¤¦¤Ë½ñ¤±¤Ð¤¤¤¤¤Î¤«¡¢¤½¤ì¤È¤â¡¢¥×¥í¥°¥é¥à¾å¤Ç¸¡º÷¤·¤Æ¤¤¤ë¤Î¤«¤ï¤«¤ê¤Þ¤»¤ó¡£ # ¤É¤Î¤è¤¦¤Ë¼Â¸½¤·¤Æ¤¤¤ë¤«¤Þ¤Ã¤¿¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£ # # ¹Í¤¨Êý¤Ê¤É¤ò¤ª¤·¤¨¤Æ¤¯¤À¤µ¤¤¤Þ¤»¡£ # # '°ì¹Ô¤ÎÃæ¤Ë´Ý³ç¸Ì¤ÇÊĤ¸¤é¤ì¤¿Ê¸»úÎó¤ò¸¡º÷¤·¤¿¤¤¡£´Ý³ç¸Ì¤¬½Ð¤Æ¤¯¤ë°ÌÃÖ¤ä¿ô¤ÏÉÔÄê¤Ç¤¹'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), ´Ý³ç¸Ì¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó(L2,_Ŭ¹çʸ»úÎó), concat_atom([S1,'('],_Á°Ê¸»úÎó), concat_atom([')',S3],_¸åʸ»úÎó). ´Ý³ç¸Ì¤Ë¶´¤Þ¤ì¤¿Ê¸»úÎó(L2,_Ŭ¹çʸ»úÎó) :- append(['('],L2_1,[')'],L2), \+(member('(',L2_1)), \+(member(')',L2_1)), atom_chars(_Ŭ¹çʸ»úÎó,L2_1). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/461 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # linux 2.6·Ï grep / Scientific Linux 6.1 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # IP¥¢¥É¥ì¥¹¡Êxxx.xxx.xxx.xxx IPv4¡Ë¤Ë¥Ò¥Ã¥È¤µ¤»¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # 192.168.0.1 # 255.255.255.0 # 999.999.999.999¡ÊÃí¡§IP¥¢¥É¥ì¥¹¤È¤·¤ÆµöÍÆ¤µ¤ì¤Æ¤¤¤Ê¤¤¡Ë # # ¡ü»î¤·¤¿Àµµ¬É½¸½ # "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+" # # º£²ó¤Î¸¡º÷¤Ç¤ÏÌÜ»ë¤ÇȽÊ̤Ǥ¤Þ¤·¤¿¤¬¡¢ # 999.999.999.999¢«¤³¤ì¤Ë¥Ò¥Ã¥È¤·¤Æ¤·¤Þ¤¦Åù¡¢Ã×̿Ū¤ÊÉôʬ¤¬¤¢¤ê¤Þ¤¹¡£ # # ¤´¶µ¼¨¤¤¤¿¤À¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£ # # # 'IP¥¢¥É¥ì¥¹¡Êxxx.xxx.xxx.xxx IPv4¡Ë¤Ë¥Ò¥Ã¥È¤µ¤»¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), ¿ô»ú¤È¥Ô¥ê¥ª¥É¤Î¤ß(L2), \+((last(L1,A),¿ô»ú(A))), \+((L3=[B|_],¿ô»ú(B))), split(_Ŭ¹çʸ»úÎó,['.'],[N1,N2,N3]), 'IP¥¢¥É¥ì¥¹ÈϰÏ'([N1,N2,N3]). ¿ô»ú¤È¥Ô¥ê¥ª¥É¤Î¤ß([]). ¿ô»ú¤È¥Ô¥ê¥ª¥É¤Î¤ß([A|R]) :- member(A,['.','0','1','2','3','4','5','6','7','8','9']), ¿ô»ú¤È¥Ô¥ê¥ª¥É¤Î¤ß(R). 'IP¥¢¥É¥ì¥¹ÈϰÏ'([]). 'IP¥¢¥É¥ì¥¹ÈϰÏ'([N|R]) :- N >= 0, N =< 255, 'IP¥¢¥É¥ì¥¹ÈϰÏ'(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part9 #368 # ¤ª´ê¤¤¤·¤Þ¤¹ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP5 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # 0123456789Ž±Ž²Ž³Ž´ŽµŽ¶Ž·Ž¸Ž¹ŽºŽ»Ž¼Ž½Ž¾Ž¿ŽÀŽÁŽÂŽÃŽÄŽÅŽÆŽÇŽÈŽÉŽÊŽËŽÌŽÍŽÎŽÏŽÐŽÑŽÒŽÓŽÔŽÕŽÖŽ×ŽØŽÙŽÚŽÛŽÜަŽÝABCDEFGHIJKLMNOPQRSTUVWXYZŽÞ Žß\ޢޣ,.()-/ # # preg_replace´Ø¿ô¤ò»È¤¤¾åµÊ¸»ú°Ê³°¤òÁ´¤Æºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # 0޶ŽÞ9Ž·ŽÞAޏŽÞޱa޲b޳cŽ´d޵ # # ¡ü´õ˾¤¹¤ë·ë²Ì # 09Aޱ޲޳޴޵ # '0123456789Ž±Ž²Ž³Ž´ŽµŽ¶Ž·Ž¸Ž¹ŽºŽ»Ž¼Ž½Ž¾Ž¿ŽÀŽÁŽÂŽÃŽÄŽÅŽÆŽÇŽÈŽÉŽÊŽËŽÌŽÍŽÎŽÏŽÐŽÑŽÒŽÓŽÔŽÕŽÖŽ×ŽØŽÙŽÚŽÛŽÜަŽÝABCDEFGHIJKLMNOPQRSTUVWXYZŽÞ Žß\\ޢޣ,.()-/ preg_replace´Ø¿ô¤ò»È¤¤¾åµÊ¸»ú°Ê³°¤òÁ´¤Æºï½ü¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- findall(_ʸ»ú,( ʸ»úÎóÃæ¤Îʸ»ú¤Ï¾åµÊ¸»úÎó¤Ë¸ºß¤¹¤ë(_ʸ»úÎó,'0123456789Ž±Ž²Ž³Ž´ŽµŽ¶Ž·Ž¸Ž¹ŽºŽ»Ž¼Ž½Ž¾Ž¿ŽÀŽÁŽÂŽÃŽÄŽÅŽÆŽÇŽÈŽÉŽÊŽËŽÌŽÍŽÎŽÏŽÐŽÑŽÒŽÓŽÔŽÕŽÖŽ×ŽØŽÙŽÚŽÛŽÜަŽÝABCDEFGHIJKLMNOPQRSTUVWXYZŽÞ Žß\\ޢޣ,.()-/',_ʸ»ú)),_ÃÖ´¹¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó), ¤Ê¤é¤Ó¤òʸ»úÎó¤ËÊÑ´¹(_ÃÖ´¹¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ʸ»úÎóÃæ¤Îʸ»ú¤Ï¾åµÊ¸»úÎó¤Ë¸ºß¤¹¤ë(_ʸ»úÎó,_¾åµÊ¸»úÎó,_ʸ»ú) :- ʸ»úÎóÃæ¤Îʸ»ú¤Ï(_ʸ»úÎó,_ʸ»ú), ¾åµÊ¸»úÎó¤Ë¸ºß¤¹¤ë(_ʸ»ú,_¾åµÊ¸»úÎó). ʸ»úÎóÃæ¤Îʸ»ú¤Ï(_ʸ»úÎó,_ʸ»ú) :- sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú). ¾åµÊ¸»úÎó¤Ë¸ºß¤¹¤ë(_ʸ»ú,_¾åµÊ¸»úÎó) :- sub_atom(_¾åµÊ¸»úÎó,_,1,_,_ʸ»ú). ¤Ê¤é¤Ó¤òʸ»úÎó¤ËÊÑ´¹(_ÃÖ´¹¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- atom_chars(_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/300 # ¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤ÎÃæ¤Ë # foo=bar # ¤È¤¤¤¦·Á¼°¤ÇÀßÄêÃͤ¬Îóµó¤µ¤ì¤Æ¤¤¤Þ¤¹¡£ # grep¤«egrep¤À¤±¤Çfoo=¤Î±¦ÊÕÃͤÎbar¤òÃê½Ð¤¹¤ëÀµµ¬É½¸½¤Ï¤É¤¦¤Ê¤ë¤Ç¤·¤ç¤¦¤«¡© # (?<=foo=).* # ¤È¤«¤ä¤ê¤¿¤¤¤ó¤Ç¤¹¤±¤Égrep¤âegrep¤â¤³¤Î¼°¤ò¼õ¤±ÉÕ¤±¤Æ¤¯¤ì¤Þ¤»¤ó¡£ # # '¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤ÎÃæ¤Ë foo=bar ¤È¤¤¤¦·Á¼°¤ÇÀßÄêÃͤ¬Îóµó¤µ¤ì¤Æ¤¤¤Þ¤¹¡£foo= ¤Î±¦ÊÕÃͤÎbar¤òÃê½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,L1,[f,o,o,=|R2],L3), \+((last(L1,A),¶èÀÚ¤êʸ»ú(A))), \+((L2 = [B|_],¶èÀÚ¤êʸ»ú(B))), '¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤ÎÃæ¤Ë foo=bar ¤È¤¤¤¦·Á¼°¤ÇÀßÄêÃͤ¬Îóµó¤µ¤ì¤Æ¤¤¤Þ¤¹¡£foo= ¤Î±¦ÊÕÃͤÎbar¤òÃê½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). '¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤ÎÃæ¤Ë foo=bar ¤È¤¤¤¦·Á¼°¤ÇÀßÄêÃͤ¬Îóµó¤µ¤ì¤Æ¤¤¤Þ¤¹¡£foo= ¤Î±¦ÊÕÃͤÎbar¤òÃê½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). '¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤ÎÃæ¤Ë foo=bar ¤È¤¤¤¦·Á¼°¤ÇÀßÄêÃͤ¬Îóµó¤µ¤ì¤Æ¤¤¤Þ¤¹¡£foo= ¤Î±¦ÊÕÃͤÎbar¤òÃê½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- '¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤ÎÃæ¤Ë foo=bar ¤È¤¤¤¦·Á¼°¤ÇÀßÄêÃͤ¬Îóµó¤µ¤ì¤Æ¤¤¤Þ¤¹¡£foo= ¤Î±¦ÊÕÃͤÎbar¤òÃê½Ð¤¹¤ë'(_¸åʸ»úÎó_1,_Á°Ê¸»úÎó_2,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), concat_atom([_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_Á°Ê¸»úÎó_2],_Á°Ê¸»úÎó). ¶èÀÚ¤êʸ»ú(A) :- ¿ô»ú(A),!, fail. ¶èÀÚ¤êʸ»ú(A) :- ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A),!, fail. ¶èÀÚ¤êʸ»ú(A) :- Á´³Ñʸ»ú(A),!, fail. ¶èÀÚ¤êʸ»ú(_). ¿ô»ú(A) :- char_code(A,Code), Code >= 48, Code =< 57,!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A) :- char_code(A,Code), Code >= 65, Code =< 90,!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A) :- char_code(A,Code), Code >= 97, Code =< 122,!. Á´³Ñʸ»ú(A) :- char_code(A,Code), Code > 255,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/197 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ½¨´Ý¥¨¥Ç¥£¥¿ # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # ¡üÀâÌÀ # <div class="main">¤Î¾ì¹ç¤Ë¸Â¤ê¡¢Î¾Ã¼¤Îdiv¤òspan¤ËÃÖ´¹¤·¤¿¤¤¡£ # ¢¨<div class="main">¤«¤é</div>¤Þ¤Ç¤Î¹Ô¿ô¤Ï¡¢3¹Ô¤À¤Ã¤¿¤ê5¹Ô¤À¤Ã¤¿¤ê¤È¿§¡¹ÊѤï¤ê¤Þ¤¹¡£ # ¡üÂоݥǡ¼¥¿ # <div class="main">¤¢¤¢¤¢¤¢¤¢<br> # ¤¤¤¤¤¤¤¤¤¤<br> # ¤¦¤¦¤¦¤¦¤¦<br> # ¤¨¤¨¤¨¤¨¤¨<br> # ¤ª¤ª¤ª¤ª¤ª<br> # </div> # # ¡ü´õ˾¤¹¤ë·ë²Ì # <span class="main">¤¢¤¢¤¢¤¢¤¢<br> # ¤¤¤¤¤¤¤¤¤¤<br> # ¤¦¤¦¤¦¤¦¤¦<br> # ¤¨¤¨¤¨¤¨¤¨<br> # ¤ª¤ª¤ª¤ª¤ª<br> # </span> # # # ²¼¤ÎÀµµ¬É½¸½¤òºî¤Ã¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¸¡º÷¤Ç¥Þ¥Ã¥Á¤·¤Þ¤»¤ó¡£ # ¤É¤Ê¤¿¤«½õ¸À失¤ë¤È¤¦¤ì¤·¤¤¤Ç¤¹¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£ # # ÃÖ´¹¸µ # <div class="main">(.*\n*)</div> # ÃÖ´¹Àè # <span class="main">\1</span> # 'div class="main" ¥¿¥°¤¬¸½¤ì¤¿¤éü¤Îdiv,/div¤òspan,/span¤ËÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- main¤«¤éspan¤Ø¤ÎÃÖ´¹(_ʸ»úÎó,_Á°Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿divÉô,_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó), 'div class="main" ¥¿¥°¤¬¸½¤ì¤¿¤éü¤Îdiv,/div¤òspan,/span¤ËÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿divÉô,_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). 'div class="main" ¥¿¥°¤¬¸½¤ì¤¿¤éü¤Îdiv,/div¤òspan,/span¤ËÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_ʸ»úÎó). 'div class="main" ¥¿¥°¤¬¸½¤ì¤¿¤éü¤Îdiv,/div¤òspan,/span¤ËÃÖ´¹¿ô'(_ʸ»úÎó,_Á°Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿divÉô,_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- concat_atom([_Á°Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿divÉô,_¸åʸ»úÎó],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). 'div class="main" ¥¿¥°¤¬¸½¤ì¤¿¤éü¤Îdiv,/div¤òspan,/span¤ËÃÖ´¹¿ô'(_ʸ»úÎó,_Á°Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿divÉô,_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- 'div class="main" ¥¿¥°¤¬¸½¤ì¤¿¤éü¤Îdiv,/div¤òspan,/span¤ËÃÖ´¹¤¹¤ë'(_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿¸åʸ»úÎó), concat_atom([_Á°Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿divÉô,_ÃÖ´¹¤µ¤ì¤¿¸åʸ»úÎó],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). main¤«¤éspan¤Ø¤ÎÃÖ´¹(_ʸ»úÎó,_Á°Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,[<,d,i,v,' ',c,l,a,s,s,=,'"',m,a,i,n,'"',>|R2],L3), append(L2_2,[<,/,d,i,v,>],R2), append([<,s,p,a,n,' ',c,l,a,s,s,=,'"',m,a,i,n,'"',>|L2_2],[<,/,s,p,a,n,>],L2_3), concat_atom(L2_3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/159 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ¥Æ¥¥¹¥È # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ʸ¾ÏÆâ¤Î»ØÄꤷ¤¿¿ô¤Î²þ¹ÔËè¤Ë¡¢¹Ô¤ò°ìÃʳ«¤±¤¿¤¤¡£ # ²¼µÎãʸ¤Ê¤é²þ¹Ô»°¤Ä¤´¤È¤Ë¹Ô¤ò°ìÃʳ«¤±¤¿¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # (Îãʸ) # ¿Í¤Ï路¤â½éÂθ³¤Ë¤Ï¤Û¤í¶ì¤¯¡¢´Å»À¤Ã¤Ñ¤¤»×¤¤½Ð¤¬¤¢¤ë¤â¤Î¤À¤¬¡¢¿ÍÀ¸¤Î½ôÀèÇÚÊý¤Ï¤É¤ó¤ÊƸÄçÁÓ¼ºÂ賤ò¤·¤¿¤Î¤«¡© # ¡Ö¥·¥ê¡¼¥º½éÂθ³¡×¡Ý¡Ý¸½ºß70ºÐ¤Î²ñ¼ÒÌò°÷¡Êʼ¸Ë¸©¡Ë¤¬Åö»þ¤Î»×¤¤½Ð¤ò¸ì¤Ã¤¿¡£ # Ãæ³Ø2ǯ¤Î»þ¡¢¹ñ¸ì¤Î½÷¶µ»Õ¤Ë¡ÖÊÙ¶¯¤ò¶µ¤¨¤Æ¤¢¤²¤ë¤«¤é²È¤Ë¤ª¤¤¤Ç¡×¤È¤¤¤ï¤ì¡¢²ÆµÙ¤ß¤ËÆþ¤Ã¤Æ¤¹¤°¤ËÀèÀ¸¤Î²È¤òˬ¤ì¤Þ¤·¤¿¡£ # ¶µ»Õ¤Ë¤Ê¤Ã¤Æ3ǯÌÜ¡¢Èþ¿Í¤Ç¤Ï¤Ê¤¤¤±¤ì¤É¡¢»ä¤Ë¤È¤Ã¤Æ¤ÏÍ¥¤·¤¤¤ª»Ð¤µ¤ó¤Î¤è¤¦¤Ê¸ºß¤Ç¤·¤¿¡£ # ²¿¿Í¤«¤¤¤ë¤Î¤«¤Ê¤È»×¤Ã¤¿¤ó¤Ç¤¹¤¬¡¢ÀèÀ¸¤Î²È¤Ë¹Ô¤¯¤È»ä¤Î¾¤Ïï¤â¤¤¤Þ¤»¤ó¤Ç¤·¤¿¡£ # ÊÙ¶¯¤ò¶µ¤ï¤ê¡¢Í¼¿©¤ò¤´ÃÚÁö¤Ë¤Ê¤ê¡¢¤½¤ÎÆü¤ÏÇñ¤á¤Æ¤â¤é¤¤¤Þ¤·¤¿¡£ # ÌëÃæ¡¢²¼È¾¿È¤¬¤â¤¾¤â¤¾¤¹¤ë¤Î¤ÇÌܤ¬³Ð¤á¤ë¤È¡¢ÀèÀ¸¤¬»ä¤ÎÍá°á¤Î¿þ¤ò¹¤²¤Æ¤¤¤Þ¤·¤¿¡£ # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¿Í¤Ï路¤â½éÂθ³¤Ë¤Ï¤Û¤í¶ì¤¯¡¢´Å»À¤Ã¤Ñ¤¤»×¤¤½Ð¤¬¤¢¤ë¤â¤Î¤À¤¬¡¢¿ÍÀ¸¤Î½ôÀèÇÚÊý¤Ï¤É¤ó¤ÊƸÄçÁÓ¼ºÂ賤ò¤·¤¿¤Î¤«¡© # ¡Ö¥·¥ê¡¼¥º½éÂθ³¡×¡Ý¡Ý¸½ºß70ºÐ¤Î²ñ¼ÒÌò°÷¡Êʼ¸Ë¸©¡Ë¤¬Åö»þ¤Î»×¤¤½Ð¤ò¸ì¤Ã¤¿¡£ # Ãæ³Ø2ǯ¤Î»þ¡¢¹ñ¸ì¤Î½÷¶µ»Õ¤Ë¡ÖÊÙ¶¯¤ò¶µ¤¨¤Æ¤¢¤²¤ë¤«¤é²È¤Ë¤ª¤¤¤Ç¡×¤È¤¤¤ï¤ì¡¢²ÆµÙ¤ß¤ËÆþ¤Ã¤Æ¤¹¤°¤ËÀèÀ¸¤Î²È¤òˬ¤ì¤Þ¤·¤¿¡£ # # ¶µ»Õ¤Ë¤Ê¤Ã¤Æ3ǯÌÜ¡¢Èþ¿Í¤Ç¤Ï¤Ê¤¤¤±¤ì¤É¡¢»ä¤Ë¤È¤Ã¤Æ¤ÏÍ¥¤·¤¤¤ª»Ð¤µ¤ó¤Î¤è¤¦¤Ê¸ºß¤Ç¤·¤¿¡£ # ²¿¿Í¤«¤¤¤ë¤Î¤«¤Ê¤È»×¤Ã¤¿¤ó¤Ç¤¹¤¬¡¢ÀèÀ¸¤Î²È¤Ë¹Ô¤¯¤È»ä¤Î¾¤Ïï¤â¤¤¤Þ¤»¤ó¤Ç¤·¤¿¡£ # ÊÙ¶¯¤ò¶µ¤ï¤ê¡¢Í¼¿©¤ò¤´ÃÚÁö¤Ë¤Ê¤ê¡¢¤½¤ÎÆü¤ÏÇñ¤á¤Æ¤â¤é¤¤¤Þ¤·¤¿¡£ # # ÌëÃæ¡¢²¼È¾¿È¤¬¤â¤¾¤â¤¾¤¹¤ë¤Î¤ÇÌܤ¬³Ð¤á¤ë¤È¡¢ÀèÀ¸¤¬»ä¤ÎÍá°á¤Î¿þ¤ò¹¤²¤Æ¤¤¤Þ¤·¤¿¡£ # ------------------------- # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # 'ʸ¾ÏÆâ¤Î»ØÄꤷ¤¿¿ô¤Î²þ¹ÔËè¤Ë¡¢¹Ô¤ò°ìÃʳ«¤±¤ë'(_¥Õ¥¡¥¤¥ë,_n¹ÔËè) :- get_lines(_¥Õ¥¡¥¤¥ë,Lines), 'n¹ÔËè¤Ë²þ¹Ô¤òÁÞÆþ¤¹¤ë'(Lines,Lines2), ɽ¼¨¤¹¤ë(_¥Õ¥¡¥¤¥ë,Lines2). 'n¹ÔËè¤Ë²þ¹Ô¤òÁÞÆþ¤¹¤ë'([A,B,C|R1],[A,B,C,'\n'|R2]) :- 'n¹ÔËè¤Ë²þ¹Ô¤òÁÞÆþ¤¹¤ë'(R1,R2),!. 'n¹ÔËè¤Ë²þ¹Ô¤òÁÞÆþ¤¹¤ë'(L,L). ɽ¼¨¤¹¤ë(_¥Õ¥¡¥¤¥ë,Lines) :- put_lines(_¥Õ¥¡¥¤¥ë,Lines). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/157 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP 5.2 ¤Ç½ÐÍè¤ì¤Ðpreg_replace()¤Ç¡£ # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # "/foo/bar/baz/qux/" ¤ò "/home/bar/baz/qux/" ¤ËÃÖ´¹¤·¤¿¤¤¤Ç¤¹¡£ # foo¤Îʸ»ú¿ô¤ÏÉÔÄê¤Ç¤¹¡£ # # ¡üÂоݥǡ¼¥¿ # /foo/bar/baz/qux/ # /qwert/asd/fghjk/klzxv/ # /qazwsx/edc/rfvt/gbyhnu/ # /4756/78674/45756/34545/4564/546/ # # ¡ü´õ˾¤¹¤ë·ë²Ì # /home/bar/baz/qux/ # /home/asd/fghjk/klzxv/ # /home/edc/rfvt/gbyhnu/ # /home/78674/45756/34545/4564/546/ # # '"/foo/bar/baz/qux/" ¤ò "/home/bar/baz/qux/" ¤ËÃÖ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,_,S3,_,L2,_), L2 = [/,f,o,o,/], '"/foo/bar/baz/qux/" ¤ò "/home/bar/baz/qux/" ¤ËÃÖ´¹¤·¤¿¤¤'(S1,S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. '"/foo/bar/baz/qux/" ¤ò "/home/bar/baz/qux/" ¤ËÃÖ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). '"/foo/bar/baz/qux/" ¤ò "/home/bar/baz/qux/" ¤ËÃÖ´¹¤·¤¿¤¤'(S1,S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- concat_atom([S1,'/home/',S3],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). '"/foo/bar/baz/qux/" ¤ò "/home/bar/baz/qux/" ¤ËÃÖ´¹¤·¤¿¤¤'(S1,S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- '"/foo/bar/baz/qux/" ¤ò "/home/bar/baz/qux/" ¤ËÃÖ´¹¤·¤¿¤¤'(S3,_ÃÖ´¹¤µ¤ì¤¿S3), concat_atom([S1,'/home/',_ÃÖ´¹¤µ¤ì¤¿S3). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part9 #151 # ¡üJavaScript¤«PHP¡Ê¤Ê¤±¤ì¤Ð¤Ê¤ó¤Ç¤â¡Ë # ¡üÃÖ´¹ # ¡ü¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤òÃÖ´¹¸å¤ËËä¤á¹þ¤à¤³¤È¤Ç¤¤Þ¤·¤¿¤Ã¤±¡© # ¡ü¤¢¤¤¤¦¤¢¤¤¤¦¤¢¤¤¤¦¡¦¡¦¡¦ # ¡ü1¤¢¤¤¤¦2¤¢¤¤¤¦3¤¢¤¤¤¦¡¦¡¦¡¦ # # # ¸¡º÷¥Ñ¥¿¡¼¥ó(L2,_¸¡º÷¥Ñ¥¿¡¼¥ó) :- L2 = _¸¡º÷¥Ñ¥¿¡¼¥ó. '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò¸¡º÷°ìÃ׾¸å¤ËËä¤á¹þ¤à'(_ʸ»úÎó,_¸¡º÷¥Ñ¥¿¡¼¥ó,_²ó¿ô¤òËä¤á¹þ¤Þ¤ì¤¿Ê¸»úÎó) :- '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò¸¡º÷°ìÃ׾¸å¤ËËä¤á¹þ¤à'(_ʸ»úÎó,[],_¸¡º÷¥Ñ¥¿¡¼¥ó,_²ó¿ô¤òËä¤á¹þ¤Þ¤ì¤¿Ê¸»úÎó),!. '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò¸¡º÷°ìÃ׾¸å¤ËËä¤á¹þ¤à'(_ʸ»úÎó,Ln,_¸¡º÷¥Ñ¥¿¡¼¥ó,_²ó¿ô¤òËä¤á¹þ¤Þ¤ì¤¿Ê¸»úÎó) :- '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò¸¡º÷°ìÃ׾¸å¤ËËä¤á¹þ¤ó¤Ç¹Ô¤¯'(_ʸ»úÎó,Ln,_¸¡º÷¥Ñ¥¿¡¼¥ó,_²ó¿ô¤òËä¤á¹þ¤Þ¤ì¤¿Ê¸»úÎó),!. '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò¸¡º÷°ìÃ׾¸å¤ËËä¤á¹þ¤à'(_ʸ»úÎó,_,_,_ʸ»úÎó). '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò¸¡º÷°ìÃ׾¸å¤ËËä¤á¹þ¤ó¤Ç¹Ô¤¯'(_ʸ»úÎó,Ln,_¸¡º÷¥Ñ¥¿¡¼¥ó,_²ó¿ô¤òËä¤á¹þ¤Þ¤ì¤¿Ê¸»úÎó) :- '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò'(_ʸ»úÎó,_¸¡º÷¥Ñ¥¿¡¼¥ó,Ln,S1,S2,S3,Length), '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò¸¡º÷°ìÃ׾¸å¤ËËä¤á¹þ¤à'(S3,[_|Ln],_¸¡º÷¥Ñ¥¿¡¼¥ó,_²ó¿ô¤òËä¤á¹þ¤Þ¤ì¤¿Ê¸»úÎó_2), atomic_list_concat([S1,Length,S2,_²ó¿ô¤òËä¤á¹þ¤Þ¤ì¤¿Ê¸»úÎó_2],_²ó¿ô¤òËä¤á¹þ¤Þ¤ì¤¿Ê¸»úÎó). '¸½ºß¥Ñ¥¿¡¼¥ó¤Ë¥Þ¥Ã¥Á¤·¤Æ¤¤¤ë²ó¿ô(»î¹Ô²ó¿ô¤Ç¤â)¤ò'(_ʸ»úÎó,_¸¡º÷¥Ñ¥¿¡¼¥ó,Ln,S1,S2,S3,Length) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), ¸¡º÷¥Ñ¥¿¡¼¥ó(L2,_¸¡º÷¥Ñ¥¿¡¼¥ó), length([_|Ln],Length). sub_atom(_ʸ»úÎó,_1,_2,_3,S1,S2,S3,L1,L2,L3) :- sub_atom(_ʸ»úÎó,_1,_2,_3,S2), sub_atom(_ʸ»úÎó,0,_1,_,S1), sub_atom(_ʸ»úÎó,_,_3,0,S3), atom_chars(S1,L1), atom_chars(S2,L2), atom_chars(S3,L3). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/103 # ¤¢¤±¤Þ¤·¤Æ¤ª¤á¤Ç¤È¤¦ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # perl5 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # Á´³Ñ,¶çÆÉÅÀ¤ÈȾ³Ñ¤Î´Ö¤ò¾Ã¤·¤¿¤¤ # Ⱦ³Ñ¤ÈȾ³Ñ¤Ï̵»ë # ¡üÂоݥǡ¼¥¿ # ¤ß¤ó¤Ê¤ÎÆ´¤ì Justin Drew Bieber ¤¬Âç¹¥¤ # »ä¤À¤±¤Î Justin ¤¬Íߤ·¤¤ # ¤ä¤Ã¤Ñ¡¡Bieber¡¡¡¢Bieber ¤Ã¤Æ¶Á¤¤¬¤¤¤¤¤è¤Í # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤ß¤ó¤Ê¤ÎÆ´¤ìJustin Drew Bieber¤¬Âç¹¥¤ # »ä¤À¤±¤ÎJustin¤¬Íߤ·¤¤ # ¤ä¤Ã¤ÑBieber¡¢Bieber¤Ã¤Æ¶Á¤¤¬¤¤¤¤¤è¤Í # # # º£¤Þ¤Ç¤Ï([¤¡-ßæ]+)¤È([0-9A-Za-z]+)¤òÁȤ߹ç¤ï¤»¤Æ²¿²ó¤â¤ä¤Ã¤Æ¤¤¤¿¤Î¤Ç¤¹¤¬ # ÎãÂê¤Î£±¹ÔÌܤÎÍͤÊʪ¤¬ÈѤ路¤¤¤Î¤Ç°ì³ç¤Ë½èÍý¤·¤¿¤¤¤Ç¤¹ # ¤ª´ê¤¤¤·¤Þ¤¹ # 'Á´³Ñ,¶çÆÉÅÀ¤ÈȾ³Ñ¤Î´Ö¤ò¾Ã¤·¤¿¤¤¡£È¾³Ñ¤ÈȾ³Ñ¤Ï̵»ë'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), Ⱦ³Ñ¤Ë¶´¤Þ¤ì¤Æ¤¤¤Ê¤¤¶õÇò¤ÎϢ³¤Ê¤é¤Ó(L1,L2,L3), 'Á´³Ñ,¶çÆÉÅÀ¤ÈȾ³Ñ¤Î´Ö¤ò¾Ã¤·¤¿¤¤ Ⱦ³Ñ¤ÈȾ³Ñ¤Ï̵»ë'(_S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), concat_atom([S1,S2,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'Á´³Ñ,¶çÆÉÅÀ¤ÈȾ³Ñ¤Î´Ö¤ò¾Ã¤·¤¿¤¤¡£È¾³Ñ¤ÈȾ³Ñ¤Ï̵»ë'(_ʸ»úÎó,_ʸ»úÎó). Ⱦ³Ñ¤Ë¶´¤Þ¤ì¤Æ¤¤¤Ê¤¤¶õÇò¤ÎϢ³¤Ê¤é¤Ó(L1,L2,L3) :- Á´¤Æ¶õÇò(L2), \+((last(L1,A),Ⱦ³Ñʸ»ú(A),L3=[C|_],Ⱦ³Ñʸ»ú(C))). Á´¤Æ¶õÇò([]). Á´¤Æ¶õÇò([' '|R]) :- Á´¤Æ¶õÇò(R). Ⱦ³Ñʸ»ú(' ') :- !,fail. Ⱦ³Ñʸ»ú(_ʸ»ú) :- char_code(_ʸ»ú,_ʸ»ú¥³¡¼¥É), _ʸ»ú¥³¡¼¥É < 256. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ::Àµµ¬É½¸½ Part9 #101 # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ʸ»úÎó¤ÎÀèÆ¬¤ÎÉôʬ¤Î¥«¥Ã¥³¤ò¾Ã¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # (hoge)¤¢¤¤¤¦¤¨¤ª # # ¡ü´õ˾¤¹¤ë·ë²Ì # hoge¤¢¤¤¤¦¤¨¤ª # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # ʸ»úÎó¤ÎÀèÆ¬¤ÎÉôʬ¤Î¥«¥Ã¥³¤ò¾Ã¤·¤¿¤¤(_ʸ»úÎó,_ÃÖ´¹¤·¤¿Ê¸»úÎó) :- atom_chars(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), ʸ»ú¤Ê¤é¤Ó¤ÎÀèÆ¬¤ÎÉôʬ¤Î¥«¥Ã¥³¤ò¾Ã¤¹(_ʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹¤·¤¿Ê¸»ú¤Ê¤é¤Ó), atom_chars(_ÃÖ´¹¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤·¤¿Ê¸»ú¤Ê¤é¤Ó). ʸ»ú¤Ê¤é¤Ó¤ÎÀèÆ¬¤ÎÉôʬ¤Î¥«¥Ã¥³¤ò¾Ã¤¹(_ʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹¤·¤¿Ê¸»ú¤Ê¤é¤Ó) :- ÀèÆ¬Éôʬ¤Î¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó¤È»Ä¤êʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë(_ʸ»ú¤Ê¤é¤Ó,_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó,_»Ä¤êʸ»ú¤Ê¤é¤Ó), ¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó¤È»Ä¤êʸ»ú¤Ê¤é¤Ó¤ò·ë¹ç¤¹¤ë(_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó,_»Ä¤êʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹¤·¤¿Ê¸»ú¤Ê¤é¤Ó). ÀèÆ¬Éôʬ¤Î¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó¤È»Ä¤êʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë(_ʸ»ú¤Ê¤é¤Ó,_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó,_»Ä¤êʸ»ú¤Ê¤é¤Ó) :- append(['('|_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó],[')'|_»Ä¤êʸ»ú¤Ê¤é¤Ó],_ʸ»ú¤Ê¤é¤Ó), ¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó¤Ï¥«¥Ã¥³¤ò´Þ¤Þ¤Ê¤¤(_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó),!. ¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó¤Ï¥«¥Ã¥³¤ò´Þ¤Þ¤Ê¤¤(_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó) :- \+(member('(',_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó)), \+(member(')',_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó)). ¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó¤È»Ä¤êʸ»ú¤Ê¤é¤Ó¤ò·ë¹ç¤¹¤ë(_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó,_»Ä¤êʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹¤·¤¿Ê¸»ú¤Ê¤é¤Ó) :- append(_¥«¥Ã¥³Æâ¤Îʸ»ú¤Ê¤é¤Ó,_»Ä¤êʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹¤·¤¿Ê¸»ú¤Ê¤é¤Ó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://toro.2ch.net/test/read.cgi/tech/1323566370/41 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # c# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # °ìÈÖŤ¤¿ô»ú¤ÎϢ³¤ò¸¡º÷¤·¤¿¤¤¤Ç¤¹ # # ¡üÂоݥǡ¼¥¿ # hogehoge120_hoge001218hoge1 # # ¡ü´õ˾¤¹¤ë·ë²Ì # 001218 # # °ìÈÖŤ¤¿ô»ú¤ÎϢ³¤ò¸¡º÷¤·¤¿¤¤¤Ç¤¹(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- '¿ô»úʸ»úÎó¤Î°ÌÃÖ¡¦Ä¹¤µ¤ÎÁªÂò'(_ʸ»úÎó,L), ºÇÂçĹ¤Î¿ô»úʸ»úÎó(L,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). '¿ô»úʸ»úÎó¤Î°ÌÃÖ¡¦Ä¹¤µ¤ÎÁªÂò'(_ʸ»úÎó,L) :- findall([P2,P1,P3],( sub_atom(_ʸ»úÎó,P1,P2,P3,S1,S2,S3,L1,L2,L3), Á´¤Æ¿ô»ú(L2), \+((last(L1,A),¿ô»ú(A))), \+((L3=[B|_],¿ô»ú(B)))), L). ºÇÂçĹ¤Î¿ô»úʸ»úÎó(L,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- max(L,[_ºÇÂçĹ,_,_]), member([_ºÇÂçĹ,P1,P3],L), ʸ»úÎó¤ÎÀÚ¤ê¼è¤ê(_ʸ»úÎó,P1,_ºÇÂçĹ,P3,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). ʸ»úÎó¤ÎÀÚ¤ê¼è¤ê(_ʸ»úÎó,P1,P2,P3,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,P1,P2,P3,_Ŭ¹çʸ»úÎó), sub_atom(_ʸ»úÎó,0,P1,_,_Á°Ê¸»úÎó), sub_atom(_ʸ»úÎó,P1+P2,_,0,_¸åʸ»úÎó). ¿ô»ú(A) :- member(A,['0','1','2','3','4','5','6','7','8','9']). Á´¤Æ¿ô»ú([]). Á´¤Æ¿ô»ú([A|R]) :- ¿ô»ú(A), Á´¤Æ¿ô»ú(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/865 # ../test/read.cgi/tech/1301067486/864 ¼ºÎ餷¤Þ¤·¤¿ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # psstpsst¤È¤¤¤¦ŽØŽÈްŽÑŽ¿ŽÌŽÄ¡ÊPerl¸ß´¹¡Ë # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ºÇÂç4·å¤Ç½ñ¤«¤ì¤¿¿ô»úÉôʬ¤ò3·å¤ËÅý°ì¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ABCA01.txt # BCAA2.txt # CABA0255.txt # # ¡ü´õ˾¤¹¤ë·ë²Ì # AAA001.txt # AAA002.txt # AAA255.txt # # ¤É¤¦¤¾¤è¤í¤·¤¯¤ª¤Í¤¬¤¤¤·¤Þ¤¹ # # ºÇÂç4·å¤Ç½ñ¤«¤ì¤¿¿ô»úÉôʬ¤ò3·å¤ËÅý°ì¤·¤¿¤¤(_ʸ»úÎó,_¸ÇÄêÉôʬ¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(Line,_,_,_,S1,S2,S3,L1,L2,L3), ¥Õ¥¡¥¤¥ëÉôʬ¤ÎÆÃÄê(S1,L2,L2_0,L2_1), ºÇÂç4·å¤Ç½ñ¤«¤ì¤¿¿ô»úÉôʬ¤ò3·å¤ËÅý°ì¤·¤¿¤¤(_¸ÇÄêÉôʬ¥Õ¥¡¥¤¥ë̾,S1,L2_0,L2_1,S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ¥Õ¥¡¥¤¥ëÉôʬ¤ÎÆÃÄê(S1,L2,L2_0,L2_1) :- \+((sub_atom(S1,_,1,0,A),¥Õ¥¡¥¤¥ë¤ò¹½À®¤¹¤ëʸ»ú(A))), append(L2_0,L2_1,['.',t,x,t],L2), ¤¹¤Ù¤Æ¿ô»ú(L2_1), last(L2_0,B), \+(¿ô»ú(B)). ºÇÂç4·å¤Ç½ñ¤«¤ì¤¿¿ô»úÉôʬ¤ò3·å¤ËÅý°ì¤·¤¿¤¤(_¸ÇÄêÉôʬ¥Õ¥¡¥¤¥ë̾,S1,L2_1,S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- »°·å¤Î¿ô»ú¤ËÊÑ´¹¤¹¤ë(L2_1,_»°·å¤Î¿ô»úÎó), concat_atom([S1,_¸ÇÄêÉôʬ¥Õ¥¡¥¤¥ë̾,_»°·å¤Î¿ô»úÎó,'.txt',S3],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ºÇÂç4·å¤Ç½ñ¤«¤ì¤¿¿ô»úÉôʬ¤ò3·å¤ËÅý°ì¤·¤¿¤¤(_¸ÇÄêÉôʬ¥Õ¥¡¥¤¥ë̾,S1,L2_1,S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- ºÇÂç4·å¤Ç½ñ¤«¤ì¤¿¿ô»úÉôʬ¤ò3·å¤ËÅý°ì¤·¤¿¤¤(S3,_¸ÇÄêÉôʬ¥Õ¥¡¥¤¥ë̾,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_1), concat_atom([S1,_¸ÇÄêÉôʬ¥Õ¥¡¥¤¥ë̾,_»°·å¤Î¿ô»úÎó,'.txt',_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_1],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ¥Õ¥¡¥¤¥ë¤ò¹½À®¤¹¤ëʸ»ú(A) :- ¿ô»ú(A),!. ¥Õ¥¡¥¤¥ë¤ò¹½À®¤¹¤ëʸ»ú(A) :- A @>= 'A', A @=< 'Z',!. ¥Õ¥¡¥¤¥ë¤ò¹½À®¤¹¤ëʸ»ú(A) :- A @>= 'a', A @=< 'z',!. ¥Õ¥¡¥¤¥ë¤ò¹½À®¤¹¤ëʸ»ú(A) :- member(A,['-','_','#','$','~','&']),!. ¿ô»ú(A) :- member(A,['0','1','2','3','4','5','6','7','8','9']). Á´¤Æ¿ô»ú([]). Á´¤Æ¿ô»ú([A|R]) :- ¿ô»ú(A), Á´¤Æ¿ô»ú(R). »°·å¤Î¿ô»ú¤ËÊÑ´¹¤¹¤ë(L,_»°·å¤Î¿ô»ú) :- concat_atom(['0','0','0'|L],S1), sub_atom(S1,_,3,0,_»°·å¤Î¿ô»ú). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/799 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ½¨´Ý # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ʸ»úÎó¤ÎÃæ¤ËƱ¤¸Ê¸»ú¤¬2¤Ä°Ê¾å´Þ¤Þ¤ì¤ë¹Ô¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # aaaaaaaa # abcabcab # abcdefgh # agbchddf # cbfdaehg # dbcahebg # dffbdeha # echfbgad # fbadcaeh # habcdefg # # ¡ü´õ˾¤¹¤ë·ë²Ì # abcdefgh # cbfdaehg # echfbgad # habcdefg # # # # ¸«¤Å¤é¤¤¤«¤È»×¤¤¤Þ¤¹¤¬ # ¤É¤¦¤«¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ʸ»úÎó¤ÎÃæ¤ËƱ¤¸Ê¸»ú¤¬2¤Ä°Ê¾å´Þ¤Þ¤ì¤ë¹Ô¤òºï½ü¤·¤¿¤¤([],[]). ʸ»úÎó¤ÎÃæ¤ËƱ¤¸Ê¸»ú¤¬2¤Ä°Ê¾å´Þ¤Þ¤ì¤ë¹Ô¤òºï½ü¤·¤¿¤¤([_|R1],R2) :- Ʊ¤¸Ê¸»ú¤¬2¤Ä°Ê¾å´Þ¤Þ¤ì¤ë¹Ô¤Ïºï½ü¤¹¤ë(_¹Ô), ʸ»úÎó¤ÎÃæ¤ËƱ¤¸Ê¸»ú¤¬2¤Ä°Ê¾å´Þ¤Þ¤ì¤ë¹Ô¤òºï½ü¤·¤¿¤¤(R1,R2). ʸ»úÎó¤ÎÃæ¤ËƱ¤¸Ê¸»ú¤¬2¤Ä°Ê¾å´Þ¤Þ¤ì¤ë¹Ô¤òºï½ü¤·¤¿¤¤([A|R1],[A|R2]) :- ʸ»úÎó¤ÎÃæ¤ËƱ¤¸Ê¸»ú¤¬2¤Ä°Ê¾å´Þ¤Þ¤ì¤ë¹Ô¤òºï½ü¤·¤¿¤¤(R1,R2). Ʊ¤¸Ê¸»ú¤¬2¤Ä°Ê¾å´Þ¤Þ¤ì¤ë¹Ô¤Ïºï½ü¤¹¤ë(_¹Ô) :- atom_chars(_¹Ô,_ʸ»ú¤Ê¤é¤Ó), À°Îó(_ʸ»ú¤Ê¤é¤Ó,_À°Î󤵤줿ʸ»ú¤Ê¤é¤Ó), À°Îó¤·¤¿Í×ÁǤ˽ÅÊ£¤¬¤¢¤ë(_À°Î󤵤줿ʸ»ú¤Ê¤é¤Ó). À°Îó¤·¤¿Í×ÁǤ˽ÅÊ£¤¬¤¢¤ë([A,A|_]) :- !. À°Îó¤·¤¿Í×ÁǤ˽ÅÊ£¤¬¤¢¤ë([_|R]) :- À°Îó¤·¤¿Í×ÁǤ˽ÅÊ£¤¬¤¢¤ë(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/777 # JavaScript¤Ç # aa1 # ¤Ã¤Æ¤¤¤¦Ê¸»úÎó¤Î²ô¤ò£±¥»¥Ã¥È¤Ç[a-z]{2}[0-9]¤Èɽ¤·¤Þ¤¹ # ¤³¤Îʸ»úÎó¤¬ # fi1cs2bc3wr4 # ¤Ã¤Æ¤¦É÷¤Ë4²ó·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ë¥Ò¥Ã¥È¤µ¤»¤ëÀµµ¬É½¸½¤Ï¤É¤¦¤«¤¯¤Î¤Ç¤·¤ç¤¦¤«¡© # ([a-z]{2}[0-9]){4}¤Ã¤Æ´¶¤¸¤Ç½ñ¤¤¤Æ¤ß¤¿¤ó¤Ç¤¹¤±¤É(¡Á){¿ô»ú}¤Î¥±¡¼¥¹¤Ã¤Æ¸«¤¿¤³¤È¤Ê¤¤¤ó¤Ç¤¹¤¬¤É¤¦¤Ç¤·¤ç¤¦¤« # # ¤¢¤ëʸ»ú¥Ñ¥¿¡¼¥ó¤¬»Í²ó·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë¥Ñ¥¿¡¼¥ó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), ¤¢¤ëʸ»ú¥Ñ¥¿¡¼¥ó¤¬»Í²ó·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë(L2). ¤¢¤ëʸ»ú¥Ñ¥¿¡¼¥ó¤¬»Í²ó·«¤êÊÖ¤µ¤ì¤Æ¤¤¤ë(L) :- append(A,B,L1), append(L1,C,L2), append(L2,D,L). Ʊ°ì¥Ñ¥¿¡¼¥ó([A,B,C,D],_). Ʊ°ì¥Ñ¥¿¡¼¥ó([],_) :- !. Ʊ°ì¥Ñ¥¿¡¼¥ó([A|R],N) :- ¥Ñ¥¿¡¼¥ó¸õÊä(A,1), Ʊ°ì¥Ñ¥¿¡¼¥ó(R,N). ¥Ñ¥¿¡¼¥ó¸õÊä(A,1) :- °ìʸ»úÌܤ¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A), Æóʸ»úÌܤ¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A), »°Ê¸»úÌܤ¬¿ô»ú(A). °ìʸ»úÌܤ¬±Ñʸ»ú(A) :- sub_atom(A,0,1,_,A1), ±Ñʸ»ú(A1),!. Æóʸ»úÌܤ¬±Ñʸ»ú(A) :- sub_atom(A,1,1,_,A2), ±Ñʸ»ú(A2),!. »°Ê¸»úÌܤ¬¿ô»ú(A) :- sub_atom(A,2,1,_,A3), A3 @>= '0', A3 @=< '9',!. ±Ñʸ»ú(A) :- A @>= 'a', A @=< 'z',!. ±Ñʸ»ú(A) :- A @>= 'A', A @=< 'Z',!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/762 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # MySQL4.1¤ÎREGEXP # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # ¥«¥é¥àÆâ¤Ë <> ¤ò´Þ¤à¥Æ¥¥¹¥È¥Ç¡¼¥¿¤¬¤¢¤ë¤Î¤Ç¤¹¤¬ # Ä´¤Ù¤¿¤¤¿ô»ú¤¬Æþ¤Ã¤Æ¤¤¤ë¤«¤òÄ´¤Ù¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # 3<>4 # 5<>32<>2 # 5<>3<>6 # 3 # 4 # # ¤³¤ÎÃæ¤«¤é3¤ò´Þ¤à¤â¤Î¤ò¸¡º÷¤·¤¿¤¤(32¤Ï¥Ò¥Ã¥È¤·¤Ê¤¤¤è¤¦¤Ë) # # ¡ü´õ˾¤¹¤ë·ë²Ì # 3<>4 # 5<>3<>6 # 3 # # '¥«¥é¥àÆâ¤Ë <> ¤ò´Þ¤à¥Æ¥¥¹¥È¥Ç¡¼¥¿¤¬¤¢¤ë¤Î¤Ç¤¹¤¬Ä´¤Ù¤¿¤¤¿ô»ú¤¬Æþ¤Ã¤Æ¤¤¤ë¤«¤òÄ´¤Ù¤¿¤¤'(_¥«¥é¥à¤Ê¤é¤Ó,_Ä´¤Ù¤¿¤¤¿ô»ú,_Ŭ¹ç¥«¥é¥à) :- append(_,[_¥«¥é¥à|_],_¥«¥é¥à¤Ê¤é¤Ó), Ä´¤Ù¤¿¤¤¿ô»ú¤¬Æþ¤Ã¤Æ¤¤¤ë¤«(_¥«¥é¥à). Ä´¤Ù¤¿¤¤¿ô»ú¤¬Æþ¤Ã¤Æ¤¤¤ë¤«(_,_Ä´¤Ù¤¿¤¤¿ô»ú) :- !. Ä´¤Ù¤¿¤¤¿ô»ú¤¬Æþ¤Ã¤Æ¤¤¤ë¤«(_¥«¥é¥à,_Ä´¤Ù¤¿¤¤¿ô»ú) :- split(_¥«¥é¥à,['<>'],L), append(_,[_Ä´¤Ù¤¿¤¤¿ô»ú|_],L). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/727 # ¤ï¤«¤ê¤Ë¤¯¤¤¼ÁÌ䤫¤â¤·¤ì¤Þ¤»¤ó¤¬¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Java(Android) # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ʸ»úÎ󤫤顢¿ôÃͤò´Þ¤àURL¤ò¸¡º÷¤·¡¢¤½¤Î¿ôÃͤò¼èÆÀ¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # http://ime.nu/some_website.net/category:63 # http://ime.nu/some_website.net/category:19 # ¡¦¡¦¡¦ # ¤Î¤è¤¦¤Ë¡¢¿ôÃͤò´Þ¤àURL¤ò´Þ¤ó¤Àʸ»úÎó # # ¡ü´õ˾¤¹¤ë·ë²Ì # http://ime.nu/some_website.net/category:63 # ¤À¤Ã¤¿¤é¡¢63¤ò¼èÆÀ # # 'ʸ»úÎ󤫤顢¿ôÃͤò´Þ¤àURL¤ò¸¡º÷¤·¡¢¤½¤Î¿ôÃͤò¼èÆÀ¤·¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- '¿ôÃͤò´Þ¤àURL¤ò¸¡º÷¤·'(_ʸ»úÎó,_Á°Ê¸»úÎó_1,_¿ôÃͤò´Þ¤àURL,_¸åʸ»úÎó_1), ¿ôÃͤò¼èÆÀ¤·¤¿¤¤(_¿ôÃͤò´Þ¤àURL,_Á°Ê¸»úÎó_2,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó_2), concat_atom([_Á°Ê¸»úÎó_1,_Á°Ê¸»úÎó_2],_Á°Ê¸»úÎó), concat_atom([_¸åʸ»úÎó_2,_¸åʸ»úÎó_1],_¸åʸ»úÎó). '¿ôÃͤò´Þ¤àURL¤ò¸¡º÷¤·'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¿ôÃͤò´Þ¤àURL,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó_1,_¿ôÃͤò´Þ¤àURL_1,_¸åʸ»úÎó_1,L1,L2,L3), 'URL¤Ç¤¢¤ë'(L2), 'L3¤Ï[]¤Ç¤¢¤ë¤«ÀèÆ¬¤¬¶õÇò'(L3), '¿ôÃͤò´Þ¤àURL¤ò¸¡º÷¤·'(_Á°Ê¸»úÎó_1,_¿ôÃͤò´Þ¤àURL_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_¿ôÃͤò´Þ¤àURL,_¸åʸ»úÎó). '¿ôÃͤò´Þ¤àURL¤ò¸¡º÷¤·'(_Á°Ê¸»úÎó,_¿ôÃͤò´Þ¤àURL,_¸åʸ»úÎó,_Á°Ê¸»úÎó,_¿ôÃͤò´Þ¤àURL,_¸åʸ»úÎó). '¿ôÃͤò´Þ¤àURL¤ò¸¡º÷¤·'(_Á°Ê¸»úÎó_1,_¿ôÃͤò´Þ¤àURL_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_¿ôÃͤò´Þ¤àURL,_¸åʸ»úÎó) :- '¿ôÃͤò´Þ¤àURL¤ò¸¡º÷¤·'(_¸åʸ»úÎó_1,_Á°Ê¸»úÎó_2,_¿ôÃͤò´Þ¤àURL,_¸åʸ»úÎó), concat_atom([_Á°Ê¸»úÎó_1,_¿ôÃͤò´Þ¤àURL_1,_Á°Ê¸»úÎó_2],_Á°Ê¸»úÎó). 'URL¤Ç¤¢¤ë'([h,t,t,p,:,/,/|R]) :- \+(member(' ',R)),!. 'URL¤Ç¤¢¤ë'([h,t,t,p,s,:,/,/|R]) :- \+(member(' ',R)),!. 'URL¤Ç¤¢¤ë'([f,t,p,:,/,/|R]) :- \+(member(' ',R)),!. 'URL¤Ç¤¢¤ë'([f,i,l,e,:,/,/|R]) :- \+(member(' ',R)),!. 'L3¤Ï[]¤Ç¤¢¤ë¤«ÀèÆ¬¤¬¶õÇò'([]) :- !. 'L3¤Ï[]¤Ç¤¢¤ë¤«ÀèÆ¬¤¬¶õÇò'([' '|_]). ¿ôÃͤò¼èÆÀ¤·¤¿¤¤(_¿ôÃͤò´Þ¤àURL,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_¿ôÃͤò´Þ¤àURL,_,_,_,_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,L1_1,L2_1,L3_1), Á´¤Æ¤¬¿ô»ú(L1), \+((last(L1,A),¿ô»ú(A))), \+((L3 = [B|_],¿ô»ú(B))). ¿ôÃͤò¼èÆÀ¤·¤¿¤¤(_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). ¿ôÃͤò¼èÆÀ¤·¤¿¤¤(_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). ¿ôÃͤò¼èÆÀ¤·¤¿¤¤(_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- ¿ôÃͤò¼èÆÀ¤·¤¿¤¤(_¸åʸ»úÎó_1,_Á°Ê¸»úÎó_2,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), concat_atom([_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_Á°Ê¸»úÎó_2],_Á°Ê¸»úÎó). Á´¤Æ¤¬¿ô»ú([]). Á´¤Æ¤¬¿ô»ú([A|R]) :- ¿ô»ú(A), Á´¤Æ¤¬¿ô»ú(R). ¿ô»ú(A) :- member(A,['0','1','2','3','4','5','6','7','8','9']),!. ¿ô»ú(A) :- member(A,[0,1,2,3,4,5,6,7,8,9]). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/681 # 0¥Ñ¥Ç¥£¥ó¥°¤µ¤ì¤Æ¤Ê¤¤1¡Á3·å¤Î¿ô»ú¤Î¤ß¤Ë¥Ò¥Ã¥È¤µ¤»¤ëÀµµ¬É½¸½¤Ã¤Æ¤É¤Î¤è¤¦¤Ë½ñ¤±¤Þ¤¹¤«¡© # # ¥Ò¥Ã¥È¤¹¤ëÎã # 0 # 9 # 10 # 19 # 99 # 100 # 999 # # ¥Ò¥Ã¥È¤µ¤»¤Ê¤¤Îã # 00 # 000 # 09 # 010 # 019 # 099 # 0100 # # '0¥Ñ¥Ç¥£¥ó¥°¤µ¤ì¤Æ¤Ê¤¤1¡Á3·å¤Î¿ô»ú¤Î¤ß¤Ë¥Ò¥Ã¥È¤µ¤»¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,L1,L2,L3), for(3,Len,1), length(L2,Len), Á´¤Æ¿ô»ú(L2), \+((last(L1,C1),¿ô»ú(C1))), L2 = [A2|R2], ((\+(A2='0');R2=[])), '0¥Ñ¥Ç¥£¥ó¥°¤µ¤ì¤Æ¤Ê¤¤1¡Á3·å¤Î¿ô»ú¤Î¤ß¤Ë¥Ò¥Ã¥È¤µ¤»¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). '0¥Ñ¥Ç¥£¥ó¥°¤µ¤ì¤Æ¤Ê¤¤1¡Á3·å¤Î¿ô»ú¤Î¤ß¤Ë¥Ò¥Ã¥È¤µ¤»¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). '0¥Ñ¥Ç¥£¥ó¥°¤µ¤ì¤Æ¤Ê¤¤1¡Á3·å¤Î¿ô»ú¤Î¤ß¤Ë¥Ò¥Ã¥È¤µ¤»¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_¸åʸ»úÎó_1,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- '0¥Ñ¥Ç¥£¥ó¥°¤µ¤ì¤Æ¤Ê¤¤1¡Á3·å¤Î¿ô»ú¤Î¤ß¤Ë¥Ò¥Ã¥È¤µ¤»¤ë'(_¸åʸ»úÎó,_Á°Ê¸»úÎó_2,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), append(_Á°Ê¸»úÎó_1,_Ŭ¹çʸ»úÎó_1,_Á°Ê¸»úÎó_2,_Á°Ê¸»úÎó). Á´¤Æ¿ô»ú([]). Á´¤Æ¿ô»ú([A|R]) :- A @>= '0', A @=< '9', Á´¤Æ¿ô»ú(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/620 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Windows¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¡¢filestr # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # Á´³Ñ±Ñ¤ÎÂçʸ»ú¤Þ¤¿¤Ï¾®Ê¸»ú¤Þ¤¿¤ÏÁ´³Ñ¿ô»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¤«¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # °Ê²¼bat¤Ç¼ºÎ餷¤Þ¤¹ # set a="£Á£ð£å" # set b="£Â£á£ð£å" # set c="£²£²£²" # ¡ü´õ˾¤¹¤ë·ë²Ì # %a%¡¢%b%¡¢%c%¤«¤é¸¡º÷¤·¤Æ¡¢"£Á£ð£å"¡¢"£Â£á£ð£å"¡¢"£²£²£²"¡¢¤È¤¤¤¦·ë²Ì¤òɽ¼¨¤Ç¤¤ë¤è¤¦¤¹¤ëÀµµ¬É½¸½¤Þ¤¿¤Ï¡¢¤½¤ì¤ò´Þ¤á¤¿¥³¥Þ¥ó¥É # ¡ü»î¤·¤¿¥³¥Þ¥ó¥É # echo %a%|findstr /r "[£Á-£Ú]" # echo %b%|findstr /r "£á-£ú" # echo %c%|findstr /r \[£°-£¹\] # echo %c%|findstr /r "\[£°-£¹\]" # echo %a%|findstr "[£Á-£Ú]" # echo %b%|findstr "£á-£ú" # echo %c%|findstr £á-£ú # findstr /r [£Á-£Ú] %a% # findstr /r [£á-£ú] %b% # findstr /r [£°-£¹] %c% # ¾åµ¤Î¥³¥Þ¥ó¥É¤Ï´Ö°ã¤Ã¤Æ¤¤¤Æ·ë²Ì¤¬Á´¤Æ¶õÍó¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£Àµ¤·¤¤¾ì¹ç¤Ï # set d=" ¤¢¤¢¤¢" # echo %d%|findstr /r /c:"^. ." # ¤³¤Á¤é¤Î²èÌ̤ò¸«¤ÆÄº¤±¤ì¤Ð¤È»×¤¤¤Þ¤¹¡£¤½¤ì¤Ç¤Ï¤É¤¦¤«¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # 'Á´³Ñ±Ñ¤ÎÂçʸ»ú¤Þ¤¿¤Ï¾®Ê¸»ú¤Þ¤¿¤ÏÁ´³Ñ¿ô»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¤«¸¡º÷¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çÁ´³Ñʸ»ú,_¸åʸ»úÎó) :- atom_chars(_ʸ»úÎó,Chars), append(L0,[_Ŭ¹çÁ´³Ñʸ»ú|R],Chars), 'Á´³Ñ±Ñ¤ÎÂçʸ»ú¤Þ¤¿¤Ï¾®Ê¸»ú¤Þ¤¿¤ÏÁ´³Ñ¿ô»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(_Ŭ¹çÁ´³Ñʸ»ú), atom_chars(_Á°Ê¸»úÎó,L0), atom_chars(_¸åʸ»úÎó,R). 'Á´³Ñ±Ñ¤ÎÂçʸ»ú¤Þ¤¿¤Ï¾®Ê¸»ú¤Þ¤¿¤ÏÁ´³Ñ¿ô»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(A) :- 'Á´³Ñ±Ñ¤ÎÂçʸ»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë'(A),!. 'Á´³Ñ±Ñ¤ÎÂçʸ»ú¤Þ¤¿¤Ï¾®Ê¸»ú¤Þ¤¿¤ÏÁ´³Ñ¿ô»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(L,L0,A,R) :- 'Á´³Ñ±Ñ¤Î¾®Ê¸»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë'(A),!. 'Á´³Ñ±Ñ¤ÎÂçʸ»ú¤Þ¤¿¤Ï¾®Ê¸»ú¤Þ¤¿¤ÏÁ´³Ñ¿ô»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(L,L0,A,R) :- 'Á´³Ñ¿ô»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë'(A),!. 'Á´³Ñ±Ñ¤ÎÂçʸ»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë'(A) :- A @>= £Á, A @=< £Ú,!. 'Á´³Ñ±Ñ¤ÎÂçʸ»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë'(A) :- A @>= £á, A @=< £ú,!. 'Á´³Ñ±Ñ¤Î¿ô»ú¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë'(A) :- A @>= £±, A @=< £¹,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/594 # Àµµ¬É½¸½¤Ï¡¢´û½Ð¤«¤É¤¦¤«¤Ã¤Æ¤Î¤¬¤ï¤«¤ê¤Ë¤¯¤¤¤Í¡£ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Java1.6 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ÊÑ¿ôʸ»úÎó¤È¤½¤Îź»ú¤Î¼èÆÀ # # ¡üÂоݥǡ¼¥¿ # $AAA.BBB+$CCC.DDD.EEE(1234)-#FFF*#GGG.HHH(567) # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¸¡º÷1²óÌÜ # group1 : $AAA.BBB # # ¸¡º÷2²óÌÜ # group1 : $CCC.DDD.EEE # group2 : 1234 # # ¸¡º÷3²óÌÜ # group1 : #FFF # # ¸¡º÷4²óÌÜ # group1 : #GGG.HHH # group2 : 567 # # # ($.*)\\(([0-9]*)\\) # ¤³¤ì¤Ç¡¢$CCC.DDD.EEE(1234)¤ò¤ß¤Ä¤±¤ì¤ë¤Î¤Ï½ÐÍ褿¤±¤É¡¢Åº¤¨»ú¤¬Ìµ¤¤¾ì¹ç¤ò°ú¤Ã³Ý¤±¤ë¤Î¤¬¤Ç¤¤Ê¤¤¡£ # # 'ÊÑ¿ôʸ»úÎó¤È¤½¤Îź»ú¤Î¼èÆÀ'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,Group1,Group2) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,['$'|R2],L3), \+((member(A,R),member(A,['+','-','*','/']))), '[]¤Ç¤¢¤ë¤«ÀèÆ¬¤Ë+,-,*,/,¤¬Íè¤ë'(L3), group¸¡ºº(R2,Group1,Group2). '[]¤Ç¤¢¤ë¤«ÀèÆ¬¤Ë+,-,*,/,¤¬Íè¤ë'([]) :- !. '[]¤Ç¤¢¤ë¤«ÀèÆ¬¤Ë+,-,*,/,¤¬Íè¤ë'([A|_]) :- member(A,[+,-,*,/]),!. group¸¡ºº(R2,Group1,'') :- \+(append(_,['('|_],R2)), atom_chars(Group1,R2),!. group¸¡ºº(R2,Group1,Group2) :- atom_chars(Group1,R2), append(_,['('|R3],R2), append(L0,[')'|_],R3), atom_chars(Group2,L0),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/570 # ¾®Ê¸»ú±Ñ»ú¡¢Âçʸ»ú±Ñ»ú¡¢¿ô»ú¡¢¡Ö@_#¡×¡¢¤Î¤É¤ì¤«£³¤Ä¤¬Æþ¤Ã¤Æ¤¤¤ë¤«¤Î¾ò·ï¤ÏÀµµ¬É½¸½¤Ç²Äǽ¤Ç¤·¤ç¤¦¤«¡© # ¤É¤ì¤«£³¤Ä¤Î¤ä¤êÊý¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£ # # °Ê²¼¤ÏÁ´¤¯Æ°ºî¤»¤º¡Ä # ^(?=(?=.*[A-Z])(?=.*[a-z])(?=.*[0-9])|(?=.*[A-Z])(?=.*[a-z])(?=.*[@_#])).*$ # # '¾®Ê¸»ú±Ñ»ú¡¢Âçʸ»ú±Ñ»ú¡¢¿ô»ú¡¢¡Ö@_#¡×¡¢¤Î¤É¤ì¤«£³¤Ä¤¬Æþ¤Ã¤Æ¤¤¤ë¤«'(_ʸ»úÎó) :- findall(_,'¾®Ê¸»ú±Ñ»ú¡¢Âçʸ»ú±Ñ»ú¡¢¿ô»ú¡¢¡Ö@_#¡×¡¢¤Î¤É¤ì¤«'(_ʸ»úÎó),L), '£³¤Ä¤¬Æþ¤Ã¤Æ¤¤¤ë'(L). '¾®Ê¸»ú±Ñ»ú¡¢Âçʸ»ú±Ñ»ú¡¢¿ô»ú¡¢¡Ö@_#¡×¡¢¤Î¤É¤ì¤«'(_ʸ»úÎó) :- ¾®Ê¸»ú±Ñ»ú(_ʸ»úÎó). '¾®Ê¸»ú±Ñ»ú¡¢Âçʸ»ú±Ñ»ú¡¢¿ô»ú¡¢¡Ö@_#¡×¡¢¤Î¤É¤ì¤«'(_ʸ»úÎó) :- Âçʸ»ú±Ñ»ú(_ʸ»úÎó). '¾®Ê¸»ú±Ñ»ú¡¢Âçʸ»ú±Ñ»ú¡¢¿ô»ú¡¢¡Ö@_#¡×¡¢¤Î¤É¤ì¤«'(_ʸ»úÎó) :- ¿ô»ú(_ʸ»úÎó). '¾®Ê¸»ú±Ñ»ú¡¢Âçʸ»ú±Ñ»ú¡¢¿ô»ú¡¢¡Ö@_#¡×¡¢¤Î¤É¤ì¤«'(_ʸ»úÎó) :- '@_#'(_ʸ»úÎó). ¾®Ê¸»ú±Ñ»ú(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú), _ʸ»ú @>= 'a', _ʸ»ú @=< 'z',!. Âçʸ»ú±Ñ»ú(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú), _ʸ»ú @>= 'A', _ʸ»ú @=< 'Z',!. ¿ô»ú(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,1,_,_ʸ»ú), _ʸ»ú @>= '0', _ʸ»ú @=< '9',!. '@_#'(_ʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,3,_,'@_#'),!. '£³¤Ä¤¬Æþ¤Ã¤Æ¤¤¤ë'(L) :- length(L,3). % ¤³¤ÎProlog¥×¥í¥°¥é¥à¤Î¥Ý¥¤¥ó¥È¤Ï ¾®Ê¸»ú±Ñ»ú/1, Âçʸ»ú±Ñ»ú/1, ¿ô»ú/1, '@_#'/1 % ³Æ½Ò¸ì¤ÎËÜÂκǸå¤Î¥«¥Ã¥È¤Ç¤¹¡£Áȹþ¤ß½Ò¸ìsub_atom/5¤ÏÈó·èÄêÀ¤Î½Ò¸ì¤Ê¤Î¤Ç % ¤³¤Î¥«¥Ã¥È¤¬¤Ê¤¤¤ÈÎ㤨¤Ð¾®Ê¸»ú±Ñ¿ô¤¬n¸Ä¤¢¤ì¤Ð¡¢n¸Äʬ_¤ò¼ý½¸¤·¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ % ʸ»ú¼ï¸¡ºº¤Ï°ìÅÙ¸½¤ì¤¿¤é¤½¤ì¤Þ¤Ç¡£¤¿¤À°ì¤È¤À¤±´ªÄꤷ¤¿¤¤¤Î¤Ç¤¹¡£ % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/563 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Perl5 or Javascript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¥À¥Ö¥ë¥¯¥ª¡¼¥È¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¼èÆÀ¤·¤¿¤¤ # ¤¿¤À¡¢¡Ö\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦ # # ¡üÂоݥǡ¼¥¿ # "hogefuga" # "hoge\"fuga" # "hoge\\"fuga" # # ¡ü´õ˾¤¹¤ë·ë²Ì # hogefuga # hoge"fuga # hoge\ # # # ¾åµ¤Î¤è¤¦¤Ê¤¢¤ê¤¤¿¤ê¤ÊÌ¿Âê¤Ë¥È¥é¥¤¤·¤Æ¤¤¤¿¤Î¤Ç¤¹¤¬¡¢°Ê²¼¤ÎÀµµ¬É½¸½¤Î¤¦¤Á1¤Ç¤Ï¤¦¤Þ¤¯¤¤¤¯¤Î¤Ë2¤Ç¤Ï¤¦¤Þ¤¯¤¤¤¤Þ¤»¤ó¤Ç¤·¤¿ # 1. /"((?:(?:\\.)|[^"])*)"/ # 2. /"((?:[^"]|(?:\\.))*)"/ # # # ¤¿¤À¡¢ËͤˤϤ³¤ì¤¬Î¾ÊýƱ¤¸°ÕÌ£¤Ë¸«¤¨¤ë¤Î¤Ç¤¹ # # ¤Ê¤¼¤³¤Î¾ì¹ç¡¢2¤Ç¤Ï¤¦¤Þ¤¯¤¤¤«¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤« # µ¤¤Ë¤Ê¤Ã¤ÆÌ²¤ì¤Þ¤»¤ó # ¾Ü¤·¤¤Êý²òÀ⤪´ê¤¤¤·¤Þ¤¹ # # '¥À¥Ö¥ë¥¯¥ª¡¼¥È¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¼èÆÀ¤·¤¿¤¤¡£¤¿¤À¡¢¡Ö\\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦'(_ÂоÝʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ÂоÝʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_,_¸åʸ»úÎó,L1,L2,L3), sub_atom(_¸åʸ»úÎó,0,1,_,'"'), sub_atom(_Á°Ê¸»úÎó,_,1,0,'"'), '¡Ö\\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦'(L2,Chars), atom_chars(_Ŭ¹çʸ»úÎó,Chars). '¡Ö\\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦'([],[]) :- !. '¡Ö\\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦'(['"'|_],_) :- !,fail. '¡Ö\\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦'(['\\',A|R1],[A|R2]) :- '¡Ö\\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦'(R1,R2),!. '¡Ö\\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦'([A|R1],[A|R2]) :- '¡Ö\\¡×¤Î¼¡¤Îʸ»ú¤Ï¥¨¥¹¥±¡¼¥×¤µ¤ì¤¿Ê¸»ú¤È¤·¤Æ°·¤¦'(R1,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/546 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Microsoft .NET Framework # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ²¼µ¾ò·ï(AND¾ò·ï)¤ÎURL¤ò¸¡º÷¤·¤¿¤¤¤Ç¤¹¡£ # ¡¦ÆÃÄê¤Î¥É¥á¥¤¥ó(yahoo.co.jp)¤¬http://ime.nu/ľ¸å¤Ë´Þ¤Þ¤ì¤Ê¤¤¡£ # ¡¦ÆÃÄê¤Î³ÈÄ¥»Ò(jpg,gif)¤Ç½ª¤ï¤é¤Ê¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # 1.http://ime.nu/yahoo.co.jp/?=abc # 2.http://ime.nu/yahoo.co.jp/abc.jpg # 3.http://2ch.net/?=abc # 4.http://2ch.net/abc.jpg # ޥޥޥ¤Ê¤ÉÊ£¿ôURL # # ¡ü´õ˾¤¹¤ë·ë²Ì # 3¤Î¤ß¤ò¸¡º÷¤·¤¿¤¤¤Ç¤¹¡£ # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # '²¼µ¾ò·ï(AND¾ò·ï)¤ÎURL¤ò¸¡º÷¤·¤¿¤¤¤Ç¤¹¡£¡¦ÆÃÄê¤Î¥É¥á¥¤¥ó(yahoo.co.jp)¤¬http://ime.nu/ľ¸å¤Ë´Þ¤Þ¤ì¤Ê¤¤¡£¡¦ÆÃÄê¤Î³ÈÄ¥»Ò(jpg,gif)¤Ç½ª¤ï¤é¤Ê¤¤¡£'(_ÂоÝʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ÂоÝʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), sub_atom(Ŭ¹çʸ»úÎó,0,7,_,'http://'), 'URL¤Î½ª»ß¾ò·ï'(L3), \+(ÇÓ½ü¾ò·ï(L2)). 'URL¤Îʸ»ú¼ï¸¡ºº'([]) :- !. 'URL¤Îʸ»ú¼ï¸¡ºº'([A|R]) :- ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A), 'URL¤Îʸ»ú¼ï¸¡ºº'(R). 'URL¤Îʸ»ú¼ï¸¡ºº'([A|R]) :- ¿ô»ú(A), 'URL¤Îʸ»ú¼ï¸¡ºº'(R). 'URL¤Îʸ»ú¼ï¸¡ºº'([A|R]) :- 'URL¤Ëµö¤µ¤ì¤ëÆÃÄê¤Î±Ñµ¹æ'(A), 'URL¤Îʸ»ú¼ï¸¡ºº'(R). ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A) :- A @>= 'A', A @=< 'Z',!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A) :- A @>= 'a', A @=< 'z',!. ¿ô»ú(A) :- A @>= '0', A @=< '9',!. 'URL¤Ëµö¤µ¤ì¤ëÆÃÄê¤Î±Ñµ¹æ'(A) :- member(A,['%','&','=','_','-','.','/','~','#']),!. 'URL¤Î½ª»ß¾ò·ï'(['\n'|R3]) :- !. 'URL¤Î½ª»ß¾ò·ï'([' '|_]) :- !. 'URL¤Î½ª»ß¾ò·ï'(['\t'|_]) :- !. ÇÓ½ü¾ò·ï([h,t,t,p,:,/,/,i,m,e,'.',n,u,/,y,a,h,o,o,'.',c,o,'.',j,p|_]) :- !. ÇÓ½ü¾ò·ï([h,t,t,p,:,/,/|R]) :- append(_,[g,i,f],R),!. ÇÓ½ü¾ò·ï([h,t,t,p,:,/,/|R]) :- append(_,[j,p,g],R),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/541 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # °ìÈ̼Ҳñ # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¤¹¤°¤Ë¤ä¤ì¤ë½÷¤ò¸«¤Ä¤±¤¿¤¤¤Ç¤¹ # # ¡üÂоݥǡ¼¥¿ # OL # ½÷»ÒÂçÀ¸ # ½÷»Ò¹âÀ¸ # ¥¥ã¥Ð¾î # ¥Ø¥ë¥¹¾î # ¶á½ê¤Î¤ª¤Ð¤µ¤ó # Êì¿Æ # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤µ¤»¤³ # ¤ä¤ê¤Þ¤ó # ¸ø½°Êؽê # ¤¹¤°¤Ë¤ä¤ì¤ë½÷(¤µ¤»¤³). ¤¹¤°¤Ë¤ä¤ì¤ë½÷(¤ä¤ê¤Þ¤ó). ¤¹¤°¤Ë¤ä¤ì¤ë½÷(¸ø½°Êؽê). '¤¹¤°¤Ë¤ä¤ì¤ë½÷¤ò¸«¤Ä¤±¤¿¤¤¤Ç¤¹'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_,_,_), ¤¹¤°¤Ë¤ä¤ì¤ë½÷(_Ŭ¹çʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/538 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ Flexible Renamer # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© ÃÖ´¹ # ¡üÀâÌÀ # ÆüÉÕ¤ÎÁ°¤Îʸ»ú¤òÆþ¤ìÂØ¤¨¤ë # ¡üÂоݥǡ¼¥¿ # ABC11-12-31 \d{2}-[A-Z]{3}-\d{2} # ABC11-DEC-31 \d{2}-\d{2}-\d{2} # ABC2011-12-31 \d{4}-[A-Z]{3}-\d{2} # ABC2011-DEC-31 \d{4}-\d{2}-\d{2} # ¡ü´õ˾¤¹¤ë·ë²Ì # XYZ11-12-31 # XYZ11-DEC-31 # XYZ2011-12-31 # XYZ2011-DEC-31 # ¡ü¥³¥á¥ó¥È¡§¤³¤ó¤Ê´¶¤¸¤«½ñ¤¤¤ÆÅê¹Æ¤·¤Æ¤ß¤¿ # ÆüÉÕ¤ÎÁ°¤Îʸ»ú¤òÆþ¤ìÂØ¤¨¤ë(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), append(['A','B','C'|R21],[-|R22],[-|R23],L2), ǯ¤Îʸ»ú¤Ê¤é¤Ó(R21), ·î¤Îʸ»ú¤Ê¤é¤Ó(R22), Æü¤Îʸ»ú¤Ê¤é¤Ó(R23), append(['X','Y','Z'|R1],[-|R22],[-|R23],L22), atom_chars(S22,L22), concat_atom([S1,S22,S3],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ÆüÉÕ¤ÎÁ°¤Îʸ»ú¤òÆþ¤ìÂØ¤¨¤ë(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), append(['A','B','C'|R21],[-|R22],[-|R23],L2), ǯ¤Îʸ»ú¤Ê¤é¤Ó(R21), ·î¤Îʸ»ú¤Ê¤é¤Ó(R22), Æü¤Îʸ»ú¤Ê¤é¤Ó(R23), append(['X','Y','Z'|R1],[-|R22],[-|R23],L22), atom_chars(S22,L22), ÆüÉÕ¤ÎÁ°¤Îʸ»ú¤òÆþ¤ìÂØ¤¨¤ë(S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë), concat_atom([S1,S22],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î°ì), concat_atom([_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î°ì,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ÆüÉÕ¤ÎÁ°¤Îʸ»ú¤òÆþ¤ìÂØ¤¨¤ë(_ʸ»úÎó,_ʸ»úÎó). ǯ¤Îʸ»ú¤Ê¤é¤Ó(R21) :- length(R21,4), ¤¹¤Ù¤Æ¿ô»ú(R21),!. ǯ¤Îʸ»ú¤Ê¤é¤Ó(R21) :- length(R21,2), ¤¹¤Ù¤Æ¿ô»ú(R21),!. ·î¤Îʸ»ú¤Ê¤é¤Ó(R22) :- length(R22,1), ¤¹¤Ù¤Æ¿ô»ú(R22),!. ·î¤Îʸ»ú¤Ê¤é¤Ó(R22) :- member(A,['JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC']), atom_chars(A,R22),!. Æü¤Îʸ»ú¤Ê¤é¤Ó(R21) :- length(R21,2), ¤¹¤Ù¤Æ¿ô»ú(R21),!. Æü¤Îʸ»ú¤Ê¤é¤Ó(R21) :- length(R21,1), ¤¹¤Ù¤Æ¿ô»ú(R21),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1312201995/477 # [1] ¥¢¥ë¥´¥ê¥º¥àÏÀ # [2] Unix¥³¥Þ¥ó¥É¤Îgrep¤ò¼ÂÁõ¤·¤¿mygrep¤ÎºîÀ® # ¡¡¡¡¥³¥Þ¥ó¥É¥é¥¤¥ó°ú¿ô¤Ç¸¡º÷ʸ»úÎó¤È¥Õ¥¡¥¤¥ë̾¤ò¤â¤é¤¤¡¢¥Õ¥¡¥¤¥ëÆâ¤Ë¸¡º÷ʸ»úÎ󤬴ޤޤì¤ë¹Ô¤¬¤¢¤ì¤Ð¤½¤Î¹Ô¤ò½ÐÎϤ¹¤ë # ¡¡¡¡Àµµ¬É½¸½¤ËÂбþ¤µ¤»¤ëɬÍפϤʤ¤ # [3] # [3.1]windows xp¡¡ # [3.2]gcc¡¡ # [3.3]c¸À¸ì # [4] ̵´ü¸Â # [5] strstr¤Ï»ÈÍÑ¶Ø»ß # # ¤è¤í¤·¤¯¤ª¤Í¤¬¤¤¤·¤Þ¤¹ # program :- user_paramaters([_¸¡º÷ʸ»úÎó,_¥Õ¥¡¥¤¥ë̾]), open(_¥Õ¥¡¥¤¥ë̾,read,Instream), grep_line(Instream,_¸¡º÷ʸ»úÎó), close(Instream), halt. grep_line(Instream,_¸¡º÷ʸ»úÎó) :- at_end_of_stream(Instream),!. grep_line(Instream,_¸¡º÷ʸ»úÎó) :- get_line(Stream,Line), sub_atom(Line,_,_,_,_¸¡º÷ʸ»úÎó), writef('%t\n',[Line]), fail. grep_line(Instream,_¸¡º÷ʸ»úÎó) :- grep_line(Instream,_¸¡º÷ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/503 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # oracle(regexp_replace) # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # ¡üÀâÌÀ # ::¤Ç¥¿¥°Ì¾¤¬µºÜ¤µ¤ì¤¿¥Ç¡¼¥¿¤ò<>¥¿¥°¤ËÊÑ´¹¤·¤¿¤¤ # ¡üÂоݥǡ¼¥¿ # :dog:I like dog # :cat:I like cat # ¡ü´õ˾¤¹¤ë·ë²Ì # <dog>I like dog</dog> # <cat>I like cat</cat> # '::¤Ç¥¿¥°Ì¾¤¬µºÜ¤µ¤ì¤¿¥Ç¡¼¥¿¤ò<>¥¿¥°¤ËÊÑ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), L2 = [:|R2], last(R2,:), atom_chars(S21,R2), concat_atom([S1,<,S21,>],S22), 'ºÇ½é¤Ë¸½¤ì¤¿S21¤Î¸å¤Ë¤òÉղ乤ë'(S3,S21,S31,_), concat_atom([S22,S31],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). '::¤Ç¥¿¥°Ì¾¤¬µºÜ¤µ¤ì¤¿¥Ç¡¼¥¿¤ò<>¥¿¥°¤ËÊÑ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), L2 = [:|R2], last(R2,:), atom_chars(S21,R2), concat_atom([S1,<,S21,>],S22), 'ºÇ½é¤Ë¸½¤ì¤¿S21¤Î¸å¤Ë¤òÉղ乤ë'(S3,S21,S31,_»Ä¤êʸ»úÎó), concat_atom([S22,S31],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î°ì), '::¤Ç¥¿¥°Ì¾¤¬µºÜ¤µ¤ì¤¿¥Ç¡¼¥¿¤ò<>¥¿¥°¤ËÊÑ´¹¤·¤¿¤¤'(_»Ä¤êʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë), concat_atom([_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î°ì,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). '::¤Ç¥¿¥°Ì¾¤¬µºÜ¤µ¤ì¤¿¥Ç¡¼¥¿¤ò<>¥¿¥°¤ËÊÑ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). 'ºÇ½é¤Ë¸½¤ì¤¿S21¤Î¸å¤Ë¤òÉղ乤ë'(_ʸ»úÎó,S21,S31,S3) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S21,S3,L1,L2,L3), concat_atom([S1,S21,'<',S21,'>'],S31),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/743 # http://ime.nu/¤«¤éºÇ½é¤Î¶õÇò¤Þ¤Ç¤òÃê½Ð¤¹¤ëÀµµ¬É½¸½¤Ï¤É¤¦¤Ê¤ê¤Þ¤¹¤«¡© # # 'http://ime.nu/¤«¤éºÇ½é¤Î¶õÇò¤Þ¤Ç¤òÃê½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ãê½Ð¤µ¤ì¤¿Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,_¸åʸ»úÎó,[h,t,t,p,:,/,/,i,m,e,'.',n,u,'/'|R2],L2,[' '|_]), \+(member(' ',R2)), atom_chars(_Ãê½Ð¤µ¤ì¤¿Ê¸»úÎó,R2), concat_atom([S1,'http://ime.nu/'],_Á°Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/492 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # vxeditor # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¡Öa¡×¤È¤¤¤¦Ê¸»ú¤òÀµµ¬É½¸½¤Ç¸¡º÷¤·¡¢¡ÖC:\test\test2¡×¤ËÃÖ´¹¤¹¤ë¤¿¤á¤Ë¡¢ # # ¸¡º÷¸ì¡§[a-z] ¤â¤·¤¯¤Ï \w # ÃÖ´¹¸ì¡§C:\test\test2 # # ¤ÈÃÖ´¹¤·¤¿¤Î¤Ç¤¹¤¬·ë²Ì¤Ï¡ÖC: est est2¡×¤È¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # ÃÖ´¹¸ì¤ò¡ÖC:\\test\\test2¡×¤È¤·¤Æ¤ß¤¿¤éº£Å٤ϡÖ\test2¡×¤È¤Ê¤ê¤Þ¤·¤¿¡£ # # ¡üÂоݥǡ¼¥¿ # a # # ¡ü´õ˾¤¹¤ë·ë²Ì # C:\test\test2 # # ¤ª´ê¤¤¤·¤Þ¤¹ # # 'a¤È¤¤¤¦Ê¸»ú¤òC:\\test\\test2¤ËÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_ÃÖ´¹Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,a,S3,L1,L2,L3), concat_atom([S1,'C:\\test\\test2',S3],_ÃÖ´¹Ê¸»úÎó). 'a¤È¤¤¤¦Ê¸»ú¤òC:\\test\\test2¤ËÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_ÃÖ´¹Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,a,S3,L1,L2,L3), concat_atom([S1,'C:\\test\\test2'],_ÃÖ´¹Ê¸»úÎó¤Î°ì), 'a¤È¤¤¤¦Ê¸»ú¤òC:\\test\\test2¤ËÃÖ´¹¤¹¤ë'(S3,_ÃÖ´¹Ê¸»úÎó¤Î¥Ë), concat_atom([_ÃÖ´¹Ê¸»úÎó¤Î°ì,_ÃÖ´¹Ê¸»úÎó¤Î¥Ë],_ÃÖ´¹Ê¸»úÎó). 'a¤È¤¤¤¦Ê¸»ú¤òC:\\test\\test2¤ËÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/482 # ¤É¤Ê¤¿¤«¤´¶µ¼ø¤¯¤À¤µ¤¤¡¦¡¦¡¦ # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # EmEditor # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÂоȥǡ¼¥¿ # ;AA[aa][ab][ac][ad]¡¦¡¦¡¦¡¦¡¦[zw][zx][zy][zz];AB[aa][zy]AC[ab] # ;AA[aa][ab][ac][ad]¡¦¡¦¡¦¡¦¡¦[zw][zx][zy][zz];AB[df]AC[aa][fb] # ;AA[aa][ab][ac][ad]¡¦¡¦¡¦¡¦¡¦[zw][zx][zy][zz];AB[bc][fh]AC[ge][eg] # # ¡ü´õ˾¤¹¤ë·ë²Ì # ;AA[ac][ad]¡¦¡¦¡¦¡¦¡¦[zw][zx][zz];AB[aa][zy]AC[ab]¡¡¡¡¡¡¡¡¡¡¢«;AA¤Î¸å¤í¤«¤é[aa][zy][ab]¤òºï½ü # ;AA[ab][ac][ad]¡¦¡¦¡¦¡¦¡¦[zw][zx][zy][zz];AB[df]AC[aa][fb]¡¡¡¡¡¡¡¡¡¡¢«;AA¤Î¸å¤í¤«¤é[df][aa][fb]¤òºï½ü # ;AA[aa][ab][ac][ad]¡¦¡¦¡¦¡¦¡¦[zw][zx][zy][zz];AB[bc][fh]AC[ge][eg]¡¡¡¡¡¡¡¡¢«;AA¤Î¸å¤í¤«¤é¡¢[bc][fh][ge][eg]¤òºï½ü # # ¤¹¤ß¤Þ¤»¤ó¤¬¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ';AA¤Î¸å¤í¤«¤éºï½üʸ»úÎó¤òºï½ü'(_ÂоÝʸ»úÎó,_ºï½üʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ÂоÝʸ»úÎó,_,_,_,S1,S2,S3,L1,[';','A','A'|R2],L3), \+(member(';',R2)), concat_atom(R2,_ºï½üʸ»úÎó), concat_atom([S1,';AA',S3],ºï½ü¤µ¤ì¤¿Ê¸»úÎó). ';AA¤Î¸å¤í¤«¤éºï½üʸ»úÎó¤òºï½ü'(_ÂоÝʸ»úÎó,_ºï½üʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ÂоÝʸ»úÎó,_,_,_,S1,S2,S3,L1,[';','A','A'|R2],L3), \+(member(';',R2)), concat_atom(R2,_ºï½üʸ»úÎó), ';AA¤Î¸å¤í¤«¤éºï½üʸ»úÎó¤òºï½ü'(S3,_ºï½üʸ»úÎó,_ºï½ü¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë), concat_atom([S1,';AA',_ºï½ü¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë],_ºï½ü¤µ¤ì¤¿Ê¸»úÎó). ';AA¤Î¸å¤í¤«¤éºï½üʸ»úÎó¤òºï½ü'(_ÂоÝʸ»úÎó,_,_ÂоÝʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/477 # ¤É¤Ê¤¿¤«¤´¶µ¼ø¤¯¤À¤µ¤¤¡¦¡¦¡¦ # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # EmEditor # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡ü¸¡º÷Âоȥǡ¼¥¿ # (abcdefg:;[]¤¢¤¤¤¦¤¨¤ª)) # # ¡ü´õ˾¤¹¤ë·ë²Ì # (¤Ç»Ï¤Þ¤ê¡¢ÅÓÃæ¤Ë¤¤¤í¤¤¤í¤¢¤Ã¤Æ¤â¡¢))¤Ç½ª¤ï¤ëÂоݥǡ¼¥¿¤ò¸¡º÷¤·¤¿¤¤¤Ç¤¹¡£ # ¤¹¤ß¤Þ¤»¤ó¤¬¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # '(¤Ç»Ï¤Þ¤ê¡¢ÅÓÃæ¤Ë¤¤¤í¤¤¤í¤¢¤Ã¤Æ¤â¡¢))¤Ç½ª¤ï¤ëÂоݥǡ¼¥¿¤ò¸¡º÷¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), append(['('],L22,[')',')'],L2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/455 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # <b></b>¤Ç¶´¤Þ¤ì¤¿Ê¸¾Ï¤òÈ´¤½Ð¤¹ # # ¡üÂоݥǡ¼¥¿ # <table width="100%" border="1" cellspacing="0" cellpadding="10"> # <tr><td><b>ERROR!!<br><br>¿½Å½ñ¤¹þ¤ß¤Ç¤¹¡£ ¤¢¤È 17ÉäªÂÔ¤Á¤¯¤À¤µ¤¤¡£</b></td></tr> # </table> # # ¡ü´õ˾¤¹¤ë·ë²Ì # ERROR!!<br><br>¿½Å½ñ¤¹þ¤ß¤Ç¤¹¡£ ¤¢¤È 17ÉäªÂÔ¤Á¤¯¤À¤µ¤¤¡£ # # ==== # ¤³¤ì¤ò¼Â¹Ô¤¹¤ë¤Î¤Ë¡¢ # responseStr = System.Text.RegularExpressions.Regex.Replace( # responseStr, # @"(.|\n)*<b>(?<sentence>.*?)</b>(.|\n)*", # "${sentence}"); # # ¤È¤ä¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢ # ¡ÖǤ°Õ¤Î°ìʸ»ú(²þ¹Ôʸ»ú¤â´Þ¤à)¡× # ¤È¤¤¤¦É½¸½¤Ï(.|\n)¤¬ºÇŬ¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡£ # ¤â¤Ã¤È¥Ù¥¿¡¼¤Ê¤ä¤ê¤«¤¿¤¬¤¢¤Ã¤¿¤é¶µ¤¨¤Æ²¼¤µ¤¤¡£ # # '¤Ç¶´¤Þ¤ì¤¿Ê¸¾Ï¤òÈ´¤½Ð¤¹'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), append([<,b,>|R1],[<,/,b,>],R1), \+(append(_,[<,b,>|_],R1)), \+(append(_,[<,/,b,>|_],R1)), atom_chars(_Ŭ¹çʸ»úÎó,R1), concat_atom([S1,''],_Á°Ê¸»úÎó), concat_atom(['',S3],_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/444 # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ½¨´Ý # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÃæ¤Îʸ»ú¤ò¶õÇò°·¤¤¤Ë¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # test="daikon" # test="daikon ninjin" # test="daikon ninjin tamanegi" # # ¡ü´õ˾¤¹¤ë·ë²Ì # test="" # test="" # test="" # # '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÃæ¤Îʸ»ú¤ò¶õÇò°·¤¤¤Ë¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_ÃÖ´¹ÂоÝʸ»úÎó,_,L1,['"'|R2],['"'|R3]), \+(member('"',R2)), atom_chars(_»Ä¤êʸ»úÎó,R3), concat_atom([_Á°Ê¸»úÎó,'""',_»Ä¤êʸ»úÎó],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÃæ¤Îʸ»ú¤ò¶õÇò°·¤¤¤Ë¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_ÃÖ´¹ÂоÝʸ»úÎó,_,L1,['"'|R2],['"'|R3]), \+(member('"',R2)), atom_chars(_»Ä¤êʸ»úÎó,R3), '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÃæ¤Îʸ»ú¤ò¶õÇò°·¤¤¤Ë¤·¤¿¤¤'(_»Ä¤êʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë), concat_atom([_Á°Ê¸»úÎó,'""',_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÃæ¤Îʸ»ú¤ò¶õÇò°·¤¤¤Ë¤·¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/403 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Excel VBA # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # <>¤Ç°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¶õÇò¤ËÃÖ´¹¤·¤¿¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # ¤¢¤¤¤¦¤¨¤ª<¤Û¤²¤Û¤²>¤«¤¤¯¤±¤³ # ¤ß¤«¤ó<¤ê¤ó¤´<¤¹¤¤¤«>¤Ö¤É¤¦>¥á¥í¥ó # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤¢¤¤¤¦¤¨¤ª¤«¤¤¯¤±¤³ # ¤ß¤«¤ó¥á¥í¥ó # # --- # ¸¡º÷¡§<*> # ÃÖ´¹¡§ # --- # ¤È¤¤¤¦¤Õ¤¦¤Ë¤¹¤ë¤È¡¢ # °ìÈÖÌܤÎÎã¤ËÂФ·¤Æ¤Ï¤¦¤Þ¤¯¤¤¤¯¤Î¤Ç¤¹¤¬¡¢Æþ¤ì»Ò¤Ë¤Ê¤Ã¤Æ¤¤¤ë¾ì¹ç¤Ë¤¦¤Þ¤¯¤¤¤¤Þ¤»¤ó¡£ # ¢¤Î¤è¤¦¤Ê·ë²Ì¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # ¤ß¤«¤ó¤Ö¤É¤¦>¥á¥í¥ó # # # ¤ª´ê¤¤¤·¤Þ¤¹¡£ # # '<>¤Ç°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¶õÇò¤ËÃÖ´¹¤·¤¿¤¤¡£'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- atom_chars(_ʸ»úÎó,Chars), '¤Ê¤é¤Ó¤Î<>¤Ç°Ï¤Þ¤ì¤¿Éôʬ¤ò¶õÇò¤ËÃÖ´¹¤·¤¿¤¤¡£'(Chars,_ÃÖ´¹¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó), atom_chars(_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»ú¤Ê¤é¤Ó). '¤Ê¤é¤Ó¤Î<>¤Ç°Ï¤Þ¤ì¤¿Éôʬ¤ò¶õÇò¤ËÃÖ´¹¤·¤¿¤¤¡£'([],[]). '¤Ê¤é¤Ó¤Î<>¤Ç°Ï¤Þ¤ì¤¿Éôʬ¤ò¶õÇò¤ËÃÖ´¹¤·¤¿¤¤¡£'([<|R1],L) :- '<>¤Ë°Ï¤Þ¤ì¤¿Éôʬ¤òÃÖ´¹¤¹¤ë'(R1,L1,R2), '¤Ê¤é¤Ó¤Î<>¤Ç°Ï¤Þ¤ì¤¿Éôʬ¤ò¶õÇò¤ËÃÖ´¹¤·¤¿¤¤¡£'(R2,L2), append(L1,L2,L),!. '¤Ê¤é¤Ó¤Î<>¤Ç°Ï¤Þ¤ì¤¿Éôʬ¤ò¶õÇò¤ËÃÖ´¹¤·¤¿¤¤¡£'([A|R1],[A|R2]) :- '¤Ê¤é¤Ó¤Î<>¤Ç°Ï¤Þ¤ì¤¿Éôʬ¤ò¶õÇò¤ËÃÖ´¹¤·¤¿¤¤¡£'(R1,R2). '<>¤Ë°Ï¤Þ¤ì¤¿Éôʬ¤òÃÖ´¹¤¹¤ë'([>|R],[],R) :- !. '<>¤Ë°Ï¤Þ¤ì¤¿Éôʬ¤òÃÖ´¹¤¹¤ë'([<|R1],L,R) :- '<>¤Ë°Ï¤Þ¤ì¤¿Éôʬ¤òÃÖ´¹¤¹¤ë'(R,L1,R1), '<>¤Ë°Ï¤Þ¤ì¤¿Éôʬ¤òÃÖ´¹¤¹¤ë'(R1,L2,R), append(L1,L2,L),!. '<>¤Ë°Ï¤Þ¤ì¤¿Éôʬ¤òÃÖ´¹¤¹¤ë'([A|R1],[A|R2],R) :- '<>¤Ë°Ï¤Þ¤ì¤¿Éôʬ¤òÃÖ´¹¤¹¤ë'(R1,R2,R),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/381 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# 4.0 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ¤´¹¤¨ # # ¡üÀâÌÀ # htmlÆâ¤Î<dd></dd>¥¿¥°¤ò¸¡º÷¤·¤Æ<dd>¤È</dd>¤Î¤ßÃÖ¤´¹¤¨¤¿¤¤ # ¤¿¤á¤·¤Ë<dd>¤È¤À¤±¤ä¤Ã¤Æ¤ß¤Þ¤·¤¿¤¬¡¢<dd>¥¿¥°¤ÏÃÖ¤´¹¤¨¤µ¤ì¤Þ¤»¤ó¤Ç¤·¤¿ # # ¡üÂоݥǡ¼¥¿ # <dd>ʸ¾Ï1</dd> # <dd>ʸ¾Ï2</dd> # # ¡ü´õ˾¤¹¤ë·ë²Ì # ʸ¾Ï1 # ʸ¾Ï2 # 'htmlÆâ¤Î<dd></dd>¥¿¥°¤ò¸¡º÷¤·¤Æ<dd>¤È</dd>¤Î¤ßÃÖ¤´¹¤¨¤ë'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,[<,d,d,>|R1],L3), append(_[/,<,d,d,>|_],L1), append(L11,[/,<,d,d,>],R1), \+(append(L11,[/,<,d,d,>],L11)), atom_chars(_dd¥¿¥°¤òºï½ü¤µ¤ì¤¿Ê¸»úÎó,L11), concat_atom([L1,L11,L2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). 'htmlÆâ¤Î<dd></dd>¥¿¥°¤ò¸¡º÷¤·¤Æ<dd>¤È</dd>¤Î¤ßÃÖ¤´¹¤¨¤ë'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,[<,d,d,>|R1],L3), append(_[/,<,d,d,>|_],L1), append(L11,[/,<,d,d,>],R1), \+(append(L11,[/,<,d,d,>],L11)), 'htmlÆâ¤Î<dd></dd>¥¿¥°¤ò¸¡º÷¤·¤Æ<dd>¤È</dd>¤Î¤ßÃÖ¤´¹¤¨¤ë'(L3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë), concat_atom([L1,L11,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/336 # http://ime.nu/²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤.²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤.test.com/²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤ # http://ime.nu/²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤.test.com/²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤ # # ¾å¤Î2¤Ä¤È¤â¤Ë¥Þ¥Ã¥Á¤µ¤»¤ëÀµµ¬É½¸½¤Ï¡¢¤É¤Î¤è¤¦¤Ë½ñ¤¯¤Î¤Ç¤·¤ç¤¦¤«¡© # 'http://ime.nu/²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤.²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤.test.com/²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤ http://ime.nu/²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤.test.com/²¿¤¬Íè¤ë¤«¤ï¤«¤é¤Ê¤¤ ¤Î2¤Ä¤È¤â¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,[]), append([h,t,t,p,:,/,/,i,m,e,'.'n,u,/|R21],['.',t,e,s,t,/|R22],L2), Ŭ¹ç¥Ñ¥¿¡¼¥ó(R21). Ŭ¹ç¥Ñ¥¿¡¼¥ó(L) :- \+(member('.',L)),!. Ŭ¹ç¥Ñ¥¿¡¼¥ó(L) :- append(L0,['.'|R],L), \+(member('.',L0)), \+(member('.',R)). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/297 # ¤ª´ê¤¤¤·¤Þ¤¹ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Hex Editor Neo # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # 1ʸ»úÌܤÈ3ʸ»úÌܤ¬Æ±¤¸¤Ç¡¢2ʸ»ú¤ÈÌܤÈ4ʸ»úÌܤ¬Æ±¤¸¤Î4ʸ»ú¤Îʸ»ú # # ¡üÂоݥǡ¼¥¿ # ABAB # PAPA # 0101 # # # '1ʸ»úÌܤÈ3ʸ»úÌܤ¬Æ±¤¸¤Ç¡¢2ʸ»ú¤ÈÌܤÈ4ʸ»úÌܤ¬Æ±¤¸¤Î4ʸ»ú¤Îʸ»ú'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_,[A,B,A,B],_), \+(A=B). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/293 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # LINUX grep¥³¥Þ¥ó¥É # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¥É¥Ã¥È¤Ç¹Ô¤Ë°ìʸ»úÄɲ䵤줿¤â¤Î¤Î¤ß¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ABC # ABCD # ABCDE # # ¡ü´õ˾¤¹¤ë·ë²Ì # ABCD # # grep ABC. sample.txt¤È¤·¤Æ¤â # ·ë²Ì 2ʸ»úÄɲäµ¤ì¤Æ¤¤¤ëABCDE¤Þ¤Ç½Ð¤Æ¤¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¡£¡£ # ¥É¥Ã¥È¤Ï°ìʸ»ú¤È½¬¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢ # ¤Ê¤¼¤Ê¤Î¤«¤ï¤«¤ê¤Þ¤»¤ó¡¦¡¦¡£ # # ¥É¥Ã¥È¤Ç¹Ô¤Ë°ìʸ»úÄɲ䵤줿¤â¤Î¤Î¤ß¸¡º÷¤·¤¿¤¤(_¸¡º÷ʸ»ú,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_,L2,['\n'|_]), atom_chars(_¸¡º÷ʸ»ú,L), append(L,[_],L2), \+(member('\n',L)). ¥É¥Ã¥È¤Ç¹Ô¤Ë°ìʸ»úÄɲ䵤줿¤â¤Î¤Î¤ß¸¡º÷¤·¤¿¤¤(_¸¡º÷ʸ»ú,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). sub_atom(_ʸ»úÎó,_,_,_,_,_,_¸åʸ»úÎó¤Î¥Ë,_,L2,['\n'|_]), atom_chars(_¸¡º÷ʸ»ú,L), append(L,[_],L2), \+(member('\n',L)), ¥É¥Ã¥È¤Ç¹Ô¤Ë°ìʸ»úÄɲ䵤줿¤â¤Î¤Î¤ß¸¡º÷¤·¤¿¤¤(_¸¡º÷ʸ»ú,_¸åʸ»úÎó¤Î¥Ë,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/290 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Emacs Lisp # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # C++¤Ê¤É¤Ç¤è¤¯»È¤ï¤ì¤ë¹½Ê¸¤Ë¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¡£ # ¶ñÂÎŪ¤Ë¤Ï¥¯¥é¥¹¥¤¥ó¥¹¥¿¥ó¥¹¤Ø¤Î¥¢¥¯¥»¥¹¥¢¥í¡¼¤ä¥É¥Ã¥È¤Ë¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # # class A; # A a; # A* a_ref = &a; # # a.m_hoge; # a->m_hoge; # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤³¤ì¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë¾ì¹ç # "\\(?:\\.\\|->\\)\\(\\(?:[a-zA-Z0-9][_a-zA-Z0-9]*\\)?\\)\\=" # ¤¬Àµ²ò¤é¤·¤¤¤Ç¤¹¤¬ # ¤Ê¤¼Àµ²ò¤«¤ï¤«¤é¤Ê¤¤Éôʬ¤¬¤¢¤ë¤Î¤Ç¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # ¤Þ¤º"?"±é»»»Ò¤Î»È¤¤Êý¤Ç¤¹¤¬¡¦¡¦¡¦Ä¾Á°¤Îʸ»úÎó¡Ê¶õʸ»ú¹þ¤ß¡Ë¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë¤¿¤á¤ËÃÖ¤¤¤Æ¤¢¤ë¤È¤·¤Æ # ľ¸å¤Î ":"¤¬Íý²òÉÔǽ¤Ç¤¹¡£ # ¸åȾ¤Ç¤â¡¢":"¤¬½Ð¤Æ¤¤Þ¤¹¤¬¤³¤ì¤âÉԲIJò¡£Ì¾Á°¶õ´Ö¤Î"::"¤Ê¤É¤Ë¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¤Î¤Ç¤¢¤ì¤Ð # ::¤ä:?:¤È¤«¤Ê¤é¤ï¤«¤ë¤Î¤Ç¤¹¤¬¡¦¡¦ # '¥¯¥é¥¹¥¤¥ó¥¹¥¿¥ó¥¹¤Ø¤Î¥¢¥¯¥»¥¹¥¢¥í¡¼¤ä¥É¥Ã¥È¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë'(_¥¯¥é¥¹,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- atom_chars(_¥¯¥é¥¹,CharsL), sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), \+((last(L1,C),¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(C))), last(L2,';'), ¥¢¥í¡¼¤ä¥É¥Ã¥È¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë(ClassL,R2,L2). '¥¯¥é¥¹¥¤¥ó¥¹¥¿¥ó¥¹¤Ø¤Î¥¢¥¯¥»¥¹¥¢¥í¡¼¤ä¥É¥Ã¥È¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë'(_¥¯¥é¥¹,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- atom_chars(_¥¯¥é¥¹,CharsL), sub_atom(_ʸ»úÎó,_,_,_,_,_,_¸åʸ»úÎó2,L1,L2,L3), \+((last(L1,C),¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(C))), last(L2,';'), ¥¢¥í¡¼¤ä¥É¥Ã¥È¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë(ClassL,R2,L2), '¥¯¥é¥¹¥¤¥ó¥¹¥¿¥ó¥¹¤Ø¤Î¥¢¥¯¥»¥¹¥¢¥í¡¼¤ä¥É¥Ã¥È¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë'(_¥¯¥é¥¹,_¸åʸ»úÎó2,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). ¥¢¥í¡¼¤ä¥É¥Ã¥È¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë(ClassL,R2,L2) :- append(ClassL,[-,>|R2],L2), Á´¤Æ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(R2). ¥¢¥í¡¼¤ä¥É¥Ã¥È¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë(ClassL,R2,L2) :- append(ClassL,['.'|R2],L2), Á´¤Æ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(R2). ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(C) :- C @>= a, C @=< z,!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(C) :- C @>= 'A', C @=< 'Z',!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(C) :- C @>= '0', C @=< '9',!. Á´¤Æ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È([]). Á´¤Æ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È([C|R]) :- ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(C), Á´¤Æ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1312201995/111 # # [1] ¼ø¶Èñ¸µ¡§ ¥×¥í¥°¥é¥ß¥ó¥°±é½¬¡ÊȯŸ²ÝÂê¡Ë # [2] # ²¼¤ÎÇÛÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤Ç¤¤ëÀµµ¬É½¸½¤òºîÀ®¤»¤è¡£ # # CCAGCUCCC-G---U--UGGG # 'ʸ»úÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â'(['C','G','U','U'],L2). 'ʸ»úÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,_,L2,_), '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â'(['C','G','U','U'],L2), 'ʸ»úÎ󤫤é"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â¸¡½Ð¤¹¤ë'(S3,_Á°Ê¸»úÎó2,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), concat_atom([S1,S2,_Á°Ê¸»úÎó2],_Á°Ê¸»úÎó). '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â'([],_) :- !. '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â'([A|R1],[A|R2]) :- '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â'(R1,R2). '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â'([A|R1],[-|R2]) :- '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â'(R1,R2). '"CGUU"¤ò¥®¥ã¥Ã¥×("-")¤ò´Þ¤ó¤Ç¤¤¤Æ¤â'([A|R1],[B|R2]) :- \+(A=B),!,fail. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/279 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# 4.0 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹¤Ç¤¹ # # ¡üÀâÌÀ # HTML¥Õ¥¡¥¤¥ë¤Î¥½¡¼¥¹¥³¡¼¥É¤Î # <script type="text/javascript">¡Á¾Êά¡Á</script> # script¥¿¥°³«»Ï¤ò´Þ¤á¤Æscript¥¿¥°½ªÎ»¥¿¥°¤Þ¤Ç¤ò¾Ãµî¤·¤¿¤¤¤ó¤Ç¤¹ # # ¡üÂоݥǡ¼¥¿ # <script type="text/javascript"> # <!-- # // ¡Á¥³¥á¥ó¥È¡Á # ÆâÍÆ # // --> # </script> # # <script type="text/javascript" src="script.js"></script> # # ¾åµ¤Î¤É¤Á¤é¤â°Ê²¼¤Î¤â¤Î¤Ç¤ä¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¤É¤¦¤â¥Ò¥Ã¥È¤·¤Þ¤»¤ó # <script\s[a-zA-Z0-9<>()-\.!_~*,;/:@&=+$,%#'""]+>[a-zA-Z0-9<>()-\.!_~*,;/:@&=+$,%#]+\</script> # # ²òÅú¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # 'script¥¿¥°³«»Ï¤ò´Þ¤á¤Æscript¥¿¥°½ªÎ»¥¿¥°¤Þ¤Ç¤ò¾Ãµî'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), L2 = [<,s,c,r,i,p,t,' '|R2], append(R20,[/,s,c,r,i,p,t,>],R2), \+(append(_,[<,s,c,r,i,p,t,' '|_],R20)), \+(append(_,[/,s,c,r,i,p,t,>|_],R20)), 'script¥¿¥°³«»Ï¤ò´Þ¤á¤Æscript¥¿¥°½ªÎ»¥¿¥°¤Þ¤Ç¤ò¾Ãµî'(S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó2), concat_atom([S1,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'script¥¿¥°³«»Ï¤ò´Þ¤á¤Æscript¥¿¥°½ªÎ»¥¿¥°¤Þ¤Ç¤ò¾Ãµî'(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/266 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP 5.2.5 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # <a>¤Ç¥ê¥ó¥¯¤µ¤ì¤Æ¤¤¤Ê¤¤URL¤À¤±¤ò¥ê¥ó¥¯¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # <a href='http://ime.nu/aaaaaa/aaa'>http://aaaaaa/aaa</a> # <a href='http://ime.nu/aaaaaa/aaa'>bbb</a> # http://ime.nu/aaaaaa/aaa # http://ime.nu/aaaaaa/aaa # # (http¤ÎÁ°¤Ë²þ¹Ô¤Ï̵¤¤¤Ç¤¹) # # ¡ü´õ˾¤¹¤ë·ë²Ì # # <a href="http://ime.nu/aaaaaa/aaa">http://ime.nu/aaaaaa/aaa</a> # <a href="http://ime.nu/aaaaaa/aaa">bbb</a> # <a href="http://ime.nu/aaaaaa/aaa">http://ime.nu/aaaaaa/aaa</a> # <a href="http://ime.nu/aaaaaa/aaa">http://ime.nu/aaaaaa/aaa</a> # # # ¢¤³¤ì¤Ç¤Ï¥À¥á¤Ç¤·¤¿¡£¡£ # /((?![\"\'>])(https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)(?![\"\'<]))/ # 'A¥¿¥°¤Ç¥ê¥ó¥¯¤µ¤ì¤Æ¤¤¤Ê¤¤URL¤À¤±¤ò¥ê¥ó¥¯¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), L1 = [<,a,>|R1], append(R0,[<,/,a,>],R1), \+(append(_,[<,a,>|_],R0)), \+(append(_,[<,/,a,>|_],R0)), 'A¥¿¥°¤Ç¥ê¥ó¥¯¤µ¤ì¤Æ¤¤¤Ê¤¤URL¤À¤±¤ò¥ê¥ó¥¯¤·¤¿¤¤'(S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë), concat_atom([S1,S2,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'A¥¿¥°¤Ç¥ê¥ó¥¯¤µ¤ì¤Æ¤¤¤Ê¤¤URL¤À¤±¤ò¥ê¥ó¥¯¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), L1 = [h,t,t,p,:,/,/|R1], member(C,R1), \+(member(C,[' ',',','\n'])), concat_atom([S1,'',S2,'\n'],S4), concat_atom([S4,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'A¥¿¥°¤Ç¥ê¥ó¥¯¤µ¤ì¤Æ¤¤¤Ê¤¤URL¤À¤±¤ò¥ê¥ó¥¯¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), L1 = [h,t,t,p,:,/,/|R1], last(R1,C), member(C,[' ',',','\n']), concat_atom([S1,'',S2,'\n'],S4), 'A¥¿¥°¤Ç¥ê¥ó¥¯¤µ¤ì¤Æ¤¤¤Ê¤¤URL¤À¤±¤ò¥ê¥ó¥¯¤·¤¿¤¤'(S3,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë), concat_atom([S4,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤Î¥Ë],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'A¥¿¥°¤Ç¥ê¥ó¥¯¤µ¤ì¤Æ¤¤¤Ê¤¤URL¤À¤±¤ò¥ê¥ó¥¯¤·¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/256 # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Ruby # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # ³ô²Á¤Î¤ß¤òÈ´½Ð¤·¡¢£Ä£Â¤ËÆþ¤ì¤Æ¤¤¤¯Í½Äê¤Ç¤¤¤Þ¤¹¡£ # ¡üÂоݥǡ¼¥¿ # http://ime.nu/stocks.finance.yahoo.co.jp/stocks/history/?code=9984.T # ¤Î¥½¡¼¥¹¤«¤é # # ¡ü´õ˾¤¹¤ë·ë²Ì # 2011ǯ6·î30Æü # 3,010 # 3,050 # 2,986 # 3,030 # 8,376,600 # 3,030 # . # . # . # ÆüÉÕ¡¢»ÏÃÍ¡¢¹âÃÍ¡¢°ÂÃÍ¡¢½ªÃÍ¡¢½ÐÍè¹â¡¢Ä´À°¸å½ªÃÍ # ¤Ç¤¹¡£ # http://ime.nu/stocks.finance.yahoo.co.jp/stocks/history/?code=9984.T # . # . # . # <td>2011ǯ6·î30Æü</td> # <td>3,010</td> # <td>3,050</td> # <td>2,986</td> # <td>3,030</td> # <td>8,376,600</td> # <td>3,030</td> # . # . # ¤³¤Î¥Ú¡¼¥¸¤Î¥½¡¼¥¹¤«¤éÀµµ¬É½¸½¤Ç¡¢²¼µ¤Î¤è¤¦¤ËÆüÉդȳô²Á¤ÎÉôʬ¤À¤±È´¤½Ð¤¹¤Ë¤Ï¤É¤¦¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡© # 2011ǯ6·î30Æü # 3,010 # 3,050 # 2,986 # 3,030 # 8,376,600 # 3,030 # . # . # . # . # # ¸À¸ì¤ÏRuby¤Ç¡¢([^<>]+)¤Ê¤É¤Ç¿§¡¹¤ä¤Ã¤Æ¤ß¤Þ¤·¤¿¤¬¡¢¤É¤¦¤Ë¤â¤¦¤Þ¤¯È´¤½Ð¤»¤Þ¤»¤ó¡£ # ¤Þ¤¿¡¢web¤ÎHTML¤«¤é¡¢Àµµ¬É½¸½¤Ç¤¢¤ëÄøÅÙÆÃÄꤷ¤ÆÊ¸»úÎó¤òÈ´¤½Ð¤·¡¢ # ¤½¤ÎÆÃÄꤷ¤ÆÈ´¤½Ð¤·¤¿Ê¸»úÎó¤ËºÆÅÙÀµµ¬É½¸½¤Ç¡¢Ê¸»úÎó¤òÆÃÄꤷ¤Æ¤¤¤¯¤È¤¤¤¦ # ÊýË¡¤Ï²Äǽ¤Ç¤·¤ç¤¦¤«¡© # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # '¥Ú¡¼¥¸¤Î¥½¡¼¥¹¤«¤éÀµµ¬É½¸½¤Ç¡¢²¼µ¤Î¤è¤¦¤ËÆüÉդȳô²Á¤ÎÉôʬ¤À¤±È´¤½Ð¤¹'(WebURL,_ÆüÉÕ¤«³ô²Á) :- get_lines(WebURL,Lines), ÆüÉդȳô²Á¹Ô¤ò¹Ê¤ê¹þ¤à(Lines,Lines2), ¹Ê¤ê¹þ¤ó¤ÀÆüÉդȳô²Á¹Ô¤«¤é¥Ç¡¼¥¿Éôʬ¤òÀÚ¤ê¼è¤ë(Lines2,_ÆüÉÕ¤«³ô²Á). ÆüÉդȳô²Á¹Ô¤ò¹Ê¤ê¹þ¤à(Lines,Lines2) :- ÆüÉդȳô²Átable¥¿¥°¤òÁܤ¹(Lines,R1), ÆüÉդȳô²Á¹Ô¤Î¤ßÁªÊÌ(R1,Lines2). ÆüÉդȳô²Átable¥¿¥°¤òÁܤ¹(Lines,R1) :- append(_,[Line1|R1],Lines), sub_atom(Lines,0,7,_,' '),!,fail;true)), Lines2),!. ¹Ê¤ê¹þ¤ó¤ÀÆüÉդȳô²Á¹Ô¤«¤é¥Ç¡¼¥¿Éôʬ¤òÀÚ¤ê¼è¤ë(Lines2,_ÆüÉÕ¤«³ô²Á) :- append(_,[Line2|_],Lines2), sub_atom(Line2,0,4,_,'
'), sub_atom(Line2,4,_,5,_ÆüÉÕ¤«³ô²Á). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1308749241/434 # [1] ¼ø¶Èñ¸µ¡§C¸À¸ì # [2] ÌäÂêʸ(´Þ¥³¡¼¥É&¥ê¥ó¥¯)¡§ http://codepad.org/FYsQ9RGx # # 13-1 ɸ½àÆþ½ÐÎÏ # # ɸ½àÆþÎϤòɸ½à½ÐÎϤ¹¤ë´Ê°×cat¥³¥Þ¥ó¥É¤òºîÀ®¤»¤è¡¥ # # $ cat sample.txt # 1. Software Engineering # # Based on the tenets of software engineering and computing science, # the Department of Software Engineering provides students with # a comprehensive grounding in software development and information # processing. As society becomes increasingly dependent on various # ... ά ... # # $ ./ex1301-10se000 < sample.txt > sample-out.txt # $ cat sample-out.txt # 1. Software Engineering # # Based on the tenets of software engineering and computing science, # the Department of Software Engineering provides students with # a comprehensive grounding in software development and information # processing. As society becomes increasingly dependent on various # ... ά ... # # sample.txt¤ò¥À¥¦¥ó¥í¡¼¥É¤·¤Æ¥Ç¥Ð¥Ã¥°¤Ë»ÈÍѤ¹¤ë¤ÈÎɤ¤¡¥ # ɸ½àÆþÎϤΥե¡¥¤¥ë¥Ý¥¤¥ó¥¿¤Ïstdin¤Ç¤¢¤ë¡¥p.222¤Î¡Öɸ½àÆþÎϤÈɸ½à½ÐÎϡפò»²¾È¡¥p.153¤Î´Ø¿ôgetchar(), putchar()¤òÍѤ¤¤ë¤Î¤â¤è¤¤¡¥ # 13-2 ¥Õ¥¡¥¤¥ëÆþ½ÐÎÏ # # ¥Õ¥¡¥¤¥ë¤òÆÉ¤ß¹þ¤ó¤Ç¡¤¥Õ¥¡¥¤¥ëÃæ¤Î±Ñ¾®Ê¸»ú¤ò±ÑÂçʸ»ú¤Ë¡¤±ÑÂçʸ»ú¤ò±Ñ¾®Ê¸»ú¤ËÊÑ´¹¤·¤Æ¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤¹¥×¥í¥°¥é¥à¤òºîÀ®¤»¤è¡¥ # # $ cat sample.txt # 1. Software Engineering # # Based on the tenets of software engineering and computing science, # the Department of Software Engineering provides students with # a comprehensive grounding in software development and information # processing. As society becomes increasingly dependent on various # ... ά ... # # $ ./ex1303-10se000 # ÆþÎÏ¥Õ¥¡¥¤¥ë̾ > sample.txt # ½ÐÎÏ¥Õ¥¡¥¤¥ë̾ > sample-out.txt # $ cat sample-out.txt # 1. sOFTWARE eNGINEERING # # bASED ON THE TENETS OF SOFTWARE ENGINEERING AND COMPUTING SCIENCE, # THE dEPARTMENT OF sOFTWARE eNGINEERING PROVIDES STUDENTS WITH # A COMPREHENSIVE GROUNDING IN SOFTWARE DEVELOPMENT AND INFORMATION # PROCESSING. aS SOCIETY BECOMES INCREASINGLY DEPENDENT ON VARIOUS # ... ά ... # # 13-3 ¥Õ¥¡¥¤¥ëÆþÎÏ¡¥¥³¥Þ¥ó¥É¥é¥¤¥óÆþÎÏ # # ¹Ô¿ô¡¤Ã±¸ì¿ô¡¤¥Ð¥¤¥È¿ô¡¤¥Õ¥¡¥¤¥ë̾¤ò°Ê²¼¤ÎÍͤ˽ÐÎϤ¹¤ë¤è¤¦¤Ê´Ê°×wc¤òºîÀ®¤»¤è¡¥¥ª¥×¥·¥ç¥ó¤Ï»ØÄê¤Ç¤¤Ê¤¯¤Æ¤âÎɤ¤¡¥ # # $ ./ex1303-10se000 sample.txt # 33 230 1674 sample.txt # $ wc sample.txt # 33 230 1674 sample.txt # # ¹Ô¿ô¡¤Ã±¸ì¿ô¡¤¥Ð¥¤¥È¿ô¤Ï¡¤(C¸À¸ì¤Î)À°¿ô¤Çɽ¤»¤ëÂ礤µ¤Ç¤¢¤ë¤È²¾Äꤷ¤ÆÎɤ¤¡¥ËÜÌäÂê¤Ë¤ª¤±¤ë¡Öñ¸ì¡×¤Ï¡¤¥³¥Þ¥ó¥Éwc¤Ë¤ª¤±¤ëÄêµÁ¤Ç¹Í¤¨¤è¡¥¥³¥Þ¥ó¥É wc ¤Ï man wc ¤ÇÄ´¤Ù¤ë¤³¤È¤¬¤Ç¤¤ë¡¥ # 13-4 ¥Õ¥¡¥¤¥ëÆþÎÏ¡¤¥³¥Þ¥ó¥É¥é¥¤¥óÆþÎÏ # # Âè2°ú¿ô¤Ç¼¨¤µ¤ì¤¿(ñ°ì¤Î)¥Õ¥¡¥¤¥ëÆâ¤Ë¤ª¤¤¤ÆÂè1°ú¿ô¤Îñ¸ì¤¬½Ð¸½¤¹¤ë¹Ô¤ò¤¹¤Ù¤Æ½ÐÎϤ¹¤ë¥×¥í¥°¥é¥à¤òºîÀ®¤»¤è¡¥ # # $ ./ex1304-10se000 Software sample.txt # 1. Software Engineering # the Department of Software Engineering provides students with # $ grep Software sample.txt # 1. Software Engineering # the Department of Software Engineering provides students with '¹Ô¿ô¡¤Ã±¸ì¿ô¡¤¥Ð¥¤¥È¿ô¡¤¥Õ¥¡¥¤¥ë̾¤ò°Ê²¼¤ÎÍͤ˽ÐÎϤ¹¤ë' :- user_parameters([wc,_¥Õ¥¡¥¤¥ë̾]), get_chars(_¥Õ¥¡¥¤¥ë̾,Chars), length(Chars,_¥Ð¥¤¥È¿ô), '¹Ô¿ô¡¤Ã±¸ì¿ô'(Chars,_¹Ô¿ô,_ñ¸ì¿ô), writef('%t %t %t %t\n',[_¹Ô¿ô,_ñ¸ì¿ô,_¥Ð¥¤¥È¿ô,_¥Õ¥¡¥¤¥ë̾]),!. '¹Ô¿ô¡¤Ã±¸ì¿ô'([],[],0,0) :- !. '¹Ô¿ô¡¤Ã±¸ì¿ô'(['\n'|R1],[],_¹Ô¿ô,_ñ¸ì¿ô) :- '¹Ô¿ô¡¤Ã±¸ì¿ô'(R1,W,_¹Ô¿ô_1,_ñ¸ì¿ô_1), ñ¸ì¿ô²Ã»»(W,_ñ¸ì¿ô_1,_ñ¸ì¿ô), _¹Ô¿ô is _¹Ô¿ô_1 + 1,!. '¹Ô¿ô¡¤Ã±¸ì¿ô'([C|R1],[],_¹Ô¿ô,_ñ¸ì¿ô) :- member(C,[' ',' ',',','.']), '¹Ô¿ô¡¤Ã±¸ì¿ô'(R1,W,_¹Ô¿ô,_ñ¸ì¿ô_1), ñ¸ì¿ô²Ã»»(W,_ñ¸ì¿ô_1,_ñ¸ì¿ô),!. '¹Ô¿ô¡¤Ã±¸ì¿ô'([C|R1],[C|R2],_¹Ô¿ô,_ñ¸ì¿ô) :- \+(member(C,[' ',' ',',','.'])), '¹Ô¿ô¡¤Ã±¸ì¿ô'(R1,R2,_¹Ô¿ô,_ñ¸ì¿ô). ñ¸ì¿ô²Ã»»([],_ñ¸ì¿ô,ñ¸ì¿ô) :- !. ñ¸ì¿ô²Ã»»([_|_],_ñ¸ì¿ô_1,ñ¸ì¿ô) :- _ñ¸ì¿ô is _ñ¸ì¿ô_1 + 1,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/244 # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # JavaScript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # x¤È¤¤¤¦Ê¸»ú¤«¤é¡¢x¤È¤¤¤¦Ê¸»ú¤Þ¤Ç¤Î¼èÆÀ # ¤¿¤À¤·yx¤È¤¤¤¦¥Ñ¥¿¡¼¥ó¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¾ì¹ç¤ÏÈô¤Ð¤·¤Æ¡¢¼¡¤Îx¤òõ¤¹ # x((?!yx).)*x¤ò»î¤·¤Þ¤·¤¿¤¬¡¢ÅÓÃæ¤Ç¸¡º÷¤¬ÂǤÁÀÚ¤é¤ì¤Æ»×¤¦¤è¤¦¤Ë¤Ê¤ê¤Þ¤»¤ó # # ¡üÂоݥǡ¼¥¿ # "ab\"c",'def' # # ¡ü´õ˾¤¹¤ë·ë²Ì # "ab\"c" # # 'x¤È¤¤¤¦Ê¸»ú¤«¤é¡¢x¤È¤¤¤¦Ê¸»ú¤Þ¤Ç¤Î¼èÆÀ¡£¤¿¤À¤·yx¤È¤¤¤¦¥Ñ¥¿¡¼¥ó¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¾ì¹ç¤ÏÈô¤Ð¤·¤Æ¡¢¼¡¤Îx¤òõ¤¹'(_x,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,[_x|R1],L3), append(L0,[_x],R1), µöÍÆ(_x,L0). 'x¤È¤¤¤¦Ê¸»ú¤«¤é¡¢x¤È¤¤¤¦Ê¸»ú¤Þ¤Ç¤Î¼èÆÀ¡£¤¿¤À¤·yx¤È¤¤¤¦¥Ñ¥¿¡¼¥ó¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¾ì¹ç¤ÏÈô¤Ð¤·¤Æ¡¢¼¡¤Îx¤òõ¤¹'(_x,_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_,_,_¸åʸ»úÎó_2,L1,[_x|R1],L3), append(L0,[_x],R1), µöÍÆ(_x,L0), 'x¤È¤¤¤¦Ê¸»ú¤«¤é¡¢x¤È¤¤¤¦Ê¸»ú¤Þ¤Ç¤Î¼èÆÀ¡£¤¿¤À¤·yx¤È¤¤¤¦¥Ñ¥¿¡¼¥ó¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¾ì¹ç¤ÏÈô¤Ð¤·¤Æ¡¢¼¡¤Îx¤òõ¤¹'(_x,_¸åʸ»úÎó_2,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). µöÍÆ(_,[]) :- !. µöÍÆ(A,[A|_]) :- !,fail. µöÍÆ(A,['\\',A|R]) :- µöÍÆ(R). µöÍÆ(A,[_|R]) :- µöÍÆ(A,R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/236 # ±Ñ¿ô»ú¥×¥é¥¹¥»¥ß¥³¥í¥ó¤Ï¤È¤ì¤ë¤Î¤Ç¤¹¤¬±Ñ¿ô»ú¤Î·å¿ô¤¬{3}¤ò¤Ä¤±¤Æ¤â¤¦¤Þ¤¯¤¤¤«¤ºÇº¤ó¤Ç¤¤¤Þ¤¹¡£ # # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # VBA # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # Âоݥǡ¼¥¿¤Î¥Õ¥©¡¼¥Þ¥Ã¥È¥Á¥§¥Ã¥¯¤ò¤·¤¿¤¤¤Ç¤¹ # # A01;B02;C03;¡Ä # ±Ñ¿ô»ú3·å¤¬¥»¥ß¥³¥í¥ó¤Ç¶èÀÚ¤é¤ì¤¿¥Ç¡¼¥¿¤ËÂФ·¤ÆÍͼ°Ä̤ê¤Ê¤étrue¤òÊÖ¤·¤Þ¤¹ # °ìÈֺǸå¤Ë¤Ï¥»¥ß¥³¥í¥ó¤Ï¤Ä¤¤Þ¤»¤ó # # ¡üÂоݥǡ¼¥¿¤È´õ˾¤¹¤ë·ë²Ì # A01;B02;C03 ¢ªtrue # A01;B02;C03; ¢ªfalse # A01;B092;C03 ¢ªfalse # '±Ñ¿ô»ú3·å¤¬¥»¥ß¥³¥í¥ó¤Ç¶èÀÚ¤é¤ì¤¿¥Ç¡¼¥¿¤ËÂФ·¤ÆÍͼ°Ä̤ê¤Ê¤étrue¤òÊÖ¤·¤Þ¤¹¡£°ìÈֺǸå¤Ë¤Ï¥»¥ß¥³¥í¥ó¤Ï¤Ä¤¤Þ¤»¤ó'(_ʸ»úÎó,true) :- R2 = [A,B,C,';'], \+(member(';',L1)), \+(member(';',L3)), ¤¹¤Ù¤Æ¤¬±Ñ¿ô»ú([A,B,C]),!. '±Ñ¿ô»ú3·å¤¬¥»¥ß¥³¥í¥ó¤Ç¶èÀÚ¤é¤ì¤¿¥Ç¡¼¥¿¤ËÂФ·¤ÆÍͼ°Ä̤ê¤Ê¤étrue¤òÊÖ¤·¤Þ¤¹¡£°ìÈֺǸå¤Ë¤Ï¥»¥ß¥³¥í¥ó¤Ï¤Ä¤¤Þ¤»¤ó'(_ʸ»úÎó,false). ¤¹¤Ù¤Æ¤¬±Ñ¿ô»ú([]) :- !. ¤¹¤Ù¤Æ¤¬±Ñ¿ô»ú([A|R]) :- A @>= 0, A @=< 9, ¤¹¤Ù¤Æ¤¬±Ñ¿ô»ú(R). ¤¹¤Ù¤Æ¤¬±Ñ¿ô»ú([A|R]) :- A @>= 'A', A @=< 'Z', ¤¹¤Ù¤Æ¤¬±Ñ¿ô»ú(R). ¤¹¤Ù¤Æ¤¬±Ñ¿ô»ú([A|R]) :- A @>= 'a', A @=< 'z', ¤¹¤Ù¤Æ¤¬±Ñ¿ô»ú(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/220 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # grep¤È¤«egrep¤È¤« # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # a,n¤Î2ʸ»ú¤Î¤ß¤¬´Þ¤Þ¤ì¤ë¹Ô¤ò¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # aaa # ann # nana # anana # sin # anans # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¾å4¤Ä¤Î¤ß½ÐÎÏ # ²¼Æó¤Ä¤Ï°ú¤Ã¤«¤«¤é¤Ê¤¤ # # 'a,n¤Î2ʸ»ú¤Î¤ß¤¬´Þ¤Þ¤ì¤ë¹Ô¤ò¸¡º÷¤·¤¿¤¤'(_¹Ô¤Ê¤é¤Ó,_¹Ô) :- append(_,[_¹Ô|_],_¹Ô¤Ê¤é¤Ó), findsetof(_ʸ»ú,sub_atom(_¹Ô,_,1,_,_ʸ»ú),[a,n]). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/200 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # VBScript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # http://ime.nu/upload.jpn.ph/500/bin/¤È¤ó¤³¤Ä.zip # ¤À¤±¤òÊÑ¿ô¤ËÆþ¤ì¤Æ¡¢¸å¤ÇÊÑ¿ô¤òÍøÍѤ·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # </style> # # <META HTTP-EQUIV="Refresh" CONTENT="1;URL=http://ime.nu/upload.jpn.ph/500/bin/¤È¤ó¤³¤Ä.zip"> # </HEAD> # # ¡ü´õ˾¤¹¤ë·ë²Ì # ŬÅö¤ÊÊÑ¿ô=http://ime.nu/upload.jpn.ph/500/bin/¤È¤ó¤³¤Ä.zip # Îã:¤â¤·ÊÑ¿ô var5 ¤È¤«¤Ë¤È¤ó¤³¤Ä.zip¤òÂåÆþ¤Ç¤¤ë¤Ê¤é # WScript.Echo var5 # ¤È¤·¤¿¤È¤¤Ëhttp://ime.nu/upload.jpn.ph/500/bin/¤È¤ó¤³¤Ä.zip # ¤È½ÐÎϤǤ¤ë¤è¤¦¤Ë¤·¤¿¤¤¤Ç¤¹¡£ # # ¤â¤·¾å¼ê¤¯ÀâÌÀ¤Ç¤¤Æ¤Ê¤«¤Ã¤¿¤é¤´¤á¤ó¤Ê¤µ¤¤¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # 'URL¤ò¸¡º÷¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,[h,t,t,p,:,/,/|R2],[' '|R3]), \+(sub_atom(S2,_,1,_,' ')), \+(append(_,[h,t,t,p,:,/,/|_],R2)). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/176 # ¸À¸ì¡§JAVA # ¼¡¤ÎÎãʸ¤Ç¡¢[ ]¤ÎÉôʬ¤Ë¤Ò¤é¤¬¤Ê¤Î¡Ö¤Ú¡×¤¬27²ó³¤¯¾ì¹ç¤Ë¤Î¤ß¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½ # # ¡¡¡¡¤æ¤¦¤Æ¤¤¤ß¤ä¤ª¤¦¤¤à¤³¤¦¤Û¤ê¤¤¤æ¤¦¤¸¤È¤ê¤ä¤Þ¤¢¤¤é[ ] # # ½èÍýÂоÝʸ»ú # ¤æ¤¦¤Æ¤¤¤ß¤ä¤ª¤¦¤¤à¤³¤¦¤Û¤ê¤¤¤æ¤¦¤¸¤È¤ê¤ä¤Þ¤¢¤¤é¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú # ¤æ¤¦¤Æ¤¤¤ß¤ä¤ª¤¦¤¤à¤³¤¦¤Û¤ê¤¤¤æ¤¦¤¸¤È¤ê¤ä¤Þ¤¢¤¤é¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú # ¤æ¤¦¤Æ¤¤¤ß¤ä¤ª¤¦¤¤à¤³¤¦¤Û¤ê¤¤¤æ¤¦¤¸¤È¤ê¤ä¤Þ¤¢¤¤é¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú # # ¼Â¹Ô¤·¤¿Àµµ¬É½¸½ # .*¤Ú{27} # # ¼Â¹Ô·ë²Ì # ¤æ¤¦¤Æ¤¤¤ß¤ä¤ª¤¦¤¤à¤³¤¦¤Û¤ê¤¤¤æ¤¦¤¸¤È¤ê¤ä¤Þ¤¢¤¤é¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú # ¤æ¤¦¤Æ¤¤¤ß¤ä¤ª¤¦¤¤à¤³¤¦¤Û¤ê¤¤¤æ¤¦¤¸¤È¤ê¤ä¤Þ¤¢¤¤é¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú¤Ú # # ²¿¤Ç27²ó°Ê³°¤Î¡Ö¤Ú¡×¤¬½ÐÎϤµ¤ì¤ë¤Î¤«Ìõ¥ï¥«¥á¤Á¤ã¤ó # # '¼¡¤ÎÎãʸ¤Ç¡¢[ ]¤ÎÉôʬ¤Ë¤Ò¤é¤¬¤Ê¤Î¡Ö¤Ú¡×¤¬27²ó³¤¯¾ì¹ç¤Ë¤Î¤ß¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- length(L2,27), all(L2,¥Ú), sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), \+(last(L1,¤Ú)), \+(L3 = [¤Ú|_]). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/168 # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¤¤¤¯¤Ä¤«Ï¢Â³¤·¤¿\n¤ò¡¢¤¹¤Ù¤Æ<br />¤ËÃÖ´¹ # # ¡üÂоݥǡ¼¥¿ # \n # \n\n\n # ¡ÊϢ³¿ô¤Ï£±¡Á£î¡Ë # # ¡ü´õ˾¤¹¤ë·ë²Ì # <br /> # <br /><br /><br /> # # # '¤¤¤¯¤Ä¤«Ï¢Â³¤·¤¿²þ¹Ô¤ò¡¢¤¹¤Ù¤Æhtml¤Î²þ¹Ô»ØÄê¤ËÊÑ´¹'(_ʸ»úÎó,_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó) :- atom_codes(_ʸ»úÎó,Code1), ¥³¡¼¥É¤Ê¤é¤Ó¤Î²þ¹Ô¤ò¤¹¤Ù¤Æhtml¤Î²þ¹Ô»ØÄê¤ËÊÑ´¹(Code1,Code2), atom_codes(_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó,Code2). ¥³¡¼¥É¤Ê¤é¤Ó¤Î²þ¹Ô¤ò¤¹¤Ù¤Æhtml¤Î²þ¹Ô»ØÄê¤ËÊÑ´¹([],[]). ¥³¡¼¥É¤Ê¤é¤Ó¤Î²þ¹Ô¤ò¤¹¤Ù¤Æhtml¤Î²þ¹Ô»ØÄê¤ËÊÑ´¹([10|R1],[60,47,98,114,62|R2]) :- ¥³¡¼¥É¤Ê¤é¤Ó¤Î²þ¹Ô¤ò¤¹¤Ù¤Æhtml¤Î²þ¹Ô»ØÄê¤ËÊÑ´¹(R1,R2),!. ¥³¡¼¥É¤Ê¤é¤Ó¤Î²þ¹Ô¤ò¤¹¤Ù¤Æhtml¤Î²þ¹Ô»ØÄê¤ËÊÑ´¹([Code|R1],[Code|R2]) :- ¥³¡¼¥É¤Ê¤é¤Ó¤Î²þ¹Ô¤ò¤¹¤Ù¤Æhtml¤Î²þ¹Ô»ØÄê¤ËÊÑ´¹(R1,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: #156 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP 5.1 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ³Ñ³ç¸Ì¤¬Âбþ¤¹¤ë»ÏÅÀ¤«¤é½ªÅÀ¤Þ¤Ç¤ò¤¹¤Ù¤ÆÃê½Ð¤·¤¿¤¤¤Ç¤¹¡£ # # ¡üÂоݥǡ¼¥¿ # ¤Û¤²[[hoge:f1=piyo,f2=fuga]¤Õ¤¬[[hogera:]]¤Ô¤è]¤Û¤²¤é[[foo:]¤Ô¤è¤Ô¤è][[qux:a=xyzzy]] # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¤Û¤²[[hoge:f1=piyo,f2=fuga]¤Õ¤¬[[hogera:]]¤Ô¤è]¤Û¤²¤é[[foo:]¤Ô¤è¤Ô¤è][[qux:a=xyzzy]] # ¡¡¡¡1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^¡¡¡¡¡¡2^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^ # # ¤´¶µ¼ø¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # ³Ñ³ç¸Ì¤¬Âбþ¤¹¤ë»ÏÅÀ¤«¤é½ªÅÀ¤Þ¤Ç¤ò¤¹¤Ù¤ÆÃê½Ð¤·¤¿¤¤(_ʸ»úÎó,[_Éûʸ»úÎó|R]) :- atom_chars(_ʸ»úÎó,Chars), ÊĤ¸¤¿³Ñ³ç¸Ì¤ÎÂбþ¤òÆÀ¤ë(Chars,_Ãê½Ðʸ»ú¤Ê¤é¤Ó,_»Ä¤êʸ»ú¤Ê¤é¤Ó), atom_chars(_Éûʸ»úÎó,_Ãê½Ðʸ»ú¤Ê¤é¤Ó), ÊĤ¸¤¿³Ñ³ç¸Ì¤ÎÂбþ¤òÆÀ¤ë(_»Ä¤êʸ»ú¤Ê¤é¤Ó,R,_),!. ³Ñ³ç¸Ì¤¬Âбþ¤¹¤ë»ÏÅÀ¤«¤é½ªÅÀ¤Þ¤Ç¤ò¤¹¤Ù¤ÆÃê½Ð¤·¤¿¤¤(_,[]). ÊĤ¸¤¿³Ñ³ç¸Ì¤ÎÂбþ¤òÆÀ¤ë([],[],[]) :- !. ÊĤ¸¤¿³Ñ³ç¸Ì¤ÎÂбþ¤òÆÀ¤ë(L1,['['|R2],R) :- ³Ñ³ç¸Ì¤¬³«»Ï¤¹¤ë¤Þ¤ÇÆÉ¤ßÈô¤Ð¤¹(L1,L2), Âбþ¤¹¤ëÊĤ¸³Ñ³ç¸Ì¤Þ¤Çʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë(L2,R2,R),!. ÊĤ¸¤¿³Ñ³ç¸Ì¤ÎÂбþ¤òÆÀ¤ë(_,[],[]). Âбþ¤¹¤ëÊĤ¸³Ñ³ç¸Ì¤Þ¤Çʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë([']'|R1],[']'],R1) :- !. Âбþ¤¹¤ëÊĤ¸³Ñ³ç¸Ì¤Þ¤Çʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë(['['|R1],['['|R2],R) :- Âбþ¤¹¤ëÊĤ¸³Ñ³ç¸Ì¤Þ¤Çʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë(R1,R2_1,R3), Âбþ¤¹¤ëÊĤ¸³Ñ³ç¸Ì¤Þ¤Çʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë(R3,R2_2,R), append(R2_1,R2_2,R2),!. Âбþ¤¹¤ëÊĤ¸³Ñ³ç¸Ì¤Þ¤Çʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë([A|R1],[A|R2],R) :- Âбþ¤¹¤ëÊĤ¸³Ñ³ç¸Ì¤Þ¤Çʸ»ú¤Ê¤é¤Ó¤òÆÀ¤ë(R1,R2,R). ³Ñ³ç¸Ì¤¬³«»Ï¤¹¤ë¤Þ¤ÇÆÉ¤ßÈô¤Ð¤¹(L1,L2) :- append(_,['['|L2],L1),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½ÐÂê¾ì½ê http://hibari.2ch.net/test/read.cgi/tech/1301067486/144 # ¡ÊËÜʸ¤¬Ä¹¤¹¤®¤ë¤È¤¤¤¦¥á¥Ã¥»¡¼¥¸¤¬½Ð¤ë¤Î¤Ç2¤Ä¤Ëʬ¤±¤Æ¤¤¤Þ¤¹¡Ë # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ActionScript 3.0 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ʸ»úÎó¤ÎÀèÆ¬¤¬¡Ö¥×¥é¥¹É乿¤«¥Þ¥¤¥Ê¥¹É乿¤«¿ô»ú¤«¡×¤È # ËöÈø¤¬¡Ö¿ô»ú¤«¡×¤ÇBooleanȽÄê¤ò¹Ô¤¤¤¿¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # 1.2345¡¡¡¡+123.45¡¡¡¡-3.1245¡¡¡¡ÀÄ3.1245¡¡¡¡3.1245ÀÖ # # ¡ü´õ˾¤¹¤ë·ë²Ì # 1.2345¢ªtrue¡¡¡¡+123.45¢ªtrue¡¡¡¡-3.1245¡¡¢ª¡¡true¡¡¡¡ÀÄ3.1245¢ªfalse¡¡¡¡3.1245ÀÖ¢ªfalse # # # »î¤·¤¿¥³¡¼¥É¤Ï²¼µ¤Ç¤¹¡£ # var patt0 = new RegExp("^(\d|[-]|[+])");//ÀèÆ¬Éôʬ¤ÎȽÄê # var patt1 = new RegExp("\d$");//ËöÈø # if (patt0.test(str0) == true && patt1.test(str0) == true) { # //true¤È½ÐÎÏ # } else { # //false¤È½ÐÎÏ # } # # ºÇ½é¤ÈºÇ¸å¤Îʸ»ú¤Î¤ß¤ËÃíÌܤ·¤Æ¤¤¤ë¤Î¤Ç¥Õ¥é¥°¡Ê"g"¤Ê¤É¡Ë¤Ï̵¤·¤Ë¤·¤Æ # ¤¤¤Þ¤¹¤¬¡¢¾å¤Îµ½Ò¤À¤È 1.2345 ¤Ç¤âfalse¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£ # # ¤É¤¦ÊѤ¨¤ì¤ÐÎɤ¤¤Ç¤·¤ç¤¦¤«¡© # °ø¤ß¤Ë¡¢ActionScript¤ÏJavaScript¤ÈƱ¤¸ECMA¥¹¥¯¥ê¥×¥È¤òµ¯¸»¤Ë¤·¤Æ¤¤¤Þ¤¹¡£ # ¡ÊÀµµ¬É½¸½¤â¶¦ÄÌÅÀ¤¬Â¿¤¤¤è¤¦¤Ç¤¹¡Ë # ¿ôÃÍʸ»ú(['0','1','2','3','4','5','6','7','8','9']). ʸ»úÎó¤ÎÀèÆ¬¤¬¡Ö¥×¥é¥¹É乿¤«¥Þ¥¤¥Ê¥¹É乿¤«¿ô»ú¤«¡×¤ÈËöÈø¤¬¡Ö¿ô»ú¤«¡×¤ÇBooleanȽÄê¤ò¹Ô¤¦(_ʸ»úÎó) :- ¿ôÃÍʸ»ú(L), sub_atom(_ʸ»úÎó,0,1,_,_ÀèÆ¬), sub_atom(_ʸ»úÎó,_,1,0,_ËöÈø), append(_,[_ÀèÆ¬|_],['+','-'|L]), append(_,[_ËöÈø|_],L). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ¿ôÃÍʸ»ú(['0','1','2','3','4','5','6','7','8','9']). ʸ»úÎó¤ÎÀèÆ¬¤¬¡Ö¥×¥é¥¹É乿¤«¥Þ¥¤¥Ê¥¹É乿¤«¿ô»ú¤«¡×¤ÈËöÈø¤¬¡Ö¿ô»ú¤«¡×¤ÇBooleanȽÄê¤ò¹Ô¤¦(_ʸ»úÎó) :- atom_chars(_ʸ»úÎó,Chars), append([_ÀèÆ¬|_],[_ËöÈø],Chars), ¿ôÃÍʸ»ú(L), append(_,[_ÀèÆ¬|_],['+','-'|L]), append(_,[_ËöÈø|_],L). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/121 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Apache RewriteRule # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # 1¡Á5¤Ä¤Î¥«¥ó¥Þ¶èÀÚ¤ê¤Îñ¸ì¤ò°ìÃפµ¤»¤¿¤¤ # Ï¢·ë¿ô¤ÏÉÔÄê # # ¡üÂоݥǡ¼¥¿ # apple # apple,orange,pineapple,grape,melon # orange,pineapple,melon # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¡ûapple # ¡ûorange,pineapple,melon # ¡ß ,apple # # ÉÔÄê¿ôÏ¢·ë¤µ¤ì¤¿¥Ñ¥¿¡¼¥ó¤ËǺ¤ó¤Ç¤¤¤Þ¤¹ # '1¡Á5¤Ä¤Î¥«¥ó¥Þ¶èÀÚ¤ê¤Îñ¸ì¤ò°ìÃפµ¤»¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- '¥«¥ó¥Þ¤ò0-4¸Ä´Þ¤à¥¢¥ë¥Õ¥¡¥Ù¥Ã¥Èʸ»úÎó'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), ¥«¥ó¥Þ¤ÏÆÈΩ¤·¤Æ4¸Ä°ÊÆâ¤ÇÀèÆ¬¤ÈËöÈø¤Ï¥«¥ó¥Þ¤Ç¤Ï¤Ê¤¤(_Ŭ¹çʸ»úÎó). '¥«¥ó¥Þ¤ò0-4¸Ä´Þ¤à¥¢¥ë¥Õ¥¡¥Ù¥Ã¥Èʸ»úÎó'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤Ê¤é¤Ó(L1,L2,L3). ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤Ê¤é¤Ó([],L2,[]) :- Á´¤Æ¤ÎÍ×ÁǤ¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(L2),!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤Ê¤é¤Ó([],L2,[A|_]) :- Á´¤Æ¤ÎÍ×ÁǤ¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(L2), \+(¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A)),!. ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤Ê¤é¤Ó(L1,L2,L3) :- last(L1,A), L3 = [B|_], \+(¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A)), \+(¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(B)), Á´¤Æ¤ÎÍ×ÁǤ¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(L2),!. Á´¤Æ¤ÎÍ×ÁǤ¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(L2) :- \+((append(_,[A|_],L2),¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A))). ¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È(A) :- char_code(A,Code), Code > 32. ¥«¥ó¥Þ¤ÏÆÈΩ¤·¤Æ4¸Ä°ÊÆâ¤ÇÀèÆ¬¤ÈËöÈø¤Ï¥«¥ó¥Þ¤Ç¤Ï¤Ê¤¤(_Ŭ¹çʸ»úÎó) :- sPLIT(_Ŭ¹çʸ»úÎó,[','],L), count(append(_,[','|_],L),N), N =< 4, ¥«¥ó¥Þ¤ÏÆÈΩ¤·¤Æ(L), ÀèÆ¬¤Ï¥«¥ó¥Þ¤Ç¤Ê¤¤(L), ËöÈø¤Ï¥«¥ó¥Þ¤Ç¤Ê¤¤(L). ¥«¥ó¥Þ¤ÏÆÈΩ¤·¤Æ(L) :- \+(append(_,[',',','|_],L)),!. ÀèÆ¬¤Ï¥«¥ó¥Þ¤Ç¤Ê¤¤(L) :- \+([','|_]=L). ËöÈø¤Ï¥«¥ó¥Þ¤Ç¤Ê¤¤(L) :- \+(append(_,[','],L)). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # Àµµ¬É½¸½¤À¤È¡¢¡ÖÅö¤Æ¤Ï¤Þ¤ë°ìÉôʬ¤ò¸ò´¹¡×¤Ã¤Æ¤Î¤Ï¤ä¤ì¤ë¤±¤É¡¢ # ¡ÖÅö¤Æ¤Ï¤Þ¤ëÉôʬ¤ò´Þ¤à°ì¹Ô¤ò´Ý¤´¤È¸ò´¹¡×¤À¤ÈÆñ¤·¤¤¡£\ # ¤Ã¤Ä¡¼¤«»×¤¤¤Ä¤«¤ó¤«¤Ã¤¿¡£¤ä¤êÊý¤ò¡£ Åö¤Æ¤Ï¤Þ¤ëÉôʬ¤ò´Þ¤à°ì¹Ô¤ò´Ý¤´¤È¸ò´¹(_ʸ»úÎó,_¸¡º÷Éôʬʸ»úÎó,_ÃÖ´¹¹Ô,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- atom_chars(_ʸ»úÎó,Chars), atom_chars(_¸¡º÷Éôʬʸ»úÎó,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó), atom_chars(_ÃÖ´¹¹Ô,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó), Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹(Chars,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,Chars2), concat_atom(Chars2,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹([],[],_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,[]) :- !. Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹([],L1,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,L1) :- \+(append(_,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_,L1)),!. Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹([],L1,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó) :- append(_,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_,L1),!. Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹(['\n'|R1],[],_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,['\n'|R2]) :- Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹(R1,[],_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,R2). Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹(['\n'|R1],L1,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,Chars2) :- append(_,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_,L1), Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹(R1,[],_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,R2), append(_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,['\n'|R2],Chars2),!. Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹(['\n'|R1],L1,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,Chars2) :- \+(append(_,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_,L1)), Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹(R1,[],_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,R2), append(L1,['\n'|R2],Chars2),!. Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹([A|R1],L1,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,Chars2) :- \+(A='\n'), append(L1,[A],L2), Åö¤Æ¤Ï¤Þ¤ë¹Ô¤ò´Ý¤´¤È¸ò´¹(R1,L2,_¸¡º÷Éôʬʸ»ú¤Ê¤é¤Ó,_ÃÖ´¹Ê¸»ú¤Ê¤é¤Ó,Chars2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/79 # aaa=bbb;ccc=ddd;eee=fff # # ¤È¤¤¤¦´¶¤¸¤Îʸ»úÎ󤫤éccc¤ÎÃÍddd¤ò¼èÆÀ¤·¤¿¤¤¤Ç¤¹¡£ # ddd¤Ï²ÄÊѤǤ½¤ÎÉôʬ¤Ë¤Ï¥»¥ß¥³¥í¥ó¤È¥«¥ó¥Þ¤ÏÆþ¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡£ # ¡Ê¥»¥ß¥³¥í¥ó¤Ï¶èÀÚ¤ê¤È¤·¤Æ¤Ï»È¤¤¤Þ¤¹¤¬ÃͤȤ·¤Æ¤Ï»È¤¤¤Þ¤»¤ó¡£¡Ë # ccc¤ÏºÇ¸å¤Ë½ñ¤«¤ì¤Æ¤ë¾ì¹ç¤â¤¢¤ê¡¢¤½¤Î¾ì¹ç¤Ï¡¢ # ¾åµ¤Îeee=fff¤Î¤è¤¦¤ËºÇ¸å¤Ë¥»¥ß¥³¥í¥ó¤¬¤Ä¤¤Þ¤»¤ó¡£ # # ¤½¤³¤ÇÀµµ¬É½¸½¤Ê¤ó¤Ç¤¹¤¬¡¢ # ccc=(.*?;|[^;\,]+$) # ¤È¤¤¤¦´¶¤¸¤Ë¤·¤Þ¤·¤¿¡£ # ¸åÊý»²¾È¤Ç()Æâ¤ÎÉôʬ¤ò¼è¤ê½Ð¤·¤¿¤È¤¡¢ # ccc=ddd;¤Î¤È¤¤Ï¡¢¡Öddd;¡×¤È¤¤¤Ã¤¿´¶¤¸¤Ë¥»¥ß¥³¥í¥ó¤Ä¤¤Ç¼èÆÀ¤µ¤ì¡¢ # ccc=ddd¤Î¤È¤¤Ï¡¢¡Öddd¡×¤È¤¤¤Ã¤¿´¶¤¸¤Ë¥»¥ß¥³¥í¥ó¤Ê¤·¤Ç¼èÆÀ¤µ¤ì¤Þ¤¹¡£ # ccc=ddd;¤Î¤È¤¤Ç¤â¥»¥ß¥³¥í¥ó¤Ê¤·¤Ç¼èÆÀ¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢ # Àµµ¬É½¸½¤Î¤ß¤Ç²Äǽ¤Ç¤·¤ç¤¦¤«¡© # # 'aaa=bbb;ccc=ddd;eee=fff¤È¤¤¤¦´¶¤¸¤Îʸ»úÎ󤫤éccc¤ÎÃÍddd¤ò¼èÆÀ¤·¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,¸åʸ»úÎó,L1,L2,L3), sub_atom(S1,_,1,0,C1), ¥»¥ß¥³¥í¥ó¤«¥«¥ó¥Þ(C1), sub_atom(_¸åʸ»úÎó,0,1,_,C2), ¥»¥ß¥³¥í¥ó¤«¥«¥ó¥Þ(C2), ¥»¥ß¥³¥í¥ó¤«¥«¥ó¥Þ¤ò´Þ¤Þ¤Ê¤¤(L2), split(S2,['='],[S2_1,_Ŭ¹çʸ»úÎó]), concat_atom([S1,S2_1,'='],_Á°Ê¸»úÎó). ¥»¥ß¥³¥í¥ó¤«¥«¥ó¥Þ(';'). ¥»¥ß¥³¥í¥ó¤«¥«¥ó¥Þ(','). ¥»¥ß¥³¥í¥ó¤«¥«¥ó¥Þ¤ò´Þ¤Þ¤Ê¤¤([]). ¥»¥ß¥³¥í¥ó¤«¥«¥ó¥Þ¤ò´Þ¤Þ¤Ê¤¤([A|R]) :- \+(A = ';'), \+(A = ','), ¥»¥ß¥³¥í¥ó¤«¥«¥ó¥Þ¤ò´Þ¤Þ¤Ê¤¤(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part8 #72 # Ť¤Ê¸»úÎ󤫤éʸ»úÎó¤òÃê½Ð¤·¤¿¤¤¤ó¤À¤±¤É¡¢¤É¤¦¤¹¤ì¤Ð´Êñ¤Ç¤¹¤«¡© # 122ch345673ch89 # ¤³¤Îʸ»úÎ󤫤é2ch¤È3ch¤Î´Ö¤Îʸ»ú¤À¤±¤ò¼èÆÀ¤·¤¿¤¤¤Ç¤¹ # # 'Ť¤Ê¸»úÎ󤫤éʸ»úÎó¤òÃê½Ð¤·¤¿¤¤¤ó¤À¤±¤É¡¢¤É¤¦¤¹¤ì¤Ð´Êñ¤Ç¤¹¤«¡© 122ch345673ch89 ¤³¤Îʸ»úÎ󤫤é2ch¤È3ch¤Î´Ö¤Îʸ»ú¤À¤±¤ò¼èÆÀ¤·¤¿¤¤¤Ç¤¹'(_2ch¤È3ch¤Î´Ö¤ÎÉûʸ»úÎó) :- Ť¤Ê¸»úÎ󤫤é_ʸ»úÎó_1¤È_ʸ»úÎó_2¤Î´Ö¤ÎÉûʸ»úÎó¤ò¼èÆÀ¤¹¤ë('122ch345673ch89','2ch','3ch',_2ch¤È3ch¤Î´Ö¤ÎÉûʸ»úÎó). Ť¤Ê¸»úÎ󤫤é_ʸ»úÎó_1¤È_ʸ»úÎó_2¤Î´Ö¤ÎÉûʸ»úÎó¤ò¼èÆÀ¤¹¤ë(_Ť¤Ê¸»úÎó,_ʸ»úÎó_1,_ʸ»úÎó_2,_ʸ»úÎó_1¤È_ʸ»úÎó_2¤Î´Ö¤ÎÉûʸ»úÎó) :- sub_atom(_Ť¤Ê¸»úÎó,_,_,_,_Éûʸ»úÎó), Éûʸ»úÎó(_Éûʸ»úÎó,_ʸ»úÎó_1,_ʸ»úÎó_1¤È_ʸ»úÎó_2¤Î´Ö¤ÎÉûʸ»úÎó,_ʸ»úÎó_2). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part8 #60 # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP 5.2.9 ¡ÊXAMPP 1.7.1¡Ë # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ÆþÎÏʸ»ú¤¬+¡¢-¡¢¿ô»ú°Ê³°¤Ê¤é¥¨¥é¡¼¤òÊÖ¤¹ # # ¡ü¥³¡¼¥É # preg_match("/^[+|-]*\d+$/g", $string) # ¡Ê1¹Ô¤´¤È¤Ë½èÍý¤¹¤ë¤Î¤Ç¡¢/m¤ÏÉÔÍפǤ¹¡Ë # # ¡ü´õ˾¤¹¤ë·ë²Ì # +100¢ª¡û # -488¢ª¡û # 1024¢ª¡û # *300¢ª¡ß # /200¢ª¡ß # Aaaa¢ª¡ß # ¤¢¤¢¢ª¡ß # 'ÆþÎÏʸ»ú¤¬+¡¢-¡¢¿ô»ú°Ê³°¤Ê¤é¥¨¥é¡¼¤òÊÖ¤¹'(_ÆþÎÏʸ»úÎó,¥¨¥é¡¼) :- 'ÆþÎÏʸ»ú¤¬+¡¢-¡¢¿ô»ú°Ê³°¤Ê¤é'(_ÆþÎÏʸ»úÎó). 'ÆþÎÏʸ»ú¤¬+¡¢-¡¢¿ô»ú°Ê³°¤Ê¤é¥¨¥é¡¼¤òÊÖ¤¹'(_ÆþÎÏʸ»úÎó,Àµ¾ï½ªÎ») :- 'ÆþÎÏʸ»ú¤¬+¡¢-¡¢¿ô»ú¤Î¤¤¤º¤ì¤«¤Î¾ì¹ç'(_ÆþÎÏʸ»úÎó). 'ÆþÎÏʸ»ú¤¬+¡¢-¡¢¿ô»ú°Ê³°¤Ê¤é'(_ÆþÎÏʸ»úÎó) :- ÆþÎÏʸ»ú¤¬(_ÆþÎÏʸ»úÎó,_ÆþÎÏʸ»ú), '+¡¢-¡¢¿ô»ú°Ê³°¤Ê¤é'(_ÆþÎÏʸ»ú),!. ÆþÎÏʸ»ú¤¬(_ÆþÎÏʸ»úÎó,_ÆþÎÏʸ»ú) :- sub_atom(_ÆþÎÏʸ»úÎó,_,1,_,_ÆþÎÏʸ»ú). '+¡¢-¡¢¿ô»ú°Ê³°¤Ê¤é'(_ÆþÎÏʸ»ú) :- '+¡¢-¤Ç¤Ï¤Ê¤¯'(_ÆþÎÏʸ»ú), ¿ô»ú¤Ç¤Ï¤Ê¤¤(_ÆþÎÏʸ»ú). '+¡¢-¤Ç¤Ï¤Ê¤¯'(_ÆþÎÏʸ»ú) :- \+('+¡¢-'(_ÆþÎÏʸ»ú)). ¿ô»ú¤Ç¤Ï¤Ê¤¤(_ÆþÎÏʸ»ú) :- \+(¿ô»ú(_ÆþÎÏʸ»ú)). '+¡¢-'('+'). '+¡¢-'('-'). ¿ô»ú('0'). ¿ô»ú('1'). ¿ô»ú('2'). ¿ô»ú('3'). ¿ô»ú('4'). ¿ô»ú('5'). ¿ô»ú('6'). ¿ô»ú('7'). ¿ô»ú('8'). ¿ô»ú('9'). 'ÆþÎÏʸ»ú¤¬+¡¢-¡¢¿ô»ú¤Î¤¤¤º¤ì¤«¤Î¾ì¹ç'(_ÆþÎÏʸ»úÎó) :- forall(ÆþÎÏʸ»ú¤¬(_ÆþÎÏʸ»úÎó,_ÆþÎÏʸ»ú),'+¡¢-¡¢¿ô»ú¤Î¤¤¤º¤ì¤«'(_ÆþÎÏʸ»ú)). '+¡¢-¡¢¿ô»ú¤Î¤¤¤º¤ì¤«'(_ÆþÎÏʸ»ú) :- '+¡¢-'(_ÆþÎÏʸ»ú). '+¡¢-¡¢¿ô»ú¤Î¤¤¤º¤ì¤«'(_ÆþÎÏʸ»ú) :- ¿ô»ú(_ÆþÎÏʸ»ú). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part8 #31 # Àµµ¬É½¸½¤Ç¤È¤¢¤ë¥¹¥ì¤Î¡¢ÆÃÄê¤ÎURL¤ò´Þ¤Þ¤Ê¤¤¥ì¥¹¤ò¤¢¤Ü¡¼¤ó¤Ë¤·¤¿¤¤¤È¹Í¤¨¤Æ¤¤¤Þ¤¹ # ÆÃÄê¤ÎURL¤Ï"mt=8"¤È"hibari"¤¬´Þ¤Þ¤ì¤¿URL¤Ç¤¹ # [^(mt=8)(hibari)] # ¤È»î¤·¤Þ¤·¤¿¤¬ÂÌÌܤǤ·¤¿¡£¤É¤Î¤è¤¦¤Ë¤¹¤ì¤Ð¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡© # # 'Àµµ¬É½¸½¤Ç¤È¤¢¤ë¥¹¥ì¤Î¡¢ÆÃÄê¤ÎURL¤ÎÍ×ÁǤò´Þ¤Þ¤Ê¤¤¥ì¥¹¤ò¤¢¤Ü¡¼¤ó¤Ë¤·¤¿¤¤'(_¥ì¥¹) :- 'URL¤òÀÚ¤ê½Ð¤¹'(_¥ì¥¹,_Á°Ê¸»úÎó,URL,_¸åʸ»úÎó), ¥¢¥Ü¡¼¥ó¤·¤¿¤¤(URL),!. 'URL¤òÀÚ¤ê½Ð¤¹'(_¥ì¥¹,_Á°Ê¸»úÎó,URL,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_¥ì¥¹), atom_concat(URL,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). ¥¢¥Ü¡¼¥ó¤·¤¿¤¤(URL) :- ¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL(URL,_¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL), ÆÃÄê¤ÎURL¤ÎÍ×ÁǤò´Þ¤Þ¤Ê¤¤(_¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL). ÆÃÄê¤ÎURL¤ÎÍ×ÁǤò´Þ¤Þ¤Ê¤¤(_¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL) :- \+(ÆÃÄê¤ÎURL¤ÎÍ×ÁǤò´Þ¤à(_¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL)). ¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL(URL,_¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL) :- Éûʸ»úÎó(URL,_,_¥×¥í¥È¥³¥ë,_¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL), member(_¥×¥í¥È¥³¥ë,['http','HTTP','ftp','FTP','mailto']). ÆÃÄê¤ÎURL¤ÎÍ×ÁǤò´Þ¤à(_¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL) :- ¹àÌܶèÀÚ¤ê(_¥×¥í¥È¥³¥ë¤ò½ü¤¤¤¿URL,[' ','&','?','/','://','/'],_Í×ÁǤʤé¤Ó), ÆÃÄê¤ÎURL¤ÎÍ×ÁǤÏÍ×ÁǤʤé¤Ó¤Ëɬ¤º´Þ¤Þ¤ì¤ë(_Í×ÁǤʤé¤Ó). ÆÃÄê¤ÎURL¤ÎÍ×ÁǤÏÍ×ÁǤʤé¤Ó¤Ëɬ¤º´Þ¤Þ¤ì¤ë(_Í×ÁǤʤé¤Ó) :- forall(ÆÃÄê¤ÎURL¤ÎÍ×ÁÇ(_ÆÃÄê¤ÎURL¤ÎÍ×ÁÇ),member(_ÆÃÄê¤ÎURL¤ÎÍ×ÁÇ,_Í×ÁǤʤé¤Ó)). ÆÃÄê¤ÎURL¤ÎÍ×ÁÇ('mt=8'). ÆÃÄê¤ÎURL¤ÎÍ×ÁÇ(hanabi). ¹àÌܶèÀÚ¤ê(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- ¹àÌܶèÀÚ¤ê(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_»È¤ï¤ì¤Æ¤¤¤ë¶èÀÚ¤êʸ»ú¤Ê¤é¤Ó,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó). ¹àÌܶèÀÚ¤ê(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_»È¤ï¤ì¤Æ¤¤¤ë¶èÀÚ¤êʸ»ú¤Ê¤é¤Ó,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- ÀèÆ¬¤«¤é¶èÀÚ¤êʸ»úÎó¤Ç¶èÀڤäƹԤ¯(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_»È¤ï¤ì¤Æ¤¤¤ë¶èÀÚ¤êʸ»ú¤Ê¤é¤Ó,_¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤Ê¤é¤Ó),!. ¹àÌܶèÀÚ¤ê(_ʸ»úÎó,_,[],[_ʸ»úÎó]). ÀèÆ¬¤«¤é¶èÀÚ¤êʸ»úÎó¤Ç¶èÀڤäƹԤ¯(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,[_¶èÀÚ¤êʸ»úÎó|R1],[_Á°Ê¸»úÎó|R2]) :- '¶èÀÚ¤êʸ»úÎó¤ÇÁ°Ê¸»úÎ󡢸åʸ»úÎó¤Ë¶èÀÚ¤ë'(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_Á°Ê¸»úÎó,_¶èÀÚ¤êʸ»úÎó,_¸åʸ»úÎó), ¹àÌܶèÀÚ¤ê(_¸åʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,R1,R2). '¶èÀÚ¤êʸ»úÎó¤ÇÁ°Ê¸»úÎ󡢸åʸ»úÎó¤Ë¶èÀÚ¤ë'(_ʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó,_Á°Ê¸»úÎó,_¶èÀÚ¤êʸ»úÎó,_¸åʸ»úÎó) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_¶èÀÚ¤êʸ»úÎó,_¸åʸ»úÎó), member(_¶èÀÚ¤êʸ»úÎó,_¶èÀÚ¤êʸ»úÎó¤Ê¤é¤Ó). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). ʸ»úÎó¤Ê¤é¤Ó¤ÎÃæ¤Ç¿ôÃͤËÊÑ´¹²Äǽ¤Ê¤â¤Î¤ÏÊÑ´¹¤¹¤ë(_ʸ»úÎó¤Ê¤é¤Ó,_¹àÌܤʤé¤Ó) :- findall(_¹àÌÜ,( ʸ»úÎó¤ò¼è¤ê½Ð¤·¿ôÃͤËÊÑ´¹²Äǽ¤Ê¤â¤Î¤ÏÊÑ´¹¤¹¤ë(_ʸ»úÎó¤Ê¤é¤Ó,_¹àÌÜ)),_¹àÌܤʤé¤Ó). ʸ»úÎó¤ò¼è¤ê½Ð¤·¿ôÃͤËÊÑ´¹²Äǽ¤Ê¤â¤Î¤ÏÊÑ´¹¤¹¤ë(_ʸ»úÎó¤Ê¤é¤Ó,_¹àÌÜ) :- member(_ʸ»úÎó,_ʸ»úÎó¤Ê¤é¤Ó), ¿ôÃͤËÊÑ´¹²Äǽ¤Ê¤â¤Î¤ÏÊÑ´¹¤¹¤ë(_ʸ»úÎó,_¹àÌÜ). ¿ôÃͤËÊÑ´¹²Äǽ¤Ê¤â¤Î¤ÏÊÑ´¹¤¹¤ë(_ʸ»úÎó,_¹àÌÜ) :- atom_number(_ʸ»úÎó,_¹àÌÜ),!. ¿ôÃͤËÊÑ´¹²Äǽ¤Ê¤â¤Î¤ÏÊÑ´¹¤¹¤ë(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/24 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C#.Net # # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # # ¡üÂоݥǡ¼¥¿ # data # (data # data) # (data) # Xdata # dataY # # ¡ü´õ˾¤¹¤ë·ë²Ì # data # # # data¤¬()XY°Ê³°¤ÈÎÙÀܤ·¤Æ¤¤¤ë¾ì¹ç¤Ï¸¡º÷¤ò°ìÃפµ¤»¤¿¤¯¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢ # ¤½¤ì¤¬Ã桹¤Ç¤¤Þ¤»¤ó¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # 'data¤¬()XY°Ê³°¤ÈÎÙÀܤ·¤Æ¤¤¤ë¾ì¹ç¤Ï¸¡º÷¤ò°ìÃפµ¤»¤¿¤¯¤Ê¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,data,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,data,_¸åʸ»úÎó,L1,L2,[A|R3]), \+(append(_,[A|_],['(',')','X','Y'])), \+((last(L1,B),append(_,[B|_],['(',')','X','Y']))). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/19 # ·«¤êÊÖ¤·¤Î½èÍý¤Ïʬ¤«¤ë¤Î¤ÇÀµµ¬É½¸½¤Î½ñ¤Êý¤ò¶µ¤¨¤ÆÄº¤¤¿¤¤¤Ç¤¹¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # VB.NET2003 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ²Ìʪ¤Î̾Á°¤ò¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # È¢¤Î¿§¡¦È¢A/ÎС¢È¢B/Üô¡¢È¢C/²«¡¢È¢D/ÀÖ # È¢¤ÎÃæ¿È¡¦È¢A/¥á¥í¥ó¡¢È¢B/¤ß¤«¤ó¡¢È¢C/¥Ð¥Ê¥Ê¡¢È¢D/¤ê¤ó¤´ # È¢¤ÎÂ礤µ¡¦È¢A/£±00cm¡¢È¢B/120cm¡¢È¢C/140cm¡¢È¢D/160cm # # ¡ü´õ˾¤¹¤ë·ë²Ì # ¥á¥í¥ó # ¤ß¤«¤ó # ¥Ð¥Ê¥Ê # ¤ê¤ó¤´ # Âоݥǡ¼¥¿('È¢¤Î¿§¡¦È¢A/ÎС¢È¢B/Üô¡¢È¢C/²«¡¢È¢D/ÀÖ\nÈ¢¤ÎÃæ¿È¡¦È¢A/¥á¥í¥ó¡¢È¢B/¤ß¤«¤ó¡¢È¢C/¥Ð¥Ê¥Ê¡¢È¢D/¤ê¤ó¤´\nÈ¢¤ÎÂ礤µ¡¦È¢A/£±00cm¡¢È¢B/120cm¡¢È¢C/140cm¡¢È¢D/160cm\n'). ²Ìʪ¤Î̾Á°¤ò¸¡º÷¤·¤¿¤¤(_´õ˾¤¹¤ë·ë²Ì) :- Âоݥǡ¼¥¿(_Âоݥǡ¼¥¿), split(_Âоݥǡ¼¥¿,['\n'],Lines), append(_,[Line|R],Lines), sub_atom(Line,0,4,_,È¢¤ÎÃæ¿È), sPLIT(Line,['¡¦','¡¢','/'],L2), append(_,['/',_´õ˾¤¹¤ë·ë²Ì|_],L2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/15 # Excel¤ÎÃÖ´¹¤Ç¡¢ # ¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ò¡¢¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ÎºÇ½é¤Î°ìʸ»ú¤ÇÃÖ´¹¤·¤¿¤¤¤Ç¤¹¡£ # # ¤¿¤È¤¨¤Ð¡¢ # # ¤ê¤ó¤´ # ¤´¤ê¤é # ¤Ü¡¼¤ë # # ¤À¤È¡¢ # # ¤ê # ¤´ # ¤Ü # # ¤ËÃÖ´¹¤·¤¿¤¤¤Ç¤¹¡£ # ÃÖ´¹Á°¤ÎÀµµ¬É½¸½¤È¡¢ÃÖ´¹¸å¤ÎÀµµ¬É½¸½¤Ï¤É¤Î¤è¤¦¤Ë¤¹¤ì¤Ð¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡© # # ¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ò¡¢¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ÎºÇ½é¤Î°ìʸ»ú¤ÇÃÖ´¹¤¹¤ë(_ʸ»úÎó,_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó_1,S3,L1,L2,L3), ¸¡º÷¾ò·ï(_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó_1), sub_atom(_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó_1,0,1,_,_ºÇ½é¤Î°ìʸ»ú), concat_atom([S1,_ºÇ½é¤Î°ìʸ»ú,S3],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_1), ¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ò¡¢¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ÎºÇ½é¤Î°ìʸ»ú¤ÇÃÖ´¹¤¹¤ë(_ʸ»úÎó,S1,_ºÇ½é¤Î°ìʸ»ú,S3,_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó_1,_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_1,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ò¡¢¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ÎºÇ½é¤Î°ìʸ»ú¤ÇÃÖ´¹¤¹¤ë(_ʸ»úÎó,_,_,_,_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó,_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). ¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ò¡¢¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ÎºÇ½é¤Î°ìʸ»ú¤ÇÃÖ´¹¤¹¤ë(_ʸ»úÎó,S1,_ºÇ½é¤Î°ìʸ»ú,S3,_,_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó,_,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- ¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ò¡¢¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó¤ÎºÇ½é¤Î°ìʸ»ú¤ÇÃÖ´¹¤¹¤ë(S3,_¥Þ¥Ã¥Á¤·¤¿Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2), concat_atom([S1,_ºÇ½é¤Î°ìʸ»ú,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó_2],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # http://hibari.2ch.net/test/read.cgi/tech/1301067486/12 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ½¨´Ý¡ÊÊ£¿ô¹ÔÃÖ´¹¡Ë # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # ¡üÀâÌÀ # ¾å2¹Ô¤Ï¾ò·ïÉÕ¤±¤Î°Ù¤Ë¸¡º÷»þ¤ËɬÍפˤʤꡢÃÖ´¹»þ¤Ï style=0 ¤Î¤ß style=2 ¤Ø # Êѹ¹¤·¤¿¤¤¤Ç¤¹¡£ # # ¡üÂоݥǡ¼¥¿ # name=Relative # color=#000000 # style=0 # # ¡ü´õ˾¤¹¤ë·ë²Ì # name=Relative # color=#000000 # style=2 # # ******************************************** # ²¼¤Î¤è¤¦¤Ëname¤Ècolor¤ÏÃͤ¬ÊѤï¤ë¤Î¤Ç.*¤È¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢ # ÃÖ´¹Ê¸¤ÎÃÖ´¹»þ¤ËÊѹ¹¤·¤Ê¤¤¤È¤¤¤¦½ñ¤Êý¤¬Ê¬¤«¤ê¤Þ¤»¤ó¡£ # ʬ¤«¤ëÊý¤ª¤ê¤Þ¤·¤¿¤é¶µ¤¨¤Æ²¼¤µ¤¤¤Þ¤»¡£ # # [¸¡º÷¾ò·ï] # name=.* # color=.* # style=0 # # [ÃÖ´¹Ê¸] # name= # color= # style=2 # # '¾å2¹Ô¤Ï¾ò·ïÉÕ¤±¤Î°Ù¤Ë¸¡º÷»þ¤ËɬÍפˤʤꡢÃÖ´¹»þ¤Ï style=0 ¤Î¤ß style=2 ¤Ø Êѹ¹¤·¤¿¤¤'(_ʸ»úÎó,_Êѹ¹Ê¸»úÎó) :- \+(list(_ʸ»úÎó)), split(_ʸ»úÎó,['\n'],Liens), '¾å2¹Ô¤Ï¾ò·ïÉÕ¤±¤Î°Ù¤Ë¸¡º÷»þ¤ËɬÍפˤʤꡢÃÖ´¹»þ¤Ï style=0 ¤Î¤ß style=2 ¤Ø Êѹ¹¤·¤¿¤¤'(Lines1,Lines2), concat_atom(Lines2,'\n',_Êѹ¹Ê¸»úÎó). '¾å2¹Ô¤Ï¾ò·ïÉÕ¤±¤Î°Ù¤Ë¸¡º÷»þ¤ËɬÍפˤʤꡢÃÖ´¹»þ¤Ï style=0 ¤Î¤ß style=2 ¤Ø Êѹ¹¤·¤¿¤¤'(Lines1,Lines2) :- list(Lines1), append(L0,[Line1,Line2,'style=0'|R],Lines), sub_atom(Line1,0,5,_,'name='), sub_atom(Line2,0,6,_,'color='), append(L0,[Line1,Line2,'style=2'|R],Lines2), '¾å2¹Ô¤Ï¾ò·ïÉÕ¤±¤Î°Ù¤Ë¸¡º÷»þ¤ËɬÍפˤʤꡢÃÖ´¹»þ¤Ï style=0 ¤Î¤ß style=2 ¤Ø Êѹ¹¤·¤¿¤¤'(R,Lines3), append(Lines2,Lines3,Lines),!. '¾å2¹Ô¤Ï¾ò·ïÉÕ¤±¤Î°Ù¤Ë¸¡º÷»þ¤ËɬÍפˤʤꡢÃÖ´¹»þ¤Ï style=0 ¤Î¤ß style=2 ¤Ø Êѹ¹¤·¤¿¤¤'(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1301067486/9 # ¤É¤Ê¤¿¤«¤´¶µ¼ø¤¯¤À¤µ¤¤¡¦¡¦¡¦ # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # EmEditor # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ¸°¥«¥Ã¥³Æâ¤Îʸ»úÎó¤ÈÁ°Êý¤Îʸ»úÎó¤òÆþ¤ìÂØ¤¨¤¿¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # AAA¡ÖBBB¡×/CCC¡ÖDDD¡×/EEE¡ÖFFF¡×¡ÄYYY¡ÖZZZ¡× # # ¡ü´õ˾¤¹¤ë·ë²Ì # BBB¡ÖAAA¡×/DDD¡ÖCCC¡×/FFF¡ÖEEE¡×¡ÄZZZ¡ÖYYY¡× # # ¸°¥«¥Ã¥³Æâ¤Îʸ»úÎó¤ÈÁ°Êý¤Îʸ»úÎó¤òÆþ¤ìÂØ¤¨¤¿¤¤¡£(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- ÃÖ´¹Éôʬ¤Î³ÎÄê(_ʸ»úÎó,S1,S2,S3,R1,R2,R3,_Á°Ê¸»úÎó,_¸åʸ»úÎó), ¸°¥«¥Ã¥³Æâ¤Îʸ»úÎó¤ÈÁ°Êý¤Îʸ»úÎó¤òÆþ¤ìÂØ¤¨¤¿¤¤¡£(_¸åʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤ÎÆó), concat_atom([_Á°Ê¸»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó¤ÎÆó],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. ¸°¥«¥Ã¥³Æâ¤Îʸ»úÎó¤ÈÁ°Êý¤Îʸ»úÎó¤òÆþ¤ìÂØ¤¨¤¿¤¤¡£(_ʸ»úÎó,_ʸ»úÎó) :- !. ÃÖ´¹Éôʬ¤Î³ÎÄê(_ʸ»úÎó,S1,S2,S3,R1,R2,R3,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,[/|R1],[¡Ö|R2],[¡×|R3]), \+(append(_,[¡×|_],R1), append([/|R2],[¡Ö|R1],[¡×],L0), atom_chars(_Á°Ê¸»úÎó,L0), atom_chars(_¸åʸ»úÎó,R3),!. ÃÖ´¹Éôʬ¤Î³ÎÄê(_ʸ»úÎó,S1,S2,S3,R1,R2,R3,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,[¡Ö|R2],[¡×|R3]), \+(append(_,[¡×|_],R1), append(R2,[¡Ö|L1],[¡×],L0), atom_chars(_Á°Ê¸»úÎó,L0), atom_chars(_¸åʸ»úÎó,R3),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/974 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # linux ¥³¥Þ¥ó¥É¥é¥¤¥ó¤Î grep # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ËöÈø¤¬°ìÃפ·¤Æ¤¤¤ÆÅÓÃæ¤¬°ã¤¦Ê¸»úÎó¤Î¤¦¤Á¡¢ÆÃÄê¤Î¥Ñ¥¿¡¼¥ó¤ò½üµî¤·¤¿½¸¹ç¤ò¼èÆÀ¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # aaabbbccc¤¢¤¢¤¢¤¤¤¤¤¤ # aaabbbccc¤¦¤¦¤¦¤¤¤¤¤¤ # aaabbbccc¤¨¤¨¤¨¤¤¤¤¤¤ # # ¡ü´õ˾¤¹¤ë·ë²Ì # aaabbbccc¤¦¤¦¤¦¤¤¤¤¤¤ # aaabbbccc¤¨¤¨¤¨¤¤¤¤¤¤ # # ¡ÖÀâÌÀ¡×¤¬¤¦¤Þ¤¯½ñ¤±¤Ê¤¤¤Î¤Ç¤¹¤¬¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # ËöÈø¤¬°ìÃפ·¤Æ¤¤¤ÆÅÓÃæ¤¬°ã¤¦Ê¸»úÎó¤Î¤¦¤Á¡¢ÆÃÄê¤Î¥Ñ¥¿¡¼¥ó¤ò½üµî¤·¤¿½¸¹ç¤ò¼èÆÀ¤·¤¿¤¤(_ʸ»úÎó¤Ê¤é¤Ó,_ÂоÝʸ»úÎó,_ÆÃÄê¤Î¥Ñ¥¿¡¼¥ó,_ËöÈøÉôʬ,_ÆÃÄê¥Ñ¥¿¡¼¥ó¤ò½üµî¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó) :- findall(_ʸ»úÎó,( sub_atom(_ʸ»úÎó,S,_,0,_ËöÈøÉôʬ), sub_atom(_ʸ»úÎó,0,S,_,_ÂоÝʸ»úÎó), \+(call(_ÆÃÄê¥Ñ¥¿¡¼¥ó))), _ÆÃÄê¥Ñ¥¿¡¼¥ó¤ò½üµî¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó). % % _ÆÃÄê¥Ñ¥¿¡¼¥ó½Ò¸ì¤Î°ú¿ô¤Ëɬ¤º_ÂоÝʸ»úÎó¤ò»ý¤Ä¤³¤È %¡¡Î㤨¤Ð¡¢ ºï½ü¥Ñ¥¿¡¼¥ó(_ÂоÝʸ»úÎó) :- sub_atom(_ÂоÝʸ»úÎó,_,_,_,¤¢¤¢¤¢). ?- _Âоݥǡ¼¥¿ = [aaabbbccc¤¢¤¢¤¢¤¤¤¤¤¤,aaabbbccc¤¦¤¦¤¦¤¤¤¤¤¤,aaabbbccc¤¨¤¨¤¨¤¤¤¤¤¤], ËöÈø¤¬°ìÃפ·¤Æ¤¤¤ÆÅÓÃæ¤¬°ã¤¦Ê¸»úÎó¤Î¤¦¤Á¡¢ÆÃÄê¤Î¥Ñ¥¿¡¼¥ó¤ò½üµî¤·¤¿½¸¹ç¤ò¼èÆÀ¤·¤¿¤¤(_Âоݥǡ¼¥¿,_ÂоÝʸ»úÎó,ºï½ü¥Ñ¥¿¡¼¥ó(_ÂоÝʸ»úÎó),¤¤¤¤¤¤,_ÆÃÄê¥Ñ¥¿¡¼¥ó¤ò½üµî¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó). _ÆÃÄê¥Ñ¥¿¡¼¥ó¤ò½üµî¤·¤¿Ê¸»úÎó¤Ê¤é¤Ó = [aaabbbccc¤¦¤¦¤¦¤¤¤¤¤¤,aaabbbccc¤¨¤¨¤¨¤¤¤¤¤¤]. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/968 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Perl # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ½ÅÊ£¤¹¤ëʸ»úÎó¤È¶èÀÚ¤êʸ»ú¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # aaa;bbb;ccc;bbb;¤¢¤¢¤¢;aaa;¤¢¤¢¤¢;¤¤¤¤¤¤ # # ¡ü´õ˾¤¹¤ë·ë²Ì # aaabbbccc¤¢¤¢¤¢¤¤¤¤¤¤ # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # ½ÅÊ£¤¹¤ëʸ»úÎó¤È¶èÀÚ¤êʸ»ú¤òºï½ü¤·¤¿¤¤(_ʸ»úÎó,_½ÅÊ£¤¹¤ëʸ»úÎó¤È¶èÀÚ¤êʸ»ú¤òºï½ü¤·¤¿Ê¸»úÎó) :- split(_ʸ»úÎó,[' ',',','/',':',';'],_¶èÀÚ¤é¤ì¤¿Í×ÁǤʤé¤Ó), ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯(_¶èÀÚ¤é¤ì¤¿Í×ÁǤʤé¤Ó,[],_½ÅÊ£¤ò¼è¤ê½ü¤¤¤¿¶èÀÚ¤é¤ì¤¿Í×ÁǤʤé¤Ó), concat_atom(_½ÅÊ£¤ò¼è¤ê½ü¤¤¤¿¶èÀÚ¤é¤ì¤¿Í×ÁǤʤé¤Ó,_½ÅÊ£¤¹¤ëʸ»úÎó¤È¶èÀÚ¤êʸ»ú¤òºï½ü¤·¤¿Ê¸»úÎó). ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯([],L,L) :- !. ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯([A|R1],L1,L) :- append(_,[A|_],L1), ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯(R1,L1,L),!. ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯([A|R1],L1,L) :- append(L1,[A],L2), ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯(R1,L2,L),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/968 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Perl # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # ½ÅÊ£¤¹¤ëʸ»úÎó¤È¶èÀÚ¤êʸ»ú¤òºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # aaa;bbb;ccc;bbb;¤¢¤¢¤¢;aaa;¤¢¤¢¤¢;¤¤¤¤¤¤ # # ¡ü´õ˾¤¹¤ë·ë²Ì # aaa;bbb;ccc;¤¢¤¢¤¢;¤¤¤¤¤¤ # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # ¶èÀÚ¤êʸ»ú¤ò½ü¤¯½ÅÊ£¤¹¤ëʸ»úÎó¤È¶èÀÚ¤êʸ»ú¤òºï½ü¤·¤¿¤¤(_ʸ»úÎó,_¶èÀÚ¤êʸ»ú,_½ÅÊ£¤¹¤ëʸ»úÎó¤È¶èÀÚ¤êʸ»ú¤òºï½ü¤·¤¿Ê¸»úÎó) :- split(_ʸ»úÎó,[_¶èÀÚ¤êʸ»ú],_¶èÀÚ¤é¤ì¤¿Í×ÁǤʤé¤Ó), ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯(_¶èÀÚ¤é¤ì¤¿Í×ÁǤʤé¤Ó,[],_½ÅÊ£¤ò¼è¤ê½ü¤¤¤¿¶èÀÚ¤é¤ì¤¿Í×ÁǤʤé¤Ó), concat_atom(_½ÅÊ£¤ò¼è¤ê½ü¤¤¤¿¶èÀÚ¤é¤ì¤¿Í×ÁǤʤé¤Ó,_¶èÀÚ¤êʸ»ú,_½ÅÊ£¤¹¤ëʸ»úÎó¤È¶èÀÚ¤êʸ»ú¤òºï½ü¤·¤¿Ê¸»úÎó). ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯([],L,L) :- !. ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯([A|R1],L1,L) :- append(_,[A|_],L1), ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯(R1,L1,L),!. ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯([A|R1],L1,L) :- append(L1,[A],L2), ½Ð¸½½ç½ø¤òÊø¤µ¤º½ÅÊ£¤ò¼è¤ê½ü¤¯(R1,L2,L),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/946 # 16¿Ê¿ô¤ò2·å¤Å¤Ä¤Ëʬ²ò¤¹¤ëÀµµ¬É½¸½¤Ã¤Æ # Î㤨¤Ð # '5d8ce34a7dbaab' # ¤ò # ['5d', '8c', 'e3', '4a', '7d', 'ba', 'ab'] # ¤È¤¤¤¦¥ê¥¹¥È¤Ë¤·¤¿¤¤¾ì¹ç # ([0-9A-Fa-f]{2}){7} # ¤¸¤ã¤À¤á¤Ê¤ó¤Ç¤·¤ç¤¦¤«¡© # # '16¿Ê¿ô¤ò2·å¤Å¤Ä¤Ëʬ²ò¤¹¤ë'('',[]) :- !. '16¿Ê¿ô¤ò2·å¤Å¤Ä¤Ëʬ²ò¤¹¤ë'(_16¿Êʸ»úÎó,[X|R]) :- sub_atom(_16¿Êʸ»úÎó,0,2,_»Ä¤êŤµ,X), sub_atom(_16¿Êʸ»úÎó,2,_»Ä¤êŤµ,_,_16¿Êʸ»úÎó¤ÎÆó), '16¿Ê¿ô¤ò2·å¤Å¤Ä¤Ëʬ²ò¤¹¤ë'(_16¿Êʸ»úÎó¤ÎÆó,R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/932 # ¤ªÃηäò¤ªÂߤ·¤¯¤À¤µ¤¤¡Ä¡ª¤É¤¦¤«¤ª¾Ü¤·¤¤Êý¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹m(__)m # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # VBScript # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¥á¡¼¥ë¥¢¥É¥ì¥¹¤ò¥Á¥§¥Ã¥¯¤·¤¿¤¤ # £±¡¥¥á¡¼¥ë¤Ï1¤Ä¤«¡¢Ê£¿ô # £²¡¥Ê£¿ô¥á¡¼¥ë¤Ï¥«¥ó¥Þ¤Ç¶èÀÚ¤é¤ì¤ë # £³¡¥¥«¥ó¥Þ¤Îľ¸å¤Ë¥¹¥Ú¡¼¥¹¤¬Æþ¤ë¤«¤â # £´¡¥¥á¡¼¥ë¤Î@°Ê¹ß¤Ï¸ÇÄê(´Ö°ã¤Ã¤ÆÊѤʰ¸Àè¤ËÁ÷¤é¤Ê¤¤¤¿¤á) # £µ¡¥@¤è¤êÁ°¤Ï¤Æ¤¤È¤¦ # # ¤Ä¤Å¤¯ # # # ¥á¡¼¥ë¥¢¥É¥ì¥¹¸¡º÷(_ʸ»úÎó,_¥á¡¼¥ë¥¢¥É¥ì¥¹) :- split(_ʸ»úÎó,[',',' ','\n'],L), append(_,[_¥á¡¼¥ë¥¢¥É¥ì¥¹|R],L), sub_atom(_¥á¡¼¥ë¥¢¥É¥ì¥¹,_,_,_,S1,S2,S3,L1,['@'|R2],L3), R = []. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/908 # ¡ü¼ÂÁõ¤·¤è¤¦¤È¤·¤Æ¤¤¤ëÀµµ¬É½¸½ # ^(\d{1,6})(\.\d+)?$ # # PHP¤Îpreg_match¤Ç¤¤¤¨¤Ð # preg_match (/^(\d{1,6})(\.\d+)?$/, $subject) # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP 5.2 # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # À°¿ôÉô¤¬6·å¤Þ¤Ç¤Î¿ôÃͤòµö²Ä¡£ # ¾®¿ôÅÀ¤ò´Þ¤àÆþÎϤòµö²Ä¡£ # ¾®¿ôÅÀ°Ê²¼¤ÏÆÃ¤ËÀ©¸Â¤·¤Ê¤¤¡ÊDB¦¤Î´Ý¤á½èÍý¤Ë°Í¸¡Ë # # 1234567¡¡¡¡¡ß # 123456.¡¡¡¡¡ß # 123456.1¡¡_OK # 1.1¡¡¡¡¡¡¡¡OK # 0.12ޥޥ89¡¡_OK # # ¡üÂоݥǡ¼¥¿ # ÀâÌÀ¤Î¹à¤ò»²¾È # ¡ü´õ˾¤¹¤ë·ë²Ì # ÀâÌÀ¤Î¹à¤ò»²¾È # 'À°¿ôÉô¤¬6·å¤Þ¤Ç¤Î¿ôÃͤòµö²Ä¡£¾®¿ôÅÀ¤ò´Þ¤àÆþÎϤòµö²Ä¡£¾®¿ôÅÀ°Ê²¼¤ÏÆÃ¤ËÀ©¸Â¤·¤Ê¤¤¡ÊDB¦¤Î´Ý¤á½èÍý¤Ë°Í¸¡Ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,¸åʸ»úÎó,L1,L2,L3), µö²Ä¤µ¤ì¤ëʸ»ú¤À¤±¤Ç¹½À®(L2), ºÇ½é¤ÈºÇ¸å¤Ï¿ô»ú¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤(L2), ¸¡º÷ʸ»úÎó¤ÎÁ°¸å¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(L1,L3), À°¿ôÉô¤¬6·å¤Þ¤Ç(L2). µö²Ä¤µ¤ì¤ëʸ»ú¤À¤±¤Ç¹½À®(L2) :- append(_,[A|_],L2), \+(¸¡º÷ʸ»úÎó¤Çµö²Ä¤µ¤ì¤ëʸ»ú(A)),!,fail. µö²Ä¤µ¤ì¤ëʸ»ú¤À¤±¤Ç¹½À®(_). ¸¡º÷ʸ»úÎó¤Çµö²Ä¤µ¤ì¤ëʸ»ú(A) :- digit(A),!. ¸¡º÷ʸ»úÎó¤Çµö²Ä¤µ¤ì¤ëʸ»ú('.'). ºÇ½é¤ÈºÇ¸å¤Ï¿ô»ú¤Ç¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤(L2) :- L2 = [H|_], digit(H), last(L2,LZ), digit(LZ). ¸¡º÷ʸ»úÎó¤ÎÁ°¸å¤Ï¿ô»ú¤Ç¤Ï¤Ê¤¤(L1,L3) :- \+((last(L1,Z),digit(Z))), \+((L3=[H|_],digit(H))). À°¿ôÉô¤¬6·å¤Þ¤Ç(L) :- append(L0,['.'|R],L), ¥Ô¥ê¥ª¥É¤Ï°ì¸Ä¤Þ¤Ç(L0,R), '6·å°Ê²¼'(L0). À°¿ôÉô¤¬6·å¤Þ¤Ç(L) :- '6·å°Ê²¼'(L). ¥Ô¥ê¥ª¥É¤Ï°ì¸Ä¤Þ¤Ç(L0,R) :- \+(append(_,['.'|_],L0)), \+(append(_,['.'|_],R)). '6·å°Ê²¼'(L0) :- length(L0,Len), Len =< 6,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/906 # ¡ü¼ÂÁõ¤·¤è¤¦¤È¤·¤Æ¤¤¤ëÀµµ¬É½¸½ # ^[0][1-9]$|^[1-9]\d$ # # PHP¤Îpreg_match¤Ç¤¤¤¨¤Ð # preg_match (/^[0][1-9]$|^[1-9]\d$/, $subject) # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP 5.2 # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # 2·å¤Î·î¤Ç00¤Î¤ß¤ò½ü³°¤·¤¿¤¤¡£ # # 00¡¡¡¡¡¡¡ß # 01¡Á12¡¡OK¡Ê13¡Á99¤Ï¾¤ÎÊýË¡¤Ç½ü³°¤·¤Æ¤¤¤Þ¤¹¡Ë # # ¡üÂоݥǡ¼¥¿ # ÀâÌÀ¤Î¹à¤ò»²¾È # ¡ü´õ˾¤¹¤ë·ë²Ì # ÀâÌÀ¤Î¹à¤ò»²¾È # # # '2·å¤Î·î¤Ç00¤Î¤ß¤ò½ü³°¤·¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,¸åʸ»úÎó,L1,[A,B],L3), digit(A), digit(B), \+((A='0',B='0')), \+((last(L1,Z),digit(Z))), \+((L3=[H|_],digit(H))). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/905 # ¡ü¼ÂÁõ¤·¤è¤¦¤È¤·¤Æ¤¤¤ëÀµµ¬É½¸½ # ^[1-9]\d{3}$ # # PHP¤Îpreg_match¤Ç¤¤¤¨¤Ð # preg_match (/^[1-9]\d{3}$/, $subject) # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP 5.2 # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # ¡üÀâÌÀ # 4·å¤ÎÀ¾¤Ç0000¤Î¤ß¤ò½ü³°¤·¤¿¤¤¡£ # À¾Îñ1Ëüǯ¡Ê10000¡Ë°Ê¾å¤Ï¹Íθ¤·¤Ê¤¤ # # 0000¡¡¡ß # 1000¡Á9999¡¡¡û # # ¡üÂоݥǡ¼¥¿ # ÀâÌÀ¤Î¹à¤ò»²¾È # ¡ü´õ˾¤¹¤ë·ë²Ì # ÀâÌÀ¤Î¹à¤ò»²¾È # # # '4·å¤ÎÀ¾Îñ¤Ç0000¤Î¤ß¤ò½ü³°¤·¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_¸¡º÷ʸ»úÎó,¸åʸ»úÎó,L1,[A,B,C,D],L3), digit(A), digit(B), digit(C), digit(D), \+((A='0',B='0',C='0',D='0')), \+((last(L1,Z),digit(Z))), \+((L3=[H|_],digit(H))). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part7 #889 # Î㤨¤Ð¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Ï # ñ¤Ë/"[^"]*"/¤Ç¥Þ¥Ã¥Á¤Ç¤¤ë¤±¤É¡¢Ê¸»úÎó°Ê³°¤ÎÉôʬ¤ò¥Þ¥Ã¥Á¤µ¤»¤ë¤Ë¤Ï # ¤É¤¦¤¹¤ì¤Ð¤¤¤¤ # '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Ë¡¢Ê¸»úÎó°Ê³°¤ÎÉôʬ¤ò¥Þ¥Ã¥Á¤µ¤»¤ë'(_ʸ»úÎó,_ʸ»úÎó°Ê³°¤ÎÉôʬ) :- ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Îʸ»úÎó°Ê³°¤ÎÉôʬ(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸åʸ»úÎó),!, '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Ë¡¢Ê¸»úÎó°Ê³°¤ÎÉôʬ¤ò¥Þ¥Ã¥Á¤µ¤»¤ë'(_Á°Ê¸»úÎó,_¸åʸ»úÎó,_ʸ»úÎó°Ê³°¤ÎÉôʬ). '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Ë¡¢Ê¸»úÎó°Ê³°¤ÎÉôʬ¤ò¥Þ¥Ã¥Á¤µ¤»¤ë'(_ʸ»úÎó°Ê³°¤ÎÉôʬ,_ʸ»úÎó°Ê³°¤ÎÉôʬ). ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Îʸ»úÎó°Ê³°¤ÎÉôʬ(_ʸ»úÎó,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó), ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Îʸ»úÎ󤬤³¤³¤Ç¤ÎÉûʸ»úÎó(_Éûʸ»úÎó). ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Îʸ»úÎ󤬤³¤³¤Ç¤ÎÉûʸ»úÎó(_Éûʸ»úÎó) :- ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Ê¸»úÎó¤È¤ÏºÇ½é¤Îʸ»ú¤ÈºÇ¸å¤Îʸ»ú¤¬¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç¤¢¤ëʸ»úÎó(_Éûʸ»úÎó), ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÆâ¦¤Îʸ»úÎó¤Ë¤Ï¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ï¸ºß¤·¤Ê¤¤(_Éûʸ»úÎó). ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Ê¸»úÎó¤È¤ÏºÇ½é¤Îʸ»ú¤ÈºÇ¸å¤Îʸ»ú¤¬¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç¤¢¤ëʸ»úÎó(_Éûʸ»úÎó) :- sub_atom(_Éûʸ»úÎó,0,1,_,'"'), sub_atom(_Éûʸ»úÎó,_,1,0,'"'). ¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÆâ¦¤Îʸ»úÎó¤Ë¤Ï¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ï¸ºß¤·¤Ê¤¤(_Éûʸ»úÎó) :- sub_atom(_Éûʸ»úÎó,1,_,1,_¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÆâ¦¤Îʸ»úÎó), \+(sub_atom(_¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤ÎÆâ¦¤Îʸ»úÎó,_,1,_,'"')). '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Ë¡¢Ê¸»úÎó°Ê³°¤ÎÉôʬ¤ò¥Þ¥Ã¥Á¤µ¤»¤ë'(_ʸ»úÎó°Ê³°¤ÎÉôʬ,_,_ʸ»úÎó°Ê³°¤ÎÉôʬ). '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Ë¡¢Ê¸»úÎó°Ê³°¤ÎÉôʬ¤ò¥Þ¥Ã¥Á¤µ¤»¤ë'(_,_¸åʸ»úÎó,_ʸ»úÎó°Ê³°¤ÎÉôʬ) :- '¥À¥Ö¥ë¥¯¥©¡¼¥Æ¡¼¥·¥ç¥ó¤Ç³ç¤Ã¤¿Éôʬ¤¬Ê¸»úÎó¤È¤¹¤ë¾ì¹ç¤Ë¡¢Ê¸»úÎó°Ê³°¤ÎÉôʬ¤ò¥Þ¥Ã¥Á¤µ¤»¤ë'(_¸åʸ»úÎó,_ʸ»úÎó°Ê³°¤ÎÉôʬ). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/702 # ¼¡¤ÎÀµµ¬É½¸½¤Çhoge¥Õ¥©¥ë¥À°Ê²¼¤ÎºÇ¸å¤Î¡Ö/¡×¤Î¸å¤Ë¡Öi/¡×¤¬¶´¤Þ¤ë¤è¤¦¤ËURL¤òÊÑ´¹¤·¤Æ¤ª¤ê¤Þ¤¹¡£ # # RewriteRule ^/hoge(.*)/(.*).html$ http://ime.nu/example.com/hoge/$1/i/$2.html¡¡[L] # # # # ²¼µ¤Î¤è¤¦¤Ê¾ì¹ç¤ÏÌäÂê¤Ê¤¤¤Î¤Ç¤¹¤¬ # # http://ime.nu/example.com/hoge¡¡¢ª¡¡http://ime.nu/example.com/hoge/i/ # http://ime.nu/example.com/hoge/saitama/2011/01/index.html¡¡¢ª¡¡http://ime.nu/example.com/hoge/saitama/2011/01/i/index.html # # # # ¢¤Î¤è¤¦¤Ëhoge¤Ç»Ï¤Þ¤ë¥Ç¥£¥ì¥¯¥È¥ê¤Þ¤Ç¤âÊÑ´¹¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # http://ime.nu/example.com/hogehoge/kankeinai.html # # hoge¥Õ¥©¥ë¥ÀÇÛ²¼¤Î¤ßÊÑ´¹¤µ¤ì¤ë¤è¤¦¤Ë¤¹¤ë¤Ë¤Ï¡¢¤É¤¦¤·¤¿¤é¤¤¤¤¤Ç¤·¤ç¤¦¤«¡© # # ´Ä¶¤Ï # CentOS£µ # Apache£² # # # 'hoge¥Õ¥©¥ë¥À°Ê²¼¤ÎºÇ¸å¤Î¡Ö/¡×¤Î¸å¤Ë¡Öi/¡×¤¬¶´¤Þ¤ë¤è¤¦¤ËURL¤òÊÑ´¹¤¹¤ë'(_ʸ»úÎó,_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sud_atom(_ʸ»úÎó,_,_,_,S1,'/hoge',S3,L1,L2,L3), L3=[], concat_atom([S1,S2,'/i/'],_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'hoge¥Õ¥©¥ë¥À°Ê²¼¤ÎºÇ¸å¤Î¡Ö/¡×¤Î¸å¤Ë¡Öi/¡×¤¬¶´¤Þ¤ë¤è¤¦¤ËURL¤òÊÑ´¹¤¹¤ë'(_ʸ»úÎó,_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sud_atom(_ʸ»úÎó,_,_,_,S1,'/hoge',S3,L1,L2,[' '|R3]), concat_atom([S1,S2,'/i/',S3],_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'hoge¥Õ¥©¥ë¥À°Ê²¼¤ÎºÇ¸å¤Î¡Ö/¡×¤Î¸å¤Ë¡Öi/¡×¤¬¶´¤Þ¤ë¤è¤¦¤ËURL¤òÊÑ´¹¤¹¤ë'(_ʸ»úÎó,_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sud_atom(_ʸ»úÎó,_,_,_,S1,'/hoge/',S3,L1,L2,[' '|R3]), concat_atom([S1,S2,'i/',S3],_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó),!. 'hoge¥Õ¥©¥ë¥À°Ê²¼¤ÎºÇ¸å¤Î¡Ö/¡×¤Î¸å¤Ë¡Öi/¡×¤¬¶´¤Þ¤ë¤è¤¦¤ËURL¤òÊÑ´¹¤¹¤ë'(_ʸ»úÎó,_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sud_atom(_ʸ»úÎó,_,_,_,S1,'/hoge/',S3,L1,L2,L3), 'ºÇ¸å¤Î¡Ö/¡×¤Î¸å¤Ë¡Öi/¡×¤¬¶´¤Þ¤ë¤è¤¦¤Ë'(S3,S4), concat_atom([S1,S2,S4],_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó). 'ºÇ¸å¤Î¡Ö/¡×¤Î¸å¤Ë¡Öi/¡×¤¬¶´¤Þ¤ë¤è¤¦¤Ë'(S1,S2) :- atom_chars(S1,L), append(L0,['/'|R],L), \+(append(_,[' '|_],L0)), \+(append(_,['/'|_],R)), append(L0,['/i/'|R],L2), atom_chars(S2,L2),!. 'ºÇ¸å¤Î¡Ö/¡×¤Î¸å¤Ë¡Öi/¡×¤¬¶´¤Þ¤ë¤è¤¦¤Ë'(S1,S2) :- concat_atom(['i/',S1],S2),). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/833 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C # # ¡üÀâÌÀ # Apache¤Î¥í¥°¤«¤é°ìÉôʬ¤òÈ´¤½Ð¤·¤Æ¸¡º÷¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # host.ne.jp - - [11/May/2011:12:22:15 +0900] "GET /~akasata/index.xml?gat=tPFnlVCP8aUYq8jjPqA=&BSdebug=AV/w3.3r1.1/ HTTP/1.1" # 200 6703 "https://server.ne.jp/" "Mozilla/5.0 (X11; U; Linux i686; ja; rv:1.8.1.14) Gecko/20080404 Firefox/2.0.0.14" # ¡Ê°Ê¾å1¹Ô¡Ë # ¡ü´õ˾¤¹¤ë·ë²Ì # 1·ïÌÜ # host.ne.jp # 2·ïÌÜ # /~akasata/index.xml # # °Ê¾å¤Î¤è¤¦¤Ê¸¡º÷¤ò¼ÂÁõ¤·¤è¤¦¤È¤·¤Æ¡¢ # regerror(regcomp(&preg, "(.+) - [^[] \\[.+\\] \"[^\" ]+ ((/~akasata/[^\"]+)\\?g.+)*([^\"]+) [^\" ]+\".+", REG_EXTENDED|REG_NEWLINE), &preg, errbuf, sizeof(errbuf)); # °Ê²¼¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤òÍѤ¤¤¿(C¤Î¥¨¥¹¥±¡¼¥×¤¬º®¤¸¤Ã¤Æ¤¤¤ë¤¿¤á¸«¿É¤±¤ì¤Ð¤¹¤¤¤Þ¤»¤ó)¤Î¤Ç¤¹¤¬¡¢ # ¸å¤Û¤É¸¡º÷ÂоݤòÄ´¤Ù¤Æ°ìÉôÉÔÍפÊÉôʬ¤¬¤¢¤Ã¤¿¤¿¤á # regerror(regcomp(&preg, "(.+) - [^[] \\[.+\\] \"[^\" ]+ ((/~akasata/[^\"]+)\\?g.+) [^\" ]+\".+", REG_EXTENDED|REG_NEWLINE), &preg, errbuf, sizeof(errbuf)); # °Ê²¼¤Î¤è¤¦¤ËÀµµ¬É½¸½¤òÊѹ¹¤·¤¿¤È¤³¤í¡¢Æ±¤¸·ë²Ì¤òÊÖ¤¹¤Î¤Ë¤â¤«¤«¤ï¤é¤º # ¼Â¹Ô®ÅÙ¤¬4Çܰʾå¤â¤«¤«¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£¸¶°ø¤«¤ï¤«¤ëÊý¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡© # # 'Apache¤Î¥í¥°¤«¤é°ìÉôʬ¤òÈ´¤½Ð¤·¤Æ¸¡º÷¤·¤¿¤¤'(ApacheLog,X) :- get_split_lines(ApacheLog,[' ','"','?'],LL), append(_,[L|R],LL), ÁªÂò(L,X). ÁªÂò(L,X) :- append(_,['GET',X|_],L). ÁªÂò(L,X) :- append(_,[X|_],L), sub_atom(X,0,4,_,http). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/819 # Àµµ¬É½¸½¤Î»ÈÍѴĶ¤Ï½¨´Ý¤Ç¤¹¡£ # ¤ä¤ê¤¿¤¤¤³¤È¤ÏÃÖ´¹¤Ç¡¢VB¤Î¥½¡¼¥¹¤òÊÔ½¸¤·¤¿¤¤¤Î¤¬ÌÜŪ¤Ç¤¹¡£ # # Îã¡§ # ¡¦Before # Dim s1, s2, s3 As String # # ¡¦After # Dim s1 As String, s2 As String, s3 As String # # ¾åµ¤Î¤è¤¦¤Ë¡¢1¹Ô¤ÇÊ£¿ô¤ÎÊÑ¿ôÀë¸À¤ò¹Ô¤Ã¤Æ¤¤¤ë²Õ½ê¤Ç # ·¿¤ÎÀë¸À¤ò¾Êά¤·¤Æ¤¤¤ë²Õ½ê¤ò¡¢ºÇ¸å¤Î·¿Àë¸À¤ÇÊ䤤¤¿¤¤¤Î¤Ç¤¹¤¬ # ¤É¤Î¤è¤¦¤Ë»ØÄꤷ¤Æ¤ä¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤«¡© # # '·¿¤ÎÀë¸À¤ò¾Êά¤·¤Æ¤¤¤ë²Õ½ê¤ò¡¢ºÇ¸å¤Î·¿Àë¸À¤ÇÊ䤦'(_ʸ»úÎó,_ÊäÀµ¤µ¤ì¤¿Ê¸»úÎó) :- 's1, s2, S3 ¤Îǧ¼±'(_ʸ»úÎó,_·¿Àë¸ÀÉôʬ,_ÊÑ¿ôÉôʬ¤Ê¤é¤Ó,_·¿Éôʬ), findall(W,( append(_,[_ÊÑ¿ô|_],_ÊÑ¿ôÉôʬ¤Ê¤é¤Ó), concat_atom([_ÊÑ¿ô,_·¿Éôʬ],W)), L2), concat_atom(L2,',',S5), concat_atom(_·¿Àë¸ÀÉôʬ,S5,_ÊäÀµ¤µ¤ì¤¿Ê¸»úÎó). 's1, s2, S3 ¤Îǧ¼±'(_ʸ»úÎó,_·¿Àë¸ÀÉôʬ,_ÊÑ¿ôÉôʬ¤Ê¤é¤Ó,_·¿Éôʬ) :- split(_ʸ»úÎó,[','],[_Âè°ìÍ×ÁÇ|R1]), sPLIT(_Âè°ìÍ×ÁÇ,[' '],L1), append(L0,[A],L1), concat_atom(L0,_·¿Àë¸ÀÉôʬ), append(L2,[U],R1), sPLIT(U,[' '],L3), 'ºÇ¸å¤ÎÊÑ¿ô¤È·¿Éôʬ¤ËʬΥ¤¹¤ë'(L3,Z,_·¿Éôʬ), append([A],L2,[Z],_ÊÑ¿ôÉôʬ¤Ê¤é¤Ó),!. 'ºÇ¸å¤ÎÊÑ¿ô¤È·¿Éôʬ¤ËʬΥ¤¹¤ë'(L,S,_·¿Éôʬ) :- append(L0,[_ºÇ¸å¤ÎÊÑ¿ô|R],L), \+(A = ' '), all(L0,' '), concat_atom(R,_·¿Éôʬ),!. 'ºÇ¸å¤ÎÊÑ¿ô¤È·¿Éôʬ¤ËʬΥ¤¹¤ë'([_ºÇ¸å¤ÎÊÑ¿ô|R],_ºÇ¸å¤ÎÊÑ¿ô,_·¿Éôʬ) :- concat_atom(R,_·¿Éôʬ),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/802 # Abc_def, Ghi_jkl ,Mno_pqr # ¤È¤¤¤¦Ê¸¾Ï¤ò¡¢ # AbcDef, GhiJkl ,MnoPqr # ¤ËÊѤ¨¤¿¤¤¤Î¤Ç¤¹¤¬¡¢¤É¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò½ñ¤±¤Ð¤¤¤¤¤Ç¤·¤ç¤¦¤«¡© # # 'Abc_def, Ghi_jkl ,Mno_pqr ¤È¤¤¤¦Ê¸¾Ï¤ò¡¢AbcDef, GhiJkl ,MnoPqr ¤ËÊѤ¨¤ë'(_ʸ»úÎó,_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó) :- atom_chars(_ʸ»úÎó,Chars), ÊÑ´¹(Chars,Chars2), atom_chars(_ÊÑ´¹¤µ¤ì¤¿Ê¸»úÎó,Chars2). ÊÑ´¹([],[]) :- !. ÊÑ´¹(['_',A|R1],[B|R2]) :- to_upper(A,B), ÊÑ´¹(R1,R2),!. ÊÑ´¹([A|R1],[A|R2]) :- ÊÑ´¹(R1,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/666 # ¥á¡¼¥ë¥¢¥É¥ì¥¹¤¬Àµ¤·¤¤¤«¥Þ¥Ã¥Á¥ó¥°¡£ # ¤¿¤À¤·¡¢@gmail.com¡¢@googlemail.com¡¢@livedoor.com¤Î¾ì¹ç¤Ï # @¤ÎÁ°¤Ë¡Ö+¡×¡Ö.¡×¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï½ü³°¤¹¤ë¡£ # ¤³¤ì¤Ã¤ÆÀµµ¬É½¸½£±È¯¤Ç¤Ç¤¤¿¤ê¤·¤Þ¤¹¤«¡© # # ¥Á¥§¥Ã¥¯Âоݥɥᥤ¥ó('gmail.com'). ¥Á¥§¥Ã¥¯Âоݥɥᥤ¥ó('googlemail.com'). ¥Á¥§¥Ã¥¯Âоݥɥᥤ¥ó('livedoor.com'). ¥á¡¼¥ë¥¢¥É¥ì¥¹¥Á¥§¥Ã¥¯(_¥á¡¼¥ë¥¢¥É¥ì¥¹) :- split(_¥á¡¼¥ë¥¢¥É¥ì¥¹,['@'],[A,B]), ¥á¡¼¥ë¥¢¥É¥ì¥¹¥Á¥§¥Ã¥¯(A,B). ¥á¡¼¥ë¥¢¥É¥ì¥¹¥Á¥§¥Ã¥¯(A,B) :- \+(¥Á¥§¥Ã¥¯Âоݥɥᥤ¥ó(B)),!. ¥á¡¼¥ë¥¢¥É¥ì¥¹¥Á¥§¥Ã¥¯(A,B) :- \+(sub_atom(A,_,1,_,'+')),!. ¥á¡¼¥ë¥¢¥É¥ì¥¹¥Á¥§¥Ã¥¯(A,B) :- \+(sub_atom(A,_,1,_,'.')),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/659 # PHP¤Ç¡¢Î㤨¤Ð # # ¤³¤¦¸À¤Ã¤¿Ê¸¾Ï¤ò¹Í¤¨¤ë¤Î¤Ï¡¢¤¿¤Î¤·¤¤¡£ # ¤ï¤¿¤·¤Ï¡¢¡Ö¤³¤ó¤Ë¤Á¤Ï¡×¤È¸À¤¤¤Þ¤·¤¿¡£ # ¡Ö¤³¤Îʸ¾Ï¤Ï¡¢¤Ê¤«¤Ê¤«ÌÌÇò¤¤¤Ç¤¹¤Í¡£¤È¤Æ¤âÀµ³Î¤ÊÀµµ¬É½¸½¤ò¹Í¤¨¤ëɬÍפ¬¤¢¤ë¤ó¤Ç¤¹¡£¡× # ¡Ö¤Ç¤Ï¡¢¤½¤ó¤ÊÀµµ¬É½¸½¤ò¤É¤¦¤ä¤Ã¤Æ¸«¤Ä¤±¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©¤½¤¦¤À¡¢¼ÁÌ䤷¤Æ¤ß¤Þ¤·¤ç¤¦¤è¡ª¡£¡× # ¡Ö¤Ê¤ë¤Û¤É¡©¡£¤½¤ì¤ÏÌÌÇò¤¤¥¢¥¤¥Ç¥£¥¢¤À¡£¡×¤È¡¢¤â¤¦°ì¿Í¤Ï¸À¤Ã¤¿¡£ # # ¤È¤¤¤¦Ê¸¾Ï¤¬¤¢¤Ã¤¿¤È¤¤Ë¡¢ # # "¤³¤¦¸À¤Ã¤¿Ê¸¾Ï¤ò¹Í¤¨¤ë¤Î¤Ï¡¢¤¿¤Î¤·¤¤¡£", # "¤ï¤¿¤·¤Ï¡¢","¡Ö¤³¤ó¤Ë¤Á¤Ï¡×","¤È¸À¤¤¤Þ¤·¤¿¡£", # "¡Ö¤³¤Îʸ¾Ï¤Ï¡¢¤Ê¤«¤Ê¤«ÌÌÇò¤¤¤Ç¤¹¤Í¡£","¤È¤Æ¤âÀµ³Î¤ÊÀµµ¬É½¸½¤ò¹Í¤¨¤ëɬÍפ¬¤¢¤ë¤ó¤Ç¤¹¡£¡×", # "¡Ö¤Ç¤Ï¡¢¤½¤ó¤ÊÀµµ¬É½¸½¤ò¤É¤¦¤ä¤Ã¤Æ¸«¤Ä¤±¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©","¤½¤¦¤À¡¢¼ÁÌ䤷¤Æ¤ß¤Þ¤·¤ç¤¦¤è¡ª¡£¡×", # "¡Ö¤Ê¤ë¤Û¤É¡©¡£","¤½¤ì¤ÏÌÌÇò¤¤¥¢¥¤¥Ç¥£¥¢¤À¡£¡×","¤È¡¢¤â¤¦°ì¿Í¤Ï¸À¤Ã¤¿¡£" # # ¤È¤¤¤¦´¶¤¸¤Ëʬ³ä¤·¤ÆÇÛÎó¤Ë¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£ # ¸½ºß»È¤Ã¤Æ¤¤¤ëÀµµ¬É½¸½¤Ï # $contents = array(); # preg_match_all('/.*?¡£|.*?¡Ö/m',$content,$contents); # ¤È¤¤¤¦´¶¤¸¤Ç½ñ¤¤¤Æ¤ß¤Þ¤·¤¿¡£ # $content¤¬¤â¤È¤Îʸ¾Ï¤Ç¡¢$contents¤¬¿·¤·¤¯ÆÀ¤ëÇÛÎó¤Ç¤¹¡£ # ¤É¤¦¤âÊ£»¨¤Ç¤É¤¦¤·¤¿¤éÎɤ¤¤Î¤«¤ï¤«¤é¤Ê¤¤¤Î¤Ç¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤¤Þ¤¹¡£¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ʸ¤ò²þ¹Ô¶èÀÚ¤ê¤È¤¹¤ë¤Ê¤é¤Ó¤È¤¹¤ë(_ʸ,_¹Ô¤Ê¤é¤Ó) :- split(_ʸ,['\n'],_¹Ô¤Ê¤é¤Ó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/661 # Àµµ¬É½¸½¤Ç¤Î½ÅÊ£¹Ô¤Îºï½ü¤Ë¤Ä¤¤¤Æ # ¼ÁÌ䤵¤»¤Æ¤¯¤À¤µ¤¤ # # ¤ß¤«¤ó¡¡¡¡¡¡¤ß¤«¤ó # ¤ß¤«¤ó¡¡¡¡¡¡¡Ê¶õÇò¹Ô¡Ë # ¤ê¤ó¤´¡¡¢ª¡¡¤ê¤ó¤´ # ¤Ê¤·¡¡¡¡¡¡¡¡¤Ê¤· # ¤Ê¤·¡¡¡¡¡¡¡¡¡Ê¶õÇò¹Ô¡Ë # ¤Ê¤·¡¡¡¡¡¡¡¡¡Ê¶õÇò¹Ô¡Ë # ¤«¤¡¡¡¡¡¡¡¡¤«¤ # # ¤È¤¤¤¦¤«¤ó¤¸¤Ç # ½ÅÊ£¹Ô¤Ï¶õÇò¤Î¤Þ¤Þ¤Ç»Ä¤·¤¿¤¤¤Î¤Ç¤¹¤¬ # ¤É¤¦¤¹¤Ù¤¤Ç¤·¤ç¤¦¤«¡© # # ½ÅÊ£¹Ô¤òºï½ü¤¹¤ë¤Î¤Ç¤Ï¤Ê¤¯¶õÇò¹Ô¤È¤·¤Æ»Ä¤¹(Lines,Lines2) :- findall(_¹Ô2,( append(L0,[_¹Ô|R],Lines), append(_,[_¹Ô|_],L0), ½ÅÊ£¹Ô¾ì¹ç¤À¤±¶õ¹Ô¤òÊÖ¤¹(L0,_¹Ô,_¹Ô2)), Lines2). ½ÅÊ£¹Ô¾ì¹ç¤À¤±¶õ¹Ô¤òÊÖ¤¹(L0,_¹Ô,'') :- append(_,[_¹Ô|_],L0),!. ½ÅÊ£¹Ô¾ì¹ç¤À¤±¶õ¹Ô¤òÊÖ¤¹(_,_¹Ô,_¹Ô). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/642 # Perl 5.8 /5.10¤Ç»ÈÍѤ·¤Þ¤¹¡£ # # HTML¥½¡¼¥¹¤ÎÃæ¤Îimg¥¿¥°¤Î¥Õ¥¡¥¤¥ë̾¤òÀµµ¬É½¸½¤Ê¤É¤Ç°ì³ç¤ÇÊѤ¨¤¿¤¤¤Ç¤¹¡£ # # <img src="http://ime.nu/www.hoge.com/aaa/bb/ccc/ddd.jpg" alt="sss"> # <img src="/xxx/yyy.png"> # <img src="../aaa/fff/xxx/ccc.gif" width="32" height="16"> # # ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¢ # # <img src="/images/ddd.jpg" alt="sss"> # <img src="/images/yyy.png"> # <img src="/images/ccc.gif" width="32" height="16"> # # ¤³¤ó¤Ê´¶¤¸¤Ç¤¹¡£¤É¤ÎÍͤˤ·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡£ # 'img¥¿¥°¤Î½ñ¤´¹¤¨'(Lines,_ÃÖ´¹¤µ¤ì¤¿Lines) :- findall(_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó,( append(_,[_ʸ»úÎó|_],Lines), ʸ»úÎó¤ÎÃÖ´¹(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó)), _ÃÖ´¹¤µ¤ì¤¿Lines). ʸ»úÎó¤ÎÃÖ´¹(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), L2 = [<,i,m,g,' ',s,r,c,=,'"'|R2], L3 = [>|R3], \+(append(_,[>|_],R2)), concat_atom(R2,S22), split(S22,['/'],L), last(L,F), concat_atom([S1,' % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/640 # ¸½ºß¡¢HTML¤Îimg¥¿¥°¤ò»È¤Ã¤Æ¡Ö/img/jpg/¡×¥Ç¥£¥ì¥¯¥È¥ê¤Ë¤¢¤ë²èÁü¥Õ¥¡¥¤¥ë¤òÊ£¿ôɽ¼¨¤·¤Æ¤¤¤Þ¤¹¡£ # # Îã¡Ë # <img src="/img/jpg/1111.jpg" > # <img src="/img/jpg/mm2222.jpg" > # <img src="/img/jpg/kkkkk3333.jpg" > # # ¤³¤ì¤ò¤½¤ì¤¾¤ì¡¢°Ê²¼¤Î¤è¤¦¤ËÃÖ´¹¤·¤¿¤¤¤È¹Í¤¨¤Æ¤¤¤Þ¤¹¡£ # Îã¡Ë # <a href="http://ime.nu/www.xxxxx.jp/1111.jpg"><img src="/img/jpg/1111.jpg" width="240px"></a> # <a href="http://ime.nu/www.xxxxx.jp/mm2222.jpg"><img src="/img/jpg/mm2222.jpg" width="240px"></a> # <a href="http://ime.nu/www.xxxxx.jp/kkkkk3333.jpg"><img src="/img/jpg/kkkkk3333.jpg" width="240px"></a> # # img¥¿¥°¤ò¥ê¥ó¥¯¥¿¥°¤Ç°Ï¤à¤Î¤Ç¤¹¤¬¡¢¥ê¥ó¥¯ÀèURL¤Ë¤Ï¸µ¡¹¤Î²èÁü¥Õ¥¡¥¤¥ë̾¤¬»È¤ï¤ì¤Æ¤¤¤Þ¤¹¡£¤Þ¤¿¡¢img¥¿¥°¤Ë¤Ï¡Öwidth="240px"¡×¤¬Éղäµ¤ì¤Æ¤¤¤Þ¤¹¡£ # # ¤³¤Î¤è¤¦¤ÊÃÖ´¹¤òPHP5¤Ç¹Ô¤¦¤Ë¤Ï¡¢¤É¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò»ÈÍѤ·¤¿¤é¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡£ # µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£ # # 'img¥¿¥°¤òa¥¿¥°+img¥¿¥°¤Ë½ñ¤´¹¤¨¤ë'(Lines,_ÃÖ´¹¤µ¤ì¤¿Lines) :- findall(_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó,( append(_,[_ʸ»úÎó|_],Lines), ʸ»úÎó¤ÎÃÖ´¹(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó)), _ÃÖ´¹¤µ¤ì¤¿Lines). ʸ»úÎó¤ÎÃÖ´¹(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), L2 = [<,i,m,g,' ',s,r,c,=,'"',/,i,m,g,/,j,p,g,/|R2], L3 = [>|R3], \+(append(_,[>|_],R2)), concat_atom(R2,S22), concat_atom([S1,'
'|R3],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó),!. ʸ»úÎó¤ÎÃÖ´¹(_ʸ»úÎó,_ʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/775 # ¡Ø¥×¥ê¥ó¥¿¡¼¤¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤Ï¥×¥ê¥ó¥¿¤Ç¤¹¡£¥×¥ê¥ó¥¿¤ò»È¤¤¤Þ¤¹¡£¥×¥ê¥ó¥¿¡¼¤ÎÊѹ¹¤Ç¤¹¡£¡Ù # ¤È¤¤¤¦Ê¸¤¬¤¢¤ë»þ¡¢Ê¸Ãæ¤Î¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤Ë¤Ê¤ª¤¹¤Ë¤Ï¤É¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò # ÍѤ¤¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤«¡© # '¡Ø¥×¥ê¥ó¥¿¡¼¤¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤Ï¥×¥ê¥ó¥¿¤Ç¤¹¡£¥×¥ê¥ó¥¿¤ò»È¤¤¤Þ¤¹¡£¥×¥ê¥ó¥¿¡¼¤ÎÊѹ¹¤Ç¤¹¡£¡Ù¤È¤¤¤¦Ê¸¤¬¤¢¤ë»þ¡¢Ê¸Ãæ¤Î¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤Ë¤Ê¤ª¤¹' :- atom_chars('¥×¥ê¥ó¥¿¡¼¤¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤Ï¥×¥ê¥ó¥¿¤Ç¤¹¡£¥×¥ê¥ó¥¿¤ò»È¤¤¤Þ¤¹¡£¥×¥ê¥ó¥¿¡¼¤ÎÊѹ¹¤Ç¤¹¡£',Chars1), '¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤ËÊÑ´¹'(Chars1,Chars2), atom_chars(_ÊÑ´¹¤·¤¿Ê¸»úÎó,Chars2). '¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤ËÊÑ´¹'([],[]) :- !. '¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤ËÊÑ´¹'([¥×,¥ê,¥ó,¥¿,¡¼|R1],[¥×,¥ê,¥ó,¥¿,¡¼|R2]) :- '¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤ËÊÑ´¹'(R1,R2),!. '¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤ËÊÑ´¹'([¥×,¥ê,¥ó,¥¿|R1],[¥×,¥ê,¥ó,¥¿,¡¼|R2]) :- '¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤ËÊÑ´¹'(R1,R2),!. '¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤ËÊÑ´¹'([A|R1],[A|R2]) :- '¥×¥ê¥ó¥¿¤ò¥×¥ê¥ó¥¿¡¼¤ËÊÑ´¹'(R1,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/760 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # C# # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # =¤ÎϢ³¤¬¤¢¤ë¹Ô¤Ç¶´¤Þ¤ì¤¿Éôʬ¤òÃê½Ð¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¥²¥¹¥È======================== # ¤Û¤²¤Û¤² # ¤Û¤²¤Û¤²¤Û¤² # ¥×¥í¥Õ¥£¡¼¥ë=================== # ¤Ï¤² # ¤Ï¤²¤Ï¤² # ============================= # # ¡ü´õ˾¤¹¤ë·ë²Ì # "¤Û¤²¤Û¤²\n¤Û¤²¤Û¤²¤Û¤²" # "¤Ï¤²\n¤Ï¤²¤Ï¤²" # # ·ë²Ì¤Ë=¤Î¹Ô¤¬´Þ¤Þ¤ì¤Æ¤¤¤Æ¤â¹½¤¤¤Þ¤»¤ó # =¤Ï£²¤Ä°Ê¾åϢ³¤·¤Æ¤¤¤ë¹Ô¤¬ÂоݤǤ¹ # # ^.*={2,}$(?'block'.+?)^.*={2,}$¡¡¤È¤ä¤Ã¤Æ¤ß¤Þ¤·¤¿¤¬¥Þ¥Ã¥Á¤·¤Þ¤»¤ó¤Ç¤·¤¿ # MultiLine¥ª¥×¥·¥ç¥ó¤Ï»ØÄꤷ¤Æ¤¤¤Þ¤¹ # ¤½¤ì¤ÈÂоÝʸ»úÎ󤫤é\r¤Ï»öÁ°¤Ë½üµî¤·¤Æ¤¤¤Þ¤¹ # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹ # # '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤ò¶èÀÚ¤ê¤È¤·¤Æ¸¡º÷¤¹¤ë'([],[]) :- !. '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤ò¶èÀÚ¤ê¤È¤·¤Æ¸¡º÷¤¹¤ë'([Line|R1],[S|R2]) :- sub_atom(Line,_,2,_,'=='), '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤¬Íè¤ë¤Þ¤Ç¸¡º÷¤¹¤ë'(R1,L1,R11), concat_atom(L1,'\n',S), '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤ò¶èÀÚ¤ê¤È¤·¤Æ¸¡º÷¤¹¤ë'(R11,R2). '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤ò¶èÀÚ¤ê¤È¤·¤Æ¸¡º÷¤¹¤ë'([_|R1],R2) :- '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤ò¶èÀÚ¤ê¤È¤·¤Æ¸¡º÷¤¹¤ë'(R1,R2). '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤¬Íè¤ë¤Þ¤Ç¸¡º÷¤¹¤ë'([Line|R1],[],[Line|R1]) :- sub_atom(Line,_,2,_,'=='),!. '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤¬Íè¤ë¤Þ¤Ç¸¡º÷¤¹¤ë'([Line|R1],[Line|R2],R3) :- '=¤ÎϢ³¤¬¤¢¤ë¹Ô¤¬Íè¤ë¤Þ¤Ç¸¡º÷¤¹¤ë'(R1,R2,R3). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/632 # ¼ÁÌ䤵¤»¤Æ¤¯¤À¤µ¤¤¡£ # # <table> # <tr> # <th>̾¾Î£±</th> # <td> # ÃÍ£± # </td> # </tr> # <tr> # <th>̾¾Î£²</th> # <td> # ÃÍ£² # </td> # </tr> # </table> # ¤Î¤è¤¦¤ÊHTML¤¬¤¢¤ê¤Þ¤¹¡£ # ¼ÂºÝ¤Ë¤ÏÁ´¤Æ¤Î²þ¹Ô¤È¥¤¥ó¥Ç¥ó¥È¤Ï¥È¥ê¥à¤µ¤ì¤Æ¤Þ¤¹¡£ # ¤³¤ÎÃÍ£±¤ÎÉôʬ¤ò¤È¤ë¤Ë¤Ï¤É¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò»È¤¨¤ÐÎɤ¤¤Ç¤·¤ç¤¦¤«¡© # # <th>̾¾Î£±</th><td>([^<]*)</td> # ¤Î¤è¤¦¤Ë¹Í¤¨¤Æ¤Þ¤·¤¿¤¬ÃÍ£±¤Ë¤Ï<img>¥¿¥°¤¬Æþ¤ë¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£ # <table>¤ä<td>¤¬Æþ¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡£ # 'ºÇ½é¤Îtd¥¿¥°¤ÎÃͤò¸¡º÷¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,_¸åʸ»úÎó,L1,['<',t,d,'>'|R2],['<',/,t,d,'>'|R3]), \+(append(_,['<',t,d,'>'],_,R2)), concat_atom([S1,'
'],_Á°Ê¸»úÎó), concat_atom(R2,_Ŭ¹çʸ»úÎó),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/630 # ¼ÁÌ䤵¤»¤Æ¤¯¤À¤µ¤¤¡ª # # ¤¢¤¢¤¢¤¢¤¢¤¢ @ ABCD @ abcd # # ¤È¤¤¤¦Ê¸»ú¤ò # # <b>¤¢¤¢¤¢¤¢¤¢¤¢</b> @ ABCD @ <em>abcd</em> # # ¤Î¤è¤¦¤ËÃÖ´¹¤·¤¿¤¤»þ¤Ï¤É¤¦¤¤¤¦Àµµ¬É½¸½¤ò»È¤¨¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡© # # ¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹ # # '¤¢¤¢¤¢¤¢¤¢¤¢ @ ABCD @ abcd ¤È¤¤¤¦Ê¸»ú¤ò <b>¤¢¤¢¤¢¤¢¤¢¤¢</b> @ ABCD @ <em>abcd</em> ¤Î¤è¤¦¤ËÃÖ´¹¤·¤¿¤¤'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sPLIT(_ʸ»úÎó,' @ ',[A,B,C]), concat_atom(['',A,'',' @ ',B,' @ ','',C,''],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/600 # ʸ»úÎó¤ÎÃæ¤Ë¤¢¤ë¡ï¤ò½üµî¤·¤¿¤«¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢preg_replace('/¡ï/')¤ä # preg_replace('/¡ï¡ï/')¤Ç¤Ïºï½ü¤Ç¤¤Ê¤«¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢preg_replace('/¡ï¡ï¡ï/')¤À¤Èºï½ü¤Ç¤¤Þ¤·¤¿¡¦¡¦¡¦ # ¤³¤ì¤Ï¤Ê¤¼¤Ç¤·¤ç¤¦¤«¡£ # ¡ï¤Ï¼¡¤Ëͤëʸ»ú¤ò¥¨¥¹¥±¡¼¥×¤¹¤ë¤ï¤±¤Ç¤¹¤«¤é¡¢preg_replace('/¡ï¡ï/')¤Ç¤¤¤±¤½¤¦¤Êµ¤¤¬¤¹¤ë¤Î¤Ç¤¹¤¬¡£¡£¡£ # Àµµ¬É½¸½½é¿´¼Ô¤Ë¤Ä¤¡¢Äã¥ì¥Ù¥ë¤Ç¤¹¤¬¤´¶µ¼ø¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£ # ¡Ê¾åµ¤Ï¡¢¤¢¤¨¤ÆÈ¾³Ñ¤Ç¤Ï¤Ê¤¯¡¢Á´³Ñ¤Î¡ï¤ÇÀâÌÀ¤·¤Æ¤¤¤Þ¤¹¡£¡Ë # ʸ»úÎó¤ÎÃæ¤Ë¤¢¤ë¡ï¤ò½üµî¤¹¤ë(_ʸ»úÎó,_¡ï¤ò½üµî¤·¤¿Ê¸»úÎó) :- findall(A,( sub_atom(_ʸ»úÎó,_,1,_,A),\+(A='\\')),L), atomic_list_concat(L,_¡ï¤ò½üµî¤·¤¿Ê¸»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/755 # ¤¹¤¤¤Þ¤»¤ó¡£¹ÔƬ¤Î¥¹¥Ú¡¼¥¹¤¬¾Ã¤¨¤Æ¤ª¤«¤·¤¯¤Ê¤ê¤Þ¤·¤¿¤Î¤Ç½ñ¤¹þ¤ßľ¤·¤Þ¤¹¡£ # # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Java1.6 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷(String¥¯¥é¥¹ String[] split(String regex)¥á¥½¥Ã¥É¤Ë¤è¤ëʸ»úÎóʬ³ä) # # ¡üÀâÌÀ # CSV¥Õ¥¡¥¤¥ëÃæ¤Î°ì¹Ô¤òÂоÝʸ»úÎó¤È¤·¡¢ # ¤½¤Îʸ»úÎóÃæ½é½Ð¤Î\s*,\s*¤ò¥Ç¡¼¥¿¶èÀÚ¤ê»Ò¤È¤·¤Æ¸«¤Ê¤·¥Þ¥Ã¥Á¤µ¤»¤ë¡£ # (¤½¤ÎÁ°¸å¤Çʸ»úÎó¤ò2¤Ä¤Ëʬ³ä) # # ¡üÂоݥǡ¼¥¿ # aaa,bbb,ccc # aaa, bbb, ccc # aaa , bbb , ccc # # ¡ü´õ˾¤¹¤ë·ë²Ì # "aaa"¤È"bbb,ccc"¤Ëʬ³ä # "aaa"¤È"bbb, ccc"¤Ëʬ³ä # "aaa"¤È"bbb , ccc"¤Ëʬ³ä # # ¡ü´õ˾¤·¤Ê¤¤·ë²Ì # "aaa"¤È"bbb"¤È"ccc"¤Ëʬ³ä # etc... # # ¼«Ê¬¤Ç¹Í¤¨¤¿(?<^[^,]*)\s*,\s*¤Ç¤Ï # java.util.regex.PatternSyntaxException: Unknown look-behind group near index 8 # ¤È¤¤¤¦¤è¤¦¤ÊÎã³°¤¬½Ð¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£ # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # 'CSV¥Õ¥¡¥¤¥ëÃæ¤Î°ì¹Ô¤òÂоÝʸ»úÎó¤È¤·¡¢¤½¤Îʸ»úÎóÃæ½é½Ð¤Î\\s*,\\s*¤ò¥Ç¡¼¥¿¶èÀÚ¤ê»Ò¤È¤·¤Æ¸«¤Ê¤·Ê¬³ä¤¹¤ë'(_csv¥Õ¥¡¥¤¥ë,_¹Ô,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- get_lines(_¥Õ¥¡¥¤¥ë,Lines), append(L0,[Line|R],Lines), _¹Ô is L0 + 1, '¤½¤Îʸ»úÎóÃæ½é½Ð¤Î\\s*,\\s*¤ò¥Ç¡¼¥¿¶èÀÚ¤ê»Ò¤È¤·¤Æ¸«¤Ê¤·Ê¬³ä¤¹¤ë'(Line,_Á°Ê¸»úÎó,_¸åʸ»úÎó), fail. '¤½¤Îʸ»úÎóÃæ½é½Ð¤Î\\s*,\\s*¤ò¥Ç¡¼¥¿¶èÀÚ¤ê»Ò¤È¤·¤Æ¸«¤Ê¤·Ê¬³ä¤¹¤ë'(Line,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(Line,_,_,_,_Á°Ê¸»úÎó,_¶èÀÚ¤êʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), append(L0,[','|R],L2), all(L0,' '), \+((append(L01,[A|_],R),\+(A=' '))),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/591 # ¤Þ¤ÀÀµµ¬É½¸½¤¬ÁǿͤʤΤǶµ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # ¤¿¤È¤¨¤Ð°Ê²¼¤Î¤è¤¦¤Ë»Í¹Ô¤Îʸ¾Ï¤¬¤¢¤Ã¤Æ # ¤½¤ì¤éʸ¾Ï¤ÎºÇ½é(°ìÈÖÌÜ)¤Î¶õÇòʸ»ú¤À¤±¤ò¸¡º÷¤¹¤ë¤Ë¤Ï # ¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Î¤Ç¤¹¤«¡© # # The environment of contents industries is so drastically changing, # though Japan has not fully. # taken advantage of the changes to develop. # its presence in the global market. # # The ¤Èenvironment¤Î´Ö¤Î¶õÇòʸ»ú¡¡¡¢though¡¡¤È Japan¤Î´Ö # taken ¤Èadvantage¡¡¤Î´Ö¤Î¶õÇòʸ¤Ê¤É¤Ê¤É¤Ç¤¹ # # '¤½¤ì¤éʸ¾Ï¤ÎºÇ½é(°ìÈÖÌÜ)¤Î¶õÇòʸ»ú¤À¤±¤ò¸¡º÷¤¹¤ë¤Ë¤Ï'(Lines,_Á°Ê¸»úÎó,_Ŭ¹çʸ»ú,_¸åʸ»úÎó) :- append(_,[Line|R],Lines), ºÇ½é¤Î¶õÇòʸ»ú(Line,_Á°Ê¸»úÎó,_Ŭ¹çʸ»ú,_¸åʸ»úÎó), R = []. ºÇ½é¤Î¶õÇòʸ»ú(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»ú,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,1,_,_Á°Ê¸»úÎó,' ',_¸åʸ»úÎó,L1,L2,L3),!. ºÇ½é¤Î¶õÇòʸ»ú(_ʸ»úÎó,_ʸ»úÎó,'',''). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/568 # perl ¤Ç¡¤ # ¡Ö<¤È>¤Ç°Ï¤Þ¤ì¤¿Ê¸»úÎóÆâ¤Î abc ¤ò def ¤ËÁ´¤ÆÃÖ´¹¤¹¤ë¡× # ¤È¤¤¤¦¤Î¤ÏÀµµ¬É½¸½¤Ç¤É¤¦½ñ¤±¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤«¡£ # # ¥Þ¥Ã¥Á¤À¤±¤Ê¤é¤Ð # "<asaabcasalaabca>" =~ /\<(.*?)(abc(.*?))*?\>/ # ¤Î¤è¤¦¤Ë¤·¤Æ¥Þ¥Ã¥Á¤µ¤»¤é¤ì¤ë¤Î¤Ç¤¹¤¬¡¤·«¤êÊÖ¤·¤¬¤¢¤ë¤Î¤Ç¸åÊý»²¾È¤Ç¼èÆÀ¤Ç¤¤Þ¤»¤ó¡£ # # '<¤È>¤Ç°Ï¤Þ¤ì¤¿Ê¸»úÎóÆâ¤Î abc ¤ò def ¤ËÁ´¤ÆÃÖ´¹¤¹¤ë'('','') :- !. '<¤È>¤Ç°Ï¤Þ¤ì¤¿Ê¸»úÎóÆâ¤Î abc ¤ò def ¤ËÁ´¤ÆÃÖ´¹¤¹¤ë'(_ʸ»úÎó,_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,['<'|R2],L3), append(L00,['>'],R2), abc¤òdef¤ËÃÖ´¹¤¹¤ë(L00,L22), append(L1,['<',L22],['>'],L4), concat_atom(L4,S22), '<¤È>¤Ç°Ï¤Þ¤ì¤¿Ê¸»úÎóÆâ¤Î abc ¤ò def ¤ËÁ´¤ÆÃÖ´¹¤¹¤ë'(S3,S4), concat_atom([S22,S4],_ÃÖ´¹¤µ¤ì¤¿Ê¸»úÎó). abc¤òdef¤ËÃÖ´¹(L1,L2) :- append(L0,[a,b,c|R1],L1), append(L0,[d,e,f|R1],L2),!. abc¤òdef¤ËÃÖ´¹(L,L). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/555 # ¡¡/¿ÈĹ¡§(\d+)\nÂνš§(\d+)/ # ¤È¤¤¤¦Àµµ¬É½¸½¤ËÂФ·¡¢Î㤨¤Ð # ¡¡"¿ÈĹ¡§175\nÂνš§67" # ¤È¤¤¤¦Ê¸»úÎ󤬤¤¿¤é # ¡¡"¿ÈĹ¡§<font color="red">175</font>\nÂνš§<font color="blue">67</font>" # ¤Î¤è¤¦¤ËHTML¥¿¥°¤òÄɲä·¤¿¤¤¡£ # # ¤¿¤À¤· # ¡¡"¿ÈĹ¡§100\nÂνš§100" # ¤Î¤è¤¦¤Ë¿ÈŤÈÂνŤ¬Æ±¤¸¾ì¹ç¤â¿ÈŤÏÀÖ¡¢ÂνŤÏÀĤˤ·¤¿¤¤¡£ # # ¤â¤Ã¤ÈÍߤò¤¤¤¨¤ÐÀµµ¬É½¸½¤Ï¿ÈĹ¡¦ÂνŤÀ¤±¤Ç¤Ê¤¯ # ¡¡/ǯÎð¡§(\d+)\n¹¥¤¤Ê¿©¤Ùʪ¡§(\S+)/ # ¤Î¤è¤¦¤Ë²ÄÊѤˤ·¤¿¤¤¡£ # # # 'A:Va\nB:Vb ·Á¼°¤Î¥Ç¡¼¥¿¤«¤é A: VaB: color="ÀÄ">Vb¤Î¤è¤¦¤ËHTML¥¿¥°¤òÄɲä·¤¿¤¤¡£¤¿¤À¤·¡¢Va=Vb¤Î¤È¤¤Ï¥«¥é¡¼¤òÀÖ¡¢ÀĤȤ·¤¿¤¤'(_°À1,_°À2,Lines1,Lines2) :- atom_chars(_°À1,_°Àʸ»ú¤Ê¤é¤Ó1), atom_chars(_°À2,_°Àʸ»ú¤Ê¤é¤Ó2), findall(Line2,( append(_,[Line1|_],Lines1), sub_atom(Line1,_,_,_,S1,S2,S3,L1,L2,L3), append(_°Àʸ»ú¤Ê¤é¤Ó1,[':',' '|R22],L2), append(_°Àʸ»ú¤Ê¤é¤Ó2,[':',' '|R33],L3), concat_atom(R22,Va), append(L0,[A|R4],R33), concat_atom(L0,Vb), \+(append(_,[A|_],['0','1','2','3','4','5','6','7','8','9'])), concat_atom([S1,_°À1,': ',Va,'',_°À2,': ',Vb,''],Line2)), Lines2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/554 # PHP¤ÇPerl¸ß´¹¤Îpreg_replace´Ø¿ô¤ò»È¤Ã¤¿ÃÖ´¹¤ò¹Ô¤ª¤¦¤È¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢ # ¤ä¤ê¤¿¤¤¤³¤È¤¬¤¦¤Þ¤¯¼Â¸½¤Ç¤¤Þ¤»¤ó¡£ # # ¤ä¤ê¤¿¤¤¤³¤È¤Ï¡¢ # # ¡¦<tagA>¤È¤¤¤¦Ê¸»úÎó¤È</tagA>¤Î¤¢¤¤¤À¤Ë<tagInsert>¤È¤¤¤¦Ê¸»úÎó¤òÁÞÆþ¤·¤¿¤¤ # ¡¦¤¿¤À¤·¡¢<tagA>¤ÎÃæ¤Ë<tagB>¤È¤¤¤¦Ê¸»úÎ󤬤¢¤ë¾ì¹ç¤Ï¡¢¤½¤Î<tagB>¤Î²¼¤ËÁÞÆþ¤·¤¿¤¤ # # # ¡ã¼ºÇÔ¤·¤¿Àµµ¬É½¸½¡ä # $new_str = preg_replace("/<tagA(.*?)>(.*?)(<(?!tagB).)*/", '<tagA\\1>\\2<tagInsert>\\3', $str); # # ¡ã¼Â¸½¤·¤¿¤¤Îã¡ä # <tagA> # <tagB> # <tagB> # <tagC> # </tagA> # # ¢ÃÖ´¹¼Â¹Ô # <tagA> # <tagB> # <tagB> # <tagInsert> # <tagC> # </tagA> # # ' ¤È¤¤¤¦Ê¸»úÎó¤È ¤Î¤¢¤¤¤À¤Ë¤È¤¤¤¦Ê¸»úÎó¤òÁÞÆþ¤·¤¿¤¤¡£¤¿¤À¤·¡¢ ¤ÎÃæ¤Ë ¤È¤¤¤¦Ê¸»úÎ󤬤¢¤ë¾ì¹ç¤Ï¡¢¤½¤Î ¤Î²¼¤ËÁÞÆþ¤¹¤ë'(Lines1,Lines2) :- append(L1,[' '|R2],[' '|_],R3), append(L1,[''|R3],Lines1), \+(append(_,[' '|_],R3)), append(_,[' '|R2],[' ',' '|R3],Line2),!. ' ¤È¤¤¤¦Ê¸»úÎó¤È ¤Î¤¢¤¤¤À¤Ë¤È¤¤¤¦Ê¸»úÎó¤òÁÞÆþ¤·¤¿¤¤¡£¤¿¤À¤·¡¢ ¤ÎÃæ¤Ë ¤È¤¤¤¦Ê¸»úÎ󤬤¢¤ë¾ì¹ç¤Ï¡¢¤½¤Î ¤Î²¼¤ËÁÞÆþ¤¹¤ë'(Lines1,Lines2) :- append(L1,[' '|R2],[' '|R3],Lines1), append(L1,['',' '|R3],Line2),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/525 # Perl¤ÎÀµµ¬É½¸½¤Ç¼ÁÌ䤵¤»¤Æ²¼¤µ¤¤¡£ # yyyy/mm/entry-basename/index.php # ¢¬¤Ï¤É¤Î¤è¤¦¤Ëµ½Ò¤¹¤ì¤Ð¤¤¤¤¤Î¤«¡¢¤ª¼ê¿ô¤Ç¤¹¤¬¤´¶µ¼ø´ê¤¤¤Þ¤¹<(_ _)> # 'yyyy/mm/entry-basename/index.php ¤ò¸¡º÷¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- atom_chars('/entry-basename/index.php',Chars1), sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,[Y1,Y2,Y3,Y4,/,M1,M2|Chars1],L3), ¤¹¤Ù¤Æ¿ô»ú([Y1,Y2,Y3,Y4,M1,M2]), append(_,[M1|_],['0','1']), \+((last(L1,A),¿ô»ú(A))). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/519 # ¼ÁÌ䤵¤»¤Æ²¼¤µ¤¤¡£ # # ABC # ¡ÄLMNO¡Ä¡Ä¡Ä # ¡Ä¡ÄLMNO¡Ä¡Ä # ¡Ä¡Ä¡ÄLMNO¡Ä # XYZ # # ¤È¤¤¤¦¤è¤¦¤Êʸ¾Ï¤¬¤¢¤Ã¤¿¤È¤·¤Þ¤¹¡£ # ¡ÖLMNO¡×¤ÎÁ°¸å(¡Ö¡Ä¡×)¤Ë¤Ïʸ»ú(ÆüËܸì¤ä±Ñ¿ô»ú)¤¬¤¢¤ê¤Þ¤¹¡£ # # Perl5¸ß´¹¤ÎÀµµ¬É½¸½¤¬»È¤¨¤ë¥Æ¥¥¹¥È¥¨¥Ç¥£¥¿¤ä¡¢BREGEXP.DLL¤¬»È¤¨¤ëÃÖ´¹¤¨¥½¥Õ¥È¤ò»ÈÍѤ·¡¢ # ¡ÖABC¡×¤«¤é¡ÖXYZ¡×¤Þ¤Ç¤Ë¤¢¤ë¡ÖLMNO¡×¤ò¡ÖOOOO¡×¤ËÃÖ´¹¤¨¤¹¤ë¤³¤È¤Ï²Äǽ¤Ç¤·¤ç¤¦¤«¡© # ÆÃÄê¤ÎÈÏ°ÏÆâ¤Îʸ»ú¤À¤±¤òÃÖ´¹¤¨¤¹¤ëÀµµ¬É½¸½¤¬¤ï¤«¤é¤º¡¢¸¡º÷ʸ»úÎó¤ÈÃÖ´¹¤¨Ê¸»úÎó¤Î»ØÄê¤Çº¤¤Ã¤Æ¤¤¤Þ¤¹¡£ # ¤É¤Î¤è¤¦¤Ë¤¹¤ì¤ÐÎɤ¤¤Î¤«¶µ¤¨¤ÆÄº¤±¤ë¤È½õ¤«¤ê¤Þ¤¹¡£¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # 'ÆÃÄê¤ÎÈÏ°ÏÆâ¤Îʸ»ú¤À¤±¤òÃÖ´¹¤¨¤¹¤ëÀµµ¬É½¸½¤¬¤ï¤«¤é¤º¡¢¸¡º÷ʸ»úÎó¤ÈÃÖ´¹¤¨Ê¸»úÎó¤Î»ØÄê'(Lines,_ÃÖ´¹¤µ¤ì¤¿Lines) :- append(L0,['ABC'|R1],['XYZ'|R2],Lines), findall(Line2,( append(_,[Line|_],R1), 'Line¤ÎLENO¤òOOOO¤ËÃÖ´¹¤¹¤ë'(Line,Line2)), Lines2), append(L0,Lines2,R2,_ÃÖ´¹¤µ¤ì¤¿Lines). 'Line¤ÎLENO¤òOOOO¤ËÃÖ´¹¤¹¤ë'(Line,Line2) :- sub_atom(Line,_,_,_,S1,'LENO',S3,L1,L2,L3), concat_atom([S1,'OOOO',S3],_ÃÖ´¹¤µ¤ì¤¿Line),!. 'Line¤ÎLENO¤òOOOO¤ËÃÖ´¹¤¹¤ë'(Line,Line). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/506 # ²¼µ¤Î2ʸ¤Ë¤¢¤ëfont¥¿¥°¤ò¾Ã¤·¤¿¤¤¤Ç¤¹¡£ # Àµµ¬É½¸½¤òÍѤ¤¤¿1ÅÙ¤ÎÃÖ´¹¤Ç¾Ã¤»¤Þ¤¹¤«¡© # # <dd><font style="font-size:;color:;"> ¥Æ¥¹¥È <br> ¥Æ¥¹¥È </font><br><br></dd> # <dd><font style="font-size:;color:;"> ¥Æ¥¹¥È2 <br> ¥Æ¥¹¥È2 </font><br><br></dd> # # # ¹Í¤¨Êý¤È¤·¤Æ # <dd><font style="font-size:;color:;">¤¬¤¢¤ë¹Ô¤Î¤¦¤Á</font>¤òºï½ü¤·¡¢¤½¤Î¤¢¤È<font style="font-size:;color:;">¤òºï½ü # ¤³¤ì¤Ç¹Ô¤±¤½¤¦¤«¤È»×¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¡ü¡ü¤¬¤¢¤ë¹Ô¤Î¤¦¤Á¡û¡û¤òºï½ü¡¢¤È¤¤¤¦Àµµ¬É½¸½¤¬¤ï¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡¦¡¦¡¦ # # 'font¥¿¥°¤Î¤ßºï½ü¤¹¤ë'(_ʸ»úÎó,_font¥¿¥°¤¬ºï½ü¤µ¤ì¤¿Ê¸»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,L2,L3), append([<,f,o,n,t|R1],[>],L2), \+(append(_,[>|_],R2)), append(L3_0,[<,/,f,o,n,t,>|R3],L3), \+(append(_,[<,/,f,o,n,t,>|_],L3_0)), append(L1,L3_0,R3,L4), atom_chars(_font¥¿¥°¤¬ºï½ü¤µ¤ì¤¿Ê¸»úÎó,L4). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/503 # °Ê²¼¤Î¤è¤¦¤Êʸ»úÎó¤òÃÖ´¹¤Ç¤¹¤Ù¤Æºï½ü¤·¤¿¤¤¤Î¤Ç¤¹¤¬ # ¤É¤¦¤«¤±¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤« # # onMouseOver="refPopUp(1,event)" onMouseOut="hidePop()" # onMouseOver="refPopUp(23,event)" onMouseOut="hidePop()" # onMouseOver="refPopUp(345,event)" onMouseOut="hidePop()" # ¢ # 3¹Ô¤¹¤Ù¤Æºï½ü # # »î¤·¤¿Àµµ¬É½¸½ # onMouseOver="refPopUp(\d+{1,3}.,event)" onMouseOut="hidePop()" # # '°Ê²¼¤Î¤è¤¦¤Êʸ»úÎó¤òÃÖ´¹¤Ç¤¹¤Ù¤Æºï½ü¤·¤¿¤¤¤Î¤Ç¤¹¤¬ onMouseOver="refPopUp(1,event)" onMouseOut="hidePop()" onMouseOver="refPopUp(23,event)" onMouseOut="hidePop()" onMouseOver="refPopUp(345,event)" onMouseOut="hidePop()" 3¹Ô¤¹¤Ù¤Æºï½ü'(Lines1,Lines2) :- 'ʸ»úÎó¤òÃÖ´¹¤Ç¤¹¤Ù¤Æºï½ü¤·¤¿¤¤'(Lines1,Lines2). 'ʸ»úÎó¤òÃÖ´¹¤Ç¤¹¤Ù¤Æºï½ü¤·¤¿¤¤'([],[]) :- !. 'ʸ»úÎó¤òÃÖ´¹¤Ç¤¹¤Ù¤Æºï½ü¤·¤¿¤¤'([_ʸ»úÎó|R1],R2) :- !. sub_atom(_ʸ»úÎó,_,_,_,'onMouseOver="refPopUp(',S2,',event)" onMouseOut="hidePop()"',L1,L2,L3), ¤¹¤Ù¤Æ¤¬¿ô»ú(L2), 'ʸ»úÎó¤òÃÖ´¹¤Ç¤¹¤Ù¤Æºï½ü¤·¤¿¤¤'(R1,R2). 'ʸ»úÎó¤òÃÖ´¹¤Ç¤¹¤Ù¤Æºï½ü¤·¤¿¤¤'([_ʸ»úÎó|R1],[_ʸ»úÎó|R2]) :- !. 'ʸ»úÎó¤òÃÖ´¹¤Ç¤¹¤Ù¤Æºï½ü¤·¤¿¤¤'(R1,R2). ¤¹¤Ù¤Æ¤¬¿ôÃÍ([]) :- !. ¤¹¤Ù¤Æ¤¬¿ôÃÍ([A|R]) :- append(_,[A|_],['0','1','2','3','4','5','6','7','8','9']), ¤¹¤Ù¤Æ¤¬¿ôÃÍ(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/498 # PHP Àµµ¬É½¸½¤Ë¤Ä¤¤¤Æ # # $str = 'test1?test2/test3;test4'; # # ¤³¤Îʸ»ú¤Î # test1 # test2 # test3 # test4 # ¤ò¼è¤ê½Ð¤¹¤Ë¤Ï¤É¤¦¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡© # # ¤³¤Î²Á¤ò # data1=test1&data2=test2&data3=test3&data4=test4 # ¤ÈÊÑ´¹¤·¤¿¤¤¤Ç¤¹ # # preg_replace¤ò»È¤Ã¤Æ¤¤¤Þ¤¹ # $str = preg_replace("Ž¥^([a-zA-Z0-9]+\?+[a-zA-Z0-9]+)\/+[a-zA-Z0-9];+[a-zA-Z0-9)$Ž¥","data1=$1&data2=$2&data3=$3&data4=$4",$str)); # # # ¤³¤ì¤Ç¤Ï¥À¥á¤ß¤¿¤¤¤Ç¤¹ # '$str = ''test1?test2/test3;test4''; ¤³¤Îʸ»ú¤Î test1 test2 test3 test4 ¤ò¼è¤ê½Ð¤¹¤Ë¤Ï¤É¤¦¤·¤¿¤é¤è¤¤¤Ç¤·¤ç¤¦¤«¡©'(_ʸ»úÎó,L) :- split(_ʸ»úÎó,['?','/',';'],L). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½Æ»¾ì #494 # ʸ»úx¤¬Î¥»¶¤·¤Æ10¸Ä°Ê¾å¤Ç¤¢¤ë¤«(Ϣ³¤·¤Æ¤¤¤ëÉôʬ¤Ï¿ô¤¨¤Ê¤¤) 'ʸ»úÎó¤ÎÃæ¤Ëʸ»úx¤¬Î¥»¶¤·¤Æ10¸Ä°Ê¾å¤Ç¤¢¤ë¤«(Ϣ³¤·¤Æ¤¤¤ëÉôʬ¤Ï¿ô¤¨¤Ê¤¤)'(_ʸ»úÎó) :- findnsols(10,_,'ʸ»úÎó¤ÎÃæ¤Ë»ØÄêʸ»ú¤Þ¤¿¤ÏϢ³¤·¤¿»ØÄêʸ»ú¤¬Î¥»¶¤·¤ÆÂ¸ºß¤·¤Æ¤¤¤ë¡£'(x,_ʸ»úÎó,_),L),!, length(L,10). 'ʸ»úÎó¤ÎÃæ¤Ë»ØÄêʸ»ú¤Þ¤¿¤ÏϢ³¤·¤¿»ØÄêʸ»ú¤¬Î¥»¶¤·¤ÆÂ¸ºß¤·¤Æ¤¤¤ë¡£'(_»ØÄêʸ»ú,_ʸ»úÎó,_Éûʸ»úÎó) :- 'ʸ»úÎó¤ÎÃæ¤Ë»ØÄêʸ»ú¤Þ¤¿¤ÏϢ³¤·¤¿»ØÄêʸ»ú¤¬Î¥»¶¤·¤ÆÂ¸ºß¤·¤Æ¤¤¤ë¡£'(_»ØÄêʸ»ú,_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó), 'Á°Ê¸»úÎó¤ÎËöÈøÊ¸»ú¤Ï»ØÄêʸ»ú¤Ç¤Ï¤Ê¤¤¤·¡¢¸åʸ»úÎó¤ÎÀèÆ¬Ê¸»ú¤â»ØÄêʸ»ú¤Ç¤Ï¤Ê¤¤¡£'(_»ØÄêʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó). 'ʸ»úÎó¤ÎÃæ¤Ë»ØÄêʸ»ú¤Þ¤¿¤ÏϢ³¤·¤¿»ØÄêʸ»ú¤¬Î¥»¶¤·¤ÆÂ¸ºß¤·¤Æ¤¤¤ë¡£'(_»ØÄêʸ»ú,_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó), 'Éûʸ»úÎó¤Ï¶õʸ»úÎó¤Ç¤Ï¤Ê¤¯¡¢»ØÄêʸ»ú¤Î¤ß¤«¤é¹½À®¤µ¤ì¤ë¡£'(_»ØÄêʸ»ú,_Éûʸ»úÎó). 'Éûʸ»úÎó¤Ï¶õʸ»úÎó¤Ç¤Ï¤Ê¤¯¡¢»ØÄêʸ»ú¤Î¤ß¤«¤é¹½À®¤µ¤ì¤ë¡£'(_»ØÄêʸ»ú,_Éûʸ»úÎó) :- 'Éûʸ»úÎó¤Ï¶õʸ»úÎó¤Ç¤Ï¤Ê¤¯¡¢'(_Éûʸ»úÎó), '»ØÄêʸ»ú¤Î¤ß¤«¤é¹½À®¤µ¤ì¤ë¡£'(_»ØÄêʸ»ú,_Éûʸ»úÎó). 'Éûʸ»úÎó¤Ï¶õʸ»úÎó¤Ç¤Ï¤Ê¤¯'(_Éûʸ»úÎó) :- _Éûʸ»úÎó \== ''. '»ØÄêʸ»ú¤Î¤ß¤«¤é¹½À®¤µ¤ì¤ë¡£'(_»ØÄêʸ»ú,_Éûʸ»úÎó) :- forall(sub_atom(_Éûʸ»úÎó,_,1,_,_ʸ»ú),_ʸ»ú = _»ØÄêʸ»ú). 'Á°Ê¸»úÎó¤ÎËöÈøÊ¸»ú¤Ï»ØÄêʸ»ú¤Ç¤Ï¤Ê¤¤¤·¡¢¸åʸ»úÎó¤ÎÀèÆ¬Ê¸»ú¤â»ØÄêʸ»ú¤Ç¤Ï¤Ê¤¤¡£'(_»ØÄêʸ»ú,_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- 'Á°Ê¸»úÎó¤ÎËöÈøÊ¸»ú¤Ï»ØÄêʸ»ú¤Ç¤Ï¤Ê¤¤¤·¡¢'(_»ØÄêʸ»ú,_Á°Ê¸»úÎó), '¸åʸ»úÎó¤ÎÀèÆ¬Ê¸»ú¤â»ØÄêʸ»ú¤Ç¤Ï¤Ê¤¤¡£'(_»ØÄêʸ»ú,_¸åʸ»úÎó). 'Á°Ê¸»úÎó¤ÎËöÈøÊ¸»ú¤Ï»ØÄêʸ»ú¤Ç¤Ï¤Ê¤¤¤·¡¢'(_»ØÄêʸ»ú,_Á°Ê¸»úÎó) :- \+(sub_atom(_Á°Ê¸»úÎó,_,1,0,_»ØÄêʸ»ú)). '¸åʸ»úÎó¤ÎÀèÆ¬Ê¸»ú¤â»ØÄêʸ»ú¤Ç¤Ï¤Ê¤¤¡£'(_»ØÄêʸ»ú,_¸åʸ»úÎó) :- \+(sub_atom(_¸åʸ»úÎó,0,1,_,_»ØÄêʸ»ú)). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½Æ»¾ì #494 # ʸ»úx¤¬Ï¢Â³¤·¤Æ10¸Ä°Ê¾å¤Ç¤¢¤ë¾ì¹ç¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë¤Î¤Ë ʸ»úx¤¬Ï¢Â³¤·¤Æ10¸Ä°Ê¾å¤Ç¤¢¤ë¾ì¹ç¤Ë¥Þ¥Ã¥Á¤µ¤»¤ë(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó), 'ʸ»úx¤¬Ï¢Â³¤·¤Æ10¸Ä°Ê¾å¡¢Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïx¤Ç¤Ï¤Ê¤¯¡¢¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âx¤Ç¤Ï¤Ê¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). 'ʸ»úx¤¬Ï¢Â³¤·¤Æ10¸Ä°Ê¾å¡¢Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïx¤Ç¤Ï¤Ê¤¯¡¢¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âx¤Ç¤Ï¤Ê¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- 'ʸ»úx¤¬Ï¢Â³¤·¤Æ10¸Ä°Ê¾å¡¢'(_Ŭ¹çʸ»úÎó), 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïx¤Ç¤Ï¤Ê¤¯¡¢¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âx¤Ç¤Ï¤Ê¤¤'(_Á°Ê¸»úÎó,_¸åʸ»úÎó). 'ʸ»úx¤¬Ï¢Â³¤·¤Æ10¸Ä°Ê¾å¡¢'(_Ŭ¹çʸ»úÎó) :- ʸ»úx¤¬Ï¢Â³¤·¤Æ(_Ŭ¹çʸ»úÎó), '10¸Ä°Ê¾å'(_Ŭ¹çʸ»úÎó). ʸ»úx¤¬Ï¢Â³¤·¤Æ(_Ŭ¹çʸ»úÎó) :- forall(sub_atom(_Ŭ¹çʸ»úÎó,_,1,_,_ʸ»ú),_ʸ»ú = x). '10¸Ä°Ê¾å'(_Ŭ¹çʸ»úÎó) :- atom_length(_Ŭ¹çʸ»úÎó,_Ϣ³ʸ»úÎóĹ), _Ϣ³ʸ»úÎóĹ >= 10. 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïx¤Ç¤Ï¤Ê¤¯¡¢¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âx¤Ç¤Ï¤Ê¤¤'(_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïx¤Ç¤Ï¤Ê¤¯¡¢'(_Á°Ê¸»úÎó), '¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âx¤Ç¤Ï¤Ê¤¤'(_¸åʸ»úÎó). 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïx¤Ç¤Ï¤Ê¤¯¡¢'(_Á°Ê¸»úÎó) :- \+('Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïx'(_Á°Ê¸»úÎó)). 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ïx'(_Á°Ê¸»úÎó) :- sub_atom(_Á°Ê¸»úÎó,_,1,0,x). '¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âx¤Ç¤Ï¤Ê¤¤'(_¸åʸ»úÎó) :- \+('¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âx'(_¸åʸ»úÎó)). '¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤âx'(_¸åʸ»úÎó) :- sub_atom(_¸åʸ»úÎó,0,1,_,x). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/480 # php¤Î¥¯¥é¥¹¥Õ¥¡¥¤¥ë¤ÎÆÃÄê¤Î´Ø¿ô¤òÀµµ¬É½¸½¤ÇÈ´¤½Ð¤·¤¿¤¤¤Î¤Ç¤¹¤¬²Äǽ¤Ç¤·¤ç¤¦¤«¡© # # Îã class.test.php ¤«¤é public function test($a){ ËÜʸ } # # ¥¹¥±¥ë¥È¥ó¥³¡¼¥É¤Î¾ì¹ç´Êñ¤ËÈ´¤½Ð¤»¤ë¤Î¤Ç¤¹¤¬¡¢ # ËÜÊ¸Ãæ¤Ëif,swich¤Ê¤É¤Ç } ¤¬Â¸ºß¤·¤¿¾ì¹ç¤É¤¦¤¹¤ì¤ÐÎɤ¤¤Î¤«Çº¤ó¤Ç¤¤¤Þ¤¹¡£ # # 'functionÄêµÁ¤Ç{ } ¤Ç³ç¤é¤ì¤¿ËÜʸ¤ò¼è¤ê½Ð¤¹¡£ËÜÊ¸Ãæ¤Ëif,swich¤Ê¤É¤Ç } ¤¬Â¸ºß¤·¤¿¾ì¹ç¤É¤¦¤¹¤ë¤«'(_ʸ»úÎó,_Á°Ê¸»úÎó,_ËÜʸ,_¸åʸ»úÎó) :- atom_chars(_ʸ»úÎó,Chars), append(L0,[f,u,n,c,t,i,o,n,' '|R1],['{'|R2],Chars), \+(append(_,['{'|_],R1)), ³ç¸Ì¤¬ÊĤ¸¤é¤ì¤ë¤Þ¤ÇÀÚ¤ê¼è¤ë(R2,L,R3), append([_],L1,[_],L11), concat_atom(L11,_ËÜʸ), concat_atom(['}'|R3],_¸åʸ»úÎó), append(L0,[f,u,n,c,t,i,o,n,' '|R1],['{'],L01), concat_atom(L01,_Á°Ê¸»úÎó). ³ç¸Ì¤¬ÊĤ¸¤é¤ì¤ë¤Þ¤ÇÀÚ¤ê¼è¤ë(['}'|R],[],['}'|R]) :- !. ³ç¸Ì¤¬ÊĤ¸¤é¤ì¤ë¤Þ¤ÇÀÚ¤ê¼è¤ë(['{'|R1],L,R) :- ³ç¸Ì¤¬ÊĤ¸¤é¤ì¤ë¤Þ¤ÇÀÚ¤ê¼è¤ë(R1,L1,['}'|R2]), ³ç¸Ì¤¬ÊĤ¸¤é¤ì¤ë¤Þ¤ÇÀÚ¤ê¼è¤ë(R2,L2,R), append(['{'|L1],['}'|L2],L),!. ³ç¸Ì¤¬ÊĤ¸¤é¤ì¤ë¤Þ¤ÇÀÚ¤ê¼è¤ë([A|R1],[A|R2],R) :- ³ç¸Ì¤¬ÊĤ¸¤é¤ì¤ë¤Þ¤ÇÀÚ¤ê¼è¤ë(R1,R2,R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/391 # ¼ÁÌä¤Ç¤¹¡£ # ²¼µ¤Î¤è¤¦¤ÊÇÛÎó¤ÎÃæ¤«¤é¡¢ # (2)¡Á(4)¤Þ¤Ç¤Î¤ß¤òÃê½Ð¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£ # # ¡¡(1) testa@hoge # ¡¡(2) _testb@hage # ¡¡(3) _testc@noge # ¡¡(4) _testd@nage # ¡¡(5) _teste@n_ge # # ¥ë¡¼¥ë¤È¤·¤Æ¤Ï¡¢ # ¡¡¡¦Æ¬¤Ë[_]¤¬ÉÕ¤¤¤Æ¤¤¤ë»ö¡¢ # ¡¡¡¦@¤Î¸å¤í¤Ë[n_]¤¬ÉÕ¤¤¤Æ¤¤¤Ê¤¤»ö # ¤Ç¤¹¡£¾åµÁ°Äó¤Ç²¼µ¤Î¤è¤¦¤Ë½ñ¤¤¤¿¤Î¤Ç¤¹¤¬¡¢ # ¤³¤ì¤Ç¤¹¤È(2)¤·¤«Ãê½Ð¤µ¤ì¤Þ¤»¤ó¤Ç¤·¤¿¡£ # # ¡¡$test =~ /^_.*@[^(n_)]/ # # @¤Î¸å¤í¤ÎÀµµ¬É½¸½¤¬°¤¤¤Î¤À¤È»×¤¦¤ó¤Ç¤¹¤¬¡¢ # ¤³¤Î¾ì¹ç¤É¤Î¤è¤¦¤Ë½ñ¤±¤Ð¤¤¤¤¤ó¤Ç¤·¤ç¤¦¤«¡£ # ¤´¶µ¼¨¤ª´ê¤¤¤·¤Þ¤¹m(_ _)m # '¥ë¡¼¥ë¤È¤·¤Æ¤Ï¡¢Æ¬¤Ë[_]¤¬ÉÕ¤¤¤Æ¤¤¤ë»ö¡¢@¤Î¸å¤í¤Ë[n_]¤¬ÉÕ¤¤¤Æ¤¤¤Ê¤¤»ö'(_Ê£¿ô¹Ôʸ»úÎó,_Ŭ¹ç¹Ô) :- split(_Ê£¿ô¹Ôʸ»úÎó,['\n'],_¹Ô¤Ê¤é¤Ó), append(_,[_¹Ô|_],_¹Ô¤Ê¤é¤Ó), '¥ë¡¼¥ë¤È¤·¤Æ¤Ï¡¢Æ¬¤Ë[_]¤¬ÉÕ¤¤¤Æ¤¤¤ë»ö¡¢@¤Î¸å¤í¤Ë[n_]¤¬ÉÕ¤¤¤Æ¤¤¤Ê¤¤»ö'(_¹Ô). '¥ë¡¼¥ë¤È¤·¤Æ¤Ï¡¢Æ¬¤Ë[_]¤¬ÉÕ¤¤¤Æ¤¤¤ë»ö¡¢@¤Î¸å¤í¤Ë[n_]¤¬ÉÕ¤¤¤Æ¤¤¤Ê¤¤»ö'(_ʸ»úÎó) :- \+(sub_atom(_ʸ»úÎó,0,1,_,'_')), \+(sub_atom(_ʸ»úÎó,_,3,_,'@n_')). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # Àµµ¬É½¸½Æ»¾ì #388 # ¼ÁÌ䤵¤»¤Æ¤¯¤À¤µ¤¤¡£ # OS¤Ïubuntu8.04¤ÇÀµµ¬É½¸½¤òÊÙ¶¯¤·»Ï¤á¤Î¼Ô¤Ç¤¹¡£ # # ÅÅÏÃÈÖ¹æ¤ÈÍ¹ÊØÈֹ椬º®ºß¤·¤Æ¤¤¤ë¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤«¤éÍ¹ÊØÈÖ¹æ¤À¤± # Ãê½Ð¤¹¤ë¤È¤¤¤¦¾ò·ï¤Ê¤ó¤Ç¤¹¤¬¡¢ # # Í¹ÊØÈÖ¹æ¤Ïxxx-xxxx(x¤Ï0-9¤Î¿ô»ú)¡¢ÅÅÏÃÈÖ¹æ¤Ïxx-xxxx-xxxx(x¤Ï0-9¤Î¿ô»ú) # ¤Ç¡¢grep -E [0-9]\{3\}-[0-9]\{4\} ¤È¤ä¤Ã¤Æ¤âÅÅÏÃÈÖ¹æ¤âÁ´¤ÆÃê½Ð¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # ¤É¤³¤¬´Ö°ã¤Ã¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£ # # ÅÅÏÃÈÖ¹æ¤ÈÍ¹ÊØÈֹ椬º®ºß¤·¤Æ¤¤¤ë¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤«¤éÍ¹ÊØÈÖ¹æ¤À¤±Ãê½Ð¤¹¤ë(_ʸ»úÎó,_Á°Ê¸»úÎó,_Í¹ÊØÈÖ¹æ,_¸åʸ»úÎó) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Í¹ÊØÈÖ¹æ,_¸åʸ»úÎó), Í¹ÊØÈÖ¹æ(_Í¹ÊØÈÖ¹æ), 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤È¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Þ¤¿¤Ï"-"¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤é¤Ê¤¤'(_Á°Ê¸»úÎó,_¸åʸ»úÎó). Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). Í¹ÊØÈÖ¹æ(_Í¹ÊØÈÖ¹æ) :- '"-"¤ò¶´¤ó¤ÇÁ°3·å¤È¸å4·å¤Ëʬ³ä¤¹¤ë'(_Í¹ÊØÈÖ¹æ,_Á°3·å,_¸å4·å), 'Á°3·å¤È¸å4·å¤Ï¤È¤â¤Ë¤¹¤Ù¤Æ¿ô»ú¤«¤é¹½À®¤µ¤ì¤ë'(_Á°3·å,_¸å4·å). '"-"¤ò¶´¤ó¤ÇÁ°3·å¤È¸å4·å¤Ëʬ³ä¤¹¤ë'(_Í¹ÊØÈÖ¹æ,_Á°3·å,_¸å4·å) :- Éûʸ»úÎó(_Í¹ÊØÈÖ¹æ,_Á°3·å,'-',_¸å4·å), atom_length(_Á°3·å,3), atom_length(_¸å4·å,4). 'Á°3·å¤È¸å4·å¤Ï¤È¤â¤Ë¤¹¤Ù¤Æ¿ô»ú¤«¤é¹½À®¤µ¤ì¤ë'(_Á°3·å,_¸å4·å) :- 'Á°3·å¤Ï¤¹¤Ù¤Æ¿ô»ú¤«¤é¹½À®¤µ¤ì¤ë'(_Á°3·å), '¸å4·å¤Ï¤¹¤Ù¤Æ¿ô»ú¤«¤é¹½À®¤µ¤ì¤ë'(_¸å4·å). 'Á°3·å¤Ï¤¹¤Ù¤Æ¿ô»ú¤«¤é¹½À®¤µ¤ì¤ë'(_Á°3·å) :- forall(sub_atom(_Á°3·å,_,1,_,_¿ô»ú),¿ô»ú(_¿ô»ú)). '¸å4·å¤Ï¤¹¤Ù¤Æ¿ô»ú¤«¤é¹½À®¤µ¤ì¤ë'(_¸å4·å) :- forall(sub_atom(_¸å4·å,_,1,_,_¿ô»ú),¿ô»ú(_¿ô»ú)). ¿ô»ú(_¿ô»ú) :- member(_¿ô»ú,['0','1','2','3','4','5','6','7','8','9']). 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤È¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Þ¤¿¤Ï"-"¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤é¤Ê¤¤'(_Á°Ê¸»úÎó,_¸åʸ»úÎó) :- 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤Þ¤¿¤Ï"-"¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤é¤Ê¤¤'(_Á°Ê¸»úÎó), '¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Þ¤¿¤Ï"-"¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤é¤Ê¤¤'(_¸åʸ»úÎó). 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤Þ¤¿¤Ï"-"¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤é¤Ê¤¤'(_Á°Ê¸»úÎó) :- \+('Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤«"-"¤Ç¤¢¤ë'(_Á°Ê¸»úÎó)). '¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤Þ¤¿¤Ï"-"¤Ç¤¢¤Ã¤Æ¤Ï¤Ê¤é¤Ê¤¤'(_¸åʸ»úÎó) :- \+('¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤«"-"¤Ç¤¢¤ë'(_¸åʸ»úÎó)). 'Á°Ê¸»úÎó¤ÎºÇ¸å¤Îʸ»ú¤Ï¿ô»ú¤«"-"¤Ç¤¢¤ë'(_Á°Ê¸»úÎó) :- sub_atom(_Á°Ê¸»úÎó,_,1,0,_ºÇ¸å¤Îʸ»ú), '¿ô»ú¤«"-"¤Ç¤¢¤ë'(_ºÇ¸å¤Îʸ»ú). '¸åʸ»úÎó¤ÎºÇ½é¤Îʸ»ú¤Ï¿ô»ú¤«"-"¤Ç¤¢¤ë'(_¸åʸ»úÎó) :- sub_atom(_¸åʸ»úÎó,0,1,_,_ºÇ½é¤Îʸ»ú), '¿ô»ú¤«"-"¤Ç¤¢¤ë'(_ºÇ½é¤Îʸ»ú). '¿ô»ú¤«"-"¤Ç¤¢¤ë'(_ʸ»ú) :- ¿ô»ú(_¿ô»ú). '¿ô»ú¤«"-"¤Ç¤¢¤ë'('-'). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/328 # ¼ÁÌ䤵¤»¤Æ²¼¤µ¤¤¡£ # PHP5¤ò»È¤Ã¤Æ¤¤¤Þ¤¹¡£ # PHP¤ÎÀµµ¬É½¸½´Ø¿ô¤ò»È¤Ã¤Æ¥Ç¡¼¥¿¤ò¼èÆÀ¤·¤è¤¦¤È»×¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¾å¼ê¤¯¤¤¤¤Þ¤»¤ó # <INPUT maxLength=20 name=id value=""> # ¤³¤Î¤è¤¦¤Êʸ»úÎó¤òÂоݤˡ¢Ê¸»úÎó¡Ötype¡×¤¬´Þ¤Þ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢¸åÊý¤Î¡ÖmaxLength=20 name=id value=""¡× # ¤ò¼èÆÀ¤·¤¿¤¤¤Î¤Ç¤¹¡£ # Á´Ê¸¤ËÂФ·¤Æ·«¤êÊÖ¤·¼èÆÀ¤·¤¿¤¤¤Î¤Çpreg_match_all¤ò»È¤Ã¤Æ¤¤¤Þ¤¹¡£ # # preg_match_all( "/<input (^type)[^<](.*?)>/is", $data, $matchs ) # ¤³¤Î¤è¤¦¤Ë½ñ¤¤¤¿¤Î¤Ç¤¹¤¬¥Ò¥Ã¥È¤·¤Æ¤¯¤ì¤Þ¤»¤ó¡£ # ¥É¥¥å¥á¥ó¥È¤ò¸«¤ë¤È¡¢ÆÃÄêʸ»ú¤Ë´Ø¤·¤Æ¤Ï[^a-z]¤Î¤è¤¦¤Ê½ñ¤Êý¤ÇÂбþ¤Ç¤¤ë¤Î¤Ç¤¹¤¬ # ʸ»úÎó¤Ë´Ø¤·¤Æ¤Ï¤É¤Î¤è¤¦¤Ë¤¹¤ì¤Ð¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡© # ¥¢¥É¥Ð¥¤¥¹Äº¤±¤ì¤Ð¹¬¤¤¤Ç¤¹¡£ # µ¹¤·¤¯¤ª´ê¤¤Ãפ·¤Þ¤¹¡£ # # '<INPUT maxLength=20 name=id value="">¤³¤Î¤è¤¦¤Êʸ»úÎó¤òÂоݤˡ¢Ê¸»úÎó¡Ötype¡×¤¬´Þ¤Þ¤ì¤Æ¤¤¤Ê¤¤¾ì¹ç¡¢¸åÊý¤Î¡ÖmaxLength=20 name=id value=""¡×¤ò¼èÆÀ¤·¤¿¤¤'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,S1,S2,S3,L1,['<','I','N','P','U','T',' '|R2],L3), append(L,['>'],R2), \+(append(_,['>'|_],L)), \+(¸¡º÷(S2,type)), concat_atom(L,_Ŭ¹çʸ»úÎó), concat_atom([S1,'% °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/326 # PHP Àµµ¬É½¸½ # # PHP¤ÎÀµµ¬É½¸½¤òÊÙ¶¯¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢¤É¤¦¤â¤¦¤Þ¤¯¤¤¤¤Þ¤»¤ó¡£º£²ó¤Ï°ìÈÖ´Êñ¤ÊÀµµ¬É½¸½¤ò¤Ä¤¯¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¤É¤¦¤ä¤Ã¤¿¤é¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£ # # $h = '(̾Á°)Íͤβñ°÷ID¤Ï(abc12)¤Ç¡¢(5)ÈÖÌܤ˰Τ¤Êý¤Ç¤¹¡£'; # # ¤È¤¢¤Ã¤¿¤é¡¢Ì¾Á°¡¢²ñ°÷ID¡¢ÈÖ¹æ¤òÈ´¤½Ð¤¹¤Ë¤Ï¡¢¤É¤Î¤è¤¦¤Ë¤·¤¿¤é¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡© # ¼ÂºÝ¤Ë()¤Ï»ÈÍѤ·¤Þ¤»¤ó¡£ # ¤Þ¤¿¡¢$1 ¤ä¡¡$2 ¤Ê¤É¤ò»È¤¤¤¿¤¤¤Î¤Ç¤¹¤¬¡¢²òÀâ¤Þ¤Ç¤Ç¤¤ì¤Ð¤ª´ê¤¤¤·¤¿¤¤¤Ç¤¹¡£ # °ì±þ¼«Ê¬¤Ê¤ê¤Ë¹Í¤¨¤Þ¤·¤¿¡£ # preg_match('/^*.([a-zA-Z0-9]){2}([0-9]+)','̾Á°$2.ID$1 $3 ÈÖÌܤ˰Τ¤'); # ()¤ò»È¤¨¤Ð¡¢2¤Ä¥Þ¥Ã¥Á¤µ¤»¤¿¤¤¤È¤¤Ê¤É¤Ëʬ¤±¤ë¤³¤È¤¬¤Ç¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡© # (̾Á°)ÍͤÏ(¿ô»ú) # Îã:ÂÀϺÍͤÏ5 # # ¤³¤Î¤È¤ÂÀϺÍͤȤ¤¤¦ÆüËܸì¤Îʸ»ú¤ò¼èÆÀ¤¹¤ë¤Ë¤Ï/^(+.)([0-9])$/ # # ¤³¤³¤Ç̾Á°¤Ï$1¤Ë¤Ê¤ê¡¢¿ô»ú¤Ï$2¤Ë¤Ê¤ë¤Î¤Ç¤·¤ç¤¦¤«¡© # ¤É¤Î¤è¤¦¤Ê»þ¤Ë$1¤ä$2¤¬¤É¤Ã¤Á¤¬¤É¤Ã¤Á¤Ê¤Î¤«¤Ï¡¢¤É¤Î¤è¤¦¤Ë¤·¤¿¤é¤ï¤«¤ë¤Î¤Ç¤·¤ç¤¦¤«¡© # # # Ĺ¡¹¤·¤¿¼ÁÌ䤹¤¤¤Þ¤»¤ó¡£¤ï¤«¤ë¤«¤¿¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # '(̾Á°)Íͤβñ°÷ID¤Ï(abc12)¤Ç¡¢(5)ÈÖÌܤ˰Τ¤Êý¤Ç¤¹¡£¤È¤¢¤Ã¤¿¤é¡¢Ì¾Á°¡¢²ñ°÷ID¡¢ÈÖ¹æ¤òÈ´¤½Ð¤¹¤Ë¤Ï¡¢¤É¤Î¤è¤¦¤Ë¤·¤¿¤é¤è¤¤¤Î¤Ç¤·¤ç¤¦¤«¡© ¼ÂºÝ¤Ë()¤Ï»ÈÍѤ·¤Þ¤»¤ó¡£ '(_̾Á°,_²ñ°÷ID,_nÈÖÌÜ) :- _ʸ»úÎó = '̾Á°Íͤβñ°÷ID¤Ïabc12¤Ç¡¢5ÈÖÌܤ˰Τ¤Êý¤Ç¤¹¡£', '̾Á°¡¢²ñ°÷ID¡¢ÈÖ¹æ¤òÈ´¤½Ð¤¹'(_ʸ»úÎó,_̾Á°,_²ñ°÷ID,_nÈÖÌÜ). '̾Á°¡¢²ñ°÷ID¡¢ÈÖ¹æ¤òÈ´¤½Ð¤¹'(_ʸ»úÎó,_̾Á°,_²ñ°÷ID,_nÈÖÌÜ) :- split(_ʸ»úÎó,[Íͤβñ°÷ID¤Ï,'¤Ç¡¢',ÈÖÌܤË],[_̾Á°,_²ñ°÷ID,_nÈÖÌÜ|_]. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/94 # ¤¹¤ß¤Þ¤»¤ó¤¬¡¢²Á³Ê¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£ # # Îã # \1,000,000,000 # \12,345 # \1,230 # \200 # \10 # # # ¿ô»ú3¤Ä¤´¤È¤Ë¡¢¥«¥ó¥Þ¤¬Æþ¤ê¡¢ÀèÆ¬¤Ë±ß¥Þ¡¼¥¯¡Ê\¡Ë¤Î¤¯¤ë¤â¤Î¤Ç¤¹¡£ # # Ƚ¤é¤Ê¤¤¤¿¤á¥°¥°¥Ã¤¿¤Î¤Ç¤¹¤¬¡¢Àµµ¬É½¸½¤Ë´Ø¤¹¤ëËܤФ«¤ê¸¡º÷·ë²Ì¤È¤·¤Æ½Ð¤Æ¤¤Þ¤·¤Æ¡Ä¡£ # # '²Á³Ê¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó,_Á°Ê¸»úÎó,_²Á³Êɽ¸½Ê¸»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_²Á³Êɽ¸½Ê¸»úÎó,_¸åʸ»úÎó,L1,['\\'|R2],L3), \+((L3=[A|_],append(_,[A|_],[',','0','1','2','3','4','5','6','7','8','9']))), ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó(R2). ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó([]) :- !. ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó(L) :- length(L,Len), Len =< 3, ¤¹¤Ù¤Æ¿ô»ú(L),!. ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó([A,B,C,','|R]) :- ¤¹¤Ù¤Æ¿ô»ú([A,B,C]), ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó(R). ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó([A,B,','|R]) :- ¤¹¤Ù¤Æ¿ô»ú([A,B]), ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó(R). ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó([A,','|R]) :- ¤¹¤Ù¤Æ¿ô»ú([A]), ¥«¥ó¥ÞÉÕ¤¿ôÃͤʤé¤Ó(R). ¤¹¤Ù¤Æ¿ô»ú([]) :- !. ¤¹¤Ù¤Æ¿ô»ú([A|R]) :- append(_[A|_],['0','1','2','3','4','5','6','7','8','9']), ¤¹¤Ù¤Æ¿ô»ú(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/253 # »þ´Ö(13:00:00¡Á18:00:00)¤Þ¤Ç¤òÀµµ¬É½¸½¤Ç¤¢¤é¤ï¤·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢ # # 1[3-8]:[0-5][0-9]:[0-5][0-9] # # ¤È¤¤¤¦´¶¤¸¤Ëº£¤Ê¤Ã¤Æ¤¤¤Þ¤¹ # 郎¸«¤Æ¤â¤ï¤«¤ê¤ä¤¹¤¤¤·¤³¤ì¤Ç¤â¤¤¤¤¤Î¤Ç¤¹¤¬¡¢¤â¤Ã¤Èû¤¤½ñ¤Êý¤Ï¤Ê¤¤¤â¤Î¤Ç¤·¤ç¤¦¤«¡© # # [0-5][0-9]¤³¤³¤¬È¿Éü¤Ê¤Î¤Ç¡¢([0-5][0-9]:?){2}¤È¤«»×¤¤¤Ä¤¯¤Î¤Ç¤¹¤¬¡¢ # ¤³¤ì¤À¤ÈºÇ¸å¤Ë¥³¥í¥ó¤¬Æþ¤Ã¤Æ¤Æ¤â¥Þ¥Ã¥Á¤·¤Æ¤·¤Þ¤¦¤Î¤Ç²óÈò¤Ç¤¤ë¤è¤¦¤Ê½ñ¤Êý¤Ï¤Ê¤¤¤â¤Î¤«¤Ê¤¡¤È¡£ # # '¥³¥í¥ó¶èÀÚ¤ê¤Î»þʬÉÃÈϰϤÎɽ¸½'(_»þʬÉÃʸ»úÎó,_»þ²¼¸Â,_ʬ²¼¸Â,_Éò¼¸Â,_»þ¾å¸Â,_ʬ¾å¸Â,_Éþå¸Â,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_»þʬÉÃʸ»úÎó,_,_,_,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,_,[A1,A2,:,B1,B2,:,C1,C2],_), ºÇ¸å¤¬¿ô»ú¤Þ¤¿¤Ï¥³¥í¥ó¤Ç¤Ï¤Ê¤¤(L1), ÀèÆ¬¤¬¿ô»ú¤Þ¤¿¤Ï¥³¥í¥ó¤Ç¤Ï¤Ê¤¤(L3), H is H1 * 10 + H2, M is M1 * 10 + M2, S is S1 * 10 + S2, [H,M,S] @>= [_»þ²¼¸Â,_ʬ²¼¸Â,_Éò¼¸Â], [H,M,S] @=< [_»þ¾å¸Â,_ʬ¾å¸Â,_Éþå¸Â]. ºÇ¸å¤¬¿ô»ú¤Þ¤¿¤Ï¥³¥í¥ó¤Ç¤Ï¤Ê¤¤(L) :- last(L,A), append(_,[A|_],['0','1','2','3','4','5','6','7','8','9',':']), !,fail. ºÇ¸å¤¬¿ô»ú¤Þ¤¿¤Ï¥³¥í¥ó¤Ç¤Ï¤Ê¤¤(_). ºÇ½é¤¬¿ô»ú¤Þ¤¿¤Ï¥³¥í¥ó¤Ç¤Ï¤Ê¤¤([A|_]) :- append(_,[A|_],['0','1','2','3','4','5','6','7','8','9',':']), !,fail. ºÇ¸å¤¬¿ô»ú¤Þ¤¿¤Ï¥³¥í¥ó¤Ç¤Ï¤Ê¤¤(_). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/224 # ¡Ö¤¢¤¤¤¦¤¨¤ªABC+F481ABC+F485¤«¤¤¯¤±¤³ABC+F7A5¤µ¤·¤¹¤»¤½ABC+F3F0ABC+F39E¤¿¤Á¤Ä¤Æ¤ÈABC+F65A¤Ê¤Ë¤Ì¤Í¤ÎABC+F485ABC+F7A5¤Ï¤Ò¤Õ¤Ø¤ÛABC+F7A5ABC+F39E¤Þ¤ß¤à¤á¤â¡× # # ¾åµ¤ÎÃæ¤Ë¡¢¡ÖABC+16¿Ê¿ôx2²ó¡×¤¬¤¤¤¯¤Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«¤òPHP¤ÎÀµµ¬É½¸½¤Çɽ¤¹¤Ë¤Ï¤É¤¦¤«¤±¤Ð¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡© # ¤´ÊÜÚ¥¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£ # 'ʸ»úÎó¤ÎÃæ¤Ë¡ÖABC+16¿Ê¿ôx2²ó¡×¤¬¤¤¤¯¤Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(_ʸ»úÎó,_¤¤¤¯¤Ä) :- atom_chars(_ʸ»úÎó,Chars), '¤Ê¤é¤Ó¤ÎÃæ¤Ë¡ÖABC+16¿Ê¿ôx2²ó¡×¤¬¤¤¤¯¤Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(Chars,[],Ln), length(Ln,_¤¤¤¯¤Ä). '¤Ê¤é¤Ó¤ÎÃæ¤Ë¡ÖABC+16¿Ê¿ôx2²ó¡×¤¬¤¤¤¯¤Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'([],Ln,Ln) :- !. '¤Ê¤é¤Ó¤ÎÃæ¤Ë¡ÖABC+16¿Ê¿ôx2²ó¡×¤¬¤¤¤¯¤Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(['A','B','C','+',X1,X2,X3,X4|R1],Ln1,Ln) :- ¤¹¤Ù¤Æ16¿Ê¿ôʸ»ú([X1,X2,X3,X4]), '¤Ê¤é¤Ó¤ÎÃæ¤Ë¡ÖABC+16¿Ê¿ôx2²ó¡×¤¬¤¤¤¯¤Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(Ln,R1,[_|Ln1]). '¤Ê¤é¤Ó¤ÎÃæ¤Ë¡ÖABC+16¿Ê¿ôx2²ó¡×¤¬¤¤¤¯¤Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'([_|R1],Ln1,Ln) :- '¤Ê¤é¤Ó¤ÎÃæ¤Ë¡ÖABC+16¿Ê¿ôx2²ó¡×¤¬¤¤¤¯¤Ä´Þ¤Þ¤ì¤Æ¤¤¤ë¤«'(R1,Ln1,Ln). ¤¹¤Ù¤Æ16¿Ê¿ôʸ»ú([]) :- !. ¤¹¤Ù¤Æ16¿Ê¿ôʸ»ú([A|R]) :- member(A,['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F']), ¤¹¤Ù¤Æ16¿Ê¿ôʸ»ú(R). ÀèÆ¬¤«¤é16¿Ê¿ôʸ»ú¤Ê¤é¤Ó([],[],[]) :- !. ÀèÆ¬¤«¤é16¿Ê¿ôʸ»ú¤Ê¤é¤Ó([A|R1],[A|R2],R) :- member(A,['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F']), ÀèÆ¬¤«¤é16¿Ê¿ôʸ»ú¤Ê¤é¤Ó(R1,R2,R),!. ÀèÆ¬¤«¤é16¿Ê¿ôʸ»ú¤Ê¤é¤Ó(L,[],L). '16¿Ê¿ôɽ¼¨Ê¸»ú¤Ê¤é¤Ó'(['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F']). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/102 # VB.NET¤ÇÀµµ¬É½¸½¤ò½ñ¤¤¤Æ¤¤¤Þ¤¹¡£ # ¾ò·ï¤È¤·¤Æ¤Ï¡¢¡ÖA0123¡×¤Î¤è¤¦¤Ë¡¢ÀèÆ¬¤¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤ÎA¤Ç¤½¤Î¾¤¬¿ô»ú4·å¤È¤¤¤¦Àµµ¬É½¸½¤È¡¢ # ¡Ö01234¡×¤Î¤è¤¦¤Ê¿ô»ú5·å¤È¤¤¤¦Æó¼ïÎà¤Î¤É¤Á¤é¤«¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤òºî¤Ã¤Æ¤¤¤Þ¤¹¡£ # Àµµ¬É½¸½¤Ï¶ì¼ê¤Çº¤¤Ã¤Æ¤¤¤Þ¤¹¡£ # ¤É¤Ê¤¿¤«¤´¶µ¼ø²¼¤µ¤¤¡£ # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # '¡ÖA0123¡×¤Î¤è¤¦¤Ë¡¢ÀèÆ¬¤¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤ÎA¤Ç¤½¤Î¾¤¬¿ô»ú4·å¤«¡Ö01234¡×¤Î¤è¤¦¤Ê¿ô»ú5·å¤È¤¤¤¦Æó¼ïÎà¤Î¤É¤Á¤é¤«'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,St,5,R,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), L2=['A'|R1]), ¤¹¤Ù¤Æ¤¬¿ô»ú(R2). '¡ÖA0123¡×¤Î¤è¤¦¤Ë¡¢ÀèÆ¬¤¬¥¢¥ë¥Õ¥¡¥Ù¥Ã¥È¤ÎA¤Ç¤½¤Î¾¤¬¿ô»ú4·å¤«¡Ö01234¡×¤Î¤è¤¦¤Ê¿ô»ú5·å¤È¤¤¤¦Æó¼ïÎà¤Î¤É¤Á¤é¤«'(_ʸ»úÎó,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó) :- sub_atom(_ʸ»úÎó,St,5,R,_Á°Ê¸»úÎó,_Ŭ¹çʸ»úÎó,_¸åʸ»úÎó,L1,L2,L3), ¤¹¤Ù¤Æ¤¬¿ô»ú(L2). ¤¹¤Ù¤Æ¤¬¿ô»ú([]) :- !. ¤¹¤Ù¤Æ¤¬¿ô»ú([A|R]) :- append(_,[A|_],['0','1','2','3','4','5','6','7','8','9']), ¤¹¤Ù¤Æ¤¬¿ô»ú(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/92 # IP¤òÀµµ¬É½¸½¤Ç¥Á¥§¥Ã¥¯¤·¤¿¤¤¤Î¤Ç¤¹¤¬ # 210.000.111.1¡Á210.000.111.255 # 215.100.000.1¡Á215.100.000.255 # ¤Î£²¤Ä¤ËÅö¤Æ¤Ï¤Þ¤ë¾ì¹ç¡¢TRUE¡Êint1¡Ë¤ò¤«¤¨¤¹¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Ç¤·¤ç¤¦¤«¡© # °Ê²¼¤Î¤è¤¦¤Ë¤ä¤Ã¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬Â¾¤ÎIP¤Ç¤âint(1)¤¬¤«¤¨¤Ã¤Æ¤¤Þ¤¹¡£ # # preg_match('/^210\.000\.111\.([0-9]{2}|1[0-9]{2}|2[0-4][0-9]|25[0-5])$ || ^215\.100\.000\.([0-9]{2}|1[0-9]{2}|2[0-4][0-9]|25[0-5])$/', $_SERVER['REMOTE_ADDR']) # # 'IP¤¬210.000.111.1¡Á210.000.111.255 ¤« 215.100.000.1¡Á215.100.000.255 ¤ÎÈϰϤˤ¢¤ë'(IP) :- split(IP,['.'],[210,0,111,D]), D >= 1, D =< 255,!. 'IP¤¬210.000.111.1¡Á210.000.111.255 ¤« 215.100.000.1¡Á215.100.000.255 ¤ÎÈϰϤˤ¢¤ë'(IP) :- split(IP,['.'],[215,100,0,D]), D >= 1, D =< 255,!. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 'IP¤¬¤¢¤ëÈϰϤˤ¢¤ë¤«'(IP¤Îʸ»úÎóɽ¸½,IP¤ÎÈϰÏɽ¸½) :- split(IP¤Îʸ»úÎóɽ¸½,[U1,U2,U3,U4]), split(IP¤ÎÈϰÏɽ¸½,['~'],[IP1,IP2]), split(IP1,['.'],[A1,A2,A3,A4]), split(IP2,['.'],[B1,B2,B3,B4]), U1 >= A1,U1 =< B1, U2 >= A2,U2 =< B2, U3 >= A3,U3 =< B3, U4 >= A4,U4 =< B4,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/php/1168450843/71 # php5¤Ç¤¹¡£¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¤ò¥Ç¥£¥ì¥¯¥È¥ê,¥Õ¥¡¥¤¥ë̾,³ÈÄ¥»Ò¤Ëʬ³ä¤·¤Æ¤½¤ÎÇÛÎó¤òÊÖ¤·¤¿¤¯¤Æ¤³¤¦½ñ¤¤Þ¤·¤¿¡£ # # $pattern1 = '`^(.*)(?:[/\\\](.*)){1}$`'; # preg_match($pattern1, $fullpath, $match1); # $pos = strpos($match1[2], '.'); # if($pos === false){ # return array($match1[1], $match1[2]); # }else{ # $pattern2='`^(.*?)\.(.*)$`'; # preg_match($pattern2, $match1[2], $match2); # return array($match1[1], $match2[1], $match2[2]); # } # # ɬ¤º³ÈÄ¥»Ò¤¬¤¢¤ë¤Ê¤é°ìÅÙ¤Îpreg_match¤Ç¥¥ã¥×¥Á¥ã½ÐÍ褿¤Î¤Ç¤¹¤¬ # ³ÈÄ¥»Ò̵¤·¥Õ¥¡¥¤¥ëº®¤¸¤ê¤À¤Ã¤¿¾ì¹ç¤ÎÀµµ¬É½¸½¤¬¤¦¤Þ¤¯»×¤¤¤Ä¤«¤º¤ËÆóÃʳ¬¡Ê»°Ãʳ¬¡©¡Ë¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤·¤¿ # ¤Ç¤âpreg_match¤ä¤Ã¤Æ¤½¤ÎÃæ¤Ç'.'õ¤·¤Æ¡¢¤¢¤Ã¤¿¤é¤µ¤é¤Ëpreg_match¤È¤¤¤¦¤Î¤Ï¤Þ¤ï¤ê¤¯¤É¤¤¤è¤¦¤Ë»×¤¤¤Þ¤¹ # # ¤³¤Î½èÍý¤ò°ìÅ٤ˤ³¤Ê¤¹Àµµ¬É½¸½¤Î¹Í¤¨Êý¤Î¥Ò¥ó¥È¤ò¤¯¤À¤µ¤¤ # # '¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¤ò¥Ç¥£¥ì¥¯¥È¥ê,¥Õ¥¡¥¤¥ë̾,³ÈÄ¥»Ò¤Ëʬ³ä'(_¥Õ¥¡¥¤¥ë̾,_¥Ç¥£¥ì¥¯¥È¥ê,_¥Õ¥¡¥¤¥ë̾,_³ÈÄ¥»Ò) :- sPLIT(_¥Õ¥¡¥¤¥ë̾,['/','.'],L), append(L0,[_¥Õ¥¡¥¤¥ë,'.',_³ÈÄ¥»Ò],L), concat_atom(L0,_¥Ç¥£¥ì¥¯¥È¥ê),!. '¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¤ò¥Ç¥£¥ì¥¯¥È¥ê,¥Õ¥¡¥¤¥ë̾,³ÈÄ¥»Ò¤Ëʬ³ä'(_¥Õ¥¡¥¤¥ë̾,_¥Ç¥£¥ì¥¯¥È¥ê,_¥Õ¥¡¥¤¥ë̾,''). sPLIT(_¥Õ¥¡¥¤¥ë̾,['/','.'],L), append(L0,[_¥Õ¥¡¥¤¥ë],L), concat_atom(L0,_¥Ç¥£¥ì¥¯¥È¥ê),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ¸¡º÷¤·¤¿¤¤»ú¶ç¤¬Â¸ºß¤·¤Æ¤â¤·¤Ê¤¯¤Æ¤â # ¥Þ¥Ã¥Á¤µ¤»¤ë¤Ë¤Ï¤É¤¦¤·¤¿¤é¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡© # #'|R2],[' ÎÁÍý¤Î²òÀâ1 #
ÎÁÍý¤Î²òÀâ2 # # ¤Ã¤È¤¤¤¦¥¿¥°¤¬¤¢¤Ã¤Æ¤³¤ì¤«¤é # # 1¹ÔÌܤǤϡ¢ # ¡¡\1 ¢ª ¥ª¥à¥ì¥Ä.jpg # ¡¡\2 ¢ª ¤ª¤¤¤·¤¤ÎÁÍý # ¡¡\3 ¢ª ÎÁÍý¤Î²òÀ⣱ # 2¹ÔÌÜ¤Ç¤Ï # ¡¡\1 ¢ª ¥«¥ÄЧ.jpg # ¡¡\2 ¢ª # ¡¡\3 ¢ª ÎÁÍý¤Î²òÀâ2 # # ¤È¤¤¤¦¤è¤¦¤Ë¤·¤¿¤¤¤Î¤Ç¤¹¡£ # src="(.*?)".*?alt="(.*?)".*?(.*?) # ¢¬¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò¹Í¤¨¤¿¤Î¤Ç¤¹¤¬ # ¤³¤ì¤ò2¹ÔÌܤˤâÀµ¤·¤¯¥Þ¥Ã¥Á¤Ç¤¤ë¤è¤¦¤Ë # ½¤Àµ¤·¤Æ¤¤¤¿¤À¤±¤Þ¤»¤ó¤«¡© '¸¡º÷¤·¤¿¤¤»ú¶ç¤¬Â¸ºß¤·¤Æ¤â¤·¤Ê¤¯¤Æ¤â¥Þ¥Ã¥Á¤µ¤»¤ë'(_ʸ»úÎó,[Atom1,Atom2,Atom3]) :- atom_chars(_ʸ»úÎó,Chars), 'src='(Chars,Atom1,Chars1), 'alt='(Chars1,Atom2,Chars2), ''(Chars2,Atom3,Chars3). 'src='(Chars,Atom,R2) :- append(_,[s,r,c,=,"|R1],['"'|R2],Chars), concat_atom(R1,Atom),!. 'src='(Chars,'',Chars) :- !. 'alt='(Chars,Atom,R2) :- append(_,[a,l,t,=,"|R1],['"'|R2],Chars), concat_atom(R1,Atom),!. 'alt='(Chars,'',Chars) :- !. ''(Chars,Atom,R2) :- append(_,[<,b,>|R1],[<,/,b,>|R2],Chars), concat_atom(R5,Atom),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/467 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # .net(C#3.0) # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¶õÇò¤ò¥Ç¥ê¥ß¥¿¤È¤·¤Æ¡¢ºÇ½é¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤ # ¶õÇò¤ÏȾ³ÑÁ´³ÑξÊý¤¢¤ê¡¢Ê£¿ôϢ³¤¹¤ë¤³¤È¤â¤¢¤êÆÀ¤ë # ¤¿¤À¤·¡¢¡Ê¡Ë¤ä[]¤Ç°Ï¤Þ¤ì¤ëʸ»úÎó¤Ï¥¹¥ë¡¼¡Ê¶õÇò¤È¤·¤Æ½èÍý¤¹¤ë¡Ë # Àµµ¬É½¸½°ìȯ¤ÇÈ´¤½Ð¤·¤¿¤¤¤Ç¤¹ # # ²¼µÎã¤Î³Æ¹Ô¤ÏÁ´¤Æ¡Ö»³ÅÄÂÀϺ¡×¤À¤±Ãê½Ð¤µ¤ì¤ë¤è¤¦¤Ë¤·¤¿¤¤¤Ç¤¹ # # »³ÅÄÂÀϺ¡¡39ºÍ # ¡¡»³ÅÄÂÀϺ¡¡39ºÍ # (A¼Ò)¡¡»³ÅÄÂÀϺ¡¡39ºÍ # (A¼Ò)»³ÅÄÂÀϺ¡¡¡¡39ºÍ # ¡ÊA¼Ò¡¡B²Ý¡Ë»³ÅÄÂÀϺ¡¡39ºÍ # »³ÅÄÂÀϺ¡ÊA¼Ò)39ºÍ '¶õÇò¤ò¥Ç¥ê¥ß¥¿¤È¤·¤Æ¡¢ºÇ½é¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤¡£¶õÇò¤ÏȾ³ÑÁ´³ÑξÊý¤¢¤ê¡¢Ê£¿ôϢ³¤¹¤ë¤³¤È¤â¤¢¤êÆÀ¤ë¤¿¤À¤·¡¢¡Ê¡Ë¤ä[]¤Ç°Ï¤Þ¤ì¤ëʸ»úÎó¤Ï¥¹¥ë¡¼¡Ê¶õÇò¤È¤·¤Æ½èÍý¤¹¤ë¡Ë'(_ʸ»úÎó,_ºÇ½é¤Îʸ»úÎó) :- split(_ʸ»úÎó,[' ','¡¡','(',')','[',']'],L1), '¶õÇò¤ò¥Ç¥ê¥ß¥¿¤È¤·¤Æ¡¢ºÇ½é¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤¡£'(L1,_ºÇ½é¤Îʸ»úÎó). '¶õÇò¤ò¥Ç¥ê¥ß¥¿¤È¤·¤Æ¡¢ºÇ½é¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤¡£'(L1,Atom) :- '¡Ê¡Ë¤ä[]¤Ç°Ï¤Þ¤ì¤ëʸ»úÎó¤Ï¥¹¥ë¡¼¡Ê¶õÇò¤È¤·¤Æ½èÍý¤¹¤ë¡Ë'(L1,L2), '¶õÇò¤ò¥Ç¥ê¥ß¥¿¤È¤·¤Æ¡¢ºÇ½é¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤¡£'(L2,Atom),!. '¶õÇò¤ò¥Ç¥ê¥ß¥¿¤È¤·¤Æ¡¢ºÇ½é¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤¡£'(L1,Atom) :- ¶õÇò¤ÏȾ³ÑÁ´³ÑξÊý¤¢¤ê¡¢Ê£¿ôϢ³¤¹¤ë¤³¤È¤â¤¢¤êÆÀ¤ë(L1,L2), '¶õÇò¤ò¥Ç¥ê¥ß¥¿¤È¤·¤Æ¡¢ºÇ½é¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤¡£'(L2,Atom),!. '¶õÇò¤ò¥Ç¥ê¥ß¥¿¤È¤·¤Æ¡¢ºÇ½é¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤¡£'([A|_],Atom). '¡Ê¡Ë¤ä[]¤Ç°Ï¤Þ¤ì¤ëʸ»úÎó¤Ï¥¹¥ë¡¼¡Ê¶õÇò¤È¤·¤Æ½èÍý¤¹¤ë¡Ë'(L1,L2) :- append(L0,['('|R1],[')'|R2],L1), append(L0,[' '|R2],L2),!. '¡Ê¡Ë¤ä[]¤Ç°Ï¤Þ¤ì¤ëʸ»úÎó¤Ï¥¹¥ë¡¼¡Ê¶õÇò¤È¤·¤Æ½èÍý¤¹¤ë¡Ë'(L1,L2) :- append(L0,['['|R1],[']'|R2],L1), append(L0,[' '|R2],L2),!. ¶õÇò¤ÏȾ³ÑÁ´³ÑξÊý¤¢¤ê¡¢Ê£¿ôϢ³¤¹¤ë¤³¤È¤â¤¢¤êÆÀ¤ë([],[]) :- !. ¶õÇò¤ÏȾ³ÑÁ´³ÑξÊý¤¢¤ê¡¢Ê£¿ôϢ³¤¹¤ë¤³¤È¤â¤¢¤êÆÀ¤ë([' '|R1],R2) :- ¶õÇò¤ÏȾ³ÑÁ´³ÑξÊý¤¢¤ê¡¢Ê£¿ôϢ³¤¹¤ë¤³¤È¤â¤¢¤êÆÀ¤ë(R1,R2),!. ¶õÇò¤ÏȾ³ÑÁ´³ÑξÊý¤¢¤ê¡¢Ê£¿ôϢ³¤¹¤ë¤³¤È¤â¤¢¤êÆÀ¤ë(['¡¡'|R1],R2) :- ¶õÇò¤ÏȾ³ÑÁ´³ÑξÊý¤¢¤ê¡¢Ê£¿ôϢ³¤¹¤ë¤³¤È¤â¤¢¤êÆÀ¤ë(R1,R2),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/417 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # ½¨´Ý 8.0.2 b5 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¾ò·ï¤Ë¥Þ¥Ã¥Á¤¹¤ë¹Ô¤ò»ØÄê¿ô¤À¤±Ãê½Ð¤¹¤ë # # ¡üÂоݥǡ¼¥¿ # a hogehoge1 # b hogehoge2 # c hogehoge3 # a hogehoge4 # a hogehoge5 # c hogehoge6 # a hogehoge7 # b hogehoge8 # # ¡ü´õ˾¤¹¤ë·ë²Ì # "a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë # a hogehoge1 # a hogehoge4 # a hogehoge5 # # µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # % % 3¤Ä¤À¤±¤È¸À¤¦¾ì¹ç¡¢3¤Ä̤Ëþ¤À¤Ã¤¿»þ¤É¤¦¤¹¤ë¤«¡£fail¤Ë¤¹¤ë¤Ê¤é2°ú¿ô¤ÎÊý¤ÎÂè°ìÀá¤òºï½ü¤¹¤ë¡£ % '"a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë'(Lines) :- '"a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë'([_,_,_],Lines). '"a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë'(_,[]) :- !. '"a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë'([],_) :- !. '"a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë'([_|Ln],[Line|R]) :- sub_atom(Line,0,_,_,'a '), write_fromatted('%t\n',[Line]), '"a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë'(Ln,R),!. '"a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë'(Ln,[_|R]) :- '"a " ¤Ç»Ï¤Þ¤ë¹Ô¤ò 3 ¤Ä¤À¤±É½¼¨¤µ¤»¤ë'(Ln,R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/385 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # .net Framework 2.0 - 3.5 (C#) # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # artist, title¤Î³Æ¥°¥ë¡¼¥×¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # Artist - Title # # ¡ü´õ˾¤¹¤ë·ë²Ì # artist = Artist # title = Title # # ¤è¤í¤·¤¯¤ª¤Í¤¬¤¤¤·¤Þ¤¹¡£ # 'artist, title¤Î³Æ¥°¥ë¡¼¥×¤Îʸ»úÎó¤ò¼èÆÀ¤·¤¿¤¤'(_Âоݥǡ¼¥¿,_´õ˾¤¹¤ë·ë²Ì) :- split(_Âоݥǡ¼¥¿,[' '],L), 'artist, title¤ÎÀÚ¤ê½Ð¤·'(L,Artist,Title), write_formatted_atom(_´õ˾¤¹¤ë·ë²Ì,'artist = %t\ntitle = %t',[Artist,Title]). 'artist, title¤ÎÀÚ¤ê½Ð¤·'([Artist,Title],Artist,Title) :- !. 'artist, title¤ÎÀÚ¤ê½Ð¤·'([Artist,_,Title|_],Artist,Title) :- !. % °Ê²¼¤Î¥µ¥¤¥È¤Ï # ½Ðŵ :: Àµµ¬É½¸½ Part7 #332 # ¡ü´Ä¶ # vb.net # # ¡ü¤·¤¿¤¤¤³¤È # 3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½¤òÃê½Ð # # ¡ü¥µ¥ó¥×¥ë # Îãʸ1¡Ë»à¤Ë¤¿¤¤»à¤Ë¤¿¤¤»à¤Ë¤¿¤¤»à¤Ë¤¿¤¤»à¤Ë¤¿¤¤ # ·ë²Ì1¡Ë»à¤Ë¤¿¤¤ # # ¡ü¤·¤¿¤¤¤³¤È # 2²Õ½ê°Ê¾å½Ð¸½¤¹¤ë3ʸ»ú°Ê¾å¤Îʸ»úÎó # # Îãʸ2¡Ë¶ÚÆù¥Ð¥¹¥¿¡¼¤È°¤½¤Íå¥Ð¥¹¥¿¡¼ # ·ë²Ì2¡Ë¥Ð¥¹¥¿¡¼ # # # ¤Ã¤Æ¤Î¤òÀµµ¬É½¸½¤Ç¤ä¤ë¤Î¤Ï̵Íý¤Ç¤·¤ç¤¦¤«¡¦¡¦¡¦ # '½ÅÊ£¤·¤Ê¤¤3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½¤òÃê½Ð'(_ʸ»úÎó,_½ÅÊ£¤·¤Ê¤¤3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½¤Ê¤é¤Ó) :- setof(_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½,( _3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½ ^ '3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½¤òÃê½Ð'(_ʸ»úÎó,_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½)),_½ÅÊ£¤·¤Ê¤¤3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½¤Ê¤é¤Ó). '3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½¤òÃê½Ð'(_ʸ»úÎó,_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½) :- Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½,_¸åʸ»úÎó), '3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½¤ò'(_ʸ»úÎó,_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½,_¸åʸ»úÎó). '3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½¤ò'(_ʸ»úÎó,_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½,_¸åʸ»úÎó) :- '3ʸ»ú°Ê¾å¤Î'(_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½,_ʸ»úĹ), sub_atom(_¸åʸ»úÎó,_,_ʸ»úĹ,_,_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½). '3ʸ»ú°Ê¾å¤Î'(_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½,_ʸ»úĹ) :- atom_length(_3ʸ»ú°Ê¾å¤Î·«¤êÊÖ¤·É½¸½,_ʸ»úĹ), _ʸ»úĹ >= 3. Éûʸ»úÎó(_ʸ»úÎó,_Á°Ê¸»úÎó,_Éûʸ»úÎó,_¸åʸ»úÎó) :- atom_concat(_Á°Ê¸»úÎó,_»Ä¤êʸ»úÎó,_ʸ»úÎó), atom_concat(_Éûʸ»úÎó,_¸åʸ»úÎó,_»Ä¤êʸ»úÎó). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/316 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP5 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # [[ ¤È ]] ¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó¤òÇÛÎó¤Ç¼èÆÀ¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # [[hare]][[ame]][[kumori]][[yuki]][[]][[kaminari]][[taifuu]] # # ¡ü´õ˾¤¹¤ë·ë²Ì # matches[0] = hare # matches[1] = ame # matches[2] = kumori # matches[3] = yuki # matches[4] = # matches[5] = kaminari # matches[6] = taifuu # # ¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # '[[ ¤È ]] ¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¤Ê¤é¤Ó¤È¤·¤Æ¼èÆÀ¤·¤¿¤¤'(_ʸ»úÎó,L) :- atom_chars(_ʸ»úÎó,Chars), 'ʸ»ú¤Ê¤é¤Ó¤«¤é[[ ¤È ]] ¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¤Ê¤é¤Ó¤È¤·¤Æ¼èÆÀ¤·¤¿¤¤'(Chars,L). 'ʸ»ú¤Ê¤é¤Ó¤«¤é[[ ¤È ]] ¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¤Ê¤é¤Ó¤È¤·¤Æ¼èÆÀ¤·¤¿¤¤'(Chars,[_ʸ»úÎó1|R]) :- append(L0,['[','['|R1],[']',']'|R2],Chars), concat_atom(R1,_ʸ»úÎó1), 'ʸ»ú¤Ê¤é¤Ó¤«¤é[[ ¤È ]] ¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¤Ê¤é¤Ó¤È¤·¤Æ¼èÆÀ¤·¤¿¤¤'(R2,R),!. 'ʸ»ú¤Ê¤é¤Ó¤«¤é[[ ¤È ]] ¤Ë°Ï¤Þ¤ì¤¿Ê¸»úÎó¤ò¤Ê¤é¤Ó¤È¤·¤Æ¼èÆÀ¤·¤¿¤¤'(_,[]) :- !. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/703 # »£±Æ¤·¤¿¼Ì¿¿¤ËÉÕ¤±¤¿Ì¾Á°¤ò°ì³çÊѹ¹¤·¤è¤¦¤È»×¤¤¡¢ # Àµµ¬É½¸½¤ò°·¤¨¤ëFlexible Renamer¤òÍѤ¤¤Æ¿§¡¹¤È»î¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢¤¤¤Þ¤¤¤Á¹Ô¤¤¤¿¤¤¤³¤È¤¬½ÐÍè¤Þ¤»¤ó¡£ # ¥Õ¥¡¥¤¥ë¤ËÉÕ¤¤¤Æ¤¤¤ë°ìÄê¤Îˡ§¤Ç¤Ä¤¤¤Æ¤¤¤ë¶¦Ä̤·¤¿¥¿¥°¤ò¡¢¥Õ¥¡¥¤¥ë̾¤ÎËöÈø¤Ë"°Üư"¤µ¤»¤¿¤¤¤Î¤Ç¤¹¡£ # Îã: [2010-12-13] [IN] AABBCC.nef -> [IN] AABBCC [2010-12-13].nef # ¸¡º÷¤Ç¤Ï \[20..-..-..] ¤ÈÂǤĤ³¤È¤Ç»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤¤¿¤Î¤Ç¤¹¤¬¡¢°Üư¤Î»ÅÊý¤¬¸¡º÷¤·¤Æ¤â¸«¤Ä¤«¤ê¤Þ¤»¤ó¡Ä # # Àµµ¬É½¸½¤Ç¤Ï"°Üư"¤ò¹Ô¤¦¤³¤È¤Ï½ÐÍè¤Ê¤¤¤Î¤Ç¤·¤ç¤¦¤«¡© # ¤É¤¦¤«¤´¶µ¼¨¤ª´ê¤¤¤·¤Þ¤¹¡ª # '¥Õ¥¡¥¤¥ë̾¤ËÉÕ¤¤¤Æ¤¤¤ë°ìÄê¤Îˡ§¤Ç¤Ä¤¤¤Æ¤¤¤ë¶¦Ä̤·¤¿¥¿¥°¤ò¡¢¥Õ¥¡¥¤¥ë̾¤ÎËöÈø¤Ë"°Üư"¤µ¤»¤¿¤¤'(_¥Õ¥¡¥¤¥ë̾,_¥¿¥°¤òËöÈø¤Ë°Üư¤·¤¿¥Õ¥¡¥¤¥ë̾) :- sPLIT(_¥Õ¥¡¥¤¥ë̾,['[',']','.','-'],L), append(L0,['[',A,-,B,-,C,']'|R],L), sub_atom(A,0,2,_,'20'), append(R0,['.'|R1],R), append(L0,['[',A,-,B,-,C,']'|R0],[.|R1],L), concat_atom(L,_¥¿¥°¤òËöÈø¤Ë°Üư¤·¤¿¥Õ¥¡¥¤¥ë̾),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/678 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # Devas¡Ê¥Ç¥£¥ì¥¯¥È¥êÆâ¤ÎºÆµ¢¸¡º÷µÚ¤ÓÃÖ´¹¥½¥Õ¥È¤ÇGrep¸ß´¹¡Ë # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷¤ÈÃÖ´¹ # # ¡üÀâÌÀ # HTML¤Îa¥¿¥°¤Ëonclick°À¤òÄɲᤤޤ¿¤ÏÄɵ¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # ¿ôÉ´¤ÎSmarty¥Æ¥ó¥×¥ì¡¼¥È # ¡ÊHTML¤ä¥Õ¥ì¡¼¥à¥ï¡¼¥¯¤Î¥³¡¼¥É¤ò´Þ¤àʸ»úÎó¡Ë # ñ½ã¤Ë<a href¤Ç»Ï¤Þ¤ë¤â¤Î¤Ð¤«¤ê¤Ç¤Ï¤Ê¤¯¡¤<a classÅù¤Ç»Ï¤Þ¤ë¤â¤Î¤â¤¢¤ë # # ¡ü´õ˾¤¹¤ë·ë²Ì # html¤Îa¥¿¥°¤«¤é # href="xxxxx-regist"¤ò´Þ¤ó¤Ç¤ª¤ê¡¤ # ¤«¤Äonclick="xxx"´Þ¤ó¤Ç¤¤¤ë¡¡¤Þ¤¿¤Ï¡¡´Þ¤ó¤Ç¤¤¤Ê¤¤¤â¤Î¤ò¸¡º÷¡¤ÃÖ´¹¤· # onclick¤Ë¥¢¥¯¥·¥ç¥ó¤òÄɲäޤ¿¤ÏÄɵ # # <a href="xxx-regist" onclick="Äɲäޤ¿¤ÏÄɵ¤·¤¿¤¤"> # # # # Âоݥڡ¼¥¸¤¬¿ôÉ´¤â¤¢¤ê¡¤¤È¤Æ¤â¼êºî¶È¤Ç½¤Àµ¤Ç¤¤Ê¤¤¤¿¤áÀµµ¬É½¸½¤ÎÎϤò¼Ú¤ê¤¿¤¤¤Ç¤¹ # a¥¿¥°¤Ï¤¹¤°¤Ëhref¤Ç»Ï¤Þ¤ë¤â¤Î¤Ð¤«¤ê¤Ç¤Ï¤Ê¤¤¤¿¤á¡¤°Ê²¼¤Î¤è¤¦¤ÊÀµµ¬É½¸½¤ò¹Í¤¨¤¿¤Î¤Ç¤¹¤¬¡¤ # ¤Ê¤¼¤«Ê£¿ô¹Ô¤ËÅϤäƤ·¤Þ¤¦·ë²Ì¤¬Ãê½Ð¤µ¤ì¤¿¤ê¤È¤¦¤Þ¤¯¤¤¤¤Þ¤»¤ó # # href=".+\-regist".+?(onclick="(.+)")?.+?\n # # # ¤´¶µ¼ø¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡¦¡¦ # # ¿ôÉ´¤ÎSmarty¥Æ¥ó¥×¥ì¡¼¥È¤Îonclick¥¿¥°¤òÄɲäޤ¿¤ÏÊѹ¹¤¹¤ë(_¥Õ¥¡¥¤¥ë̾¤Ê¤é¤Ó) :- append(_,[_¥Õ¥¡¥¤¥ë|R],_¥Õ¥¡¥¤¥ë̾¤Ê¤é¤Ó), 'html¤Îa¥¿¥°¤«¤éhref="xxxxx-regist"¤ò´Þ¤ó¤Ç¤ª¤ê¡¤¤«¤Äonclick="xxx"´Þ¤ó¤Ç¤¤¤ë¡£¤Þ¤¿¤Ï´Þ¤ó¤Ç¤¤¤Ê¤¤¤â¤Î¤ò¸¡º÷¡¤ÃÖ´¹¤·onclick¤Ë¥¢¥¯¥·¥ç¥ó¤òÄɲäޤ¿¤ÏÄɵ'(_¥Õ¥¡¥¤¥ë), R = [],!. 'html¤Îa¥¿¥°¤«¤éhref="xxxxx-regist"¤ò´Þ¤ó¤Ç¤ª¤ê¡¤¤«¤Äonclick="xxx"´Þ¤ó¤Ç¤¤¤ë¡£¤Þ¤¿¤Ï´Þ¤ó¤Ç¤¤¤Ê¤¤¤â¤Î¤ò¸¡º÷¡¤ÃÖ´¹¤·onclick¤Ë¥¢¥¯¥·¥ç¥ó¤òÄɲäޤ¿¤ÏÄɵ'(_¥Õ¥¡¥¤¥ë) :- get_chars(_¥Õ¥¡¥¤¥ë,Chars), 'onclick¤Ë¥¢¥¯¥·¥ç¥ó¤òÄɲäޤ¿¤ÏÄɵ'(Chars),!. 'onclick¤Ë¥¢¥¯¥·¥ç¥ó¤òÄɲäޤ¿¤ÏÄɵ'(Chars) :- 'a¥¿¥°¤òÁªÊÌ'(Chars,L0,R1,R2,_Atag), 'onclickÍ×ÁǸõÊä'(_Atag,_onclickÍ×ÁǸõÊä), 'onclick¶ç¤ÎÀ¸À®'(_onclickÍ×ÁǸõÊä,_onclick¶ç), put_chars(L0), '¸½ºß¤Îonclick¶ç¤Îºï½ü'(R1,R11), append(R11,_onclick¶ç,R12), put_chars(['<',a,' '|R12]), put_chars(['<','/',a,'>']), 'onclick¤Ë¥¢¥¯¥·¥ç¥ó¤òÄɲäޤ¿¤ÏÄɵ'(R2). 'a¥¿¥°¤òÁªÊÌ'(Chars,L0,R1,R2,_Atag) :- append(L0,['<',a,' '|R1],['<','/',a,'>'|R2],Chars), \+(append(_,['<','a',' '|_],R1)), \+(append(_,['<','/',a,'>'|_],R1)), _Atag = ['<',a',' '|R1]. 'onclickÍ×ÁǸõÊä'(_Atag,_onclickÍ×ÁǸõÊä) :- append(L0,[h,r,e,f,'=','"'|_onclickÍ×ÁǸõÊä],['-',r,e,g,i,s,t,'"'|R2],_Atag),!. 'onclick¶ç¤ÎÀ¸À®'(_onclickÍ×ÁǸõÊä,_onclick¶ç) :- append([' ',o,n,c,l,i,c,k,'=','"'|_onclickÍ×ÁǸõÊä],['"',' '],_onclick¶ç). '¸½ºß¤Îonclick¶ç¤Îºï½ü'([],[]) :- !. '¸½ºß¤Îonclick¶ç¤Îºï½ü'([' ',o,n,c,l,i,c,k,'=','"'|R1],[' '|R2]) :- append(_,['"',' '|R2],R1),!. '¸½ºß¤Îonclick¶ç¤Îºï½ü'([A|R1],[A|R2]) :- '¸½ºß¤Îonclick¶ç¤Îºï½ü'(R1,R2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1197620454/672 # ÆþÎÏÀ©¸Â¤ò³Ý¤±¤¿¤¤¤È»×¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬ # # ¡¡¡±Ñ¿ô»ú¡¡ # ¢¡¡.¡¡¡Ê¥Ô¥ê¥ª¥É¡Ë # £¡¡_ (¥¢¥ó¥À¡¼¥¹¥³¥¢¡Ë # ¤¡¡¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹ # ¥¡¡Delete # # ¤Î¤ßÆþÎϲÄǽ¤Ë¤·¤¿¤¤¤Î¤Ç¤¹¤¬¤É¤ÎÍͤÊÀµµ¬É½¸½¤ò¤«¤±¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤«¡© # # ¢¨¢¡Á¥¤Îµ½Ò¤¬Ê¬¤«¤ê¤Þ¤»¤ó¡£ # ¼¡¤ÎÀµµ¬É½¸½¤Ë¤É¤ÎÍͤ˽¤Àµ¤ò²Ã¤¨¤ì¤Ð¤è¤¤¤Ç¤·¤ç¤¦¤«¡© # Match result = Regex.Match(ÂоݤÎʸ»úÎó,"^[a-zA-Z0-9]+$"); # # ÆþÎÏÀ©¸Â¤ò³Ý¤±¤¿¤¤(_ʸ) :- get_chars(Chars), ÆþÎÏŬ¹ç½¸¹ç(Chars,_Ŭ¹çʸ»ú¤Ê¤é¤Ó,_ÉÔŬ¹çʸ»ú¤Ê¤é¤Ó), concat_atom(Ŭ¹çʸ»ú¤Ê¤é¤Ó,_ʸ). ÆþÎÏŬ¹ç½¸¹ç([],[],[]) :- !. ÆþÎÏŬ¹ç½¸¹ç([A|R1],[A|R2],R3) :- ÆþÎÏŬ¹çʸ»ú(A), ÆþÎÏŬ¹ç½¸¹ç(R1,R2,R3),!. ÆþÎÏŬ¹ç½¸¹ç([A|R1],R2,[A|R3]) :- ÆþÎÏŬ¹ç½¸¹ç(R1,R2,R3). ÆþÎÏŬ¹çʸ»ú(A) :- ±Ñ¿ô»ú(A),!. ÆþÎÏŬ¹çʸ»ú('.') :- !. ÆþÎÏŬ¹çʸ»ú('_') :- !. ÆþÎÏŬ¹çʸ»ú('\b') :- !. ÆþÎÏŬ¹çʸ»ú(DLE) :- char_code(DLE,127),!. ±Ñ¿ô»ú(A) :- A @>= '0', A @=< '9',!. ±Ñ¿ô»ú(A) :- A @>= 'a', A @=< 'z',!. ±Ñ¿ô»ú(A) :- A @>= 'A', A @=< 'Z',!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/614 # # .replace(/^(http:\/\/farm1\.static\.flickr\.com\/[^/]+\/\w+_\w+_)m(\.\w+)$/, "$1o$2") # # ¢¬ # ¤Î¥¹¥¯¥ê¥×¥È¤ò²þÊѤ·¤¿¤¤¤Î¤Ç¤¹¤¬¡¢ # °Ê²¼¤Î¾ì¹ç¤ÎÀµµ¬É½¸½¤ò¤½¤ì¤¾¤ì¶µ¤¨¤Æ¤¯¤À¤µ¤¤ # # ¡Ê¡¡1¡¡¡Ë # http://ime.nu/img.pics.livedoor.com/*/*/*/*-*.jpg # ¢¡¡¡Ö*-*.jpg¡×¤ò¡Ö*-1024.jpg¡×¤ËÊѤ¨¤ë # http://ime.nu/img.pics.livedoor.com/*/*/*/*-1024.jpg # # ¢¨¤³¤¦¤¤¤¦URLÃÖ´¹¤µ¤»¤ë¤³¤È¤òÌܻؤ·¤Æ¤Þ¤¹ # http://ime.nu/img.pics.livedoor.com/009/0/b/0b3b287d7e66fff3ec46-M.jpg # ¢ # http://ime.nu/img.pics.livedoor.com/009/0/b/0b3b287d7e66fff3ec46-1024.jpg # # # ¡Ê¡¡2¡¡¡Ë # http://ime.nu/*.photobucket.com/*/*/*/th_*.jpg # ¢¡¡¡Öth_¡×¤òºï½ü # http://ime.nu/*.photobucket.com/*/*/*/*.jpg # # ¢¨¤³¤¦¤¤¤¦URLÃÖ´¹¤µ¤»¤ë¤³¤È¤òÌܻؤ·¤Æ¤Þ¤¹ # http://ime.nu/i784.photobucket.com/albums/yy125/Pusgin/th_alex1a.jpg # ¢ # http://ime.nu/i784.photobucket.com/albums/yy125/Pusgin/alex1a.jpg # # # ¡Ê¡¡3¡¡¡Ë # http://ime.nu/*.content.foto.mail.ru/*/*/*/*-*.jpg # ¢¡¡¡Ö*-*.jpg¡×¤ò¡Öi-*.jpg¡×¤ËÊѤ¨¤ë # http://ime.nu/*.content.foto.mail.ru/*/*/*/i-*.jpg # # ¢¨¤³¤¦¤¤¤¦URLÃÖ´¹¤µ¤»¤ë¤³¤È¤òÌܻؤ·¤Æ¤Þ¤¹ # http://ime.nu/img3.content.foto.mail.ru/mail/semins/3294/p-5879.jpg # ¢ # http://ime.nu/img3.content.foto.mail.ru/mail/semins/3294/i-5879.jpg # # 'Î㤨¤Ð¡¢http://ime.nu/img.pics.livedoor.com/009/0/b/0b3b287d7e66fff3ec46-M.jpg¤òhttp://ime.nu/img.pics.livedoor.com/009/0/b/0b3b287d7e66fff3ec46-1024.jpg ¤ËÊѤ¨¤¿¤¤'(URL1,URL2) :- sPLIT(URL1,['/'],L), append(L1,[File],L), sPLIT(File,['.jpeg'],[A,B]), append(L1,[A,'-1024',B],L2), concat_atom(L2,URL2). 'Î㤨¤Ð¡¢http://ime.nu/i784.photobucket.com/albums/yy125/Pusgin/th_alex1a.jpg¤òhttp://ime.nu/i784.photobucket.com/albums/yy125/Pusgin/alex1a.jpg ¤ËÊѤ¨¤¿¤¤'(URL1,URL2) :- sPLIT(URL1,['/'],L), append(L1,[File],L), sPLIT(File,['.jpeg'],[A,B]), append(L1,[alex1a,B],L2), concat_atom(L2,URL2). 'Î㤨¤Ð¡¢http://ime.nu/img3.content.foto.mail.ru/mail/semins/3294/p-5879.jpg¤òhttp://ime.nu/img3.content.foto.mail.ru/mail/semins/3294/i-5879.jpg ¤ËÊѤ¨¤¿¤¤'(URL1,URL2) :- sPLIT(URL1,['/'],L), append(L1,[File],L), sPLIT(File,['-'],[A,'-',B]), append(L1,[i,'-',B],L2), concat_atom(L2,URL2). 'Î㤨¤Ð¡¢http://c3.ac-images.myspacecdn.com/images02/80/m_22e6adfa8f2b4dafbf00b28a78e9db6e.jpg¤òhttp://c3.ac-images.myspacecdn.com/images02/80/l_22e6adfa8f2b4dafbf00b28a78e9db6e.jpg ¤ËÊѤ¨¤¿¤¤'(UR1,URW) :- sPLIT(URL1,['/'],L), append(L1,[File],L), sPLIT(File,['_'],[A,'_',B]), append(L1,[i,'_',B],L2), concat_atom(L2,URL2). 'Î㤨¤Ð¡¢http://sphotos.ak.fbcdn.net/hphotos-ak-snc1/hs137.snc1/5852_132531839605_775304605_3072465_7463459_s.jpg¤òhttp://sphotos.ak.fbcdn.net/hphotos-ak-snc1/hs137.snc1/5852_132531839605_775304605_3072465_7463459_n.jpg ¤ËÊѤ¨¤¿¤¤'(URL1,URL2) :- sPLIT(URL1,['/'],L), append(L1,[File],L), sPLIT(File,['_','.jpeg'],L), append(L1,[_,'.jpeg'],L), append(L1,[n,'.jpeg'],L2), concat_atom(L2,URL2). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/596 # ¡Ú¡Û¤Ç°Ï¤Þ¤ì¤¿Ç¤°Õ¤ÎƱ°ìʸ»úÎó(ʸ»ú¿ô²ÄÊÑ)¤¬2²ó³¤¤¤¿¾ì¹ç¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤ò¤ª´ê¤¤¤·¤Þ¤¹ # # ¡ÚAAA¡Û¡ÚAAA¡Û¤Ï¥Þ¥Ã¥Á # ¡ÚAAA¡Û¡ÚBBB¡Û¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤ # # ¤È¤¤¤¦´¶¤¸¤Ç¤¹ # # '¡Ú¡Û¤Ç°Ï¤Þ¤ì¤¿Ç¤°Õ¤ÎƱ°ìʸ»úÎó(ʸ»ú¿ô²ÄÊÑ)¤¬2²ó³¤¤¤¿¾ì¹ç¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ÂоÝʸ»úÎó,_¾È¹çÉôʬ¤è¤êÁ°¤Îʸ»úÎó,_¾È¹çÉôʬʸ»úÎó,_»Ä¤êʸ»úÎó) :- atom_chars(_ÂоÝʸ»úÎó,Chars), ¾È¹ç´ðËÜÉôʬ(L,L0,L1,L2), '¡Ú¡Û¤Ç°Ï¤Þ¤ì¤¿Ç¤°Õ¤ÎƱ°ìʸ»úÎó(ʸ»ú¿ô²ÄÊÑ)¤¬2²ó³¤¤¤¿'(L1,L2,_2²ó³¤¤¤¿Ê¸»ú¤Ê¤é¤Ó,R), ʸ»ú¤Ê¤é¤Ó¤òʸ»úÎó¤ËÊÑ´¹(L0,_2²ó³¤¤¤¿Ê¸»ú¤Ê¤é¤Ó,R,_¾È¹çÉôʬ¤è¤êÁ°¤Îʸ»úÎó,_¾È¹çÉôʬʸ»úÎó,_»Ä¤êʸ»úÎó). ¾È¹ç´ðËÜÉôʬ(L,L0,L1,L2) :- append(L0,['¡Ú'|L10],['¡Û'|L2],L), all(L10,A), append(['¡Ú'|L10],['¡Û'],L1). '¡Ú¡Û¤Ç°Ï¤Þ¤ì¤¿Ç¤°Õ¤ÎƱ°ìʸ»úÎó(ʸ»ú¿ô²ÄÊÑ)¤¬2²ó³¤¤¤¿'(L1,L2,_2²ó³¤¤¤¿Ê¸»ú¤Ê¤é¤Ó,R) :- append(L1,R,L2), append(L1,L1,_2²ó³¤¤¤¿Ê¸»ú¤Ê¤é¤Ó). ʸ»ú¤Ê¤é¤Ó¤òʸ»úÎó¤ËÊÑ´¹(L0,_2²ó³¤¤¤¿Ê¸»ú¤Ê¤é¤Ó,R,_¾È¹çÉôʬ¤è¤êÁ°¤Îʸ»úÎó,_¾È¹çÉôʬʸ»úÎó,_»Ä¤êʸ»úÎó) :- atom_chars(_¾È¹çÉôʬ¤è¤êÁ°¤Îʸ»úÎó,L0), atom_chars(_¾È¹çÉôʬʸ»úÎó,_2²ó³¤¤¤¿Ê¸»ú¤Ê¤é¤Ó), atom_chars(_»Ä¤êʸ»úÎó,R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1288531658/3 # [1] ¼ø¶Èñ¸µ¡§C¸À¸ìÆþÌç # # [2] ÌäÂêʸ)¡§ºÇÂç24¸Ä¤ÎÀ°¿ô¤¬³ÊǼ¤Ç¤¤ëÇÛÎó¤òÍѰդ¹¤ë¡£ # ¤³¤ÎÇÛÎó¤ÎÀèÆ¬¤«¤é10¸Äʬ¤Ë¤Ï1¤òÂåÆþ¤·, # ¤Ä¤Å¤¯6¸Äʬ¤Ë¤Ï0¤òÆþ¤ì,ºÇ¸å¤Î8¸Äʬ¤Ë¤Ï-1¤òÆþ¤ì¤è¡£ # # 'ºÇÂç24¸Ä¤ÎÀ°¿ô¤¬³ÊǼ¤Ç¤¤ëÇÛÎó¤òÍѰդ¹¤ë¡£¤³¤ÎÇÛÎó¤ÎÀèÆ¬¤«¤é10¸Äʬ¤Ë¤Ï1¤òÂåÆþ¤·,¤Ä¤Å¤¯6¸Äʬ¤Ë¤Ï0¤òÆþ¤ì,ºÇ¸å¤Î8¸Äʬ¤Ë¤Ï-1¤òÆþ¤ì¤è¡£'(L) :- ºÇÂç24¸Ä¤ÎÀ°¿ô¤¬³ÊǼ¤Ç¤¤ëÇÛÎó¤òÍѰդ¹¤ë(L), ¤³¤ÎÇÛÎó¤ÎÀèÆ¬¤«¤é10¸Äʬ¤Ë¤Ï1¤òÂåÆþ¤·(L,R1), ¤Ä¤Å¤¯6¸Äʬ¤Ë¤Ï0¤òÆþ¤ì(R1,R2), 'ºÇ¸å¤Î8¸Äʬ¤Ë¤Ï-1¤òÆþ¤ì¤è'(R2). ºÇÂç24¸Ä¤ÎÀ°¿ô¤¬³ÊǼ¤Ç¤¤ëÇÛÎó¤òÍѰդ¹¤ë(L) :- length(L,24). ¤³¤ÎÇÛÎó¤ÎÀèÆ¬¤«¤é10¸Äʬ¤Ë¤Ï1¤òÂåÆþ¤·(L,R) :- length(L1,10), all(L1,1), append(L1,R,L). ¤Ä¤Å¤¯6¸Äʬ¤Ë¤Ï0¤òÆþ¤ì(L,R) :- length(L1,6), all(L1,0), append(L1,R,L). 'ºÇ¸å¤Î8¸Äʬ¤Ë¤Ï-1¤òÆþ¤ì¤è'(L) :- length(L,8), all(L,-1). ?- ti. no. ?- keizo104 :: pwd(X). ?- w3db(keizo104,7083,true). yes. ?- !'ls -l *.html | grep "2010-10-31"'. -rw-r--r-- 1 root root 745 2010-10-31 17:15 c141_966.html -rw-r--r-- 1 root root 1057 2010-10-31 20:54 c141_971.html -rw-r--r-- 1 root root 592 2010-10-31 22:42 c141_983.html yes. ?- cat c141_966.html. http://hibari.2ch.net/test/read.cgi/tech/1286978599/966 # [1] ¼ø¶Èñ¸µ¡§¾ðÊó½èÍý # [2] ÌäÂêʸ(´Þ¥³¡¼¥É&¥ê¥ó¥¯)¡§ # http://ime.nu/img69.imageshack.us/img69/1731/65183447.jpg # (b)¡¢(d)¤Î²óÅú¤ò¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # # 1 d¤òÆþÎϤ·¡¢(n+1)^2 - n^2 =< d ¤Ê¤ëºÇ¾®¤În¤ò½ÐÎϤ¹¤ë¥×¥í¥°¥é¥à¤ò # ¡¡while ʸ¤ò»È¤Ã¤Æºî¤ê¤¿¤¤¡£n¤ÏÀ°¿ô¡¢ d¤Ï¼Â¿ô¤È¤»¤è¡£°Ê²¼¤ÎÌä¤ËÅú¤¨¤è¡£ # # (a) ¤³¤Î¥×¥í¥°¥é¥à¤ËɬÍפÊÊÑ¿ô¤ò½Ò¤Ù¤è¡£ # (b) (n + 1)^2 - n^2 =< d ¤òȽÄꤹ¤ëC¸À¸ì¤Î¾ò·ï¼°¤ò½ñ¤±¡£ # (c) ½èÍý¤Î¼ê½ç¤òÈÖ¹æÉÕ¤²Õ¾ò½ñ¡¢¤Þ¤¿¤Ï¡¢¥Õ¥í¡¼¥Á¥ã¡¼¥È¤Ç¼¨¤»¡£ # (d) ¥×¥í¥°¥é¥à¤ò½ñ¤±¡£ yes. ?- cat c141_971.html. http://hibari.2ch.net/test/read.cgi/tech/1286978599/971 # [1] ¼ø¶Èñ¸µ¡§¥×¥í¥°¥é¥ß¥ó¥°±é½¬ # [2] ÌäÂêʸ(´Þ¥³¡¼¥É&¥ê¥ó¥¯) # # ¡öµ¹æ¤ò»È¤Ã¤Æ¤Çsin¶ÊÀþ¤òÉÁ¤±¡£ # '¡öµ¹æ¤ò»È¤Ã¤Æsin¶ÊÀþ¤òÉÁ¤±¡£' :- '¡öµ¹æ¤ò»È¤Ã¤Æ¤Çsin¶ÊÀþ¤òÉÁ¤±¡£'(1,LL), žÃÖ(LL,LL2), append(_,[L|R],LL2), concat_atom(L,A), write_formatted('%t\n',[A]), R = []. '¡öµ¹æ¤ò»È¤Ã¤Æsin¶ÊÀþ'(X,[]) :- X > 629,!. '¡öµ¹æ¤ò»È¤Ã¤Æsin¶ÊÀþ'(X,[L|R]) :- length(L0,101), Y is truncate((100 * sin((X-1) * pi / 100))+101), list_nth(Y,L0,'*'), reverse(L0,L1), Á´¤Æ¤ÎÊÑ¿ô¤ò¶õÇò¤Ë(L0), X2 is X + 1, '¡öµ¹æ¤ò»È¤Ã¤Æsin¶ÊÀþ'(X2,R). Á´¤Æ¤ÎÊÑ¿ô¤ò¶õÇò¤Ë([]) :- !. Á´¤Æ¤ÎÊÑ¿ô¤ò¶õÇò¤Ë([V|R]) :- var(V), V = ' ', Á´¤Æ¤ÎÊÑ¿ô¤ò¶õÇò¤Ë(R),!. Á´¤Æ¤ÎÊÑ¿ô¤ò¶õÇò¤Ë([_|R]) :- Á´¤Æ¤ÎÊÑ¿ô¤ò¶õÇò¤Ë(R),!. ?- nojiri('c141_971.html'). yes. ?- ti. ?- !'ls -l *.html | grep "2010-10-30"'. -rw-r--r-- 1 root root 3258 2010-10-30 03:06 c141_863.html -rw-r--r-- 1 root root 2471 2010-10-30 17:27 c141_863_1.html -rw-r--r-- 1 root root 3771 2010-10-30 09:07 c141_863_2.html -rw-r--r-- 1 root root 561 2010-10-30 23:28 c141_948.html yes. http://hibari.2ch.net/test/read.cgi/tech/1286978599/948 # [1] ¼ø¶Èñ¸µ¡§¥×¥í¥°¥é¥à¤È¥¢¥ë¥´¥ê¥º¥à # [2] ÌäÂêʸ(´Þ¥³¡¼¥É&¥ê¥ó¥¯)¡§À°¿ôÇÛÎóa¤È¤½¤ÎŤµn¤òÅϤ·¤Æ¡¢ÇÛÎó¤Î¤½¤ì¤¾¤ì¤ÎÍ×ÁǤò10Çܤ·¤ÆÌ᤹´Ø¿ôFunc¤òºîÀ®¤·¡¢É¬ÍפÊÄɲäò¹Ô¤Ã¤ÆÆ°ºî¤ò³Îǧ¤·¤Ê¤µ¤¤¡£ # ²¼Éߤ¤È¤¹¤ë¥½¡¼¥¹¥³¡¼¥É¤Ï°Ê²¼¤ÎURL(jpg¤Ç¸«¤Ë¤¯¤¯¤Æ¤¹¤ß¤Þ¤»¤ó¡Ë¤Ç¤ª´ê¤¤¤·¤Þ¤¹¡£ # http://ime.nu/pc.gban.jp/?p=24057.jpg # '¥ê¥¹¥Èa¡¢Ä¹¤µn¤òÅϤ·¤Æ¡¢nÍ×ÁǤÀ¤±10Çܤ·¤ÆÌ᤹'(_a,_n,X) :- length(L,_n), append(L,R,_a), '10Çܤ·¤ÆÌ᤹'(L,L10), append(L10,R,X). '10Çܤ·¤ÆÌ᤹'(L,L10) :- findall(N2,( append(_,[N|_],L), N2 is N * 10), L10). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '¥ê¥¹¥Èa¡¢Ä¹¤µn¤òÅϤ·¤Æ¡¢nÍ×ÁǤÀ¤±10Çܤ·¤ÆÌ᤹'(_a,_n) :- length(L,_n), '10Çܤ·¤ÆÌ᤹'(L,_a,X), '10Çܤ·¤ÆÌ᤹'([],X,X) :- !. '10Çܤ·¤ÆÌ᤹'([_|R1],[N|R2],[N2|R3]) :- N2 is N * 10, '10Çܤ·¤ÆÌ᤹'(R1,R2,R3). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '¥ê¥¹¥Èa¡¢Í×ÁǰÌÃÖm¡¢Ä¹¤µn¤òÅϤ·¤Æ¡¢ºÇ½é¤«¤émÍ×ÁÇÌܤ«¤énÍ×ÁǤÀ¤±10Çܤ·¤ÆÌ᤹'(_a,_m,X) :- length(L,_n), _m_1 is _m - 1, length(L1,_m_1), append(L1,R,_a), '10Çܤ·¤ÆÌ᤹'(L,R,L2), append(L1,L2,X). '10Çܤ·¤ÆÌ᤹'([],X,X) :- !. '10Çܤ·¤ÆÌ᤹'([_|R1],[N|R2],[N2|R3]) :- N2 is N * 10, '10Çܤ·¤ÆÌ᤹'(R1,R2,R3). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/592 # ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¡¡¤Ë¥Þ¥Ã¥Á¤¹¤ëÀµµ¬É½¸½¤ò¤ª´ê¤¤¤·¤Þ¤¹¡£ # # ¤¢¤¢¤¢¤¢¤¢¤¢¤¢ # £÷£÷£÷£÷£÷£÷£÷£÷£÷£÷£÷ # £È£È£È£È£È£È£È£È£È£È£È£È£È # # ¤Î¤è¤¦¤Ê¹Ô¤Ç¤¹¡£ # # 'ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¤Ë¥Þ¥Ã¥Á¤¹¤ë'([_¹Ô|_],_¹Ô) :- atom_chars(_¹Ô,Chars), all(Chars,_). 'ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¤Ë¥Þ¥Ã¥Á¤¹¤ë'([_|R],_¹Ô) :- 'ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¤Ë¥Þ¥Ã¥Á¤¹¤ë'(R,_¹Ô). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 'ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»úÎó,_¹Ô) :- atom(_ʸ»úÎó), atom_chars(_ʸ»úÎó,_ʸ»ú¤Ê¤é¤Ó), 'ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»ú¤Ê¤é¤Ó,_¹Ô). 'ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»ú¤Ê¤é¤Ó,_¹Ô) :- append(L0,['\n'|R],_ʸ»ú¤Ê¤é¤Ó), all(L0,A), \+(A='\n'), concat_atom(L0,_¹Ô). 'ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¤Ë¥Þ¥Ã¥Á¤¹¤ë'(_ʸ»ú¤Ê¤é¤Ó,_¹Ô) :- append(L0,['\n'|R],_ʸ»ú¤Ê¤é¤Ó), all(L0,A), \+(A='\n'), 'ÆÃÄê¤Îʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤ë¹Ô¤Ë¥Þ¥Ã¥Á¤¹¤ë'(R,_¹Ô). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/589 # "A"¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¤±¤É"ABC"¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤Àµµ¬É½¸½¤ª´ê¤¤¤·¤Þ¤¹ # # '"A"¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¤±¤É"ABC"¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤'(_ʸ»úÎó,S0,'A',S1) :- sub_atom(_ʸ»úÎó,St,Len,R1,'A'), \+(sub_atom(_ʸ»úÎó,St,3,R2,'ABC')), sub_atom(_ʸ»úÎó,0,St,_,S0), St2 is St + Len, sub_atom(_ʸ»úÎó,St2,R2,0,S1). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% '"A"¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¤±¤É"ABC"¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤'(_ʸ»úÎó,S0,S,S1) :- atom_chars(_ʸ»úÎó,Chars), '"A"¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¤±¤É"A","B","C"¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤'(Chars,L0,L,L1), concat_atom(L,S), concat_atom(L0,S0), concat_atom(L1,S1). '"A"¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¤±¤É"A","B","C"¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤'(Chars,L0,['A'],L1) :- append(L0,['A'],L1,Chars), \+(append(L0,['A','B','C'],_,Chars)). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/585 # 2·å°Ê¾å¤Î±Ñ¿ô»ú¤Ë¥Þ¥Ã¥Á¤¹¤ë¤±¤É3·å¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤Àµµ¬É½¸½¤Ï¤É¤¦½ñ¤±¤ÐÎɤ¤¤ó¤Ç¤·¤ç¤¦¤«¡© # '2·å°Ê¾å¤Î±Ñ¿ô»ú¤Ë¥Þ¥Ã¥Á¤¹¤ë¤±¤É3·å¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤'(_ʸ»úÎó,_2·å°Ê¾å¤Î±Ñ¿ô»ú) :- sub_atom(_ʸ»úÎó,_,_Éûʸ»úÎó¤ÎŤµ,_,_2·å°Ê¾å¤Î±Ñ¿ô»ú), _Éûʸ»úÎó¤ÎŤµ >= 2, \+(_Éûʸ»úÎó¤ÎŤµ=3), atom_codes(_2·å°Ê¾å¤Î±Ñ¿ô»ú,L), ¤¹¤Ù¤Æ±Ñ¿ô¥³¡¼¥É(L). ¤¹¤Ù¤Æ±Ñ¿ô¥³¡¼¥É([]) :- !. ¤¹¤Ù¤Æ±Ñ¿ô¥³¡¼¥É([_¥³¡¼¥É|R]) :- ±Ñ¿ô¥³¡¼¥É(_¥³¡¼¥É), ¤¹¤Ù¤Æ±Ñ¿ô¥³¡¼¥É(R). ±Ñ¿ô¥³¡¼¥É(Code) :- Code >=48,Code =< 57,!. ±Ñ¿ô¥³¡¼¥É(Code) :- Code >=65,Code =< 90,!. ±Ñ¿ô¥³¡¼¥É(Code) :- Code >=97,Code =< 122,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/585 # 2·å¤Î±Ñ¿ô»ú¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¤±¤É3·å¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤Àµµ¬É½¸½¤Ï¤É¤¦½ñ¤±¤ÐÎɤ¤¤ó¤Ç¤·¤ç¤¦¤«¡© # % ¡Ö3·å¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤¡×¤Ïɽ¸½¤Ç¤¤Ê¤¤¡£ % ¤³¤Á¤é¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤ '2·å¤Î±Ñ¿ô»ú¤Ë¤Ï¥Þ¥Ã¥Á¤¹¤ë¤±¤É3·å¤Ë¤Ï¥Þ¥Ã¥Á¤·¤Ê¤¤'(_ʸ»úÎó,_2·å¤Î±Ñ¿ô»ú) :- sub_atom(_ʸ»úÎó,_,2,_,_2·å¤Î±Ñ¿ô»ú), atom_codes(_2·å¤Î±Ñ¿ô»ú,[Code1,Code2]), ±Ñ¿ô¥³¡¼¥É(Code1), ±Ñ¿ô¥³¡¼¥É(Code2). ±Ñ¿ô¥³¡¼¥É(Code) :- Code >=48,Code =< 57,!. ±Ñ¿ô¥³¡¼¥É(Code) :- Code >=65,Code =< 90,!. ±Ñ¿ô¥³¡¼¥É(Code) :- Code >=97,Code =< 122,!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/555 # ¥·¥§¥ë¤ÎÃæ¤ÇÆþÎÏ¥Õ¥¡¥¤¥ë̾¤«¤é½ÐÎÏ¥Õ¥¡¥¤¥ë̾¤òÀ¸À®¤·¤Æ¤¤¤Þ¤¹¡£ # ÆÃÄê¤Îʸ»úÎ󡦵¹æ¤òÀµµ¬É½¸½¤Ç¥ê¥Í¡¼¥à¤·¤¿¤¤¤Î¤Ç¤¹¤¬»×¤¤¤Ä¤¤Þ¤»¤ó¡£ # # ¥Õ¥¡¥¤¥ë̾Á°È¾Éô¤¬°Û¤Ê¤ë¥Õ¥¡¥¤¥ë¤¬50°Ê¾å¤¢¤ë¤Î¤Ç¤¹¤¬¡¢»×¤¤Ä̤ê¤Ërename¤·¤Æ¤¯¤ì¤Þ¤»¤ó¡£ # ¤´¶µ¼¨¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£ # # Âоݥե¡¥¤¥ë¡§ # iko_foobar_hogehoge_20101008.tsv # # ¥ê¥Í¡¼¥à¸å¥Õ¥¡¥¤¥ë¡§ # iko_foobar_hogehoge-20101008.tsv # # ¥³¥Þ¥ó¥É¤Î¼Â¹Ô¥¤¥á¡¼¥¸ # rename iko*_[\d,8].tsv iko*-[\d,8].tsv # # IN_FILE = ma_sina_syo_20100101 # OUT_FILE="${DIR_PATH_RCV}/${PREFIX}$(basename ${IN_FILE})${MARK}${YMD}.tsv" # OUT_FILE=iko_ma_sina_syo-20100101.tsv # # # ¥Õ¥¡¥¤¥ë̾Á°È¾Éô¤¬°Û¤Ê¤ë¥Õ¥¡¥¤¥ë¤òrename¤¹¤ë(_¥Ç¥£¥ì¥¯¥È¥ê̾) :- concat_atom(['ls -N ',_¥Ç¥£¥ì¥¯¥È¥ê¥Ñ¥¹Ì¾',S), shs(S,_¹Ô¤Ê¤é¤Ó), append(_,[_¹Ô|R],_¹Ô¤Ê¤é¤Ó), atom_chars(_¹Ô,Chars), length(L2,9), append(L1,L2,Chars), append([_],L3,L2), Á´Éô¿ô»ú(L3), concat_atom(L1,S1), concat_atom(L3,S3), concat_atom(['mv ',_¹Ô,' ','iko_',S1,'-',S3,'.tsv']),Mv), system(Mv), R = [],!. Á´Éô¿ô»ú([]) :- !. Á´Éô¿ô»ú([A|R]) :- append(_,[A|_],['0','1','2','3','4','5','6','7','8','9']),Á´Éô¿ô»ú(R). % °Ê²¼¤Î¥µ¥¤¥È¤Ï # #522 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # PHP5.29 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ¸¡º÷ # # ¡üÀâÌÀ # ¡§¤è¤êÁ°¤Îµ¹æÉôʬ¤ò¼èÆÀ¤·¤¿¤¤¡£ # # ¡üÂоݥǡ¼¥¿ # 5789¡§Àи´ # w555-2¡§¥¿¥ª¥ë # Zxcvb¡§¥Ï¥ó¥¬¡¼ # # ¡ü´õ˾¤¹¤ë·ë²Ì # 5789 # w555-2 # Zxcvb # '¡§¤è¤êÁ°¤Îµ¹æÉôʬ¤ò¼èÆÀ¤·¤¿¤¤¡£'(_¹Ô¤Ê¤é¤Ó,_ÃÖ´¹¤µ¤ì¤¿¹Ô¤Ê¤é¤Ó) :- findall(_¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ,( ¤È¤ê½Ð¤µ¤ì¤¿¹Ô¤Î¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ(_¹Ô¤Ê¤é¤Ó,_¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ)),_ÃÖ´¹¤µ¤ì¤¿¹Ô¤Ê¤é¤Ó). ¤È¤ê½Ð¤µ¤ì¤¿¹Ô¤Î¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ(_¹Ô¤Ê¤é¤Ó,_¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ) :- append(_,[_¹Ô|_],_¹Ô¤Ê¤é¤Ó), ¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ(_¹Ô,_¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ). ¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ(_¹Ô,_¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ) :- sub_atom(_¹Ô,_¥³¥í¥ó¤Î°ÌÃÖ,1,_,':'), sub_atom(_¹Ô,0,_¥³¥í¥ó¤Î°ÌÃÖ,_,_¥³¥í¥ó¤è¤êÁ°¤Îµ¹æÉôʬ),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/572 # ¡üÀµµ¬É½¸½¤Î»ÈÍѴĶ # php5 # # ¡ü¸¡º÷¤«ÃÖ´¹¤«¡© # ÃÖ´¹ # # ¡üÀâÌÀ # table¥¿¥°Æâ¤Î²þ¹Ô¡Ê<br />¡Ë¤òÁ´¤Æºï½ü¤·¤¿¤¤ # # ¡üÂоݥǡ¼¥¿ # <table border="1" cellpadding="5" cellspacing="0" class="xx" id="xx"><br /> # <tbody><br /> # <tr><br /> # <td><br /> # </td><br /> # </tr><br /> # </tbody><br /> # </table> # # ¡ü´õ˾¤¹¤ë·ë²Ì # <table border="1" cellpadding="5" cellspacing="0" class="xx" id="xx"> # <tbody> # <tr> # <td> # </td> # </tr> # </tbody> # </table> # # 'table¥¿¥°Æâ¤Î²þ¹Ô¥¿¥°¤òÁ´¤Æºï½ü¤·¤¿¤¤'(_¥Õ¥¡¥¤¥ë) :- get_chars(_¥Õ¥¡¥¤¥ë,Chars), 'table¥¿¥°Æâ¤Î²þ¹Ô¥¿¥°¤òÁ´¤Æºï½ü¤·¤¿¤¤'(Chars,L), put_chars(_¥Õ¥¡¥¤¥ë,L). 'table¥¿¥°Æâ¤Î²þ¹Ô¥¿¥°¤òÁ´¤Æºï½ü¤·¤¿¤¤'([],[]) :- !. 'table¥¿¥°Æâ¤Î²þ¹Ô¥¿¥°¤òÁ´¤Æºï½ü¤·¤¿¤¤'(L1,L2) :- append(L0,[<,t,a,b,l,e,>|R],L1), append(L2,[<,/,t,a,b,l,e,>|R2],R), '²þ¹Ô¥¿¥°¤Îºï½ü'(L2,L3), 'table¥¿¥°Æâ¤Î²þ¹Ô¥¿¥°¤òÁ´¤Æºï½ü¤·¤¿¤¤'(R2,L4), append(L0,[<,t,a,b,l,e,>|L3],L4,L2),!. 'table¥¿¥°Æâ¤Î²þ¹Ô¥¿¥°¤òÁ´¤Æºï½ü¤·¤¿¤¤'(L,L). '²þ¹Ô¥¿¥°¤Îºï½ü'([],[<,/,t,a,b,l,e,>]) :- !. '²þ¹Ô¥¿¥°¤Îºï½ü'([<,b,r,' ',/,>|R1],R2) :- '²þ¹Ô¥¿¥°¤Îºï½ü'(R1,R2),!. '²þ¹Ô¥¿¥°¤Îºï½ü'([A|R1],[A|R2]) :- '²þ¹Ô¥¿¥°¤Îºï½ü'(R1,R2),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://hibari.2ch.net/test/read.cgi/tech/1268979408/568 # ¼ÁÌä¤Ç¤¹¡£ # ¥Æ¥¥¹¥È¤ÎÃæ¤Î<location></location>¤Ç°Ï¤Þ¤ì¤¿¹Ô¤Î¤ß½èÍýÂоݤˤ·¤Æ¡¢ # 1.<location></location>¤ò»Ä¤¹¡£ # 2../¡Ê¥Ô¥ê¥ª¥É¤È¥¹¥é¥Ã¥·¥å¡Ë¤òÄɲᣠ# 3.Á°¤«¤é8¸ÄÌܡʸå¤í¤«¤é£±¸ÄÌܡˤÎ/¡Ê¥¹¥é¥Ã¥·¥å¡Ë°Ê¹ß¤Î¥Õ¥¡¥¤¥ë̾¤ò»Ä¤¹¡£ # ¤È¤¤¤¦Àµµ¬É½¸½¤ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # # Îã # <location>file:///¡Ê¥É¥é¥¤¥Ö̾¡Ë:/¡Ê¥Õ¥©¥ë¥À̾¡Ë/¡Ê¥Õ¥©¥ë¥À̾¡Ë/¡Ê¥Õ¥©¥ë¥À̾¡Ë/¡Ê¥Õ¥©¥ë¥À̾¡Ë/¡Ê¥Õ¥¡¥¤¥ë̾¡Ë</location> # ¤È¤¤¤¦¹Ô¤¬¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ëÆâ¤Ë¸ºß¤·¤¿¤é # <location>./¡Ê¥Õ¥¡¥¤¥ë̾¡Ë</location> # ¤È¤¤¤¦ÆâÍÆ¤ËÊѹ¹¤·¤¿¤¤¡£¥Õ¥©¥ë¥À̾¤È¥Õ¥¡¥¤¥ë̾¤Ëµ¬Â§À̵¤·¡£ # ÆÃ¤Ë¡¢8¸ÄÌܤÎ/¡Ê¥¹¥é¥Ã¥·¥å¡Ë°Ê¹ß¤Îʸ»úÎó¤ò»Ä¤¹ÊýË¡¤¬Á´¤¯¥ï¥«¥ê¥Þ¥Ø¥ó¡£ # # ¸½¾õ¥ì¥Ù¥ë # ºòÆü¤«¤é´Ý£±ÆüÀµµ¬É½¸½¤Ë¼è¤êÁȤó¤Ç¡¢¶á¤Å¤¤¤Æ¤ëÍͤʶá¤Å¤¤¤Æ¤Ê¤¤ÍͤÊÃê½Ð¼Â¸³¤·¤Æ¤ë¥ì¥Ù¥ë¤Ç¤¹¡£ # # °ø¤ß¤Ëº£²ó¤Î¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤Ï¡¢VLC¤Î¥×¥ì¥¤¥ê¥¹¥È¤Îxspf¥Õ¥¡¥¤¥ë¤Ç¤¹¡£ # ¥Õ¥¡¥¤¥ë¤ò°Üư¤·¤¿»þ¡¢¥×¥ì¥¤¥ê¥¹¥È¤¬ÀäÂÐ¥¢¥É¥ì¥¹¤ÇÄêµÁ¤µ¤ì¤Æ¤ë¤Î¤Ç¡¢¥ê¥ó¥¯¤¬ÀÚ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ # º£²ó¤ÎÊѹ¹¤Ç¡¢ÁêÂÐ¥¢¥É¥ì¥¹¤Ë¤Ê¤ê¤¢¤ëÄøÅ٤Υե¡¥¤¥ë°Üư¤¬²Äǽ¤Ë¤Ê¤ë¡£¤Þ¤¢»Å»ö¤¸¤ã¤Ê¤¤¼ñÌ£¤Î¥ì¥Ù¥ë¤Ç¤¹¡£ # # µ¹¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£ # '¥Æ¥¥¹¥È¤ÎÃæ¤Î
¤Ç°Ï¤Þ¤ì¤¿¹Ô¤Î¤ß½èÍýÂоݤˤ·¤Æ¡¢1. ¤ò»Ä¤¹¡£2../¡Ê¥Ô¥ê¥ª¥É¤È¥¹¥é¥Ã¥·¥å¡Ë¤òÄɲá£3.Á°¤«¤é8¸ÄÌܡʸå¤í¤«¤é£±¸ÄÌܡˤÎ/¡Ê¥¹¥é¥Ã¥·¥å¡Ë°Ê¹ß¤Î¥Õ¥¡¥¤¥ë̾¤ò»Ä¤¹¡£'(_¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë) :- forall('¥Æ¥¥¹¥È¤ÎÃæ¤Î ¤Ç°Ï¤Þ¤ì¤¿¹Ô¤Î¤ß½èÍýÂоݤˤ·¤Æ¡¢'(_¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë,_¹Ô), 1. ¤ò»Ä¤¹¡£2../¡Ê¥Ô¥ê¥ª¥É¤È¥¹¥é¥Ã¥·¥å¡Ë¤òÄɲá£3.Á°¤«¤é8¸ÄÌܡʸå¤í¤«¤é£±¸ÄÌܡˤÎ/¡Ê¥¹¥é¥Ã¥·¥å¡Ë°Ê¹ß¤Î¥Õ¥¡¥¤¥ë̾¤ò»Ä¤¹¡£'(_¹Ô)). ¥Æ¥¥¹¥È¤ÎÃæ¤Î(_¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë,_¹Ô) :- get_lines(_¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë,Lines), member(_¹Ô,Lines). ' ¤Ç°Ï¤Þ¤ì¤¿¹Ô¤Î¤ß½èÍýÂоݤȤ·¤Æ¡¢'(_¹Ô,_Í×ÁǤʤé¤Ó,_°Ï¤Þ¤ì¤¿Éôʬ) :- 'SPLIT'(_¹Ô,[' ','/',' '],L), append([''],_°Ï¤Þ¤ì¤¿Éôʬ,[' '],L),!. '¤Ç°Ï¤Þ¤ì¤¿¹Ô¤Î¤ß½èÍýÂоݤȤ·¤Æ¡¢'(_¹Ô,_,_) :- '½èÍýÂоݳ°¤Î¹Ô¤Ï¤½¤Î¤Þ¤Þ½ÐÎÏ'(_¹Ô). 'SPLIT'(_¹Ô,[' ','/',' '],L), append([''],_°Ï¤Þ¤ì¤¿Éôʬ,[' '],L). '1.¤ò»Ä¤¹¡£2../¡Ê¥Ô¥ê¥ª¥É¤È¥¹¥é¥Ã¥·¥å¡Ë¤òÄɲá£3.Á°¤«¤é8¸ÄÌܡʸå¤í¤«¤é£±¸ÄÌܡˤÎ/¡Ê¥¹¥é¥Ã¥·¥å¡Ë°Ê¹ß¤Î¥Õ¥¡¥¤¥ë̾¤ò»Ä¤¹¡£'(_°Ï¤Þ¤ì¤¿Éôʬ) :- append(_,['/',_¥Õ¥¡¥¤¥ë̾],_°Ï¤Þ¤ì¤¿Éôʬ), atomic_list_concat([' ','./',_¥Õ¥¡¥¤¥ë̾,' '],Atom), writef('%t\n',[Atom]),!. '½èÍýÂоݳ°¤Î¹Ô¤Ï¤½¤Î¤Þ¤Þ½ÐÎÏ'(_¹Ô) :- writef('%t\n',[_¹Ô]), fail. append([],L2,L3,L4) :- append(L2,L3,L4). append([U|L1],L2,L3,[U|L4]) :- append(L1,L2,L3,L4). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://pc12.2ch.net/test/read.cgi/tech/1262163854/238 # Repl-Ace¤È¤¤¤¦¥Æ¥¥¹¥ÈÃÖ´¹¥Ä¡¼¥ë¤ò»È¤Ã¤Æ¤¤¤ë¤ó¤Ç¤¹¤¬¡¢ # # 1·î # ¡¦1Æü # ¡¦2Æü # ¡¦3Æü # 2·î # ¡¦1Æü # ¡¦2Æü # ¡¦3Æü # # ¤È¤¤¤Ã¤¿¥Æ¥¥¹¥È¤ò¡¢ # # 1·î1Æü # 1·î2Æü # 1·î3Æü # 2·î1Æü # 2·î2Æü # 2·î3Æü # # ¤È¤¤¤Ã¤¿¤è¤¦¤ËÃÖ´¹¤¹¤ë¤³¤È¤¬¤Ç¤¤ºº¤¤Ã¤Æ¤¤¤Þ¤¹¡£ # ñ½ã¤Êʸ»ú¤ÎÃÖ´¹¤ä´Êñ¤ÊÀµµ¬É½¸½¤ÏÍý²ò¤Ç¤¤ë¤Î¤Ç¤¹¤¬¡¢ # 1·î¤«¤é2·î¤Þ¤Ç¤Î¡Ö¡¦¡×¤ò¡Ö1·î¡×¤ËÃÖ´¹¡¢2·î¤«¤é3·î¤Þ¤Ç¤Î¡Ö¡¦¡×¤ò¡Ö2·î¡×¤ËÃÖ´¹¡¢3·î¤«¤é¡Êry # ¤ò°ìµ¤¤Ë¹Ô¤¨¤ë¤è¤¦¤ÊÀµµ¬É½¸½¤Ã¤Æ¤¢¤ê¤Þ¤¹¤«¡© # Repl-Ace¤Ç»î¤¹¤Î¤Ï¼«ÎϤǤä¤ë¤Î¤Ç¡¢°ìÈÌŪ¤Êµ½ÒÊýË¡¤¬¤¢¤ì¤Ð¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£ # ¤ª¤Ê¤¬¤¤¤·¤Þ¤¹¡£ # ·îÆü¤Î¹½Â¤É½¸½¤òʿó¤Ê·îÆü¤ËÃÖ´¹(InputTextFile,OutputTextFile) :- get_lines(InputTextFile,Lines), ʿó¤Ê·îÆü¤ËÃÖ´¹(Lines,L), put_lines(OutputTextFile,L). ʿó¤Ê·îÆü¤ËÃÖ´¹([],[]) :- !. ʿó¤Ê·îÆü¤ËÃÖ´¹([_·î|R1],L) :- \+(sub_atom(_·î,0,1,_,'.')), ʿó¤Ê·îÆü¤ËÃÖ´¹(_·î,R1,R2,L1), ʿó¤Ê·îÆü¤ËÃÖ´¹(R2,L2), append(L1,L2,L). ʿó¤Ê·îÆü¤ËÃÖ´¹(_,[],[],[]) :- !. ʿó¤Ê·îÆü¤ËÃÖ´¹(_,[_·î|R1],[_·î|R1],[]) :- \+(sub_atom(_·î,0,1,_,'.')),!. ʿó¤Ê·îÆü¤ËÃÖ´¹(_·î,[A|R1],R,[C|R2]) :- sub_atom(A,1,_,0,B), concat_atom([_·î,B],C), ʿó¤Ê·îÆü¤ËÃÖ´¹(_·î,R1,R,R2),!. % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://pc11.2ch.net/test/read.cgi/php/1147830986/9 # 1.1¹Ô¤º¤ÄURL¤¬µ½Ò¤µ¤ì¤¿¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤òÆÉ¤ß¹þ¤ß¡¢ # 2.¤½¤ÎURL¤Î¥³¥ó¥Æ¥ó¥Ä¤ò¼èÆÀ¤·¤Æ # 3.¥¿¥¤¥È¥ë¤ÈURL¤ò²èÌ̤˽ÐÎÏ(¥³¥ó¥½¡¼¥ë¤ËľÀܤǤâ¥Ö¥é¥¦¥¶¤Ø¤Ç¤â²Ä) # ¤¹¤ë¥×¥í¥°¥é¥à¤òºî¤Ã¤Æ¤¯¤À¤µ¤¤¡£ # # ¾°¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤Ëµ½Ò¤µ¤ì¤Æ¤¤¤ëURL¤ÏÂÅÅö¤Ê¤â¤Î¤È¸«¤Ê¤·¤Æ¹½¤ï¤Ê¤¤¤â¤Î¤È¤¹¤ë¡£ # (¥ê¥ó¥¯À褬¸ºß¤·¡¢¤½¤³¤Ë¤Ïɬ¤º<title></title>¤Ç°Ï¤Þ¤ì¤¿²Õ½ê¤¬¤¢¤ëhtml) # ¤Þ¤¿Àµ¾ï·Ï¤Î¤ß¤Ç¡¢¥¨¥é¡¼(¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤¬ÆÉ¤ß¹þ¤á¤Ê¤¤¡¢¥Í¥Ã¥È¥ï¡¼¥¯¤¬ # ·Ò¤¬¤é¤Ê¤¯¤Æ¥³¥ó¥Æ¥ó¥Ä¤¬¼èÆÀ¤Ç¤¤Ê¤¤)¤Î¾ì¹ç¤Î½èÍý¤Ï̵¤¯¤Æ¹½¤ï¤Ê¤¤¡£ # # 1¡Á3¤Þ¤Ç½ç¤òÄɤäƤä¤Ã¤Æ¤¤¤¯¤ÈÎɤ¤¤è¡£ # 1¤¬¥Õ¥¡¥¤¥ë¤Î°·¤¤¡¢¥ë¡¼¥×½èÍý¤äÇÛÎó¤Î°·¤¤(Ã༡½èÍý¤Ç¤ä¤ì¤ÐÇÛÎó»È¤ï¤Ê¤¤¤±¤É)¡¢ # 2¤¬¥Í¥Ã¥È(HTTP)´ØÏ¢¡¢3¤¬Ê¸»úÎó½èÍý¤äÀµµ¬É½¸½¤¢¤¿¤ê¡£ # '1¹Ô¤º¤ÄURL¤¬µ½Ò¤µ¤ì¤¿¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤òÆÉ¤ß¹þ¤ß¡¢¤½¤ÎURL¤Î¥³¥ó¥Æ¥ó¥Ä¤ò¼èÆÀ¤·¤Æ¥¿¥¤¥È¥ë¤ÈURL¤ò²èÌ̤˽ÐÎÏ(¥³¥ó¥½¡¼¥ë¤ËľÀܤǤâ¥Ö¥é¥¦¥¶¤Ø¤Ç¤â²Ä) ¤¹¤ë'(_¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë) :- get_lines(_¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë,Lines), member(URL,Lines), 'URL¤òHost,Port,File¤Ëʬ²ò¤¹¤ë'(URL,Host,Port,File), www_lines(Host,Port,File,_¹Ô¤Ê¤é¤Ó), ʸ»ú¥³¡¼¥É¤òÆÀ¤ë(_¹Ô¤Ê¤é¤Ó,_ʸ»ú¥³¡¼¥É), ¥¿¥¤¥È¥ë¤òÆÀ¤ë(_¹Ô¤Ê¤é¤Ó,_ʸ»ú¥³¡¼¥É,_¥¿¥¤¥È¥ë), write_formatted('URL=%t ¥¿¥¤¥È¥ë=%t\n',[URL,_¥¿¥¤¥È¥ë]), fail. '1¹Ô¤º¤ÄURL¤¬µ½Ò¤µ¤ì¤¿¥Æ¥¥¹¥È¥Õ¥¡¥¤¥ë¤òÆÉ¤ß¹þ¤ß¡¢¤½¤ÎURL¤Î¥³¥ó¥Æ¥ó¥Ä¤ò¼èÆÀ¤·¤Æ¥¿¥¤¥È¥ë¤ÈURL¤ò²èÌ̤˽ÐÎÏ(¥³¥ó¥½¡¼¥ë¤ËľÀܤǤâ¥Ö¥é¥¦¥¶¤Ø¤Ç¤â²Ä) ¤¹¤ë'(_). 'URL¤òHost,Port,File¤Ëʬ²ò¤¹¤ë'(URL,Host,Port,File) :- 'sPLIT'(URL,['/',':'],[http,':','/','/',Host,':',Port,'/'|File]),!. 'URL¤òHost,Port,File¤Ëʬ²ò¤¹¤ë'(URL,Host,80,File) :- 'sPLIT'(URL,['/',':'],[http,':','/','/',Host,'/'|File]),!. ʸ»ú¥³¡¼¥É¤òÆÀ¤ë(_¹Ô¤Ê¤é¤Ó,_ʸ»ú¥³¡¼¥É) :- append(_,[''|R],_¹Ô¤Ê¤é¤Ó), append(_,[_¹Ô|R1],R), sub_atom(_¹Ô,_,8,_,P,'char_set',_»Ä¤êʸ»úÎó,_,_,_), split(_»Ä¤êʸ»úÎó,['=',' ',',','>'],[A|_]), to_upper(A,B), ʸ»ú¥³¡¼¥É(A,_ʸ»ú¥³¡¼¥É). ¥¿¥¤¥È¥ë¤òÆÀ¤ë(_¹Ô¤Ê¤é¤Ó,euc,_¥¿¥¤¥È¥ë) :- append(_,[''|R],_¹Ô¤Ê¤é¤Ó), append(_,[_¹Ô|R1],R), sub_atom(_¹Ô,_,7,_,_,'',_»Ä¤êʸ»úÎó,_,_,_), sub_atom(_»Ä¤êʸ»úÎó,_,8,_,_¥¨¥ó¥³¡¼¥É¤µ¤ì¤¿¥¿¥¤¥È¥ë,' ',_,_,_,_), £Õ£Ò£Ì¤Îʸ»úÎó¤ò¥Ç¥³¡¼¥É¤¹¤ë(_¥¨¥ó¥³¡¼¥É¤µ¤ì¤¿¥¿¥¤¥È¥ë,_¥¿¥¤¥È¥ë),!. ʸ»ú¥³¡¼¥É('EUC_JP',euc) :- !. ʸ»ú¥³¡¼¥É('EUC-JP',euc) :- !. ʸ»ú¥³¡¼¥É('SJIS_JP',sjis) :- !. ʸ»ú¥³¡¼¥É('SJIS-JP',sjis) :- !. www_lines(Host, Port, File, DataList) :- hp_open_client(Host, Port, Socket), make_request_header(Host,Header), hp_work_client(Socket,Header,DataList). hp_open_client(Host, Service, Socket) :- atom(Service), !, net_service(Service, tcp, Port), socket(internet, stream, Socket), host_addr(Host, Addr), socket_connect(Socket, Addr : Port). hp_open_client(Host, Port, Socket) :- integer(Port), !, socket(internet, stream, Socket), socket_connect(Socket, Host : Port). make_request_header(_¥Õ¥¡¥¤¥ë,Header) :- myhostname(Myhostname), request_header_file(_¥Õ¥¡¥¤¥ë,_À°·Á¤µ¤ì¤¿¥Õ¥¡¥¤¥ë), concat_atom(['GET ',_¥Õ¥¡¥¤¥ë,' HTTP/1.1\nHost: ',Myhostname, '\nUser-Agent: Mozilla/5.0 (X11; U; Linux i686; ja-JP; rv:1.7.8) Gecko/20050511\n', 'Accept: text/xml,application/xml,application/xhtml+xml,', 'text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\nAccept-Language: ja,', 'en-us;q=0.7,en;q=0.3\nAccept-Encoding: gzip,deflate\n', 'Accept-Charset: EUC-JP,utf-8;q=0.7,*;q=0.7\nKeep-Alive: 300\n', 'Connection: keep-alive\n\n'],Header). request_header_file(_¥Õ¥¡¥¤¥ë,_¥Õ¥¡¥¤¥ë) :- sub_atom(_¥Õ¥¡¥¤¥ë,0,1,_,'/'),!. request_header_file(_¥Õ¥¡¥¤¥ë,_À°·Á¤µ¤ì¤¿¥Õ¥¡¥¤¥ë) :- \+(sub_atom(_¥Õ¥¡¥¤¥ë,0,1,_,'/')), concat_atom(['/',_¥Õ¥¡¥¤¥ë],_À°·Á¤µ¤ì¤¿¥Õ¥¡¥¤¥ë),!. hp_work_client(Socket,Header,DataList) :- open(Socket, read, Input), open(Socket, write, Output), write_formatted(Output,'%t',[Header]), flush_output, findall(X,(repeat,get_line(Input,_¿ÇÃÇ,Data),(_¿ÇÃÇ=½ªÎ»,!,fail;true)),DataList), close(Input), close(Output), socket_shutdown(Socket). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://pc12.2ch.net/test/read.cgi/tech/1268979408/209 # ¤µ¤¯¤é¥¨¥Ç¥£¥¿¤ò»È¤Ã¤Æ¤¤¤Æ # # CHAPTER01=00:00:00.000 # CHAPTER01NAME=Âè°ìÉô ¥ª¡¼¥×¥Ë¥ó¥° # CHAPTER02=00:09:13.400 # CHAPTER02NAME=¥ª¥é¤Ï¤Ë¤ó¤¤â¤Î # # ¤³¤¦¤¤¤¦¤Î¤ò # # TRACK 01 AUDIO # TITLE "Âè°ìÉô ¥ª¡¼¥×¥Ë¥ó¥°" # INDEX 01 00:00:00 # TRACK 02 AUDIO # TITLE "¥ª¥é¤Ï¤Ë¤ó¤¤â¤Î" # INDEX 01 09:13:40 # # ¤³¤¦¤·¤¿¤¤¤ó¤Ç¤¹¤¬¡¢Àµµ¬É½¸½¤Ç¤Ç¤¤ë¤â¤ó¤Ê¤ó¤Ç¤·¤ç¤¦¤« # ¤Ç¤¤ë¤È¤·¤¿¤éÅú¤¨¤òÌ㤨¤ë¤Î¤¬°ìÈ֤Ǥ¹¤¬¡¢¤É¤³¤éÊÕ¤òÄ´¤Ù¤ì¤Ð¤¤¤¤¤Î¤«¥Ò¥ó¥È¤ò¤â¤é¤¨¤Ê¤¤¤Ç¤·¤ç¤¦¤« # # ÊÑ´¹(_¥Õ¥¡¥¤¥ë̾) :- get_lines(_¥Õ¥¡¥¤¥ë̾,Lines), ÊÑ´¹µ¬Â§('TRACK',Lines,TRACK,S1), ÊÑ´¹µ¬Â§('TITLE',Lines,TRACK,S2), ÊÑ´¹µ¬Â§('TIME',Lines,TRACK,S3), write_formatted('%t\n%t\n%t\n',[S1,S2,S3]), fail. ÊÑ´¹(_). ÊÑ´¹µ¬Â§('TRACK',Lines,TRACK,S) :- member(_ʸ,Lines), sub_atom(_ʸ,0,7,_,H,'CHAPTER',T,HL,XL,TL), append(L0,['='|R2],TL), \+(append(_,['N','A','M','E'],L0)), concat_atom(L0,TRACK), concat_atom(['TRACK',' ',TRACK,' ','AUDIO'],S). ÊÑ´¹µ¬Â§('TITLE',_Lines,TRACK,S) :- member(_ʸ,Lines), sub_atom(_ʸ,0,7,_,H,'CHAPTER',T,HL,XL,TL), append(L1,['='|R],TL), append(L0,['N','A','M','E'|R2],L1), concat_atom(L0,TRACK), concat_atom(R,TITLE), concat_atom([' ','TITLE',' "',TITLE,'"'],S). ÊÑ´¹µ¬Â§('TIME',Lines,TRACK,S) :- member(_ʸ,Lines), sub_atom(_ʸ,0,7,_,H,'CHAPTER',T,HL,XL,TL), append(L0,['='|R2],TL), \+(append(_,['N','A','M','E'],L0)), concat_atom(L0,TRACK), concat_atom(R2,TIME), concat_atom([' ','INDEX',' 01 ',TIME],S). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://pc12.2ch.net/test/read.cgi/tech/1248012902/53 # ¡Ú¡¡²ÝÂê¡¡¡Û # °Ê²¼¤ÎURL¤«¤éÀµµ¬É½¸½¤òÍѤ¤¤Æ¥¡¼¥ï¡¼¥É¤ÎÉôʬ¤Î¤ßÃê½Ð¤¹¤ë # ¥×¥í¥°¥é¥à¤òºîÀ®¤»¤è¡£ # # http://www.google.co.jp/search?q=¥¡¼¥ï¡¼¥É&lr=lang_ja&ie=utf-8&oe=utf-8&aq=trls=org.mozilla:ja:official&client=firefox-a % Prolog ¤ÏÀµµ¬É½¸½¤ò¥µ¥Ý¡¼¥È¤·¤Ê¤¤¤Î¤Ç¤³¤³¤Ç¤ÏÈÆÍѸ¡º÷½Ò¸ìsub_atom/10¤ò % »È¤Ã¤Æ¤ß¤ë¡£ t571(URL,_¥¡¼¥ï¡¼¥É) :- sub_atom(URL,_,_,_,_,'?q=',G,_,_,_), sub_atom(G,_,_,_,_¥¡¼¥ï¡¼¥É,'&',_,_,_,_),!. % ¥æ¡¼¥Æ¥£¥ê¥Æ¥£½Ò¸ì sub_atom/10 ¤ÎÄó°Æ % % A .. ʸ»úÎó (atom) % S .. ¸¡º÷ʸ»úÎ󳫻ÏÊÑ°Ì (integer) % L .. ¸¡º÷ʸ»úÎó¤ÎŤµ (integer) % R .. »Ä¤êŤµ (integer) % H .. ¸¡º÷ʸ»úÎó¤è¤êÁ°Â¦¤Îʸ»úÎó (atom) % X .. ¸¡º÷ʸ»úÎó (atom) % T .. ¸¡º÷ʸ»úÎó¤è¤ê¸å¤Î»Ä¤êʸ»úÎó (atom) % HL .. ¸¡º÷ʸ»úÎó¤è¤êÁ°Â¦¤Îʸ»ú¤Ê¤é¤Ó (chars) % XL .. ¸¡º÷ʸ»úÎóʸ»ú¤Ê¤é¤Ó (chars) % TL .. ¸¡º÷ʸ»úÎó¤è¤ê¸å¤Î»Ä¤êʸ»ú¤Ê¤é¤Ó (chars) % A ¤¬var¤Ç¤¢¤ë»þ¤ÏH-HL,X-XL,T-TL¤Î3ÁȤÎÃæ¤Ëvar-var¤ÎÁȤ¬¤¢¤Ã¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£ sub_atom(A,S,L,R,H,X,T,HL,XL,TL) :- atom(A), !, sub_atom(A,S,L,R,X), sub_atom(A,0,S,_,H), N is S + L, sub_atom(A,N,R,_,T), atom_chars(H,HL), atom_chars(X,XL), atom_chars(T,TL). sub_atom(A,S,L,R,H,X,T,HL,XL,TL) :- var(A), !, atom_chars(H,HL), atom_chars(X,XL), atom_chars(T,TL), length(HL,S), length(XL,L), length(TL,R), concat_atom([H,X,T],A), sub_atom(A,S,L,R,H,X,T,HL,XL,TL). % °Ê²¼¤Î¥µ¥¤¥È¤Ï http://pc12.2ch.net/test/read.cgi/tech/1200175247/550 # # ¡Ê£±¡ËÍËÆü¤òɽ¤¹±Ñ¸ì¤ÈÆüËܸì¤È¤ÎÂбþ¤òɽ¤¹¥Ï¥Ã¥·¥åwday¤òÄêµÁ¤·¤Ê¤µ¤¤ # # p wday["sunday"] #=> "ÆüÍËÆü" # p wday["monday"] #=> "·îÍËÆü" # p wday["saturday"] #=> "ÅÚÍËÆü" # # (2)¥Ï¥Ã¥·¥å¤Î¥á¥½¥Ã¥É¤ò»È¤Ã¤Æ¡Ê£±¡Ë¤Î¥Ï¥Ã¥·¥åwday¤Î¥Ú¥¢¤Î¿ô¤ò¿ô¤¨¤Ê¤µ¤¤ # # ¡Ê£³¡Ëeach¥á¥½¥Ã¥É¤È¡Ê£±¡Ë¤Î¥Ï¥Ã¥·¥åwday¤ò»È¤Ã¤Æ°Ê²¼¤Îʸ»úÎó¤ò½ÐÎϤµ¤»¤Æ¤¯¤À¤µ ¤¤¡£ # ¡Ösunday¡×¤ÏÆüÍËÆü¤Î¤³¤È¤Ç¤¹¡£ # ¡Ömonday¡×¤Ï·îÍËÆü¤Î¤³¤È¤Ç¤¹¡£ # ¡Ä # # (4)¥Ï¥Ã¥·¥å¤Ë¤ÏÇÛÎó¤Î%w¤Î¤è¤¦¤Ê¤â¤Î¤¬¤¢¤ê¤Þ¤»¤ó¡£¤½¤³¤Ç¡¢¶õÇò¤È¥¿¥Ö¤È²þ¹Ô # ¡ÊÀµµ¬É½¸½¤ÇÄêµÁ¤¹¤ë¤Ê¤é¡Ö¡¿¡Às+¡¿¡×¡Ë¤Ç¶èÀÚ¤é¤ì¤¿Ê¸»úÎó¤ò¥Ï¥Ã¥·¥å¤ËÊÑ´¹¤¹¤ë¥á ¥½¥Ã¥É # str2hash¤òÄêµÁ¤·¤Æ¤¯¤À¤µ¤¤¡£ # # p str2hash("bule ÀÄ white Çò¡ÀnredÀÖ"); # #=> {"bule"=>"ÀÄ", "white"=>"Çò", "red"=>"ÀÖ"} % ¡Ê£±¡Ë wday(sunday,ÆüÍËÆü). wday(monday,·îÍËÆü). wday(saturday,ÅÚÍËÆü). % (2) wday¤ÎÀá¿ô(_Àá¿ô) :- Àá¿ô(wday(_,_),_Àá¿ô). Àá¿ô(_Àá·Á¼°,_Àá¿ô) :- findall(1,_Àá·Á¼°,L), length(L,_Àá¿ô). % ¡Ê£³¡Ë '¡Ê£³¡Ë' :- forall(wday(A,B), writef('¡Ö%t¡×¤Ï%t¤Î¤³¤È¤Ç¤¹¡£\n',[A,B])). % (4) str2hash(S,_½Ò¸ì̾) :- split(S,['\n'],L), member(A,L), split(A,['\t',' '],L1), str2hash(L1). str2hash([]). str2hash([_½Ò¸ì̾,_ÃÍ|R]) :- P =.. [_½Ò¸ì̾,_ÃÍ], assertz(P), str2has(R).