Petitverse

DIM STACK%[1024],RET%[1024] 'スタック,戻り値
VAR SLEN%,RLEN%
DEF DUMB_FIB N OUT M
　RLEN%=0 'RETは空
　SLEN%=1:STACK%[0]=N 'STACK%はNをpush(最初の呼び出し)
　WHILE SLEN%>0 'スタックが空になるまで
　　SLEN%=SLEN%-1:N=STACK%[SLEN%] 'POP
　　IF 0==N THEN '引数が0
　　　RET%[RLEN%]=0:RELN%=RLEN%+1 '0を返す
　　ELSEIF 1==N THEN '引数が1
　　　RET%[RLEN%]=1:RELN%=RLEN%+1 '1を返す
　　ELSEIF -1==N THEN '加算命令
　　　RLEN%=RLEN%-1:N=RET%[RLEN%] '戻り値を一つpop
　　　INC RET%[RLEN%-1],N '戻り値を一つpopし、Nに加算し、push
　　ELSE
　　　STACK%[SLAST%]=-1:SLAST%=SLAST%+1 '加算命令をpush
　　　STACK%[SLAST%]=N-1:SLAST%=SLAST%+1 'N-1で再帰
　　　STACK%[SLAST%]=N-2:SLAST%=SLAST%+1 'N-2で再帰
　　ENDIF
　WEND
　M=RET%[0]
END

VAR I%
FOR I%=0 TO 8
　PRINT DUMB_FIB(I%),
NEXT I%