Handbook
Glossary
mul-shift-all ( mmShift m mul shift -- vm vp vr )
Vocabulary
ryu
.
private
Inputs
mmShift
an
object
m
an
object
mul
an
object
shift
an
object
Outputs
vm
an
object
vp
an
object
vr
an
object
Definition
USING:
kernel
math
;
IN:
ryu.private
:
mul-shift-all
( mmShift m mul shift -- vm vp vr )
[
4
*
]
2dip
[
[
1
-
swap
-
]
2dip
mul-shift
]
[
[
2
+
]
2dip
mul-shift
]
[
mul-shift
]
3tri
;