X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=microbotany.git;a=blobdiff_plain;f=garden.scm;fp=garden.scm;h=3664612b35e3d16cd9a5fa4d136ea4bb8268b408;hp=ebcdf77d3ef17d207d5a6a66366cf0fe7d1b7217;hb=02053d76594093ae83c0cd900ce887fe356927a7;hpb=024ca5547c4fb058de8392f84dfb474547124fd8 diff --git a/garden.scm b/garden.scm index ebcdf77..3664612 100644 --- a/garden.scm +++ b/garden.scm @@ -86,7 +86,7 @@ (if last-watered (let* ((now (current-seconds)) (1day (* 24 3600)) - (remaining-pc (quotient (* 100 (- 1day (- now last-watered))) 1day)) + (remaining-pc (quotient (* 100 (max 0 (- 1day (- now last-watered)))) 1day)) (filled (quotient remaining-pc 4)) (unfilled (- 25 filled))) (print "["