٥륯åĥ
PCĴʤΤǡPC顣
22¤Ӥͤȴ񡢴񡢶¤Ӥξ礬줾¤Ϻȿžͤ241212̤ʤΤǹ48̤ꡣ
1224ڡ 0:07:44 43995
٥륯åĥ
ְ㤨23Ǥ
1224ڡ 0:08:35 43996
Ȥ
Basic ǼФɽa,b,c,d,eȤ

FOR a=1 to 5
FOR b=1 to 5
if b=a then goto 40
FOR c=1 to 5
if c=a or c=b then goto 30
FOR d=1 to 5
if d=a or d=b or d=c then goto 20
FOR e=1 to 5
if e=a or e=b or e=c or e=d then goto 10
if mod(abs(a-b)+abs(b-c)+abs(c-d)+abs(d-e),2)=0 then let s=s+1
10 next e
20 next d
30 next c
40 next b
50 next a
print s
end

f9ơ48()
˭ԡ 1224ڡ 0:11:11 43997
ʪ
ץߥ󥰤Ǥ
(餷פդʤäΤ)
1224ڡ 0:12:06 HomePage:Twitter43998
!!!
轵̣ExcelǥݥݥäƤǯֽɽŽäȤޤ
ˡhttp://www.ranking.sansu.org/

2015ǯ 20915957)

/̾/ݥ/1̲/10̰
01:!!!/388/7/27
02:Taro/379/6/31
03:/221/2/20
04:ߡ/197/5/12
05:Ȥ/192/3/18

06:sodo/150/1/13
07:餫/150/1/12
08:ؽ/149/3/11
09:äѥȥ/149/2/11
10:å㡡ƻ/147/2/13

11:deu/136/3/9
12:CRYING DOLPHIN/128/0/15
13:/121/0/11
14:ѥޥ/117/1/15
15:kazz/117/0/13

16:٥륯åĥ/117/0/12
17:kisenjiku/106/1/7
18:Ҥ/97/0/11
19:nobu/88/0/12
20:ʪ/84/0/9

פϼȤʤΤǥߥΤǽ(10̾ϺƥåƤޤ)

͡ 1224ڡ 0:26:37 43999
Mr.ǥ
ɽȤιפˤʤΤ
ȡѤս꤬ĤΤȤ
ʤ




äơ
4*3!*2!)=48̤ˡȤޤ
----------------------------------
ɵۺ󤬺ǯǸäǤ͡
ʲȤǯͤФޤǯϤɤʤ뤳Ȥ顦

ޥ͡ޡǯ֤꤬Ȥޤ
1225ʶ 10:25:47 44000
å
ǯǯ֡ڤ򤢤꤬Ȥޤ
轵Ϥ٤ߤȤȤǡǯफƤιڤߤˤƤޤ͡
1224ڡ 0:18:30 44001
ǯ
n¤ΡǽȺǸ1ĤοѤȡٹ礦κιפϡ2ܿѲ롣
ʺǽȺǸοξϡѤȡٹ礦κιפѤʬѲ
ΤˡƤοƱǤȤ饹ȤȽ褦ˡ˺ǽȺǸκǤɤǽȺǸϴ
15ο1󤺤ĻѤΤǡ
ǽȺǸ¤ӤξϡǽȺǸ夬3*2̤ꡢ椬3*2*1̤36̤ꡣ
ǽȺǸ夬ξϡǽȺǸ夬2*1̤ꡢ椬3*2*1̤12̤ꡣ
פ48̤ꡢȤޤ
ޤǯڤߤˤƤޤ

1224ڡ 2:25:19 44002

ȴ2Ĥ(14ؤ)¤ؤΤˡ
5ͤƲ򤭤ޤ

ǺǯϻǼǤ͡
ɤǯ

1224ڡ 0:38:29 44003

Ф
ξüζĴ٤
ξüΤȤ(3ѥ)ξüΤȤ(1ѥ)Τߡޤ
äơ3!2!4=48̤

