From: Mart Lubbers <mart@martlubbers.net>
Date: Sun, 2 Dec 2018 09:08:28 +0000 (+0100)
Subject: sets
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=ac7108ed68bc36f35832ff6ea72388065bc18b7e;p=advent18.git

sets
---

diff --git a/1/s2.icl b/1/s2.icl
index 9b150f2..791fb17 100644
--- a/1/s2.icl
+++ b/1/s2.icl
@@ -3,8 +3,7 @@ module s2
 import StdEnv
 
 import Data.Func
-import qualified Data.Set
-import Text
+import qualified Data.Set as DS
 
 getinput f
 # (ok, c, f) = freadc f
@@ -18,8 +17,8 @@ split c ['\n':rest] = [reverse c:split [] rest]
 split c [r:rest] = split [r:c] rest
 
 Start w
-# (_, io, w) = fopen "input.txt" FReadText w
-= proc 'Data.Set'.newSet
+# (io, w) = stdio w
+= proc 'DS'.newSet
 	$ scan (+) 0
 	$ map (toInt o toString)
 	$ flatten
@@ -28,5 +27,5 @@ Start w
 	$ getinput io
 
 proc have [x:xs]
-	| 'Data.Set'.member x have = x
-	= proc ('Data.Set'.insert x have) xs
+	| 'DS'.member x have = x
+	= proc ('DS'.insert x have) xs