ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-01 20:04:09 +03:00
Code Issues Packages Projects Releases Wiki Activity

add set/jug/qeu comments

Browse Source
This commit is contained in:
Anton Dyudin 2016-12-08 15:10:40 -08:00
parent 152b0fd9cd
commit aa888316b4
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
sys/hoon.hoon
View File

@ -906,7 +906,7 @@
::
++ in :: set engine
~/ %in
|_ a/(tree)
|_ a/(tree) :: (set)
+- all :: logical AND
~/ %all
|* b/$-(* ?)
@ -1105,7 +1105,7 @@
::
++ by :: map engine
~/ %by
=| a/(tree (pair))
=| a/(tree (pair)) :: (map)
=* node ?>(?=(^ a) n.a)
|%
+- all :: logical AND
@ -1400,7 +1400,7 @@
:: ::
::
++ ja :: jar engine
|_ a/(tree (pair * (list)))
|_ a/(tree (pair * (list))) :: (jar)
+- get :: gets list by key
|* b/*
=+ c=(~(get by a) b)
@ -1412,7 +1412,7 @@
(~(put by a) b [c d])
--
++ ju :: jug engine
|_ a/(tree (pair * (tree)))
|_ a/(tree (pair * (tree))) :: (jug)
+- del :: del key-set pair
|* {b/* c/*}
^+ a
@ -1451,7 +1451,7 @@
:: ::
::
++ to :: queue engine
|_ a/(tree)
|_ a/(tree) :: (qeu)
+- bal
|- ^+ a
?~ a ~
@ -1527,11 +1527,11 @@
(molt `(list {p/_-<.a q/_->.a})`a)
::
++ molt :: map from pair list
|* a/(list (pair))
|* a/(list (pair)) :: ^- =,(i.-.a (map _p _q))
(~(gas by `(tree {p/_p.i.-.a q/_q.i.-.a})`~) a)
::
++ silt :: set from list
|* a/(list)
|* a/(list) :: ^- (set _i.-.a)
=+ b=*(tree _?>(?=(^ a) i.a))
(~(gas in b) a)
:: ::