Handbook
Glossary
longmult-seq ( xs ys -- zs )
Vocabulary
rosetta-code.long-multiplication
Inputs
xs
an
object
ys
an
object
Outputs
zs
an
object
Definition
USING:
kernel
math
math.vectors
sequences
;
IN:
rosetta-code.long-multiplication
:
longmult-seq
( xs ys -- zs )
[
*
]
cartesian-map
dup
length
<iota>
[
0
<repetition>
]
map
[
prepend
]
2map
[
]
[
[
0
suffix
]
dip
v+
]
map-reduce
;