From 84742025e73f80f188fbcbf31db96feb2bbcd0b4 Mon Sep 17 00:00:00 2001
From: Ted Blackman <ted@tlon.io>
Date: Tue, 27 Aug 2019 21:41:32 -0700
Subject: [PATCH] ames: slow multiplicatively on skipped packet

---
 pkg/arvo/sys/vane/alef.hoon | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/pkg/arvo/sys/vane/alef.hoon b/pkg/arvo/sys/vane/alef.hoon
index 92f3cb0af..38e05d7ff 100644
--- a/pkg/arvo/sys/vane/alef.hoon
+++ b/pkg/arvo/sys/vane/alef.hoon
@@ -2331,17 +2331,17 @@
     |=  sent-packet-state
     ^-  pump-metrics
     ::
-    ~&  %skipped^max-live
+    =-  ~&  %skipped^max-live^%to^max-live.-  -
     ::
     %_  metrics
-      max-live  (max 1 (dec max-live))
+      max-live  (max 1 (div max-live 2))
     ==
   ::  +on-ack: adjust metrics based on a packet getting acknowledged
   ::
   ++  on-ack
     |=  sent-packet-state
     ^-  pump-metrics
-    =-  ~&  %ack^rtt^%to^rtt.-  -
+    =-  ~&  %ack^(mul rtt 1.000)^%to^(mul rtt.- 1.000)  -
     ::
     %_  metrics
       num-live  (dec (max 1 num-live))
@@ -2363,7 +2363,7 @@
   ++  on-resent
     |=  sent-packet-state
     ^-  pump-metrics
-    =-  ~&  %resent^rtt^%to^rtt.-  -
+    =-  ~&  %resent^(mul rtt 1.000)^%to^(mul rtt.- 1.000)  -
     ::
     %_  metrics
       last-sent-at  now