ޤǺǯ¿ʬǤȻפޤ
ޥ뤵ޡ꤬ͤȤޤ
줫鴨˸褦ʤΤdzͷ򹯤αդ
餷ǯ򤪷ޤޤ(*^^*)
1224ڡ 1:03:17 44004
Halt0
|a-b|+|b-c|+|c-d|+|d-e| a+e (mod 2) ʤΤξüζ񤬰פФ褯ĤȲ򤭤ޤ.
1224ڡ 5:11:21 44005
̴
Jޥ͡HaltOͤƱͤDz򤭤ޤޥͿȤäˤʤޤɤǯ򤪷ޤ!!!!ǯڤ򤪴ꤤפޤĤڤ1ޤǤϣޤǤǤ͡
ٻΤ桡 1224ڡ 6:48:41 44006


ǯνϺ󤬺ǸʤǤ͡
ȤȤǯɸȤƤǯִƤǤޤ
ꤷƤäޥ뤵ʲʿѣʬ餤ƤޤΤǯ֤ǣʬʬϤˤƤƤ
ܤڤβ򶵤Ƥäߤʤ
꤬Ȥޤ
ǯߤʤޤˤȤäƤФ餷ǯˤʤޤ褦餪꿽夲ޤ
ǯɤꤤפޤ
Ϻꡡ 1224ڡ 6:55:49 44007
???
Option Explicit: Dim a(5) As Integer
Sub Macro1()
Cells(1, 1).Value = 0
Call saiki(1)
End Sub
Sub saiki(ByVal n As Integer)
Dim sum As Integer, j As Integer
a(n) = 1
While a(n) <= 5
If onaji(n) = 0 Then
If n < 5 - 1 Then
Call saiki(n + 1)
Else
a(5) = 5
For j = 1 To 5 - 1 : a(5) = a(5) + j - a(j) : Next j
sum = 0
For j = 1 To 5 - 1
sum = sum + Abs(a(j) - a(j+1))
Next j
If sum Mod 2 = 0 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To 5
Cells(Cells(1, 1).Value, j + 1).Value = a(j)
Next j
Cells(Cells(1, 1).Value, 7).Value = sum
End If
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function onaji(ByVal n As Integer) As Integer
Dim j As Integer
onaji = 0 : j = 1
While onaji = 0 And j < n
If a(j) = a(n) Then onaji = 1 Else j = j + 1
Wend
End Function
1224ڡ 9:01:47 44008
deu
#44005 ƱͤǤ

ǯ1ǯ֤νꤢ꤬Ȥޤ0ˤϿƤƥꥢ륿ǤϻäǤʤȤŪ¿äΤǤǯϤ⤦ꥢ륿ǻäǤ
1224ڡ 10:15:01 44009
Ƥ
դдñ⤷Ǥ
1224ڡ 11:25:39 44010
uchinyan
Ϥˤϡơϡ
ࡤ3! ǤϤʤ 3 ݤꡤǤϤʤξ᤿ꡤȤĤޤʤߥ򤷤Ƥޤޤ
ꤽ켫ΤϡȤƤɸŪסɤ餫Ȥаסʡ§˵դɤݥȤǤ͡
դаפǤ񤭽ФǧڤǤʤȤʤǤ礦󡤥ץʤס
ʴǡ

ݥȤǤȶϴȴ¤϶ȴ¤ϴȤȤȡ
٤礦ĤοκȶϴȴʤжȴʤдȤȤפǤ
ΤȤ顤٤礦ĤοζѤäפϴʤפ϶ʬޤ
޵ΤϹפξʤΤǡ٤礦ĤοζѤˤʤޤ
Ȥϡξüοζפ롤ξüο˶ϴȤȤǤ
ǡξüο˶ξ = 2C2 * 2! * 3! = 12 ̤ꡤξüο˴ = 3C2 * 2! * 3! = 36 ̤ꡤꡤ
ο = 12 + 36 = 48 ̤ꡤˤʤޤ

ʤΤǡȴǽ񤤤Ƥߤޤ2 dzä; 0 1⤷Ϲ⹻ؤǤ mod 2
ƤͤˤϹͤ䤹̤⤤Ǥ͡
ͥνȡ 1224ڡ 12:43:35 44012
ϺĹ
פ֤ΰȯʤΤǽ񤭹ߡ
ͣҡǥͤƱǤ򤷤
轵ϤäѤꡣˡɤǤǤʤ褦Ȥʤ
Ƕϻ򤱤ʤ꤬ޡʤȡ
ޥ͡ǯԤƤޤɤǯ
1224ڡ 12:36:53 44013
uchinyan
ǼĤɤߤޤ


