on 492ae2f help sign in
28 lines 408 B history raw
1### `++cit`
3Octal digit
5Parse a single octal digit.
7Source
8------
10 ++ cit (cook |=(a=@ (sub a '0')) (shim '0' '7')) :: octal digit
12Examples
13--------
15 ~zod/try=> (scan "1" cit)
16 1
17 ~zod/try=> (scan "7" cit)
18 7
19 ~zod/try=> (scan "8" cit)
20 ! {1 1}
21 ! 'syntax-error'
22 ! exit
23 ~zod/try=> (scan "60" (star cit))
24 ~[6 0]
28***