ޥ
ߤޤ󡢸飵ʬ֤ۤɡʸޤm(_ _)m
iMac 1024ڡ 0:12:29 HomePage:48498
٥륯åĥ
17423ǹ17Ǥޤõʳˡʬޤ
1024ڡ 0:40:26 48499
ǯ
2^5-1=31ޤñʤϤϤʤȡ
ʤʤĤʤäΤǡץޤ

1 2 5 11 13 18
1 2 5 11 16 18
1 2 9 12 14 18
1 2 9 13 15 18
1 3 8 14 17 18
1 4 6 10 17 18
1 5 7 10 17 18
1 6 8 14 17 18

1024ڡ 0:54:06 48500
٥륯åĥ
12345¤ؤ硢ü1٤5ȤƤ⡢23Ȥ4Ȥ٤ʤΤԲǽʤΤǤǤޤ
12346¤ؤ硦Ĵ٤ƤʤΤǤ礦
1024ڡ 0:45:54 48501
baLLjugglermoka
1365217
1024ڡ 0:58:57 48502
Ȥ
#48500

ʲνBasicƱͤǤޤ!!

FOR a=1 to 1
FOR b=a+1 to 18
FOR c=b+1 to 18
if a-b=a-c or a-b=b-c or a-c=b-c then goto 40
FOR d=c+1 to 18
if a-b=a-d or a-b=b-d or a-b=c-d or a-c=a-d or a-c=b-d or a-c=c-d then goto 30
if a-d=b-c or a-d=b-d or a-d=c-d or b-c=b-d or b-c=c-d or b-d=c-d then goto 30
FOR e=d+1 to 18
if a-b=a-e or a-b=b-e or a-b=c-e or a-b=d-e or a-c=a-e or a-c=b-e then goto 20
if a-c=c-e or a-c=d-e or a-d=a-e or a-d=b-e or a-d=c-e or a-d=d-e then goto 20
if a-e=b-c or a-e=b-d or a-e=b-e or a-e=c-d or a-e=c-e or a-e=d-e then goto 20
if b-c=b-e or b-c=c-e or b-c=d-e or b-d=b-e or b-d=c-e or b-d=d-e then goto 20
if b-e=c-d or b-e=c-e or b-e=d-e or c-d=c-e or c-d=d-e or c-e=d-e then goto 20
FOR f=e+1 to 18
if a-b=a-f or a-b=b-f or a-b=c-f or a-b=d-f or a-b=e-f or a-c=a-f then goto 10
if a-c=b-f or a-c=c-f or a-c=d-f or a-c=e-f or a-d=a-f or a-d=b-f then goto 10
if a-d=c-f or a-d=d-f or a-d=e-f or a-e=a-f or a-e=b-f or a-e=c-f then goto 10
if a-e=d-f or a-e=e-f or a-f=b-c or a-f=b-d or a-f=b-e or a-f=b-f then goto 10
if a-f=c-d or a-f=c-e or a-f=c-f or a-f=d-e or a-f=d-f or a-f=e-f then goto 10
if b-c=b-f or b-c=c-f or b-c=d-f or b-c=e-f or b-d=b-f or b-d=c-f then goto 10
if b-d=d-f or b-d=e-f or b-e=b-f or b-e=c-f or b-e=d-f or b-e=e-f then goto 10
if b-f=c-d or b-f=c-e or b-f=c-f or b-f=d-e or b-f=d-f or b-f=e-f then goto 10
if c-d=c-f or c-d=d-f or c-d=e-f or c-e=c-f or c-e=d-f or c-e=e-f then goto 10
if c-f=d-e or c-f=d-f or c-f=e-f or d-e=d-f or d-e=e-f or d-f=e-f then goto 10
print a;b;c;d;e;f
10 next f
20 next e
30 next d
40 next c
50 next b
60 next a
END
˭ԡ 1024ڡ 2:00:00 MAIL:fttnm528@ybb.ne.jp 48503
ˤ
157101718Ȥޤ
Ķļˡ 1024ڡ 7:27:01 48504
ǯ
#48500Ѥץϰʲνʥ١å
ǽm=31ǹԤäʤΤǡǡ̤򸫤ʤ龮Ƥä

