sets

diff --git a/1/s2.icl b/1/s2.icl
index 9b150f2..791fb17 100644 (file)
--- 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