further cleanup

2021-12-01 19:52:13 +00:00 · 2021-12-01 19:52:13 +00:00 · 00c29ca217
parent ed1870640c
commit 00c29ca217
1 changed files with 9 additions and 8 deletions
--- a/day1.retro
+++ b/day1.retro
@ -44,7 +44,8 @@ I'm not happy with this solution, but it works. Retro users, help me get better!
    @f file:read-line dup s:length #1 + &seek-to v:inc-by s:to-number
    #02 [ @f file:read-line s:to-number ] times
    + +
-dup @prev gt? [ &count v:inc ] if !prev
+    dup @prev gt? [ &count v:inc ] if 
+    !prev
    @seek-to @f file:seek ] times

@count n:put ASCII:LF c:put