Handbook
Glossary
almost-fac ( 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-fac
( quot -- quot )
[
[
dup
1
-
]
]
dip
[
*
]
compose
compose
[
[
dup
zero?
[
drop
1
]
]
]
dip
[
if
]
curry
compose
;