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