ใƒใƒƒใƒ”ใƒผใƒใ‚ฑใƒƒใƒˆ

1้€ฑ้–“ไปฅไธŠใ€็งใฏๆญฉใ„ใฆๅ…ฌๅ…ฑไบค้€šๆฉŸ้–ขใซไน—ใ‚Šใพใ—ใŸ;ใƒใ‚ฑใƒƒใƒˆใฏ5ๆ—ฅไปฅ้™่ฒฉๅฃฒใ•ใ‚Œใชใ„ใŸใ‚ใ€็€้™ธใ™ใ‚‹ใŸใณใซๆ–™้‡‘ใ‚’ๆ”ฏๆ‰•ใ†ๅฟ…่ฆใŒใ‚ใ‚Šใพใ™ใ€‚ ใใ—ใฆใ€ๅญฆ็ซฅใจๅญฆ็”Ÿใฏใ€ใƒใ‚ฑใƒƒใƒˆใ‚’ๆœ€ๅˆใซไฝฟใ†ใ“ใจใงใ€ๆœ€ใ‚‚้ ป็นใซไฝ•ใ‚’ใ—ใพใ™ใ‹๏ผˆใใ—ใฆใ€ๅคงไบบใงใ•ใˆๆฏŽๆ—ฅ่ฆ‹ใฆใ„ใพใ™ใ‹๏ผ‰ใ€‚ ใ„ใ‚ใ‚†ใ‚‹ใ€Œใƒใƒƒใƒ”ใƒผใ€ใซๅฑžใ—ใฆใ„ใ‚‹ใ‹ใฉใ†ใ‹ใ‚’ใƒใ‚งใƒƒใ‚ฏใ—ใ€ใ‚ณใƒฌใ‚ฏใ‚ทใƒงใƒณใซๅ…ฅใ‚Œใ‚‹ใ‹ใ€ๅฟ ๅฎŸใซ้ฃŸในใ‚‹ใŸใ‚ใซใ€Œ้™ใ‹ใซใ€้ฃŸในใ‚‹ใ“ใจใ•ใˆใ‚ใ‚Šใพใ™ใ€‚ ใพใŸใฏๅคšๅˆ†ใใ‚Œใ‚’ๆจใฆใ‚‹:)



ใƒใƒƒใƒ”ใƒผใƒใ‚ฑใƒƒใƒˆ



ใ„ใšใ‚Œใซใ›ใ‚ˆใ€ใ“ใ‚Œใฏใ‚ใ‚‹็จฎใฎๅจฏๆฅฝใงใ‚ใ‚Šใ€ๅ–œใณใฎ็†็”ฑใงใ™ใ€‚ ใใ—ใฆใ€ๅญไพ›ๆ™‚ไปฃใŒ็งใจไธ€็ท’ใซ1ใ‹ๆ‰€ใง้Šใ‚“ใ ใฎใงใ€้ข็™ฝใใชใ‚Šใพใ—ใŸใ€‚ใ€Œใƒใƒƒใƒ”ใƒผใ€ใƒใ‚ฑใƒƒใƒˆใ‚’็ฒๅพ—ใงใใ‚‹็ขบ็Ž‡ใฏใฉใ‚Œใใ‚‰ใ„ใงใ™ใ‹ใ€‚ ใ€Œใƒใƒƒใƒ”ใƒผใ€ใƒใ‚ฑใƒƒใƒˆใฏใ„ใใคใ‚ใ‚Šใพใ™ใ‹๏ผŸ



ๅญฆๆ กใงใฏใ€่ชฐใ‹ใŒ็ ”็ฉถไฝœๆฅญ๏ผˆใพใŸใฏใƒใ‚คใƒณใƒˆใงใฏใชใใ€ใใฎใ‚ˆใ†ใชใ“ใจ๏ผ‰ใ‚’่กŒใฃใŸใจใ—ใฆใ‚‚ใ€ๆ•ฐๅผใ‚’ๅฐŽใๅ‡บใ—ใ€ใ‚ฐใƒฉใƒ•ใ‚’ๆใใชใฉใ‚’่ฉฆใฟใŸใฎใ‚’่ฆšใˆใฆใ„ใพใ™ใ€‚



