Handbook
Glossary
almost-ack ( quot -- quot )
Vocabulary
rosetta-code.y-combinator
Inputs
quot
an
object
Outputs
quot
an
object
Definition
USING:
combinators
kernel
math
;
IN:
rosetta-code.y-combinator
::
almost-ack
( quot -- quot )
[
{
{
[
over
zero?
]
[
nip
1
+
]
}
{
[
dup
zero?
]
[
[
1
-
]
[
drop
1
]
bi*
quot
call
]
}
[
[
drop
1
-
]
[
1
-
quot
call
]
2bi
quot
call
]
}
cond
]
;