|
ゴンとも |
|
十進basicで以下でした。 for a=1 to 7 for b=1 to 7 if ((b<>a-1) and (b<>a+1)) or b=a then goto 60 for c=1 to 7 if ((c<>a-1) and (c<>a+1)) and ((c<>b-1) and (c<>b+1)) or ((c=a) or (c=b)) then goto 50 for d=1 to 7 if ((d<>a-1) and (d<>a+1)) and ((d<>b-1) and (d<>b+1) and (d<>c-1) and (d<>c+1)) or ((d=a) or (d=b) or (d=c)) then goto 40 for e=1 to 7 if ((e<>a-1) and (e<>a+1)) and ((e<>b-1) and (e<>b+1) and (e<>c-1) and (e<>c+1) and (e<>d-1) and (e<>d+1)) or ((e=a) or (e=b) or (e=c) or (e=d)) then goto 30 for f=1 to 7 if ((f<>a-1) and (f<>a+1)) and ((f<>b-1) and (f<>b+1) and (f<>c-1) and (f<>c+1) and (f<>d-1) and (f<>d+1) and (f<>e-1) and (f<>e+1)) or ((f=a) or (f=b) or (f=c) or (f=d) or (f=e)) then goto 20 for g=1 to 7 if ((g=a) or (g=b) or (g=c) or (g=d) or (g=e) or (g=f)) then goto 10 print a;b;c;d;e;f;g 10 next g 20 next f 30 next e 40 next d 50 next c 60 next b 70 next a END |
|
豊川市
12月28日（木） 1:45:02
MAIL:fttnm528@ybb.ne.jp 28931 |