on bfaa358 help sign in
43 lines 680 B history raw
1### `++last`
3Farther trace
5Compares two line-column pairs, called `++hair`s, `zyc` and `naz`, producing whichever
6is further along.
8Accepts
9-------
11`naz` is a hair.
13`zyc` is a hair.
15Produces
16--------
18a `++hair`.
20Source
21------
23 ++ last |= {zyc/hair naz/hair} :: farther trace
24 ^- hair
25 ?: =(p.zyc p.naz)
26 ?:((gth q.zyc q.naz) zyc naz)
27 ?:((gth p.zyc p.naz) zyc naz)
30Examples
31--------
33 ~zod/try=> (last [1 1] [1 2])
34 [p=1 q=2]
35 ~zod/try=> (last [2 1] [1 2])
36 [p=2 q=1]
37 ~zod/try=> (last [0 0] [99 0])
38 [p=99 q=0]
39 ~zod/try=> (last [7 7] [7 7])
40 [p=7 q=7]
43***