|
ゴンとも |
|
十進basicで羅列させました。
for a=1 to 2 for b=1 to 3 if b=a then goto 130 for c=2 to 4 if c=a or c=b then goto 120 for d=3 to 5 if d=a or d=b or d=c then goto 110 for e=4 to 6 if e=a or e=b or e=c or e=d then goto 100 for f=5 to 7 if f=a or f=b or f=c or f=d or f=e then goto 90 for g=6 to 8 if g=a or g=b or g=c or g=d or g=e or g=f then goto 80 for h=7 to 9 if h=a or h=b or h=c or h=d or h=e or h=f or h=g then goto 70 for i=8 to 10 if i=a or i=b or i=c or i=d or i=e or i=f or i=g or i=h then goto 60 for j=9 to 11 if j=a or j=b or j=c or j=d or j=e or j=f or j=g or j=h or j=i then goto 50 for k=10 to 12 if k=a or k=b or k=c or k=d or k=e or k=f or k=g or k=h or k=i or k=j then goto 40 for l=11 to 13 if l=a or l=b or l=c or l=d or l=e or l=f or l=g or l=h or l=i or l=j or l=k then goto 30 for m=12 to 14 if m=a or m=b or m=c or m=d or m=e or m=f or m=g or m=h or m=i or m=j or m=k or m=l then goto 20 for n=13 to 14 if n=a or n=b or n=c or n=d or n=e or n=f or n=g or n=h or n=i or n=j or n=k or n=l or n=m then goto 10 print a;b;c;d;e;f;g;h;i;j;k;l;m;n 10 next n 20 next m 30 next l 40 next k 50 next j 60 next i 70 next h 80 next g 90 next f 100 next e 110 next d 120 next c 130 next b 140 next a end f9押して610通りを羅列！ |
|
豊川市
10月6日（木） 0:54:35
MAIL:fttnm528@ybb.ne.jp 38435 |