配列の挙動について

今更ながら配列と関数の関係について確認している。

グローバルで宣言された配列はC言語でのポインタのように扱える。関数に配列を渡し、関数内で操作をすることができる。以下はALLOCのようなものの例。
DIM A[0] ' PRINT LEN(A) ' Output is 0 ALLOC A, 10 PRINT LEN(A) ' Output is 10 ' DEF ALLOC A<span data-unlink>, SIZE DIM _A[SIZE] COPY A,_A END
関数定義時の引数の は省略できるようだ。逆に呼び出す側はつけてはいけない。COPY はコピー先の配列を自動的に拡張してくれる。ただし、縮小はしないので、一度拡張された配列は COPY では縮小できない。(できたら困る)。
縮小させたい場合はPOPを使うとよいようだ。速度の問題はさておきBASICらしくREDIMを作るとするとこんな感じになる。指定した SIZE の方が大きい場合、増えた分には 0 が入る。逆に小さい場合は値が入っていても削除される。
DEF REDIM _A<span data-unlink>, SIZE VAR _S=LEN(_A) VAR _I VAR _N IF _S>SIZE THEN VAR _TMP _N=_S-SIZE WHILE _N>0 _TMP=POP(_A) DEC _N WEND ELSE DIM _B[SIZE] IF LEN(_A)!=0 THEN COPY _B,_A COPY _A,_B ENDIF END
サイズの変更だけでなく、もちろん内容の変更も可能。SORT 命令があるけど、自分でバブルソート的なものを書いてみるとこんな感じ。
DIM A[10] @D DATA 7,9,5,0,3,1,2,4,8,6 COPY A,"@D" ' PRINT_ARRAY A ' Output is 7,9,5,0,3,1,2,4,8,6 BSORT A PRINT_ARRAY A ' Output is 0,1,2,3,4,5,6,7,8,9 ' DEF PRINT_ARRAY _A</span> VAR _I VAR _L = LEN(_A)-1 FOR _I=0 TO _L PRINT _A[_I];","; NEXT PRINT ENDIF ' DEF BSORT _A VAR _L=LEN(_A) REPEAT _C=0 FOR _I=_L-1 TO 1 STEP -1 IF _A[_I]<_A[_I-1] THEN SWAP _A[_I],_A[_I-1] INC _C ENDIF NEXT UNTIL _C==0 END
COPY で DATA を代入できるというのは楽でいいし面白い。ただし、DATA列からのCOPYでは配列要素は拡張してくれないみたいだ。
ついでに内蔵の SORT は複数の配列を同時にソートできる。構造体的に扱いたい時には重宝しそうだ。
DIM A[10] DIM B$[10] @D DATA 7,9,5,0,3,1,2,4,8,6 COPY A,"@D" @D2 DATA "DATA7","DATA9","DATA5","DATA0","DATA3","DATA1","DATA2","DATA4","DATA8","DATA6" COPY B$,"@D2" ' SORT A,B$ PRINT_ARRAY A ' Output is 0,1,2,3,4,5,6,7,8,9 PRINT_ARRAY B$ ' Output is DATA0,DATA1,DATA2,DATA3,DATA4,DATA5,DATA6,DATA7,DATA8,DATA9
(2014-12-30追記)
よく考えたら、PRINT_ARRAY は数値配列を前提としているのに文字列配列を渡しても期待する挙動をしていた。
もしかして、と思ったら、結局ポインタっぽいというのは正解で、SWAPなどで配列の交換も可能。しかも数値配列と文字列配列の入れ替えが可能だった。だが、添え字はそのままなのでややこしくなる。
DIM A[5] DIM B$[5] @D DATA 0,0,0,0,0 COPY A,"@D" @D2 DATA "A","A","A","A","A" COPY B$,"@D2" ' PRINT_ARRAY A ' Output is 0,0,0,0,0 PRINT_ARRAY B$ ' Output is A,A,A,A,A ' SWAP A,B ' PRINT_ARRAY A ' Output is A,A,A,A,A PRINT_ARRAY B$ ' Output is 0,0,0,0,0 PRINT A[0]+"B" ' Output is AB PRINT B$[0]+1 ' Output is 1 PRINT A[0]+1 ' Error: Type mismatch