文字の組み合わせ(repeat版)

文字の組み合わせ(repeat版)

sdim _4note,10000
 notesel _4note
 sdim youso,5,5
 youso.0="s"
 youso.1="t"
 youso.2="n"
 repeat 3
   tmp1=youso.cnt
   repeat 3
     tmp2=youso.cnt
     repeat 3
       tmp3=youso.cnt
       repeat 3
         tmp4=youso.cnt
         repeat 3
           tmp5=youso.cnt
           tmp=""+tmp1+tmp2+tmp3+tmp4+tmp5
           noteadd tmp,-1,0
         loop
       loop
     loop
   loop
 loop
 notesave "stn5_b.txt"
 sdim ar_stn5,8,notemax
 repeat notemax
 tmp_get=""
 noteget tmp_get,cnt
 ar_stn5.cnt=tmp_get
 loop
batake_lab

コメントは受け付けていません。