on 492ae2f help sign in
32 lines 596 B history raw
1### `++vit`
3Base64 digit
5Parse a standard base64 digit.
7Source
8------
10 ++ vit :: base64 digit
11 ;~ pose
12 (cook |=(a/@ (sub a 65)) (shim 'A' 'Z'))
13 (cook |=(a/@ (sub a 71)) (shim 'a' 'z'))
14 (cook |=(a/@ (add a 4)) (shim '0' '9'))
15 (cold 62 (just '-'))
16 (cold 63 (just '+'))
17 ==
19Examples
20--------
22 ~zod/arvo=/hoon/hoon> (scan "C" vit)
23 2
24 ~zod/arvo=/hoon/hoon> (scan "c" vit)
25 28
26 ~zod/arvo=/hoon/hoon> (scan "2" vit)
27 54
28 ~zod/arvo=/hoon/hoon> (scan "-" vit)
29 62
32***