on ecfde25 help sign in
39 lines 635 B history raw
1### `++next`
3Consume char
5Consume any character, producing it as a result.
7Accepts
8-------
10`tub` is a `++nail`
12Produces
13--------
15An `++edge`.
17Source
18------
20 ++ next :: consume a char
21 |= tub/nail
22 ^- (like char)
23 ?~ q.tub
24 (fail tub)
25 =+ zac=(lust i.q.tub p.tub)
26 [zac [~ i.q.tub [zac t.q.tub]]]
27 ::
29Examples
30--------
32 ~zod/try=> (next [[1 1] "ebc"])
33 [p=[p=1 q=2] q=[~ [p=~~e q=[p=[p=1 q=2] q="bc"]]]]
34 ~zod/try=> (next [[1 1] "john jumps jones"])
35 [p=[p=1 q=2] q=[~ [p=~~j q=[p=[p=1 q=2] q="ohn jumps jones"]]]]
39***