Handbook
Glossary
(carry-n) ( ns lengths i -- )
Vocabulary
sequences.product.private
Inputs
ns
an
object
lengths
an
object
i
an
object
Outputs
None
Definition
USING:
kernel
math
sequences
sequences.private
;
IN:
sequences.product.private
::
(carry-n)
( ns lengths i -- )
ns
length
i 1
+
=
[
i ns
nth-unsafe
i lengths
nth-unsafe
=
[
0 i ns
set-nth-unsafe
i 1
+
ns
[
1
+
]
change-nth-unsafe
ns lengths i 1
+
(carry-n)
]
when
]
unless
;
inline
recursive