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

More profiling updates.

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-12-02 16:26:30 -08:00
parent 5fb9cd9ae9
commit b988d4b061
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
arvo/hoon.hoon
View File

@ -9533,23 +9533,23 @@
;: welp
^- tape
?: =(0 noc.mon) ~
(welp (scow %ud (div (mul 100 noc.mon) tot)) "n")
(welp (scow %ud (div (mul 100 noc.mon) tot)) "n ")
::
^- tape
?: =(0 fun.mon) ~
(welp (scow %ud (div (mul 100 fun.mon) tot)) "c")
(welp (scow %ud (div (mul 100 fun.mon) tot)) "c ")
::
^- tape
?: =(0 glu.mon) ~
(welp (scow %ud (div (mul 100 glu.mon) tot)) "g")
(welp (scow %ud (div (mul 100 glu.mon) tot)) "g ")
::
^- tape
?: =(0 mal.mon) ~
(welp (scow %ud (div (mul 100 mal.mon) tot)) "m")
(welp (scow %ud (div (mul 100 mal.mon) tot)) "m ")
::
^- tape
?: =(0 far.mon) ~
(welp (scow %ud (div (mul 100 far.mon) tot)) "f")
(welp (scow %ud (div (mul 100 far.mon) tot)) "f ")
==
::
++ pi-tell :: produce dump
@ -9572,11 +9572,11 @@
|= [one=(pair path hump) two=(pair path hump)]
(gth (pi-moth mon.q.one) (pi-moth mon.q.two))
|= [pax=path hup=hump]
=+ ott=(pi-moth mon.day)
=+ ott=(pi-moth mon.hup)
;: welp
[(welp "label: " (spud pax)) ~]
[(welp "price: " (scow %ud (div (mul 100 ott) tot))) ~]
[(welp "shape: " (pi-mumm mon.day)) ~]
[(welp "shape: " (pi-mumm mon.hup)) ~]
::
?: =(~ inn.hup) ~
:- "from:"
@ -9594,6 +9594,7 @@
^- tape
:(welp " " (spud pax) ": " (scow %ud num))
::
["" ~]
~
==
==