ใ—ใ‹ใ—ใ€ใ‚ณใƒณใƒ”ใƒฅใƒผใ‚ฟใƒผใฎๅŠ›ใซใ‚ˆใ‚Šใ€๏ผˆๆ•ฐๅญฆใฎ่ฆณ็‚นใ‹ใ‚‰๏ผ‰ๆœ€้ฉใงใชใ„ๆ–นๆณ•ใง้€ฒใ‚€ใ“ใจใŒใงใใ‚‹ใ“ใจใŒๅคšใ„ใŸใ‚ใ€ๆ•ฐๅผใฎๅฐŽๅ‡บใซ็…ฉใ‚ใ•ใ‚Œใชใ„ใ“ใจใซใ—ใพใ—ใŸใ€‚



ใใฎ็ตๆžœใ€ใ‚ˆใ‚Š้€Ÿใๅˆคๆ˜Žใ—ใพใ—ใŸ:)

Perlใงใฎใƒ—ใƒญใ‚ฐใƒฉใƒŸใƒณใ‚ฐใซไฝฟ็”จใ•ใ‚Œใพใ™ใ€‚ ใปใจใ‚“ใฉใฎ่ณขๆ˜Žใชใƒ—ใƒญใ‚ฐใƒฉใƒžใƒผใฏใ€ๅฐ‘ใชใใจใ‚‚Delphiใ€ๅฐ‘ใชใใจใ‚‚Basicใ€ๅฐ‘ใชใใจใ‚‚JavaScriptใชใฉใงใ€ๅŒใ˜ใ“ใจใ‚’ๆ•ฐๅˆ†ใง็ฐกๅ˜ใซ็นฐใ‚Š่ฟ”ใ™ใ“ใจใŒใงใใ‚‹ใจๆ€ใ„ใพใ™ใ€‚

ใƒ—ใƒญใ‚ฐใƒฉใƒ ใฏใ€ใปใผ100ไธ‡ใฎ็ต„ใฟๅˆใ‚ใ›๏ผˆ989kใ€ๆœ€ๅˆใฎใƒฉใƒƒใ‚ญใƒผใƒใ‚ฑใƒƒใƒˆ1001๏ผ‰ใ‚’้€š้Žใ—ใพใ™ใ€‚



#!/usr/bin/perl



print "Content-Type: text/html\n\n" ;



$num = 1000;

$s = 0;



while ($num < 1000000) {



$ln = length($num);



$l6 = substr($num,$ln-6,1) if ($ln > 5);

$l5 = substr($num,$ln-5,1) if ($ln > 4);

$l4 = substr($num,$ln-4,1);

$l3 = substr($num,$ln-3,1);

$l2 = substr($num,$ln-2,1);

$l1 = substr($num,$ln-1,1);



if ($l6+$l5+$l4 eq $l3+$l2+$l1) {

print 0 x (6-$ln), "$num\n" ;

$s++;

}



$num++;



}



print " = $s" ;





* This source code was highlighted with Source Code Highlighter .








ใใฎ็ตๆžœใ€ๅ‡บๅฃใง55251ๆžšใฎใƒฉใƒƒใ‚ญใƒผใƒใ‚ฑใƒƒใƒˆใซ็›ธๅฝ“ใ™ใ‚‹้‡‘้กใ‚’ๅ—ใ‘ๅ–ใ‚Šใพใ—ใŸ ใ€‚

ๅฐ‘ใ—ไธธใ‚ใ‚‹ใจใ€็ด„18ๆžšใ”ใจใฎใƒใ‚ฑใƒƒใƒˆใŒใ€Œใƒใƒƒใƒ”ใƒผใ€ใซใชใ‚Šใพใ™ใ€‚



่ˆˆๅ‘ณๆทฑใ„ใ“ใจใซใ€ๆ•ฐๅญฆ็š„ใช่งฃๆฑบ็ญ–ใ‚’ๆŽขใ™ใ“ใจใซใ—ใ€้žๅธธใซ่ˆˆๅ‘ณๆทฑใ„ใ‚นใƒˆใƒผใƒชใƒผใ‚’่ฆ‹ใคใ‘ใพใ—ใŸใ€‚ใใ‚Œใ‚’่ชญใ‚€ใ“ใจใ‚’ใŠๅ‹งใ‚ใ—ใพใ™ใ€‚ไป•ไบ‹ใ‹ใ‚‰10-15ๅˆ†ๅฐ‘ใ—ๆฐ—ใ‚’ๆ•ฃใ‚‰ใ—ใŸใ„ใชใ‚‰ใ€ใใ‚Œใฏๅๅˆ†้ข็™ฝใ„ใงใ™ใ€‚ ๅŒใ˜ใƒšใƒผใ‚ธใซใฏใ€ใพใ ใƒฉใƒƒใ‚ญใƒผใƒใ‚ฑใƒƒใƒˆใซ้–ขใ™ใ‚‹ๅคšใใฎ่ˆˆๅ‘ณๆทฑใ„ใ‚‚ใฎใŒใ‚ใ‚Šใพใ™ใ€‚



