Petitverse

REM 今までFFT→ARYOP→IFFT→ARYOPってやってたけど
REM SmileBASICだとIFFT→ARYOP→FFTにしたほうが
REM ARYOPの回数を減らせてスマートに書けることに今更気付きました。

ACLS
OPTION STRICT
OPTION DEFINT
XSCREEN 1

DIM AR#[128],AJ#[128]
DIM BR#[128],BJ#[128]
DIM T#[128]
VAR I%

AR#[2]=2:AR#[1]=9979:AR#[0]=2458
BR#[2]=0:BR#[1]=3153:BR#[0]=6000

IFFT AR#,AJ#,AR#,AJ#
IFFT BR#,BJ#,BR#,BJ#

COPY T#,AJ#
ARYOP 2,AJ#,T#,BR#
ARYOP 4,AJ#,AR#,BJ#,AJ#
ARYOP 2,AR#,AR#,BR#
ARYOP 2,T#,T#,BJ#
ARYOP 1,AR#,AR#,T#

FFT AR#,AJ#,AR#,AJ#

FOR I%=1 TO 127
　VAR TMP%=ROUND(AR#[I%-1])
　INC AR#[I%],TMP% DIV 10000
　AR#[I%-1]=TMP% MOD 10000
NEXT I%

I%=10
WHILE I%
　I%=I%-1
　PRINT FORMAT$("%04d",ROUND(AR#[I%]));
WEND