on 492ae2f help sign in
31 lines 1.1 kB history raw
1### `++nock`
3Virtual machine. See [Nock doc]().
6Source
7------
9 ++ nock $& [p=nock q=nock] :: autocons
10 [%3 p=nock] :: cell test
11 [%4 p=nock] :: increment
12 [%5 p=nock q=nock] :: equality test
13 [%6 p=nock q=nock r=nock] :: if, then, else
14 [%7 p=nock q=nock] :: serial compose
15 [%8 p=nock q=nock] :: push onto subject
16 [%9 p=@ q=nock] :: select arm and fire
17 [%10 p=?(@ [p=@ q=nock]) q=nock] :: hint
18 [%11 p=nock] :: grab data from sky
19 == ::
21Examples
22--------
24 ~zod/try=> !=([+(.) 20 -<])
25 [[4 0 1] [1 20] 0 4]
26 ~zod/try=> (nock !=([+(.) 20]))
27 [p=[%4 p=[%0 p=1]] q=[%1 p=20]]
31***