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

snip samples of price <10%

Browse Source
This commit is contained in:
Anton Dyudin 2016-02-22 16:36:52 -08:00
parent 87316451d8
commit 4bcf3219fc
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
arvo/hoon.hoon
View File

@ -10385,6 +10385,7 @@
%+ turn (~(tap by cut.day))
|=({p/path q/hump} [(pi-moth mon.q) p q])
|= {ott/@u pax/path hup/hump}
?: (lth (mul 10 ott) tot) ~ :: omit misc
;: welp
[(welp "label: " (spud pax)) ~]
[(welp "price: " (scow %ud (div (mul 100 ott) tot))) ~]
@ -10392,21 +10393,25 @@
::
?: =(~ out.hup) ~
:- "into:"
%+ turn
^- wall
%+ murn
%+ sort (~(tap by out.hup) ~)
|=({{* a/@ud} {* b/@ud}} (lth a b))
|= {pax/path num/@ud}
^- tape
:(welp " " (spud pax) ": " (scow %ud num))
^- (unit tape)
?: (lth (mul 10 num) ott) ~
(some :(welp " " (spud pax) ": " (scow %ud num)))
::
?: =(~ inn.hup) ~
:- "from:"
%+ turn
^- wall
%+ murn
%+ sort (~(tap by inn.hup) ~)
|=({{* a/@ud} {* b/@ud}} (lth a b))
|= {pax/path num/@ud}
^- tape
:(welp " " (spud pax) ": " (scow %ud num))
^- (unit tape)
?: (lth (mul 10 num) ott) ~
(some :(welp " " (spud pax) ": " (scow %ud num)))
::
["" ~]
~