ใพใŸใ€ใ‚ฆใ‚ฃใ‚ญใƒšใƒ‡ใ‚ฃใ‚ขใงใฏใ€ ็ฐกๅ˜ใชๆŠœ็ฒ‹ใ‚’่ฆ‹ใ‚‹ใ“ใจใŒใงใใพใ™ใ€‚ใ€Œใƒใƒƒใƒ”ใƒผใ€ใƒใ‚ฑใƒƒใƒˆใฎ่‰ฏใ„็Ÿญใ„้…ๅธƒใŒใ‚ใ‚Šใพใ™ใ€‚



ใ‚ฆใ‚ฃใ‚ญใƒšใƒ‡ใ‚ฃใ‚ขใฎใ‚ˆใ†ใซใ€็•ชๅท55252ใŒใ‚นใƒˆใƒผใƒชใƒผใซ็คบใ•ใ‚Œใฆใ„ใพใ™ใŒใ€ใ“ใฎใƒˆใƒ”ใƒƒใ‚ฏใ‚’ๆ›ธใ„ใฆใ„ใ‚‹ๆ™‚็‚นใงใฏใ€ใƒใ‚ฑใƒƒใƒˆ็•ชๅท000000ใฏๅญ˜ๅœจใ—ใชใ„ใจๆ€ใ„ใพใ—ใŸใ€‚ ่งฃ่ชฌใฏใ€ใใฎใ‚ˆใ†ใชใƒใ‚ฑใƒƒใƒˆใฎๅญ˜ๅœจใฎ่จผๆ‹ ใ‚’ๆไพ›ใ—ใพใ™ใ€‚



็งใฏใ“ใ‚Œใ™ในใฆใงไฝ•ใ‚’่จ€ใ„ใŸใ„ใฎใงใ™ใ‹๏ผŸ ใฏใ„ใ€ๅฎŸ้š›ใซใฏใ€็‰นๅˆฅใชใ“ใจใฏไฝ•ใ‚‚ใ‚ใ‚Šใพใ›ใ‚“ใ€‚ ไป•ไบ‹ไธญใซใƒชใƒฉใƒƒใ‚ฏใ‚นใ™ใ‚‹ๅฟ…่ฆใŒใ‚ใ‚‹ๅ ดๅˆใฏใ€ใ‚ฒใƒผใƒ ๏ผˆใ‚ฒใƒผใƒ ใ‚’้™คใ๏ผ‰ใ‚„็ฒพ็ฅžๆดปๅ‹•ใซๅฝน็ซ‹ใคใ‚‚ใฎใ‚’ใŸใใ•ใ‚“่ฆ‹ใคใ‘ใ‚‹ใ“ใจใŒใงใใพใ™ใ€‚



ๅนธใ›ใซ๏ผ



UPD๏ผšใ‚ฟใ‚คใƒ—ใŒใ€Œไผš่ญฐใ€๏ผˆ้‡‘้กใŒ1ใคใšใค็•ฐใชใ‚‹๏ผ‰ใŠใ‚ˆใณใ€Œๆ‰‹็ด™ใ€๏ผˆ2ใŒ็•ฐใชใ‚‹๏ผ‰ใฎใƒใ‚ฑใƒƒใƒˆใฎๆ•ฐใ‚’ใ‚ซใ‚ฆใƒณใƒˆใ—ใพใ—ใŸใ€‚ ใ€Œไผš่ญฐใ€ -109494ใƒใ‚ฑใƒƒใƒˆ ใ€ใ€Œๆ‰‹็ด™ใ€ -106524ใƒใ‚ฑใƒƒใƒˆใ€‚ ใใฎ็ตๆžœใ€็ด„4ๆžšใซ1ๆžšใฎใƒใ‚ฑใƒƒใƒˆใŒ็งใŸใกใฎ็”Ÿๆดปใซๅฐ‘ใ—ๅ‰ๅ‘ใใชๆฐ—ๆŒใกใ‚’ใ‚‚ใŸใ‚‰ใ—ใฆใ„ใพใ™ใ€‚



All Articles