From: Mart Lubbers <mart@martlubbers.net>
Date: Thu, 10 Dec 2020 07:28:36 +0000 (+0100)
Subject: don't hardcode blurpsequence
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=b5e2da538f4e0038089171ff590404c5fd490d55;p=aoc20.git

don't hardcode blurpsequence
---

diff --git a/10/one.icl b/10/one.icl
index a71ff6d..2241687 100644
--- a/10/one.icl
+++ b/10/one.icl
@@ -18,4 +18,6 @@ Start w
 
 one ls = prod $ map length $ group $ sort [3:[b-a\\a<-ls & b<-tl ls]]
 
-two ls = prod [[0,1,2,4,7,12,20,33,53]!!length l\\l<-group [b-a\\a<-ls & b<-tl ls] | all ((==)1) l]
+two ls = prod [blurp !! length l\\l<-group [b-a\\a<-ls & b<-tl ls] | all ((==)1) l]
+
+blurp =: let seq a b = [a+b-1:seq b (a+b)] in seq 0 1