repositories
/
advent18.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7a64ef7
)
sets
author
Mart Lubbers
<mart@martlubbers.net>
Sun, 2 Dec 2018 09:08:28 +0000
(10:08 +0100)
committer
Mart Lubbers
<mart@martlubbers.net>
Sun, 2 Dec 2018 09:08:28 +0000
(10:08 +0100)
1/s2.icl
patch
|
blob
|
history
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 StdEnv
import Data.Func
-import qualified Data.Set
-import Text
+import qualified Data.Set as DS
getinput f
# (ok, c, f) = freadc f
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
split c [r:rest] = split [r:c] rest
Start w
-# (
_, io, w) = fopen "input.txt" FReadText
w
-= proc 'D
ata.Set
'.newSet
+# (
io, w) = stdio
w
+= proc 'D
S
'.newSet
$ scan (+) 0
$ map (toInt o toString)
$ flatten
$ scan (+) 0
$ map (toInt o toString)
$ flatten
@@
-28,5
+27,5
@@
Start w
$ getinput io
proc have [x:xs]
$ getinput io
proc have [x:xs]
- | 'D
ata.Set
'.member x have = x
- = proc ('D
ata.Set
'.insert x have) xs
+ | 'D
S
'.member x have = x
+ = proc ('D
S
'.insert x have) xs