LET m=18
DIM S(m)
FOR a=1 TO m
FOR b=a+1 TO m
FOR c=b+1 TO m
FOR d=c+1 TO m
FOR e=d+1 TO m
FOR f=e+1 TO m
FOR i=1 TO m
LET S(i)=0
NEXT I
LET S(b-a)=S(b-a)+1
LET S(c-a)=S(c-a)+1
LET S(d-a)=S(d-a)+1
LET S(e-a)=S(e-a)+1
LET S(f-a)=S(f-a)+1
LET S(c-b)=S(c-b)+1
LET S(d-b)=S(d-b)+1
LET S(e-b)=S(e-b)+1
LET S(f-b)=S(f-b)+1
LET S(d-c)=S(d-c)+1
LET S(e-c)=S(e-c)+1
LET S(f-c)=S(f-c)+1
LET S(e-d)=S(e-d)+1
LET S(f-d)=S(f-d)+1
LET S(f-e)=S(f-e)+1
FOR i=1 TO m
IF S(i)>=2 THEN GOTO 100
NEXT I
PRINT a;b;c;d;e;f
100 NEXT F
NEXT E
NEXT D
NEXT C
NEXT B
NEXT A
END

1024ڡ 8:50:15 48505
⡼ޥ
1-2-4-8-13-21 21-1=20
줺...ʲǧڤޤ...^^;

ǾǧƤߤޤ...
1+2+3+4+5=15...1-2,1-3,1-4,2-3,2-4-1-5,2-5-3-4...¤Ӥ̵...-1-5-4-3-Ҥʤ...
1+2+3+4+6=16...1-2,1-3,2-4,1-4-2-3,1-6-4-3,1-2-3...¤Ӥ̵...-1-6-2-3-Ҥʤ...
1+2+3+4+7=17...1-2,1-3,3-4,2-3-1-4...¤Ӥ̵...1-7-4-2-3 ϾʤȤǽ
1-2-9-13-15-18
1+2+3+5+6=17...1-2,1-5,2-3,1-2-3,2-5-1-6,2-6-3-5...¤Ӥ̵...1-3-6-2-5ϾʤȤǽ
1-2-5-11-13-18

ߤʤȤǡMin{Max-Min}=17
櫓Ǥ...
ѤǤ...^^;;
1024ڡ 15:32:52 48506
ܾ
ˤäޤ󤤵
1024ڡ 20:56:30 48507
ܾ
ˤäޤ󤤵
1025ʶ 2:12:10 48508
ֿء׾ι
פ꤬ɤǤ
ܰ¤ˤõФΤȤȤ狼ޤ
ץȤäƤߤޤ

$dsum=0;$n=1;
my @def;
# 6Ĥο򾮤¤٤Ƥγᡤ⡤㡤䡤Ȥ롣
# Ǥ⣵ޤǤɬפǡȤ߹碌15̤ʤΤ15ޤǹͤнʬ
for($a=1;$a<=15;$a++){
for($b=1;$b<=15;$b++){
for($c=1;$c<=15;$c++){
for($d=1;$d<=15;$d++){
for($e=1;$e<=15;$e++){
# 15κ׻롣
$def[1]=$a;$def[2]=$def[1]+$b;$def[3]=$def[2]+$c;$def[4]=$def[3]+$d;$def[5]=$def[4]+$e;
$def[6]=$b;$def[7]=$def[6]+$c;$def[8]=$def[7]+$d;$def[9]=$def[8]+$e;
$def[10]=$c;$def[11]=$def[10]+$d;$def[12]=$def[11]+$e;
$def[13]=$d;$def[14]=$def[13]+$e;
$def[15]=$e;
# 15κΤ̵Ȥ¤׻롣
$flag=0;
for($i=1;$i<=14;$i++){
for($j=$i+1;$j<=15;$j++){if($def[$i]==$def[$j]){$flag=1;last;}}
if($flag==1){last;}}
if($flag==1){next;}
$dsum=$a+$b+$c+$d+$e;
# ¤ǾΤΤФ롣
if($n==1){$dmin=$dsum;$n++;}
if($dmin>$dsum){$dmin=$dsum;$am=$a;$bm=$b;$cm=$c;$dm=$d;$em=$e;}
}}}}}
print "$dmin,$am,$bm,$cm,$dm,$em\n";
1025ʶ 8:15:25 48509
ֿء׾ι
ۤɤΥץˤС礦17ˤʤΤϡ








Ȥʤ8̤ξ礬褦Ǥ⤦ɤʤ񤤤Ƥʡʡˡ
1025ʶ 8:46:55 48510
Ѥ
...ǸդơǧߤǤॺ
1025ʶ 18:16:26 48511
̻
֤򸫤ĤƤϡԺ򷫤֤
ʤȤĸĤޤ
1025ʶ 18:47:47 48512
ޤ
ϹʤˤǤޤ顢
ӥ󥴡ǤʾС

#48506 ⡼ޥ󤵤ޤƱ͡20ͤ줺1ľʤơorz

ɤͤ顢17򸫤ĤΤ
ޤ狼äƤޤ(ϡ)
somewhere in the world 1031ڡ 0:54:23 48513
kyorofumi
ɤʤ˴ؤơʳǸĤˡŪطʤʤɤ¸äʤǤ礦
Ĵ٤ƤߤޤĤޤǤ
115ʲС 20:41:12 48514