From 93ccd6e151a385dd7b5f77dd57c8d53d1cd51257 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 22 Feb 2016 23:01:38 -0800
Subject: [PATCH] Rounder profile counts through fixpoint arithmetic

Since arms getting sampled is stochastic, there isn't actually much of a benefit to displaying them as raw counts and not "price" percentage point format.
---
 arvo/hoon.hoon | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon
index 222880ed3..33265b165 100644
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@@ -10380,10 +10380,10 @@
       %+  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
+    ?:  (lth (mul 20 ott) tot)  ~                       :: omit misc
     ;:  welp
       [(welp "label: " (spud pax)) ~]
-      [(welp "price: " (scow %ud (div (mul 100 ott) tot))) ~]
+      [(welp "price: " (scow %ud (div (mul 100.000 ott) tot))) ~]
       [(welp "shape: " (pi-mumm mon.hup)) ~]
     ::
       ?:  =(~ out.hup)  ~
@@ -10395,6 +10395,7 @@
       |=  {pax/path num/@ud}
       ^-  (unit tape)
       ?:  (lth (mul 20 num) ott)  ~
+      =.  num  (div (mul 100.000 num) tot)
       (some :(welp "  " (spud pax) ": " (scow %ud num)))
     ::
       ?:  =(~ inn.hup)  ~
@@ -10406,6 +10407,7 @@
       |=  {pax/path num/@ud}
       ^-  (unit tape)
       ?:  (lth (mul 20 num) ott)  ~
+      =.  num  (div (mul 100.000 num) tot)
       (some :(welp "  " (spud pax) ": " (scow %ud num)))
     ::
       ["" ~]