mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-20 13:22:07 +03:00
6cbb6b060d
This reverts commit 8e1e40d75b3ab15c194b6bf9570f3edc46e2de58. This reverts commit f073c490f9fd7c5abc033af4857df92229877de7. This reverts commit f187d2d7e01a54823f3e979af9bbd148b398e7e9. This reverts commit bc272862a73cfce1b118586ca39d3a377d841f1b. This reverts commit 30a397513f8890a3406dc7ab91c6e067e3bbfbbb. This reverts commit 4fc6856fb50d88c20a0f533392ca606641c5f38f. Conflicts: urb/urbit.pill urb/zod/base/lib/drum.hoon
163 lines
4.6 KiB
Markdown
163 lines
4.6 KiB
Markdown
[semsig, `;~`, %smsg](#smsg)
|
|
============================
|
|
|
|
Monad composer
|
|
|
|
`;!` is a synthetic rune used to compose functions under a monad.
|
|
|
|
Produces
|
|
--------
|
|
|
|
Twig: `[%smsg p=(list beer)]`
|
|
|
|
Sample
|
|
------
|
|
|
|
`p` is a [`++list`]() of [`++beer`]().
|
|
|
|
Tall form
|
|
---------
|
|
|
|
;~ p
|
|
i.q
|
|
i.t.q
|
|
i.t.t.q
|
|
==
|
|
|
|
Wide form
|
|
---------
|
|
|
|
;~(p i.q i.t.q i.t.t.q)
|
|
|
|
Irregular form
|
|
--------------
|
|
|
|
None
|
|
|
|
Examples
|
|
--------
|
|
|
|
~zod/try=> =cmp |=([a=tape b=$+(char tape)] `tape`?~(a ~ (weld (b i.a) t.a)))
|
|
~zod/try=> ;~(cmp trip)
|
|
<1.xef [a=@ <374.hzt 100.kzl 1.ypj %164>]>
|
|
~zod/try=> (;~(cmp trip) 'a')
|
|
"a"
|
|
|
|
`;~` accepts a composer and a nonempty list of gates; at one gate, the
|
|
composer is ignored, and the gate applied directly.
|
|
|
|
~zod/try=> (;~(cmp trip |=(a=@ ~[a a])) 'a')
|
|
"aa"
|
|
~zod/try=> (;~(cmp trip |=(a=@ ~[a a])) '')
|
|
""
|
|
|
|
For multiple gates, `;~` uses the composer to connect the gates in
|
|
order.
|
|
|
|
~zod/try=> (;~(cmp trip ;~(cmp |=(a=@ ~[a a]) |=(a=@ <(dec a)>))) 'b')
|
|
"97b"
|
|
~zod/try=> (;~(cmp trip |=(a=@ ~[a a]) |=(a=@ <(dec a)>)) 'b')
|
|
"97b"
|
|
~zod/try=> (;~(cmp trip |=(a=@ ~[a a]) |=(a=@ <(dec a)>)) '')
|
|
""
|
|
~zod/try=> (;~(cmp trip |=(a=@ ~[a a]) |=(a=@ <(dec a)>)) 'a')
|
|
"96a"
|
|
~zod/try=> (;~(cmp trip |=(a=@ ~[a a]) |=(a=@ <(dec a)>)) 'acd')
|
|
"96acd"
|
|
|
|
Multiple gates are equivalent to stacked semsigs.
|
|
|
|
------------------------------------------------------------------------
|
|
|
|
[~ 0]
|
|
~zod/try=> ((slat %p) '~nec')
|
|
[~ 1]
|
|
~zod/try=> ((slat %p) 'nec')
|
|
~
|
|
~zod/try=> ;~(biff (slat %p))
|
|
<1.ags [txt=@ta <1.wqj [mod=@tas <374.hzt 100.kzl 1.ypj %164>]>]>
|
|
~zod/try=> (;~(biff (slat %p)) '~zod')
|
|
[~ 0]
|
|
~zod/try=> (;~(biff (slat %p)) '~')
|
|
~
|
|
~zod/try=> (;~(biff (slat %p)) '~nec')
|
|
[~ 1]
|
|
|
|
More commonly, this can be used for unit composition. `(slat %p)` parses
|
|
cords in phonetic base, failure case: invalid text
|
|
|
|
~zod/try=> (mo [~nec 12] [~tug 16] ~)
|
|
{[p=~nec q=12] [p=~tug q=16]}
|
|
~zod/try=> ~(get by (mo [~nec 12] [~tug 16] ~))
|
|
<1.yvn [* <18.wzi [a=nlr([p=@p q=@ud]) <374.hzt 100.kzl 1.ypj %164>]>]>
|
|
~zod/try=> =yaz ~(get by (mo [~nec 12] [~tug 16] ~))
|
|
~zod/try=> (yaz ~nec)
|
|
[~ 12]
|
|
~zod/try=> (yaz ~zod)
|
|
~
|
|
~zod/try=> (yaz ~tug)
|
|
[~ 16]
|
|
|
|
`mo` makes a map, and `+-get`:by is used to retrieve values from one,
|
|
failure case: no such key
|
|
|
|
~zod/try=> (;~(biff (slat %p) yaz) '~zod')
|
|
~
|
|
~zod/try=> (;~(biff (slat %p) yaz) '~nec')
|
|
[~ 12]
|
|
~zod/try=> (;~(biff (slat %p) yaz) 'tug')
|
|
~
|
|
~zod/try=> (;~(biff (slat %p) yaz) '~tug')
|
|
[~ 16]
|
|
|
|
~zod/try=> (;~(biff (slat %p) yaz |=(a=@ud [~ (add 100 a)])) '~nec')
|
|
[~ 112]
|
|
~zod/try=> (;~(biff (slat %p) yaz |=(a=@ud [~ (add 100 a)])) '~zod')
|
|
~
|
|
~zod/try=> (;~(biff (slat %p) yaz |=(a=@ud [~ (add 100 a)])) 'mal')
|
|
~
|
|
|
|
These can be combined with `biff`, which connects a previous succeeded
|
|
unit result by a gate that itself produces a unit from it.
|
|
|
|
------------------------------------------------------------------------
|
|
|
|
~zod/try=> (hep [1 1] "")
|
|
[p=[p=1 q=1] q=~]
|
|
~zod/try=> (hep [1 1] "-")
|
|
[p=[p=1 q=2] q=[~ [p=~~- q=[p=[p=1 q=2] q=""]]]]
|
|
~zod/try=> `(like cord)`(hep [1 1] "-")
|
|
[p=[p=1 q=2] q=[~ [p='-' q=[p=[p=1 q=2] q=""]]]]
|
|
~zod/try=> `(like cord)`(hep [1 1] "?")
|
|
[p=[p=1 q=1] q=~]
|
|
~zod/try=> (lus [1 1] "+")
|
|
[p=[p=1 q=2] q=[~ [p=~~~2b. q=[p=[p=1 q=2] q=""]]]]
|
|
~zod/try=> `(like cord)`(lus [1 1] "+")
|
|
[p=[p=1 q=2] q=[~ [p='+' q=[p=[p=1 q=2] q=""]]]]
|
|
~zod/try=> `(like cord)`(lus [1 1] "++")
|
|
[p=[p=1 q=2] q=[~ [p='+' q=[p=[p=1 q=2] q="+"]]]]
|
|
~zod/try=> `(like cord)`(lus [1 1] " +")
|
|
[p=[p=1 q=1] q=~]
|
|
~zod/try=> `(like cord)`(;~(pose hep lus) [1 1] "?")
|
|
[p=[p=1 q=1] q=~]
|
|
~zod/try=> `(like cord)`(;~(pose hep lus) [1 1] "-")
|
|
[p=[p=1 q=2] q=[~ [p='-' q=[p=[p=1 q=2] q=""]]]]
|
|
~zod/try=> `(like cord)`(;~(pose hep lus) [1 1] "+")
|
|
[p=[p=1 q=2] q=[~ [p='+' q=[p=[p=1 q=2] q=""]]]]
|
|
~zod/try=> `(like cord)`(;~(pose hep lus) [1 1] "a")
|
|
[p=[p=1 q=1] q=~]
|
|
~zod/try=> `(like cord)`(;~(pose hep lus) [1 1] "-+")
|
|
[p=[p=1 q=2] q=[~ [p='-' q=[p=[p=1 q=2] q="+"]]]]
|
|
~zod/try=> `(like ,[cord cord])`(;~(plug hep lus) [1 1] "+")
|
|
[p=[p=1 q=1] q=~]
|
|
~zod/try=> `(like ,[cord cord])`(;~(plug hep lus) [1 1] "-+")
|
|
[p=[p=1 q=3] q=[~ [p=['-' '+'] q=[p=[p=1 q=3] q=""]]]]
|
|
~zod/try=> `(like ,[cord cord])`(;~(plug hep lus) [1 1] "-+ ")
|
|
[p=[p=1 q=3] q=[~ [p=['-' '+'] q=[p=[p=1 q=3] q=" "]]]]
|
|
|
|
Most prominently, however, `;~` is used for combinator parsers,
|
|
composing [rule]s in various ways
|
|
|
|
See parsing sections 2eA - 2eH, and specifically section 2eD, for more
|
|
information.
|