this repo has no description
aoc19
+316
-21
+200
aoc-2019/AOC19-01.ipynb
+200
aoc-2019/AOC19-01.ipynb
···
1
+
{
2
+
"cells": [
3
+
{
4
+
"cell_type": "code",
5
+
"execution_count": 1,
6
+
"metadata": {},
7
+
"outputs": [],
8
+
"source": [
9
+
":set -XOverloadedStrings\n",
10
+
":set -XNoImplicitPrelude"
11
+
]
12
+
},
13
+
{
14
+
"cell_type": "code",
15
+
"execution_count": 62,
16
+
"metadata": {},
17
+
"outputs": [],
18
+
"source": [
19
+
"import Papa\n",
20
+
"import qualified Prelude as P (read)\n",
21
+
"import qualified Data.List.NonEmpty as NE (takeWhile)"
22
+
]
23
+
},
24
+
{
25
+
"cell_type": "code",
26
+
"execution_count": 63,
27
+
"metadata": {},
28
+
"outputs": [],
29
+
"source": [
30
+
"fuelCounterUpper :: Integer -> Integer\n",
31
+
"fuelCounterUpper x = flip (-) 2 $ floor (fromIntegral x / 3)\n",
32
+
"\n",
33
+
"fuelCounterUpperRec :: Integer -> Integer\n",
34
+
"fuelCounterUpperRec = sum . drop 1 . NE.takeWhile (> 0) . iterate fuelCounterUpper\n",
35
+
"\n",
36
+
"fuelAll :: [Integer] -> Sum Integer\n",
37
+
"fuelAll = foldMap (pure . fuelCounterUpper)\n",
38
+
"\n",
39
+
"fuelAllRec :: [Integer] -> Sum Integer\n",
40
+
"fuelAllRec = foldMap (pure . fuelCounterUpperRec)\n",
41
+
"\n"
42
+
]
43
+
},
44
+
{
45
+
"cell_type": "code",
46
+
"execution_count": 64,
47
+
"metadata": {},
48
+
"outputs": [
49
+
{
50
+
"data": {
51
+
"text/plain": [
52
+
"Sum {getSum = 3361299}"
53
+
]
54
+
},
55
+
"metadata": {},
56
+
"output_type": "display_data"
57
+
},
58
+
{
59
+
"data": {
60
+
"text/plain": [
61
+
"Sum {getSum = 5039071}"
62
+
]
63
+
},
64
+
"metadata": {},
65
+
"output_type": "display_data"
66
+
}
67
+
],
68
+
"source": [
69
+
"p1Data <- readFile \"./day01-p01\"\n",
70
+
"\n",
71
+
"p1Data_L :: [Integer]\n",
72
+
"p1Data_L = P.read <$> lines p1Data\n",
73
+
"\n",
74
+
"fuelAll $ p1Data_L\n",
75
+
"fuelAllRec p1Data_L\n",
76
+
"\n",
77
+
"\n"
78
+
]
79
+
},
80
+
{
81
+
"cell_type": "code",
82
+
"execution_count": 51,
83
+
"metadata": {},
84
+
"outputs": [
85
+
{
86
+
"data": {
87
+
"text/html": [
88
+
"<style>/* Styles used for the Hoogle display in the pager */\n",
89
+
".hoogle-doc {\n",
90
+
"display: block;\n",
91
+
"padding-bottom: 1.3em;\n",
92
+
"padding-left: 0.4em;\n",
93
+
"}\n",
94
+
".hoogle-code {\n",
95
+
"display: block;\n",
96
+
"font-family: monospace;\n",
97
+
"white-space: pre;\n",
98
+
"}\n",
99
+
".hoogle-text {\n",
100
+
"display: block;\n",
101
+
"}\n",
102
+
".hoogle-name {\n",
103
+
"color: green;\n",
104
+
"font-weight: bold;\n",
105
+
"}\n",
106
+
".hoogle-head {\n",
107
+
"font-weight: bold;\n",
108
+
"}\n",
109
+
".hoogle-sub {\n",
110
+
"display: block;\n",
111
+
"margin-left: 0.4em;\n",
112
+
"}\n",
113
+
".hoogle-package {\n",
114
+
"font-weight: bold;\n",
115
+
"font-style: italic;\n",
116
+
"}\n",
117
+
".hoogle-module {\n",
118
+
"font-weight: bold;\n",
119
+
"}\n",
120
+
".hoogle-class {\n",
121
+
"font-weight: bold;\n",
122
+
"}\n",
123
+
".get-type {\n",
124
+
"color: green;\n",
125
+
"font-weight: bold;\n",
126
+
"font-family: monospace;\n",
127
+
"display: block;\n",
128
+
"white-space: pre-wrap;\n",
129
+
"}\n",
130
+
".show-type {\n",
131
+
"color: green;\n",
132
+
"font-weight: bold;\n",
133
+
"font-family: monospace;\n",
134
+
"margin-left: 1em;\n",
135
+
"}\n",
136
+
".mono {\n",
137
+
"font-family: monospace;\n",
138
+
"display: block;\n",
139
+
"}\n",
140
+
".err-msg {\n",
141
+
"color: red;\n",
142
+
"font-style: italic;\n",
143
+
"font-family: monospace;\n",
144
+
"white-space: pre;\n",
145
+
"display: block;\n",
146
+
"}\n",
147
+
"#unshowable {\n",
148
+
"color: red;\n",
149
+
"font-weight: bold;\n",
150
+
"}\n",
151
+
".err-msg.in.collapse {\n",
152
+
"padding-top: 0.7em;\n",
153
+
"}\n",
154
+
".highlight-code {\n",
155
+
"white-space: pre;\n",
156
+
"font-family: monospace;\n",
157
+
"}\n",
158
+
".suggestion-warning { \n",
159
+
"font-weight: bold;\n",
160
+
"color: rgb(200, 130, 0);\n",
161
+
"}\n",
162
+
".suggestion-error { \n",
163
+
"font-weight: bold;\n",
164
+
"color: red;\n",
165
+
"}\n",
166
+
".suggestion-name {\n",
167
+
"font-weight: bold;\n",
168
+
"}\n",
169
+
"</style><span class='get-type'>foldMap (pure) :: forall (t :: * -> *) (f :: * -> *) a. (Foldable t, Monoid (f a), Applicative f) => t a -> f a</span>"
170
+
],
171
+
"text/plain": [
172
+
"foldMap (pure) :: forall (t :: * -> *) (f :: * -> *) a. (Foldable t, Monoid (f a), Applicative f) => t a -> f a"
173
+
]
174
+
},
175
+
"metadata": {},
176
+
"output_type": "display_data"
177
+
}
178
+
],
179
+
"source": [
180
+
":t foldMap (pure) "
181
+
]
182
+
}
183
+
],
184
+
"metadata": {
185
+
"kernelspec": {
186
+
"display_name": "Haskell",
187
+
"language": "haskell",
188
+
"name": "haskell"
189
+
},
190
+
"language_info": {
191
+
"codemirror_mode": "ihaskell",
192
+
"file_extension": ".hs",
193
+
"name": "haskell",
194
+
"pygments_lexer": "Haskell",
195
+
"version": "8.6.5"
196
+
}
197
+
},
198
+
"nbformat": 4,
199
+
"nbformat_minor": 2
200
+
}
+100
aoc-2019/data/day01-p01
+100
aoc-2019/data/day01-p01
···
1
+
105311
2
+
117290
3
+
97762
4
+
124678
5
+
132753
6
+
114635
7
+
114137
8
+
96208
9
+
82957
10
+
148510
11
+
75509
12
+
120845
13
+
80279
14
+
112588
15
+
136983
16
+
91546
17
+
55087
18
+
98239
19
+
58629
20
+
59526
21
+
121740
22
+
133887
23
+
96246
24
+
53621
25
+
88458
26
+
144101
27
+
67449
28
+
114870
29
+
75125
30
+
126117
31
+
118155
32
+
108888
33
+
128347
34
+
121556
35
+
65380
36
+
106487
37
+
149660
38
+
89018
39
+
118897
40
+
91556
41
+
147829
42
+
123137
43
+
130352
44
+
51301
45
+
102756
46
+
83357
47
+
97466
48
+
78364
49
+
82291
50
+
83367
51
+
72243
52
+
107128
53
+
87975
54
+
93719
55
+
114888
56
+
71559
57
+
57757
58
+
145975
59
+
74254
60
+
102427
61
+
117302
62
+
118842
63
+
105979
64
+
134735
65
+
123676
66
+
83647
67
+
101511
68
+
117834
69
+
70884
70
+
88288
71
+
55444
72
+
71415
73
+
143464
74
+
142131
75
+
51118
76
+
109435
77
+
87841
78
+
107406
79
+
71379
80
+
124659
81
+
79427
82
+
110357
83
+
114485
84
+
141168
85
+
62923
86
+
113921
87
+
106154
88
+
67468
89
+
132601
90
+
76112
91
+
84953
92
+
124290
93
+
55476
94
+
88965
95
+
107153
96
+
148407
97
+
62584
98
+
112851
99
+
71564
100
+
145569
+2
-9
default.nix
+2
-9
default.nix
···
11
11
(builtins.fromJSON (builtins.readFile ./versions.json));
12
12
13
13
14
-
overlay = self: super: {
15
-
python3 = super.python3.override {
16
-
packageOverrides = p-self: p-super: {
17
-
docutils = p-super.docutils.overridePythonAttrs (old: {doCheck = false;});
18
-
};
19
-
};
20
-
};
21
14
22
-
nixpkgs = import versions.nixpkgs { overlays = [ overlay ]; };
15
+
nixpkgs = import versions.nixpkgs {};
23
16
24
17
in
25
18
import "${versions.ihaskell}/release.nix" {
26
19
inherit nixpkgs;
27
-
compiler = "ghc844";
20
+
compiler = "ghc865";
28
21
packages = self: with self; [
29
22
papa
30
23
];
+14
-12
versions.json
+14
-12
versions.json
···
1
1
{
2
-
"ihaskell": {
3
-
"owner": "gibiansky",
4
-
"repo": "IHaskell",
5
-
"rev": "376d108d1f034f4e9067f8d9e9ef7ddad2cce191",
6
-
"sha256": "0359rn46xaspzh96sspjwklazk4qljdw2xxchlw2jmfa173miq6a"
7
-
},
8
-
"nixpkgs": {
9
-
"owner": "NixOS",
10
-
"repo": "nixpkgs-channels",
11
-
"rev": "3a393eecafb3fcd9db5ff94783ddab0c55d15860",
12
-
"sha256": "1r7pycxxjcz3idyl35am4b4rdh4h5srd5r7w8msy2sc1sv830r30"
13
-
}
2
+
"ihaskell": {
3
+
"owner": "gibiansky",
4
+
"repo": "IHaskell",
5
+
"branch": "master",
6
+
"rev": "a442c0b6d4cf1fb17eaa3bf2827f04b21ad334bf",
7
+
"sha256": "0fprbj4g02wn8600siwy4wizz8qx4imsvlvkr36p2ndmrpsynbbl"
8
+
},
9
+
"nixpkgs": {
10
+
"owner": "NixOS",
11
+
"repo": "nixpkgs-channels",
12
+
"branch": "nixos-19.09",
13
+
"rev": "b2448a9fde1225c3681e576ab4d35d68631ca75e",
14
+
"sha256": "1npciv7vjjxx1hlyxg1pnpi64dvf4amcp3vwwv5cvpzsi0hj3zl7"
15
+
}
14
16
}