14.1

diff --git a/14/input b/14/input
new file mode 100644 (file)
index 0000000..c3374fb
--- /dev/null
+++ b/14/input
@@ -0,0 +1,579 @@
+mask = 11100XX0000X1101X1010100X1010001XX0X
+mem[24196] = 465592
+mem[17683] = 909049
+mem[28999] = 20912603
+mem[22864] = 7675
+mem[55357] = 6401
+mem[47006] = 1087112
+mask = 111X000100XX1X01X1X10X01X11101100010
+mem[22535] = 42768
+mem[3804] = 1432484
+mem[5475] = 5972
+mem[24585] = 484096364
+mem[56009] = 206637948
+mem[30917] = 630
+mem[28325] = 1467510
+mask = 1110X0X0001111011101101011X01000X10X
+mem[432] = 23010545
+mem[31135] = 250
+mem[60949] = 3366
+mask = X10101X10X0X100111X11001X0001X11X011
+mem[19601] = 169998617
+mem[25958] = 295048
+mem[277] = 58248
+mem[47301] = 2234
+mask = 1X101110000001X1101X101X000010101101
+mem[27397] = 328720
+mem[23718] = 91033
+mem[42581] = 1336
+mem[39656] = 58221
+mask = 101000100011110111X110111011XXX00000
+mem[55993] = 21914
+mem[8278] = 287934896
+mem[7186] = 199312871
+mem[35770] = 128786
+mem[13001] = 1187
+mem[5951] = 34516681
+mask = 1110000000101X0X1101100000X11X010001
+mem[51573] = 6865197
+mem[12594] = 57
+mem[43156] = 1988185
+mem[194] = 125226832
+mem[11055] = 1304
+mem[8009] = 15347
+mem[39550] = 434
+mask = 0100X10X0100X000101001X10X1101001111
+mem[4865] = 6399850
+mem[54408] = 1063909
+mem[37625] = 391570382
+mem[15539] = 3309
+mask = 1X1000XX0XX01X00110X1101110X0X001110
+mem[8011] = 39113
+mem[4279] = 54926
+mem[24196] = 66470405
+mask = 10X0000000X0110X1X01X1X0X001111X1011
+mem[9092] = 362810946
+mem[47138] = 16850639
+mem[41856] = 18821263
+mask = 1110000X00X01101X1010XX101010X0XX0X1
+mem[50504] = 27298
+mem[57026] = 107914
+mem[52684] = 127977723
+mem[12905] = 3044843
+mem[23942] = 34437
+mem[18697] = 94002
+mask = 1110X010100X11X1110111011101110X1XX0
+mem[50504] = 28170
+mem[56861] = 48063
+mask = 1110101000X001X110110010000X0110XX01
+mem[31344] = 15906303
+mem[49101] = 18755
+mem[50877] = 5126106
+mem[27011] = 29112904
+mem[11552] = 184372544
+mem[27085] = 1711926
+mem[57734] = 11
+mask = 01X10X000000110110011010X10X000010X0
+mem[57703] = 450
+mem[55911] = 897776
+mem[39593] = 9365920
+mem[27918] = 111787
+mask = 11100010X0X1110X0X000010X0X00000110X
+mem[21285] = 142940
+mem[48827] = 1348
+mem[47138] = 791004800
+mem[17054] = 170726381
+mask = 1X1X00X000XX110111010X10XX101X001001
+mem[33192] = 5106641
+mem[44523] = 205714
+mem[2397] = 481
+mem[55624] = 3188
+mem[26269] = 3891595
+mem[14130] = 17865
+mem[45278] = 995854
+mask = 0101010100011XX1111101000X0X11110000
+mem[54355] = 118
+mem[37759] = 26260
+mem[17076] = 89114435
+mem[194] = 1039
+mask = 11100001011X1X0X110X100XX1X00000X111
+mem[56508] = 5551
+mem[24388] = 8654
+mask = 1111001010101101110111X10XX0100X1100
+mem[54164] = 209
+mem[51296] = 377456
+mem[17932] = 27062366
+mem[6263] = 5509
+mask = 00X1010X00001X0X11X101001011X0000000
+mem[19882] = 8803576
+mem[53384] = 3337517
+mem[56996] = 28569
+mem[45196] = 176
+mem[35228] = 451184
+mem[28999] = 1358694
+mem[11073] = 106613
+mask = 0XX101010X001101110100001XX1101X0000
+mem[18074] = 29316
+mem[18560] = 6691478
+mem[11628] = 29149
+mem[17246] = 4374
+mem[7371] = 596
+mask = X10X01XX00001101X101X10010011X1000XX
+mem[20505] = 833
+mem[51543] = 514
+mem[33874] = 1486233
+mask = 01X10101010000011111000101100XXXX111
+mem[41142] = 8151
+mem[57816] = 850
+mem[3408] = 25361551
+mem[49742] = 84
+mem[533] = 4697
+mask = 1100X010X100XXX011010X00XX01000X1010
+mem[18925] = 6495
+mem[51352] = 2712
+mem[35009] = 237034
+mem[46199] = 6606255
+mem[58066] = 10080453
+mem[248] = 176262
+mask = 111XX0X0X0X011X11X010001000100X11100
+mem[56816] = 26145436
+mem[6953] = 387283
+mem[50052] = 84
+mem[56530] = 141676
+mem[60168] = 10908459
+mem[17685] = 287
+mask = 111000010X1011011X010111X1110111001X
+mem[52094] = 1398677
+mem[36982] = 4553
+mem[24348] = 1001783
+mem[28987] = 11213376
+mem[14039] = 7011973
+mem[52684] = 287185
+mask = 11110010X01011XX1XX110X1001110111100
+mem[17212] = 36655
+mem[24740] = 10507
+mem[7497] = 2603
+mask = 11X0000100001XX10101X011X0100XX01100
+mem[8722] = 1860757
+mem[4361] = 9089027
+mem[43286] = 764265
+mask = 111000X00X00110111110X000101000X0101
+mem[21] = 10308359
+mem[55077] = 1923265
+mask = 11100X001010110111010XX1101X00011X01
+mem[51543] = 272
+mem[46636] = 41481200
+mem[11331] = 16116
+mem[4157] = 24217194
+mem[39683] = 36276
+mem[47837] = 75704
+mask = 001XX10100X0011111010X00X11000011010
+mem[64404] = 3069125
+mem[432] = 42797141
+mem[11073] = 655
+mem[17402] = 687682
+mask = X1111X100000111X100X11X0110X11XX1110
+mem[5138] = 3437645
+mem[64302] = 10748
+mem[22052] = 7646851
+mem[57307] = 1846
+mem[8556] = 2513
+mem[20862] = 2137
+mem[47082] = 65210668
+mask = 111000X0XX011001011X01110X0X111X0000
+mem[24216] = 140969206
+mem[64406] = 1006
+mem[55744] = 282152566
+mem[26368] = 8935044
+mem[9525] = 581
+mask = X10XXX010X0X00001110101111X0X0010001
+mem[37409] = 830
+mem[55256] = 1293327
+mem[49887] = 10300024
+mask = 11100010000111010X0X0X10XX1X1X010010
+mem[7371] = 10089034
+mem[55184] = 992391
+mem[8128] = 2573
+mem[16780] = 12198200
+mask = X110010X00001101110X1X0X1001X01X1X00
+mem[17942] = 3204736
+mem[43265] = 160130
+mem[54791] = 905
+mem[43494] = 31105546
+mem[23836] = 5693
+mask = 01X10001X100000001000111111X0101X010
+mem[52752] = 261536
+mem[33121] = 637759448
+mem[38648] = 1999
+mem[10484] = 4506
+mask = X1100001000XX101X1X11010001X1X00X00X
+mem[11033] = 303386685
+mem[52968] = 76
+mem[692] = 80215
+mem[32901] = 410
+mem[1170] = 1019569
+mask = 0100010X000011XX010101001XX0X111X110
+mem[33121] = 1004697269
+mem[40768] = 9652471
+mem[46911] = 51740
+mask = 0111010X000011XX100101000100011X1011
+mem[31501] = 127217457
+mem[8760] = 1331
+mem[53277] = 100190787
+mem[11055] = 816674979
+mem[20322] = 5235075
+mask = X1X10X0X000011011X01011X11X1000X110X
+mem[34070] = 743
+mem[7184] = 550637
+mem[19585] = 921346
+mem[9587] = 217676716
+mask = 111010100000X101X0110000XX1000X10000
+mem[28281] = 77
+mem[38263] = 1881
+mem[28451] = 444240911
+mem[43156] = 25309
+mem[30888] = 660
+mem[2469] = 454
+mask = 11X00X100X00110X110100X00001101X01X1
+mem[22535] = 480526992
+mem[64908] = 1012
+mem[18554] = 30457232
+mem[7497] = 896738
+mem[21289] = 56826187
+mem[51296] = 467
+mask = 1110001X00X111X1X101010X01010101X001
+mem[55693] = 18382
+mem[27601] = 41915
+mem[22616] = 17257
+mem[19492] = 4667
+mem[6953] = 40034760
+mask = 1X11000000X0X10X1X0X0010110XX1001110
+mem[36049] = 431
+mem[53464] = 3399
+mem[47435] = 3768554
+mem[13326] = 10597
+mask = 1X10000000011001011001X10000110X01X1
+mem[116] = 17770
+mem[23833] = 174842
+mem[58867] = 3425856
+mem[45278] = 118643
+mem[44440] = 584704
+mask = X1100001000X1X010X011X0X0000XX0X1001
+mem[40768] = 85230060
+mem[36744] = 690218
+mem[23942] = 369155
+mem[46690] = 879641338
+mem[62388] = 36434630
+mem[45788] = 1712
+mask = X110X011001111010X010100010000110X01
+mem[20289] = 8051
+mem[5798] = 64870413
+mem[20409] = 12365
+mask = 1X1X000X001111XX110100X1001X00X00011
+mem[52329] = 9963755
+mem[44763] = 911974581
+mem[38281] = 1670
+mem[30121] = 12169074
+mem[60457] = 1795732
+mem[59755] = 4148431
+mask = 010X0X010100X00X1X1X1X1101101X0X0000
+mem[65073] = 19189703
+mem[21343] = 199170
+mem[31147] = 237218
+mem[63870] = 119469
+mem[45728] = 7227071
+mem[52235] = 232889
+mask = 11X0001000011XX101X0001110X110000000
+mem[51221] = 414
+mem[51296] = 97635
+mem[44882] = 597
+mem[21580] = 151
+mem[62354] = 15729
+mem[49238] = 154335
+mem[8722] = 6568
+mask = 111001010000X10X11001011X00010110X01
+mem[10789] = 11719
+mem[44455] = 5005
+mem[39994] = 1548
+mem[2472] = 182989
+mem[30152] = 6772910
+mem[13360] = 23778
+mask = 01X0000101X0X00111110011100X111010X0
+mem[40929] = 2617123
+mem[24670] = 21298246
+mem[19730] = 53122
+mem[4453] = 16356635
+mem[18167] = 152861
+mem[6794] = 109114900
+mask = X1010111000X100111X1XXX111X10X110110
+mem[60242] = 527195070
+mem[9092] = 14828
+mem[60561] = 12393
+mask = 11X000000000110X110100X0110X01011000
+mem[43733] = 3381891
+mem[28994] = 102996
+mem[34677] = 742154643
+mem[56117] = 51070
+mem[62864] = 513
+mask = 1110XX100000X1X1X0110X0X0X0X10100001
+mem[20020] = 102468
+mem[54641] = 518248411
+mem[42588] = 133137430
+mem[49903] = 393777077
+mask = 1X100X010XX011011101000X00XXX100011X
+mem[59041] = 130847732
+mem[55184] = 745
+mem[35978] = 1728
+mask = 1110101000X011011011101000X110X1X001
+mem[32661] = 302743
+mem[4437] = 640
+mem[8811] = 1334
+mem[4453] = 4515
+mem[39550] = 598022
+mask = 1110X100X0X111010XX11100111110000010
+mem[4036] = 120228
+mem[35400] = 285627
+mem[13330] = 484890
+mem[42246] = 9741695
+mask = X111X0000010X1001101X100110100000001
+mem[4865] = 424
+mem[14807] = 2916
+mem[9469] = 470087
+mem[10170] = 238048
+mask = 1110001000X0X101111X110001010010100X
+mem[54355] = 114424821
+mem[51406] = 899
+mem[1515] = 391
+mem[38678] = 103708
+mem[53982] = 121098
+mem[49442] = 9789
+mem[35604] = 19583721
+mask = 111X000000001101X10111X01101100X1101
+mem[43682] = 175571639
+mem[3831] = 9455072
+mem[44523] = 106569
+mem[37257] = 315345859
+mem[64406] = 1612
+mask = 01XX0001X00X1101X101000X010000001111
+mem[19343] = 31345288
+mem[8756] = 1677
+mem[29688] = 81
+mem[52684] = 332229
+mem[15099] = 3806446
+mem[38338] = 11840
+mem[55633] = 116815478
+mask = 1110001X00011X01X00X010110X011000010
+mem[27344] = 2606
+mem[5054] = 810
+mask = 1101010X00001X0111010101100X1X10X010
+mem[21289] = 4994
+mem[16780] = 851612834
+mem[18737] = 50882
+mem[17717] = 2670
+mem[36049] = 578215133
+mem[47082] = 496908
+mask = X0X101X1X00001111101X1X10111X0X1101X
+mem[41026] = 409998
+mem[14596] = 704
+mem[29771] = 3494643
+mem[25660] = 113256355
+mem[59154] = 2369
+mem[62847] = 2904
+mask = 1110000000X111X1110110X011X1000X100X
+mem[5769] = 132360
+mem[42087] = 3851681
+mem[40768] = 1010
+mask = 1X100X0X000011011101X10X0100X00000X1
+mem[33025] = 1410632
+mem[43181] = 2000
+mem[24043] = 700
+mask = 111000X100001101110100X0X1XX01X00X11
+mem[33195] = 1151261
+mem[28725] = 6917
+mem[21285] = 418795
+mask = 1X110X00001X110111010X1XXX0100110X01
+mem[1848] = 1543602
+mem[20484] = 52183944
+mem[24869] = 1750
+mem[28451] = 146868
+mem[31319] = 3136
+mem[49411] = 3378
+mem[45914] = 97061
+mask = 1X10X000001111X1X1011011111X001X1011
+mem[12905] = 145078660
+mem[52038] = 2552
+mem[34070] = 24245910
+mem[11552] = 26334460
+mem[769] = 22524
+mem[45411] = 162871607
+mask = 01110XX101X01X0111X1X0X11100101100X0
+mem[34492] = 43083
+mem[5855] = 258360838
+mem[6147] = 282
+mem[63064] = 5211483
+mask = 1X10000000111X00110X0X110X1000000011
+mem[9866] = 3514
+mem[54099] = 14778
+mask = X1X1000X0X1X11001101001101000101X0XX
+mem[9299] = 24521049
+mem[61776] = 292226032
+mem[18074] = 19038893
+mem[31659] = 114327725
+mask = 010X010100001001X101100X0XX011X00X1X
+mem[47192] = 499
+mem[35562] = 1127803
+mem[27862] = 7106662
+mask = 1XX000X100101101110X1010010X00001X01
+mem[8438] = 44700
+mem[45696] = 470154968
+mem[41741] = 535
+mem[51296] = 550
+mem[11976] = 153002786
+mem[45322] = 84583483
+mem[29651] = 15576
+mask = 11100010000011011XX1010XXX010X01X000
+mem[1789] = 911
+mem[56530] = 115914529
+mem[5451] = 142
+mem[277] = 933970424
+mem[64908] = 5581695
+mem[55077] = 199
+mask = 1010001X00X111011XX11001X0001000X101
+mem[23536] = 53655494
+mem[14360] = 754122
+mem[15890] = 36708
+mem[44816] = 99834802
+mem[20566] = 473274604
+mask = 111X101000X00X110X1X100001X011110X00
+mem[33169] = 51545746
+mem[31147] = 2815
+mem[16106] = 1393423
+mem[8786] = 9878148
+mask = 11100010001111X0X0XX0110XX00X0001111
+mem[47869] = 330626
+mem[10389] = 1173
+mask = 111001000000110111010000010X100XX10X
+mem[56037] = 3906806
+mem[42588] = 6113
+mem[27703] = 795872
+mem[52731] = 70918735
+mem[21662] = 2974689
+mem[38094] = 92515
+mem[59061] = 75564
+mask = 1XX0000X0X10110111X11X100X0X01100111
+mem[17179] = 211
+mem[25555] = 111231
+mem[4258] = 24945299
+mem[24124] = 4414744
+mem[11003] = 7486
+mem[25891] = 496
+mask = X1110000X0X0110110001X11X1X10X000X10
+mem[4841] = 236728268
+mem[420] = 298
+mem[34895] = 412844940
+mem[9587] = 6377
+mask = 1110XX1000001101100100010X01000111X0
+mem[20505] = 717616953
+mem[55911] = 254
+mem[18500] = 12753143
+mem[24196] = 2549282
+mem[44072] = 370306692
+mask = 111X0000001X110X1101X01XX100000X1XX1
+mem[42453] = 5827
+mem[6953] = 203298
+mem[56264] = 375
+mem[34887] = 2940099
+mem[65469] = 351297914
+mem[62106] = 226948
+mask = 010X0X010100X00XX1XX1011111X0110100X
+mem[6566] = 13861612
+mem[62354] = 397490
+mem[15192] = 26357463
+mem[61353] = 120260489
+mem[48329] = 20209615
+mask = X1000X100100110111011X10100XX1100000
+mem[31626] = 11216
+mem[60050] = 922
+mem[13079] = 460592139
+mem[22864] = 3460
+mem[21808] = 427851033
+mem[26759] = 747148
+mask = 111000X0X00011XX1001X01000011000X0XX
+mem[47077] = 21552651
+mem[45076] = 4796
+mem[59796] = 3055
+mem[61256] = 6500
+mem[16825] = 980934769
+mask = 1110X01101XX1100110X0000X0000X001100
+mem[45076] = 584
+mem[54926] = 29718
+mem[18560] = 3999638
+mem[4865] = 1007977570
+mask = 01X10X010100X001111110X1X1XX10110XX1
+mem[28725] = 172494865
+mem[60439] = 7496408
+mem[55184] = 111489
+mem[15543] = 8109490
+mem[25555] = 203769
+mask = 101101X00011110111010X1XX011X0110001
+mem[40538] = 2820
+mem[12808] = 242352332
+mem[55693] = 796801
+mask = 11100110000X11X11101111X11110X010100
+mem[52638] = 130173
+mem[41136] = 99225
+mem[30981] = 145765
+mem[24654] = 23239
+mem[56080] = 2600371
+mask = 10110X1X000XXXXX1101001X01111011101X
+mem[25555] = 35039981
+mem[51117] = 899042
+mem[28546] = 27200807
+mask = 11100X10X00X11011X1111000X0111XX0001
+mem[34877] = 19623
+mem[32929] = 212201
+mem[50492] = 86
+mem[25692] = 3967
+mem[59620] = 4489
+mem[2397] = 167
+mem[1613] = 1929
+mask = 111001X00000XX0111010X0101X10001X1XX
+mem[33026] = 1738730
+mem[53181] = 9011944
+mem[33688] = 9432725
+mem[28325] = 2913917
+mem[4760] = 30224638
+mem[44900] = 23686766
+mask = X010000X0010X100X10001X0X11111001XX0
+mem[62904] = 543471105
+mem[39372] = 284
+mem[54084] = 99353
+mem[959] = 565028
+mem[41884] = 23617874
+mask = 011100001000X1X110X0XXX1X1X1001X0001
+mem[62428] = 82
+mem[25406] = 1767
+mem[9987] = 27303911
+mem[45698] = 21354675
+mem[33688] = 140290550
+mem[11725] = 2764898
+mask = 111000100000XX01110X010XX00101010100
+mem[41653] = 490
+mem[29936] = 361323
+mem[61683] = 6863356
+mem[19368] = 540
+mem[61836] = 4792848
+mem[57816] = 984651521
+mem[39494] = 141986806
+mask = 1X00101011X0X00X11X11110000000000011
+mem[6510] = 25364
+mem[45411] = 2282830
+mem[24451] = 39824
+mem[47536] = 125549431
+mask = 11X0XX01000X110101010001001100010010
+mem[44288] = 998863
+mem[29095] = 926329
+mem[38956] = 8054373
+mem[12846] = 31513
+mem[3837] = 14880
+mem[44605] = 354763708

