i store
i @
end
i @ dup 1 - fibo @ ! swap 2 - fibo @ ! +
i @ 1 <= ifElse
fibo store
5 fibo @ !
ça c'est la version récursive...
i store
0 i0 store
1 i1 store
1 pos store
i0 @ i1 @ + i2 store
i1 @ i0 store
i2 @ i1 store
pos @ 1 + pos store
pos @ i @ >=
until
fibo2 store
10 fibo2 @ !
et ensuite celle non récursive...
Et je peux vous dire que c'est une sacrée gymnastique !