Handbook
Glossary
almost-fib ( quot -- quot )
Vocabulary
rosetta-code.y-combinator
Inputs
quot
an
object
Outputs
quot
an
object
Definition
USING:
kernel
math
;
IN:
rosetta-code.y-combinator
:
almost-fib
( quot -- quot )
[
[
-
]
]
dip
compose
[
[
1 2
]
]
dip
[
bi-curry@
bi
+
]
curry
compose
[
[
dup
2
>=
]
]
dip
[
when
]
curry
compose
;