on 140ac0e help sign in
59 lines 770 B history raw
1### `++gor`
3Hash order
5XX revisit
7Accepts
8-------
10`a` is a noun.
12`b` is a noun.
14Produces
15--------
17A boolean atom.
19Source
20------
22 ++ gor :: g-order
23 ~/ %gor
24 |= {a/* b/*}
25 ^- ?
26 =+ [c=(mug a) d=(mug b)]
27 ?: =(c d)
28 (dor a b)
29 (lth c d)
32Examples
33--------
35 ~zod/try=> (gor 'd' 'c')
36 %.y
37 ~zod/try=> 'd'
38 'd'
39 ~zod/try=> 'c'
40 ~zod/try=> `@ud`'d'
41 100
42 ~zod/try=> `@ud`'c'
43 99
44 ~zod/try=> (mug 'd')
45 1.628.185.714
46 ~zod/try=> (mug 'c')
47 1.712.073.811
48 ~zod/try=> (gor 'd' 'c')
49 %.y
50 ~zod/try=> (gor 'c' 'd')
51 %.n
52 ~zod/try=> (gor "foo" "bar")
53 %.n
54 ~zod/try=> (gor (some 10) (limo [1 2 3 ~]))
55 %.n
59***