¤À¤¤¤¹¤±
5¤òºÇ½é¤Ë¤È¤ë¡§3!=6
5¤ò2ÈÖÌܤˤȤ롧4*2=8
5¤ò3ÈÖÌܤˤȤ롧4*3=12
5¤òºÇ¸å¤Ë¤È¤ë¡§4*3*2=24
­¤·¤Æ50
ÂçºåÉÜ¿áÅĻԡ¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 0:13:09¡¡¡¡ ¡¡¡¡39860
¤ß¤«¤ó
#39860¡Ê¤À¤¤¤¹¤±¤µ¤ó¡Ë
»ä¤Î²òË¡¤âƱÍͤˡ¢£µ¤ò²¿ÈÖÌܤˤȤ뤫¤Ç¾ì¹çʬ¤±¤Ç¤·¤¿¡£
ºÇ¸å¤Ë²¿¤¬»Ä¤ë¤«¤Ç¾ì¹çʬ¤±¤È¤É¤Ã¤Á¤¬Á᤯²ò¤±¤ë¤À¤í¤¦¡©
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 8:12:06¡¡¡¡ ¡¡¡¡39861
£Í
ºÇ¸å¤Ëº¸Ã¼¤Ë»Ä¤ë¿ô»ú¤Ç¾ì¹çʬ¤±¤·¤Þ¤·¤¿
£´¤¬»Ä¤ë¾ì¹ç¡¡£²£´Ä̤ꡡ¡¡¡Ê£´¡ª¡Ë
£³¤¬»Ä¤ë¾ì¹ç¡¡£±£²Ä̤ꡡ¡¡¡Ê£´¡ª¡à£²¡Ë
£²¤¬»Ä¤ë¾ì¹ç¡¡¡¡£¸Ä̤ꡡ¡¡¡Ê£´¡ß£²¡Ë
£±¤¬»Ä¤ë¾ì¹ç¡¡¡¡£¶Ä̤ꡡ¡¡¡Ê£³¡ª¡Ë¡¡¡¡¡¡·×£µ£°Ä̤ê
¡¡
Â裲¥°¥ë¡¼¥×¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 0:20:27¡¡¡¡ HomePage:½ÐÂêÃæ¡¡¡¡39862
abcba@baLLjugglermoka
¼«Ê¬¤ÏºÇ¸å¤Ë»Ä¤ë¿ô¤¬1¡Á4¤Î¾ì¹ç¤Ç¹Í¤¨¤Þ¤·¤¿¡£
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 0:48:56¡¡¡¡ ¡¡¡¡39863
¥¹¥â¡¼¥¯¥Þ¥ó
¤½¤Ã¤«¤¡...^^;
5-4321...1*3!=6
5-5-abc...4*2!=8
5-5-5-ab...4*3*1=12
5-5-5-5-a...4!=24

¹ç·×=6+8+12+24=50
¤À¤Ã¤¿¤Î¤Í...Orz...

#39680 ¤À¤¤¤¹¤±¤µ¤ó¡¢#39861 ¤ß¤«¤ó¤µ¤ó¤ÈƱ¤¸¤Ç¤·¤¿...¡ù...but...ĶµµÊâ...
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 1:30:39¡¡¡¡ ¡¡¡¡39864
HirotakaUEDA
»×¹Í²áÄø¤ÎÅÓÃæ¤Ç54321¤½¤Î¤â¤Î¤Ç¤Ï¤Ê¤¯54321¤È¤¤¤¦¿ô¤ò»È¤Ã¤¿5·å¤Î¿ô¤È´ª°ã¤¤¤·¤Æ¤·¤Þ¤¤¡¢Âç¥Ü¥±¤ò¤«¤Þ¤·¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£
¤·¤«¤âÅÓÃæ¤Ç¥±¥¢¥ì¥¹¥ß¥¹¤ò»³¤Û¤É¡Ä
¤Ê¤ó¤Æ¥Ð¥«¤Ê¤ï¤¿¤·¡¦¡¦¡¦¡£

