From: Mart Lubbers <mart@martlubbers.net>
Date: Sat, 12 Dec 2020 07:56:24 +0000 (+0100)
Subject: 1
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=dc1e1d472f193ca77a3cc4c8e00a736115126460;p=aoc20.git

1
---

diff --git a/12/input b/12/input
new file mode 100644
index 0000000..43cee9c
--- /dev/null
+++ b/12/input
@@ -0,0 +1,780 @@
+R90
+F56
+R90
+F56
+R90
+R180
+W5
+L90
+E2
+L90
+S5
+E1
+F11
+L90
+F46
+S2
+E2
+S1
+E2
+E3
+N4
+W1
+N4
+L90
+W4
+L90
+N1
+E1
+S4
+F45
+S4
+W4
+S1
+E3
+E3
+E1
+F76
+S5
+E1
+N3
+W2
+F55
+E3
+F34
+S2
+S2
+E3
+S5
+L90
+L90
+W5
+F23
+R90
+F14
+F21
+L90
+N3
+L180
+N3
+F98
+R180
+S5
+F94
+R90
+N5
+L90
+S3
+F85
+R90
+F77
+S1
+R90
+E3
+S2
+E5
+R180
+W3
+F46
+R90
+F44
+S3
+W3
+L180
+N4
+L90
+N1
+E2
+L90
+S4
+R90
+E1
+N4
+F100
+L90
+S4
+F94
+L180
+W2
+S1
+R90
+E5
+L90
+S4
+L90
+W3
+E1
+R270
+S4
+E2
+N5
+F3
+R180
+F21
+L90
+F57
+W1
+F77
+F24
+N4
+E5
+S3
+L90
+F64
+N5
+L90
+N1
+F42
+S5
+W1
+F50
+S1
+W3
+N5
+E5
+F19
+R180
+W4
+S4
+F20
+L90
+W1
+F88
+R90
+F57
+L90
+N4
+W5
+R90
+S3
+E2
+S1
+E2
+N1
+E4
+S1
+F3
+R90
+W1
+N4
+R90
+F38
+E5
+E1
+N2
+R90
+N5
+S4
+E3
+F8
+W5
+R90
+E4
+F19
+N1
+F50
+E1
+F54
+W5
+L90
+F10
+S2
+E3
+R90
+S5
+L90
+F59
+N3
+R90
+W5
+F33
+N4
+R270
+F46
+S2
+L270
+F97
+E4
+N2
+E5
+R90
+F31
+R180
+N1
+W1
+R90
+F40
+R90
+S5
+F15
+L90
+E2
+L90
+L90
+F53
+N4
+F28
+E5
+F58
+L90
+W1
+L90
+E1
+L90
+N1
+F42
+S2
+S3
+F62
+E5
+F73
+W1
+R270
+F10
+R90
+E5
+N3
+E4
+S1
+E2
+N4
+E4
+F47
+E3
+E5
+S5
+F24
+L90
+N2
+L180
+S2
+F82
+W3
+S2
+W1
+R90
+N5
+E3
+N4
+L90
+N1
+F53
+S3
+L90
+S5
+F88
+F40
+S1
+E4
+N4
+F66
+W3
+L90
+E1
+R180
+F73
+R90
+W4
+N4
+F85
+E4
+F66
+S1
+W4
+F16
+R180
+N5
+L90
+S3
+E4
+N4
+W2
+L90
+R90
+W3
+N5
+R90
+F45
+E2
+S5
+R90
+F6
+W4
+S2
+E4
+F74
+W4
+L90
+F75
+W2
+L90
+F97
+R90
+N4
+F27
+L180
+F45
+S1
+L90
+W2
+F10
+W3
+S4
+F42
+W1
+F30
+R90
+E2
+F94
+E5
+R90
+F41
+E1
+N3
+W1
+N2
+R90
+S5
+F93
+N1
+R90
+F38
+S3
+F50
+L270
+W1
+S4
+F64
+W1
+N1
+F61
+R90
+W2
+R90
+N1
+F31
+S2
+F7
+N2
+R90
+S5
+E3
+S1
+E1
+R90
+E2
+R90
+E4
+F76
+R90
+W4
+F15
+S3
+F2
+R90
+N4
+F66
+L180
+W3
+N2
+F1
+S4
+L90
+N1
+F19
+F20
+E1
+R90
+N3
+F54
+N4
+F62
+W2
+S1
+F49
+W3
+S4
+W3
+N2
+E4
+N1
+R90
+E1
+N2
+L90
+F46
+S4
+E2
+L90
+S3
+L90
+N4
+R180
+F56
+L90
+E2
+F51
+W1
+N5
+E2
+L90
+E3
+S5
+W3
+F73
+E5
+F100
+L90
+N2
+W2
+L180
+F89
+L90
+N3
+W4
+S2
+W1
+L270
+E5
+N2
+R90
+F65
+W1
+F41
+E2
+N4
+E1
+F73
+L180
+S4
+L90
+N4
+W3
+N4
+E1
+R180
+F67
+E5
+L90
+N5
+F75
+N3
+E4
+R90
+F28
+R90
+S3
+F77
+L180
+N2
+N1
+R90
+F77
+S3
+W3
+N4
+F60
+W4
+F40
+L90
+W3
+W3
+E1
+S2
+W2
+N1
+F86
+R180
+E1
+L180
+F17
+R90
+F11
+E1
+S2
+F48
+S2
+W2
+F1
+N5
+F53
+N2
+W1
+L180
+L90
+N5
+W1
+L180
+E1
+F67
+W4
+N3
+E5
+N1
+F88
+R90
+F93
+E1
+F33
+L90
+F1
+W2
+N4
+W3
+F85
+S1
+E2
+F69
+R90
+S4
+W2
+L90
+W3
+S5
+F14
+W1
+S5
+W2
+F95
+F30
+E1
+F4
+W3
+R90
+F93
+N5
+E1
+F9
+L90
+W5
+L270
+E1
+L90
+S2
+F97
+S1
+F18
+E3
+R90
+N1
+R90
+N5
+F72
+S4
+L90
+W3
+S3
+F13
+W5
+N2
+F31
+F17
+S4
+E2
+L90
+N5
+R90
+F42
+W2
+N1
+S3
+F60
+W5
+N4
+R90
+E5
+S3
+F88
+E4
+N5
+W3
+L180
+N3
+F66
+E5
+R270
+E3
+L180
+W4
+W3
+S2
+W1
+F69
+E5
+L90
+F23
+W5
+L90
+F49
+S3
+R180
+W2
+L90
+N1
+R90
+S4
+F71
+N5
+F36
+R180
+F62
+L180
+F39
+N5
+F36
+R180
+N4
+W4
+E5
+F94
+F39
+L90
+N1
+F70
+R90
+W2
+R180
+F16
+E3
+S1
+R180
+E1
+S3
+E5
+L90
+N5
+F76
+N4
+R90
+E3
+L180
+N3
+F20
+S3
+R90
+N3
+L270
+E4
+N5
+F49
+S3
+F79
+W3
+R270
+E1
+L180
+R90
+F34
+W3
+S5
+E5
+F76
+N3
+N5
+F66
+L90
+F48
+E1
+L270
+E3
+S2
+L180
+N3
+F1
+W5
+L90
+F9
+S5
+F64
+L180
+W1
+N1
+E2
+F4
+R90
+F81
+W5
+S4
+E1
+N4
+E1
+F61
+R180
+S2
+R180
+F24
+N3
+W5
+N1
+F67
+L180
+F50
+W5
+R90
+N2
+L180
+F80
+W5
+L90
+N1
+F31
+E5
+R90
+N5
+R90
+F93
+E2
+E3
+L90
+E2
+L90
+E1
+N4
+W4
+F80
+R180
+F84
+E5
+N1
+F37
+S3
+W5
+S4
+F9
+R90
+E2
+R90
+F39
+R90
+F77
+N3
+R90
+E5
+N2
+F49
+S2
+W3
+F42
+N1
+F19
+E2
+N3
+R90
+F48
+N1
+W3
+S2
+E3
+L90
+E1
+R90
+F100
+E2
+L90
+F90
+W1
+F66
+N4
+R180
+W2
+F33
diff --git a/12/input2 b/12/input2
new file mode 100644
index 0000000..d382291
--- /dev/null
+++ b/12/input2
@@ -0,0 +1,5 @@
+F10
+N3
+F7
+R90
+F11
diff --git a/12/one.icl b/12/one.icl
new file mode 100644
index 0000000..2c12c01
--- /dev/null
+++ b/12/one.icl
@@ -0,0 +1,28 @@
+module one
+
+import StdEnv
+import Data.Func
+import Data.Tuple
+
+read :: *File -> [(Char, Int)]
+read f
+	# (l, f) = freadline f
+	| l.[size l - 1] <> '\n' = []
+	= [(l.[0], toInt (l % (1, size l - 2))):read f]
+
+Start w
+	# (io, w) = stdio w
+	# ls = read io
+	= (\s->abs s.x+abs s.y) $ foldl move {x=0,y=0,dirs=dirs} ls
+
+dirs = [(1, 0),(0,-1),(-1,0),(0,1):dirs]
+
+:: Ship = {x :: Int, y :: Int, dirs :: [(Int, Int)]}
+
+move s ('N', n) = {s & y=s.y+n}
+move s ('S', n) = {s & y=s.y-n}
+move s ('E', n) = {s & x=s.x+n}
+move s ('W', n) = {s & x=s.x-n}
+move s=:{dirs=[(dx, dy):_]} ('F', n) = {s & x=s.x+dx*n, y=s.y+dy*n}
+move s ('R', n) = {s & dirs=drop (n/90) s.dirs}
+move s ('L', n) = {s & dirs=drop (3*(n/90)) s.dirs}