ʲεҤϡ⤽ϻ伫ȤٶΥ˲᤮ʤΤǤ
޳ѤʤΤǤͤޤǤˤȻפäƸΤǤ
Ȥ⤢äơˡʬϻ F.A.Q. ΡֻϰϡפεҤ򻲹ͤˡ
ĿͤǤиǼŪ˹ԤäƤΤǤäơҴŪʤΤǤϤޤ
ޤǤ⤴ͤǤ餺

Ȥˡȴ¤ܤۤƱͤȻפޤ

#43995#44000#44013
ȴ¤ܤѥĴ٤ˡ

#44002
ξüʳοѲϾ˶Ǥ뤳ȤꡤΤξüοζפ롤ȹͤˡ

#44003
1 4 ¤Ӥ 5 ΤĴ٤ˡ

#44004#44006
ξüοζꤷƹͤˡ

#44012
٤礦ĤοζѤ礬Ȥ顤ξüοζפ롤ȹͤˡ

#44005#44006#44009#44017
(ʤͤ㤤򤷤Ƥ褦Ǥ)
٤礦κιפ mod 2 ιƱιϤʼѤξüοζפ롤ȹͤˡ
ƱѤϸܤǤϤʤΤǤưפ˻餷񤭴ޤ͡

#43997#43998#44008#44016#44019
ץˤˡ

