git.iko.soy/urbit.org
on 140ac0e help sign in
urbit.org/docs/programming/reference/library/src/4e/gate/less.md
45 lines 733 B history raw
1### `++less`
3Parse unless
5Parsing composer: if an `++edge` `vex` reflects a success, fail. Otherwise,
6connect `vex` with the following `++rule`.
8Accepts
9-------
11`sab` is a `++rule`.
13`vex` is an `++edge`.
15Produces
16--------
20Source
21------
23 ++ less :: no first and second
24 |* {vex/edge sab/rule}
25 ?~ q.vex
26 =+ roq=(sab)
27 [p=(last p.vex p.roq) q=q.roq]
28 (fail +<.sab)
29 ::
31Examples
32--------
34 ~zod/try=> (scan "sas-/lo" (star ;~(less lus bar prn)))
35 "sas-/lo"
36 ~zod/try=> (scan "sas-/l+o" (star ;~(less lus bar prn)))
37 ! {1 8}
38 ! exit
39 ~zod/try=> (scan "sas|-/lo" (star ;~(less lus bar prn)))
40 ! {1 5}
41 ! exit
45***