git.iko.soy/urbit.org
on 492ae2f help sign in
urbit.org/docs/programming/reference/zuse/gate/jone.md
40 lines 645 B history raw
1### `++jone`
3`++json` number from unigned
5Produces a `++json` number from an unsigned atom.
7Accepts
8-------
10`a` is an atom of odor [`@u`]().
12Produces
13--------
15A [`++json`]().
17Source
18------
20 ++ jone :: number from unsigned
21 |= a=@u
22 ^- json
23 :- %n
24 ?: =(0 a) '0'
25 (crip (flop |-(^-(tape ?:(=(0 a) ~ [(add '0' (mod a 10)) $(a (div a 10))])))))
26 ::
28Examples
29--------
31 ~zod/try=> (jone 1)
32 [%n p=~.1]
33 ~zod/try=> (pojo (jone 1))
34 "1"
35 ~zod/try=> (jone 1.203.196)
36 [%n p=~.1203196]
37 ~zod/try=> (pojo (jone 1.203.196))
38 "1203196"