ϥꥹޥ֡轵κϤ⤦糢ʤǤ͡ᤤΤǤ
轵Ϥ٤ߤʤΤǡȤǯ̵˻äǤƤ褫äǤ
ǯǯϤΤϤ⤦ˤޤ (^^;
ͥνȡ 1225ʶ 11:26:53 44014

פ֤Ǥ^^;
1224ڡ 16:42:36 MAIL:nikotan@fat.coara.or.jp 44015
ϥ饮㡼ƥ
ߤޤ󡡥ץǤ
1224ڡ 17:24:06 HomePage:湩ؤ˥44016
⡼ޥ
꡼Xmas
ƱͤιͤǤ ^^

a,b,c,d,e
a+e+2(b+c+d)
a+e=+񡦡3*2*3!=36
a+e=+2*1*3!=12
=48


ڤФ ^^;;
ǯ()žǥ󥸤
礤ե饤󥰵̣Ǥ...
ޥ͡ߤʤޤ褤ǯ򤪷ޤޤm(_ _)mv
¨ ^^;v 1224ڡ 19:51:52 44017
ֿء׾ι
ǯ⤿ؤäˤʤޤɤ⤢꤬Ȥޤ
ǯ⻻ڤߤˤƤޤꤤޤ

ץǤäƤߤޤSmallBasicǤǽοȺǸοκοޤ᤿̣ǶˤʤäƤɤȤƹͤƤޤ

c=0
For i=1 To 5
For j=1 To 5
If i<>j Then
For k=1 to 5
If (i-k)*(j-k)<>0 Then
For l=1 To 5
If (i-l)*(j-l)*(k-l)<>0 Then
For m=1 To 5
If (i-m)*(j-m)*(k-m)*(l-m)<>0 And Math.Remainder(i-m,2)=0 Then
c = c+1
EndIf
endfor
EndIf
endfor
EndIf
EndFor
EndIf
EndFor
EndFor
TextWindow.Writeline(c)
end:
1225ʶ 10:02:36 44019
ˤ⡼
ʬϥɤζȺζĴ٤ޤ
ʹߡΥɤߡΥɤȤɽޤ

ĤΥɤκˤʤѥϲΤȤ
ˡߡߡߡɤκ¤ϡߣ
ˡߡߡߡɤκ¤ϡߣܶߣ
ˡߡߡߡɤκ¤ϡߣܶߣ
ˡߡߡߡɤκ¤ϡߣܶߣ

ˡˤˤĤơ줾졡
ʡߤ¤̤ˡߡʡ¤̤ˡ12̤

椨ˡ48̤
ʾ塡
1226ڡ 21:13:18 44020
uchinyan
ޤƤǤȤޤ
ǯϤʳڤ򤢤꤬Ȥޤ
ǯ⵹ꤤפޤ
ͥνȡ 11ʶ 14:57:15 MAIL:uchi@sco.bekkoame.ne.jp 44021
⡼ޥ
ޤƤǤȤޡ
ǯ!!
ڤޤĺȤޤ
ǯꤤޤm(_ _)m
¨ ^^;v 11ʶ 19:27:56 44022
Mr.ǥ
ǯޤƤǤȤޤ
轵νڤߤˤƤޤ
ޥ͡ޡǯꤤޤ
11ʶ 21:46:01 44023

ޤƤǤȤޤ
Фʤ麣ŻϤ
Ϥ
ǯڤ줷
ꤤޤ
16ʿ 13:06:19 44025
CRYING DOLPHIN
ޤƤǤȤޤ
ǯꤤޤ

Ͻ٤ߤʤΤǤ
3֤֤ΤäơνˤʤäƤ⤷ƽġ
ï⤤ʤԳϡ 16ʿ 23:57:11 HomePage:֥⤢롣44026
ޥ
ޤƤǤȤޤ

Ϥߤޤ󡣿äΤǤɤɤ꤬Ǥ...ޤm(__)mޤǯ⤳ȤĤġ³ƤޤΤǡɤꤤޤm(__)m
iMac 17ڡ 0:30:10 HomePage:ARENA44027
uchinyan
䤪䡤Ͽǯ᡹ӥåݥ䡤ȤǤ (^^;
äȤ⡤ȤƤϤ٤ߤˤʤäƤʤäƤޤ

¤ˤŪʿꤨ⤢äƤ򤹤ˤפγ˻֤褦ˤʤäƤޤ
Τ⤢äƤǯǯϤϤѤ߻ĤФƤޤбɤƤޤ
ߤˡǤ餺̵ƻˤäȥޥڡǤޤ礦

Ȥ櫓ǡɤ櫓ǯ⵹
ͥνȡ 17ڡ 11:39:59 MAIL:uchi@sco.bekkoame.ne.jp 44028
Mr.ǥ
ޥ뤵󡡤Ĥ⤢꤬Ȥޤ

ϡޤդƤʤǤ򤤤Ƥߤޤ
17ڡ 13:30:17 44029
ϥ饮㡼ƥ
ޤƤǤȤޤ

ץߥ󥰤ꤷޤ
ΰŹ˴ϢƤޤ

2褹109Ǥ

οΣ210MOD169ˤʤޤ
ϤǤ
17ڡ 17:44:12 HomePage:湩ؤ˥44030
ϥ饮㡼ƥ
ޤƤǤȤޤ

ְ㤨ޤ

ץߥ󥰤ꤷޤ

ΰŹ˴ϢƤޤ

7ˤĤ221MOD76ˤʤޤ
ϤǤ
17ڡ 19:15:16 HomePage:湩ؤ˥44031
Mr.ǥ
#44031
221+15ʣ롧0ʾˤʡ
18ʶ 21:39:13 44033
ϥ饮㡼ƥ
Ǥ

ץǤϺǽˣޤޤ

Σ褬׻ǤʤäꤹΤǥץǤ
ϫޤ
19ڡ 20:41:16 HomePage:湩ؤ˥44034
ǯ
10000ޤǤ򼡤Τ褦ʽʥ١å
10 FOR n=1 TO 10000
20 LET k=n-221*INT(n/221)
30 LET m=k
40 FOR i=2 TO 7
50 LET m=m*k
60 IF m>=221 THEN LET m=m-221*INT(m/221)
70 NEXT I
80 IF m=76 THEN PRINT n
90 NEXT N
END
̤ϡ 152364576788991120134115621783
Mr.ǥ̤Ǥ͡
ƤߤС15ޤФ221ܿäOKǤ͡
221δֳ֤椬ʤΤϡ22176ߤǤʴطΤǤ礦
ɵ22176Ѥơ20Ĥ餤οȤǤᤷƤߤޤǿ䶦δطˤ餺äȤ˸褦Ǥ

113ʿ 0:22:47 44035

ȤƤޤäΤǡ
椪񿽤夲ޤ
ǯ⤴ƳΤۤɤɤꤤޤ
ڤꡢ̾ڤߤˤƤޤ
󤫤Ǥդϻ֤Ȥ줺˽٤줽Ǥ(^^;

113ʿ 7:58:49 44036