diff --git a/14/one.icl b/14/one.icl
new file mode 100644 (file)
index 0000000..54f7cd0
--- /dev/null
+++ b/14/one.icl
@@ -0,0 +1,44 @@
+module one
+
+import StdEnv
+import Text
+import Data.Func
+import Data.List
+from Data.Map import :: Map(..)
+import qualified Data.Map as DM
+
+read :: *File -> [Char]
+read f
+       # (ok, c, f) = freadc f
+       | not ok = []
+       = [c:read f]
+
+Start w
+       # (io, w) = stdio w
+       # ls = split ['\n'] $ read io
+       = (sum $ 'DM'.elems $ one [] ls 'DM'.newMap)
+
+toBin :: (Int -> [Char])
+toBin = tob [35,34..0]
+where
+       tob [b:bs] n
+               | n >= 2^b = ['1':tob bs (n-2^b)]
+                          = ['0':tob bs n]
+       tob [] _ = []
+fromBin :: ([Char] -> Int)
+fromBin = foldr (\a b->a+2*b) 0 o map digitToInt
+
+one :: [Char] [[Char]] -> ((Map Int Int) -> Map Int Int)
+one _ [['mask = ':mask]:xs] = one mask xs
+one mask [['mem[':rest]:xs]
+       = case span isDigit rest of
+               (num, ['] = ':rest])
+                       = one mask xs o 'DM'.put (toInt $ toString num)
+                               (fromBin $ zipWith msk mask $ toBin $ toInt $ toString rest)
+where
+       msk :: Char Char -> Char
+       msk '1' _ = '1'
+       msk '0' _ = '0'
+       msk 'X' c = c
+one mask [[]:xs] = one mask xs
+one mask [] = id