Handbook
Glossary
extract ( z x -- n )
Vocabulary
benchmark.pidigits
Inputs
z
an
object
x
an
object
Outputs
n
an
object
Definition
USING:
kernel
math
sequences
;
IN:
benchmark.pidigits
:
extract
( z x -- n )
[
first2
]
dip
[
*
]
curry
[
[
first2
]
]
dip
[
[
+
]
bi*
]
curry
compose
bi@
/i
;