ちょっと頭の体操？

簡単だって言うからやってみたけど - 零客痩地:
ここで紹介されていた問題をやってみました。

;20110128:02:03 - 20110128:02:17
a = 0
b = ""
objsize 300,20
input a
input b
button gosub "Go",*hondai
stop

*hondai
sdim card,a
counter = 0
repeat
if strlen(b)==0 : break
card(counter) += strmid(b,0,1)
b = strmid(b,1,strlen(b)-1)
counter ++
if counter > a-1 {
counter = 0
if strlen(b) < a : break
}
loop

color 255,255,255 : boxf
color 0,0,0
repeat a
pos 0,cnt *20 + 60 : mes card(cnt)
loop
return

実行結果


しっかしaとかbって、急いでいるとまともな変数名も思いつかないもんですねｗ
この問題10分で解けないといけないらしいですけど14分かかりましたorz

ん？何関数になってないじゃん？大丈夫！HSPは全ての変数がグローバルだから、チャンチャン。