Handbook
Glossary
(faster-fib) ( m -- n )
Vocabulary
benchmark
.
fib8
Inputs
m
an
object
Outputs
n
an
object
Definition
USING:
combinators
kernel
math
;
IN:
benchmark.fib8
MEMO:
(faster-fib)
( m -- n )
dup
1
>
[
[
2/
dup
1
-
[
(faster-fib)
]
bi@
]
[
4
mod
]
bi
{
{
1
[
[
2
*
]
dip
[
+
]
[
-
]
2bi
*
2
+
]
}
{
3
[
[
2
*
]
dip
[
+
]
[
-
]
2bi
*
2
-
]
}
[
drop
dupd
2
*
+
*
]
}
case
]
when
;