文字の組み合わせ

文字の組み合わせ

高校一年くらいで習うのかな
数字の組み合わせだったような
いやいや
whitespaceの字句解析のデバッグ用に書きました
配列のサイズがあんま自由じゃないんで
追記:そういえばHSPは配列の大きさは大きくなりますなw
ノート命令に書き込んでから配列に代入してます

sdim _4note,10000
 notesel _4note
 s="s"
 t="t"
 n="n"
 tmp1=s
 gosub *sub_d
 tmp1=t
 gosub *sub_d
 tmp1=n
 gosub *sub_d
 notesave "stn5.txt"
 sdim ar_stn5,8,notemax
 repeat notemax
 tmp_get=""
 noteget tmp_get,cnt
 ar_stn5.cnt=tmp_get
 loop
 stop
 *sub
 tmps=tmp1+tmp2+tmp3+tmp4+s
 tmpt=tmp1+tmp2+tmp3+tmp4+t
 tmpn=tmp1+tmp2+tmp3+tmp4+n
 noteadd tmps,-1,0
 noteadd tmpt,-1,0
 noteadd tmpn,-1,0
 return
 *sub_b
 tmp4=s
 gosub *sub
 tmp4=t
 gosub *sub
 tmp4=n
 gosub *sub
 return
 *sub_c
 tmp3=s
 gosub *sub_b
 tmp3=t
 gosub *sub_b
 tmp3=n
 gosub *sub_b
 return
 *sub_d
 tmp2=s
 gosub *sub_c
 tmp2=t
 gosub *sub_c
 tmp2=n
 gosub *sub_c
 return

これは初稿でサブルーチンを利用して繰り返してます
逆にコレ書いた後なんで
繰り返しでも書けました

batake_lab

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