From 55969641b27d4419d6b70f2244ca0a2afd5f69e5 Mon Sep 17 00:00:00 2001 From: Boutade Date: Fri, 18 Oct 2019 15:48:53 -0500 Subject: chill out by standing still --- the-price-of-a-cup-of-coffee.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index 037eaed..b73e191 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -649,7 +649,10 @@ (if (walking-p *nance*) (unless (sick-p *nance*) (decf (percent *cold-meter*) 0.0004)) - (incf (percent *cold-meter*) 0.0003)))) + (progn + (incf (percent *cold-meter*) 0.0003) + (unless (sick-p *nance*) + (decf (percent *stress-meter*) 0.0003)))))) -- cgit v1.2.3