²ò¤­Êý¤Ï¡Ê¡É¡É¤Ç°Ï¤Þ¤ì¤¿¿ô¤¬ºÇ¸å¤Ë»Ä¤ë¿ô¤Ç¾ì¹çʬ¤±¤ò¤·¤Þ¤·¤¿¡£¡Ë
£±¡¥5¡É4¡É321¢ª4¡ªÄ̤ê¡Ê£´¤ÎÁ°¤Ë£µ¤¬¤¢¤ë¤«¤é¡¢¤É¤Î½çÈ֤Ǿ䷤ƤâÂê°Õ¤òËþ¤¿¤¹¡Ë
£²¡¥54¡É3¡É21¢ª£µ¤ò¾Ã¤¹Á°¤Ëɬ¤º4¤ò¾Ã¤µ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ç
­¡5¤ò°ìÈֺǽé¤Ë¼è¤Ã¤¿»þ¡§¤Ê¤·
­¢5¤òÆóÈÖÌܤ˼è¤Ã¤¿»þ¡§2Ä̤ê
­£5¤ò»°ÈÖÌܤ˼è¤Ã¤¿»þ¡§4Ä̤ê(4¤òºÇ½é¤Ë¤È¤Ã¤¿¤È¤­¤¬£±£²¤Î¤É¤Á¤é¤«¤Ê¤Î¤Ç£²Ä̤ê¤È12¤Î¤É¤Á¤é¤«¤Î¼¡¤¬£´¤À¤Ã¤¿¤È¤­¤Ç£²Ä̤ê¡Ë
­¤£µ¤ò»ÍÈÖÌܤ˼è¤Ã¤¿»þ¡§6¡Ê¤É¤ó¤Ê¤Õ¤¦¤Ë¿ô»ú¤ò°ú¤­¤Ì¤¤¤Æ¤âÂê°Õ¤òËþ¤¿¤¹¡Ë
2+4+6¡á12Ä̤ê

£³. 543"2"1¢ª£µ¤ò¾Ã¤¹Á°¤Ëɬ¤º4¤«£³¤Î¤¤¤º¤ì¤«¤ò¾Ã¤µ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ç
­¡£µ¤ò°ìÈֺǽé¤Ë¤È¤ë¢ª¤Ê¤¤
­¢£µ¤òÆóÈÖÌܤˤȤ뢪¤Ê¤¤
­££µ¤ò»°ÈÖÌܤˤȤ뢪2
­¤£µ¤ò»ÍÈÖÌܤˤȤ뢪6¡Ê¤É¤ó¤Ê¤Õ¤¦¤Ë¿ô»ú¤ò°ú¤­¤Ì¤¤¤Æ¤âÂê°Õ¤òËþ¤¿¤¹¡Ë
2+6¡á8

£´¡¥4.5432¡É£±¡É¢ª3¡ª¡Ê£µ¤È£±¤Î´Ö¤Î¿ô¤Ï¤É¤Î¤è¤¦¤Ë°ú¤­¤Ì¤¤¤Æ¤âÎɤ¤¤Î¤Ç¡Ë

¤è¤Ã¤Æ24+12+8+6¡á50Ä̤ê

¤È¤Ê¤ê¤Þ¤·¤¿¡£
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 1:40:04¡¡¡¡ ¡¡¡¡39865
HirotakaUEDA
#39865¤ÎÄûÀµ¤Ç¤¹¡£
¸í¡§543"2"1¢ª£µ¤ò¾Ã¤¹Á°¤Ëɬ¤º4¤«£³¤Î¤¤¤º¤ì¤«¤ò¾Ã¤µ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ç
Àµ¡§543"2"1¢ª£µ¤ò¾Ã¤¹Á°¤Ëɬ¤º4¤È£³¤òξÊý¾Ã¤µ¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ç

¼ºÎ餷¤Þ¤·¤¿¡£
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 1:44:19¡¡¡¡ ¡¡¡¡39866
HirotakaUEDA
#39865¤ÎÄûÀµ¤Ç¤¹¡£
¸í¡§£´¡¥4.5432¡É£±¡É¢ª3¡ª
Àµ¡§4.5432¡É£±¡É¢ª3¡ª
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 1:52:08¡¡¡¡ ¡¡¡¡39867
¿ôÜÛ
#39860¤ÈƱ¤¸¤Ç¤¹¡£
5¤ò¼è¤ë½çÈ֤ǹͤ¨¤Þ¤·¤¿¡£
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 2:13:25¡¡¡¡ HomePage:¿ôÜÛ¡¡¡¡39868
Ä̤ꤹ¤¬¤ê
ï¤â¥×¥í¥°¥é¥à¤ò½ñ¤­¹þ¤ó¤Ç¤¤¤Ê¤¤¤Î¤Ç¡¢¤Á¤ç¤Ã¤È¡£¡£¡£½½¿ÊBASIC¤Ê¤é¤³¤ó¤Ê´¶¤¸¤«¤Ê¤¡¡Á

CALL remove("12345", "", count)
PRINT count
END
EXTERNAL SUB remove(s$, op$, count)
¡¡¡¡LET p$ = op$
¡¡¡¡IF POS(p$,left$(s$,1)) = 0 THEN LET p$ = p$&left$(s$,1)
¡¡¡¡IF LEN(s$) > 1 THEN
¡¡¡¡ FOR i = 1 TO LEN(s$)
¡¡¡¡ CALL remove(SUBSTR$(s$,1,i-1) & SUBSTR$(s$,i+1,LEN(s$)), p$, count)
¡¡¡¡ NEXT I
¡¡¡¡ELSE
¡¡¡¡ IF LEN(p$) = 2 THEN LET count = count+1
¡¡¡¡END IF
END SUB
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 8:32:56¡¡¡¡ ¡¡¡¡39869
¤è¤¦¤»¤ó
²¿²óÌܤˣµ¤ò¼è¤ê½ü¤¯¤«¤Ç¾ì¹çʬ¤±¤·¤Þ¤·¤¿

£±²óÌܤÏ3*2=6Ä̤ê
£²²óÌܤÏ4*2=8Ä̤ê
£³²óÌܤÏ4*3=12Ä̤ê
£´²óÌܤÏ4*3*2=24Ä̤ê

¤³¤ì¤é¤òÁ´¤Æ­¤·¤Æ50Ä̤ê
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 8:55:00¡¡¡¡ ¡¡¡¡39870
¤è¤¦¤»¤ó
#39860¤ÈÁ´¤¯Æ±¤¸²òË¡¤Ç¤¹¤Í
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 9:12:28¡¡¡¡ ¡¡¡¡39871
¤¢¤á¤¤
£µ£µ£µ£µ¢¢¡¢£µ£µ£µ¢¢¢¢¡¢£µ£µ¢¢¢¢¢¢¡¢£µ¢¢¢¢¢¢¢¢¤Ë¾ì¹çʬ¤±¤·¤Æ
£µ£µ£µ£µ¢¢¤Ï£´¡ß£³¡ß£²¡ß£±¡á£²£´Ä̤ê
£µ£µ£µ¢¢¢¢¤Ï£´¡ß£³¡ß£±¡ß£±¡á£±£²Ä̤ê
£µ£µ¢¢¢¢¢¢¤Ï£´¡ß£±¡ß£²¡ß£±¡á¡¡£¸Ä̤ê
£µ¢¢¢¢¢¢¢¢¤Ï£±¡ß£³¡ß£²¡ß£±¡á¡¡£¶Ä̤ꡡ¤Ç£µ£°Ä̤ê¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 9:21:57¡¡¡¡ ¡¡¡¡39872
uchinyan
¤Ï¤¤¡¤¤³¤ó¤Ë¤Á¤Ï¡£¤µ¤Æ¡¤º£²ó¤ÎÌäÂê¤Ï¡¥¡¥¡¥
Á°²ó¤Î¤è¤¦¤Ë²¿¤«¤¦¤Þ¤¤²òË¡¤¬¤¢¤ê¤½¤¦¡¤¤Ç¤¹¤¬¡¤¼è¤ê´º¤¨¤º¡¤ÃÏÆ»¤Ë¹Í¤¨¤Þ¤·¤¿¡£
¤¹¤°¤Ë»×¤¤ÉÕ¤¯²òË¡¤È¤·¤Æ¤Ï¡¤¼¡¤ÎÆó¤Ä¤¬¤¢¤ê¤½¤¦¤Ë»×¤¤¤Þ¤¹¡£

(²òË¡1)
ºÇ¸å¤Ë²¿¤¬»Ä¤ë¤«¤ËÃíÌܤ·¤Þ¤¹¡£
4 ¤¬»Ä¤ë¾ì¹ç¡§
5¡¤3¡¤2¡¤1 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¡¤4! = 24 Ä̤ꡣ
3 ¤¬»Ä¤ë¾ì¹ç¡§
5 ¤Ï 4 ¤ò¼è¤Ã¤Æ¤«¤é¤Ç¤Ê¤¤¤È¼è¤ì¤Þ¤»¤ó¡£
ºÇ½é¤Ë 4 ¤ò¼è¤ë¤È¤­¡¤5¡¤2¡¤1 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¡¤3! Ä̤ꡣ
ºÇ½é¤Ë 2 ¤ò¼è¤ë¤È¤­¡¤
¼¡¤Ë 4 ¤ò¼è¤ì¤Ð¡¤5¡¤1 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¡¤2! Ä̤ꡤ
¼¡¤Ë 1 ¤ò¼è¤ì¤Ð¡¤4¡¤5 ¤Î½çÈ֤˼è¤ë¤·¤«¤Ê¤¤¤Î¤Ç¡¤1 Ä̤ꡣ
ºÇ½é¤Ë 1 ¤ò¼è¤ë¤È¤­¡¤
¼¡¤Ë 4 ¤ò¼è¤ì¤Ð¡¤5¡¤2 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¡¤2! Ä̤ꡤ
¼¡¤Ë 2 ¤ò¼è¤ì¤Ð¡¤4¡¤5 ¤Î½çÈ֤˼è¤ë¤·¤«¤Ê¤¤¤Î¤Ç¡¤1 Ä̤ꡣ
·ë¶É¡¤¹ç·× 3! + (2! + 1) * 2 = 12 Ä̤ꡣ
2 ¤¬»Ä¤ë¾ì¹ç¡§
5 ¤Ï 4¡¤3 ¤ò¼è¤Ã¤Æ¤«¤é¤Ç¤Ê¤¤¤È¼è¤ì¤Þ¤»¤ó¡£
ºÇ½é¤Ë 4 ¤ò¼è¤ë¤È¤­¡¤
¼¡¤Ë 3 ¤ò¼è¤ì¤Ð¡¤5¡¤1 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¡¤2! Ä̤ꡤ
¼¡¤Ë 1 ¤ò¼è¤ì¤Ð¡¤3¡¤5 ¤Î½çÈ֤˼è¤ë¤·¤«¤Ê¤¤¤Î¤Ç¡¤1 Ä̤ꡣ
ºÇ½é¤Ë 3 ¤ò¼è¤ë¤È¤­¡¤
¼¡¤Ë 4 ¤ò¼è¤ì¤Ð¡¤5¡¤1 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¡¤2! Ä̤ꡤ
¼¡¤Ë 1 ¤ò¼è¤ì¤Ð¡¤4¡¤5 ¤Î½çÈ֤˼è¤ë¤·¤«¤Ê¤¤¤Î¤Ç¡¤1 Ä̤ꡣ
ºÇ½é¤Ë 1 ¤ò¼è¤ë¤È¤­¡¤4¡¤3 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤è¤¯¤½¤Î¸å¤Ç 5 ¤ò¼è¤ë¤Î¤Ç¡¤2! Ä̤ꡣ
·ë¶É¡¤¹ç·× (2! + 1) * 2 + 2! = 8 Ä̤ꡣ
1 ¤¬»Ä¤ë¾ì¹ç¡§
5 ¤Ï 4¡¤3¡¤2 ¤ò¼è¤Ã¤Æ¤«¤é¤Ç¤Ê¤¤¤È¼è¤ì¤Þ¤»¤ó¡£
¤½¤³¤Ç¡¤4¡¤3¡¤2 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤è¤¯¤½¤Î¸å¤Ç 5 ¤ò¼è¤ë¤Î¤Ç¡¤3! = 6 Ä̤ꡣ
°Ê¾å¤Ç¤¹¤Ù¤Æ¤Ê¤Î¤Ç¡¤
24 + 12 + 8 + 6 = 50 Ä̤ê
¤Ë¤Ê¤ê¤Þ¤¹¡£

(²òË¡2)
²¿²óÌÜ¤Ë 5 ¤ò¼è¤ë¤«¤ËÃíÌܤ·¤Þ¤¹¡£
£±²óÌÜ¤Ë 5 ¤ò¼è¤ë¾ì¹ç¡§
4 ¤ò»Ä¤¹¤·¤«¤Ê¤¯¡¤3¡¤2¡¤1 ¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¡¤3! = 6 Ä̤ꡣ
£²²óÌÜ¤Ë 5 ¤ò¼è¤ë¾ì¹ç¡§
£±²óÌÜ¤Ë 4 ¡Á 1 ¤Î¤¤¤º¤ì¤«¤ò¼è¤ë¤Î¤Ë 4 Ä̤ꡤ£³²óÌܰʹߤϺ¸Ã¼°Ê³°¤ò¤É¤Î½çÈ֤˼è¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¡¤2! = 2 Ä̤ꡤ
·ë¶É¡¤4 * 2 = 8 Ä̤ꡣ
£³²óÌÜ¤Ë 5 ¤ò¼è¤ë¾ì¹ç¡§
£²²óÌÜ¤Þ¤Ç¤Ë 4 ¡Á 1 ¤Î¤¤¤º¤ì¤«Æó¤Ä¤ò¼è¤ë¤Î¤Ë 4 * 3 = 12 Ä̤ꡤ£´²óÌܤϱ¦Ã¼¤ò¼è¤ë¤Î¤Ç¡¤1 Ä̤ꡤ
·ë¶É¡¤12 * 1 = 12 Ä̤ꡣ
£´²óÌÜ¤Ë 5 ¤ò¼è¤ë¾ì¹ç¡§
£³²óÌÜ¤Þ¤Ç¤Ë 4 ¡Á 1 ¤Î¤¤¤º¤ì¤«»°¤Ä¤ò¼è¤ë¤Î¤Ë 4 * 3 * 2 = 24 Ä̤ꡤ¤³¤ì¤Ç½ª¤ï¤ê¤Ê¤Î¤Ç¡¤
·ë¶É¡¤24 Ä̤ꡣ
°Ê¾å¤Ç¤¹¤Ù¤Æ¤Ê¤Î¤Ç¡¤
6 + 8 + 12 + 24 = 50 Ä̤ê
¤Ë¤Ê¤ê¤Þ¤¹¡£

(²òË¡1)¡¤(²òË¡2)¤È¤â¤Ëµ¬Â§À­¤Ï¸«¤¨¤ë¤Î¤Ç¤¹¤¬¡¤¤³¤¦¤·¤ÆÈæ¤Ù¤ë¸Â¤ê¤Ç¤Ï¡¤(²òË¡2)¤ÎÊý¤¬Ê¬¤«¤ê¤ä¤¹¤¯¡¤
4!/4 + 4!/3 + 4!/2 + 4!/1
¤È½ñ¤±¤ë¤Î¤â¡¤¼°¤Î¾å¤Ç¤â¡¤°Ọ̃Ū¤Ë¤â¡¤¤Û¤È¤ó¤ÉÌÀ¤é¤«¤Ç¡¤°ìÈ̲½¤â¸«¤¨¤Æ¤­¤Þ¤¹¤Í¡£
¤â¤Ã¤È¤â¡¤°ìÈ̤ˤ³¤Î¼°¤ò¤Þ¤È¤Þ¤Ã¤¿·Á¤Ç½ñ¤¯¤Î¤ÏÆñ¤·¤½¤¦¤Ç¤¹¤¬¡£
¥Í¥³¤Î½»¤à²È¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 12:39:59¡¡¡¡ MAIL:uchi@sco.bekkoame.ne.jp ¡¡¡¡39873
uchinyan
·Ç¼¨ÈĤòÆɤߤޤ·¤¿¡£

#39860¡¤#39861¡¤#39864¡¤#39868¡¤#39870¡¤#39872¡¤#39873¤Î(²òË¡2)
²¿²óÌÜ¤Ë 5 ¤ò¼è¤ë¤«¤Ç¾ì¹çʬ¤±¤ò¤·¤Æ²ò¤¯²òË¡¡£

#39862¡¤#39863¡¤#39865¡¤#39873¤Î(²òË¡1)
ºÇ¸å¤Ë²¿¤¬»Ä¤ë¤«¤Ç¾ì¹çʬ¤±¤ò¤·¤Æ²ò¤¯²òË¡¡£

#39869
¥×¥í¥°¥é¥à¤Ë¤è¤ë²òË¡¡£
¥Í¥³¤Î½»¤à²È¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 12:58:33¡¡¡¡ MAIL:uchi@sco.bekkoame.ne.jp ¡¡¡¡39874
hide
¡Êµ¡¼ï°Í¸ʸ»ú¤ò»È¤Ã¤Æ¤¤¤Þ¤¹¡Ë
£±²óÌܤΣµ¡§­¡¡ß£³¡ß£²¡ß£±
£²²óÌܤˣµ¡§£´¡ß­¡¡ß£²¡ß£±
£³²óÌܤˣµ¡§£´¡ß£³¡ß­¡¡ß£±
£´²óÌܤˣµ¡§£´¡ß£³¡ß£²¡ß­¡
¤è¤Ã¤Æ·×£µ£°
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 13:17:33¡¡¡¡ ¡¡¡¡39875
Ä̤ꤹ¤¬¤ê
¤¤¤Ä¤â¤ÏExcel¥Þ¥¯¥í¤Ë¤è¤ë²òË¡¤¬¤¢¤ê¤Þ¤¹¤¬¡¢º£²ó¤Ï¤Ê¤¤¤ß¤¿¤¤¤Ç¤¹¤Í¡£¤³¤ó¤Ê´¶¤¸¤Ç¤É¤¦¤Ç¤·¤ç¤¦¤«¡©

Public Sub q180()
¡¡Cells.Clear
¡¡Dim count As Integer
¡¡Dim trace(1 To 5) As String
¡¡remove 0, trace, "54321", "", count
¡¡Cells(1, 1) = count
End Sub
Private Sub remove(n As Integer, trace() As String, numbers As String, firstOrig As String, count As Integer)
¡¡trace(n + 1) = numbers
¡¡Dim first As String
¡¡first = firstOrig
¡¡If InStr(first, Left(numbers, 1)) <= 0 Then first = first + Left(numbers, 1)
¡¡If Len(numbers) > 1 Then
¡¡¡¡Dim i As Integer
¡¡¡¡For i = 1 To Len(numbers)
¡¡¡¡¡¡remove n + 1, trace, Mid(numbers, 1, i - 1) + Mid(numbers, i + 1), first, count
¡¡¡¡Next
¡¡Else
¡¡¡¡If Len(first) = 2 Then
¡¡¡¡¡¡count = count + 1
¡¡¡¡¡¡For i = LBound(trace) To UBound(trace)
¡¡¡¡¡¡¡¡Cells(count, i + 1) = trace(i)
¡¡¡¡¡¡Next
¡¡¡¡End If
¡¡End If
End Sub
¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 15:34:37¡¡¡¡ ¡¡¡¡39876
uchinyan
¿ô³Ø¤Ë¤Ê¤ê¤Þ¤¹¤¬¡¥¡¥¡¥

(²òË¡3)¡¡Á²²½¼°
n ·å¤Î¿ô¤Î¾ì¹ç¤ò a(n) Ä̤ê¤È¤¹¤ë¤È¡¤
ºÇ½é¤Ë n ¤ò¼è¤Ã¤¿¾ì¹ç¤Ï¡¤ÌÀ¤é¤«¤Ë (n-2)! Ä̤ꡤ
ºÇ½é¤Ë n °Ê³°¤ò¼è¤Ã¤¿¾ì¹ç¤Ï¡¤¤É¤ì¤ò¼è¤ë¤«¤Ç n-1 Ä̤ꡤ¤½¤Î¸å¤Ï n-1 ·å¤Î¾ì¹ç¤ÈƱ¤¸¤Ê¤Î¤Ç a(n-1) Ä̤ꡤ
¤È¤Ê¤Ã¤Æ¡¤
a(n) = (n-1) * a(n-1) + (n-2)!¡¤a(1) = 0
¤½¤³¤Ç¡¤
a(2) = 1 * a(1) + 0! = 1 * 0 + 1 = 0 + 1 = 1
a(3) = 2 * a(2) + 1! = 2 * 1 + 1 = 2 + 1 = 3
a(4) = 3 * a(3) + 2! = 3 * 3 + 2 = 9 + 2 = 11
a(5) = 4 * a(4) + 3! = 4 * 11 + 6 = 44 + 6 = 50
¤È¤Ê¤Ã¤Æ¡¤50 Ä̤ꡣ

¤Ê¤ª¡¤ÌÀ¤é¤«¤Ë¡¤
a(n) = (n-1)! * ¦²[k=1,n-1]{1/k}
¤Ç¤¹¤Í¡£
¥Í¥³¤Î½»¤à²È¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 18:26:19¡¡¡¡ ¡¡¡¡39877
¥Ï¥é¥®¥ã¡¼¥Æ¥¤
120Ä̤ê¤Î¿ô»ú¤ÎÈ´¤­Êý¤¬¤¢¤ë¤Î¤Ç¤¹¤Ù¤Æ¤Î¾ì¹ç¤ò¸¡»»¤¹¤ë¥×¥í¥°¥é¥à¤òÁȤ⤦¤È¤·¤¿¤Î¤Ç¤¹¤¬¡¢
ÌÌÅݤǿäÎ̤·¤ÆÅö¤Æ¤Þ¤·¤¿¡£
»³¸ý¡¡¡¡ 10·î4Æü¡ÊÌÚ¡Ë 22:07:41¡¡¡¡ HomePage:À©¸æ¹©³Ø¤Ë¥Á¥ã¥ì¥ó¥¸¡¡¡¡39878
fumio
¤ª¤Ï¤è¤¦¤´¤¶¤¤¤Þ¤¹¡£¤Ç¤Ï¤Ç¤Ï¡£
¡¡¡¡ 10·î5Æü¡Ê¶â¡Ë 5:51:41¡¡¡¡ ¡¡¡¡39879