on 8e080d6 help sign in
53 lines 613 B history raw
1### `++hor`
3Hash order
5XX revisit
7Recursive hash comparator gate.
9Accepts
10-------
12`a` is a noun.
14`b` is a noun.
16Produces
17--------
19A boolean atom.
22Source
23------
25 ++ hor :: h-order
26 ~/ %hor
27 |= {a/* b/*}
28 ^- ?
29 ?: ?=(@ a)
30 ?. ?=(@ b) &
31 (gor a b)
32 ?: ?=(@ b) |
33 ?: =(-.a -.b)
34 (gor +.a +.b)
35 (gor -.a -.b)
36 ::
39Examples
40--------
42 ~zod/try=> (hor . 1)
43 %.n
44 ~zod/try=> (hor 1 2)
45 %.y
46 ~zod/try=> (hor "abc" "cba")
47 %.y
48 ~zod/try=> (hor 'c' 'd')
49 %.n
53***