git.iko.soy/urbit.org
on 5e6a67f help sign in
urbit.org/docs/programming/reference/library/src/1a/gate/mul.md
41 lines 444 B history raw
1### `++mul`
3Multiply
5Multiplies `a` by `b`.
7Accepts
8-------
10`a` is an atom.
12`b` is an atom.
14Produces
15--------
17An atom.
19Source
20------
22 ++ mul :: multiply
23 ~/ %mul
24 |: [a=`@`1 b=`@`1]
25 ^- @
26 =+ c=0
27 |-
28 ?: =(0 a) c
29 $(a (dec a), c (add b c))
31Examples
32--------
34 ~zod/try=> (mul 3 4)
35 12
36 ~zod/try=> (mul 0 1)
37 0
41***