From 29f3bc73cdeffcc59cfe0644f67bcb57b758d0d9 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 14 Sep 2017 11:55:09 +0200
Subject: foldr instead of seq+map

---
 assignment-1/program2.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/assignment-1/program2.icl b/assignment-1/program2.icl
index 304699a..1c70366 100644
--- a/assignment-1/program2.icl
+++ b/assignment-1/program2.icl
@@ -61,4 +61,4 @@ where
 Start = (Ccontains 3 c, Cshow c)
 where
 	c :: Bin Int // Change to [Int] for testing the [] instance
-	c = seq (map Cinsert [10..20]) Cnew
+	c = foldr Cinsert Cnew [10..20]
-- 
cgit v1.2.3