Commit ef84dc54 authored by Bernd Paysan's avatar Bernd Paysan

Improve zfib readability

parent dbd49437
Pipeline #1126 failed with stage
in 9 minutes and 40 seconds
......@@ -117,7 +117,7 @@ previous
zln z2/ zexp THEN ;
: z** ( z1 z2 -- z1**z2 ) zswap zln z* zexp ;
\ Test: Fibonacci-Zahlen
1e 5e fsqrt f+ f2/ fconstant phi 1e phi f- fconstant 1-phi
1e 5e fsqrt f+ f2/ fconstant phi
: zfib ( z1 -- fib[z1] )
zdup z>r phi 0e zswap z**
zr> zswap z>r [ 1e phi f- ] FLiteral
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment