asimpson/day-5.lisp

## day-5.lisp
(defun process(cells)
  (do ((moves 0 (+ 1 moves))
      (position 0))
      ((null (nth position cells)) (print moves))
    (let ((pos (+ (parse-integer (nth position cells)) position)))
      (setf (nth position cells) (write-to-string (+ (parse-integer (nth position cells)) 1)))
      (setq position pos))))

(defun start()
  (let (container)
    (with-open-file (file "./input.txt")
      (loop for line = (read-line file nil 'end)
        until (eq line 'end)
        do (push line container)
        finally (process (reverse container))))))

(start)

## input.txt
0
0
0
1
2
-1
0
-5
-6
-5
-3
-3
-8
-3
-7
-8
-4
-9
1
-3
-17
0
-18
-14
1
-13
-4
-22
-7
-8
-25
-23
-11
-3
-9
-3
-26
-7
-24
-15
-17
2
-18
-39
-6
-28
-27
-38
-47
-17
-16
-36
-34
-3
-40
-11
-45
-11
-34
2
-27
-38
-7
-48
-14
-35
-37
-31
-42
-8
0
-39
-20
-50
-9
-7
-18
-6
-65
-44
-68
-67
-61
-19
-3
0
-66
-63
-29
-4
-29
-77
-51
-72
-91
-84
-38
-93
0
-7
-15
-78
-68
-59
-68
-47
-60
-101
-30
-69
-4
-52
-4
-60
-30
-65
-44
-108
-70
-43
-80
-102
-25
-58
-60
-13
-81
-17
-51
-32
-93
-38
-2
-16
-8
-1
-94
-55
-122
-77
-75
-25
-30
-55
-60
-23
-49
0
-119
-90
-129
-35
-8
-18
-79
-65
-16
-100
-143
-148
-39
-106
-140
-102
-126
-36
-41
-20
-23
-140
-138
-112
-49
-60
-7
-152
-162
-142
-1
-38
-15
-4
-7
-65
0
-114
-150
-160
-162
-29
-164
-32
-60
-60
-97
-130
-97
-172
-25
-185
-35
-77
-138
-188
-182
-137
-122
-133
-6
-37
-199
-108
-53
-188
-60
-30
-160
-160
-23
-176
-10
-23
-6
-116
-216
-155
-107
-66
-55
-107
-132
-91
-152
-127
-142
-90
-54
-40
-86
-151
-123
-120
-37
-84
-86
-205
-117
-179
-32
-26
-228
-232
-116
-67
-122
-125
-61
-2
2
-216
-63
-31
-147
-84
-113
-122
-39
-5
-47
-200
-129
-224
-246
-8
-112
-140
-65
-259
-110
-164
-85
-97
-129
-90
-124
-6
-228
-143
-78
-166
-150
-165
-262
-178
-6
-44
-44
2
-57
-43
-116
-197
-93
-221
-160
-96
-121
-127
-162
-181
-45
-40
-139
-194
-311
-291
-104
-217
-103
-28
-207
-21
-97
-91
-224
-257
-278
-176
-8
-93
-103
-35
-33
-320
-70
-254
-115
-59
-171
-45
-143
-250
-187
-181
-146
-210
-66
-297
-188
-79
-78
-309
-186
-272
-62
-41
-274
-323
-174
-344
-45
-146
-110
-283
-135
-24
-262
-39
-41
-112
-190
-214
-314
-224
-338
-167
-240
-95
-231
-154
-281
-52
-282
-274
-332
-311
-9
-159
-191
-80
-299
-354
-250
-232
-98
-132
-72
-61
-318
-255
-194
-282
-289
-114
-131
-267
-276
-65
-238
-335
-124
-7
-339
-295
-111
-260
-76
-82
-206
-383
-251
-230
-139
-109
-273
-222
-302
-359
-23
-326
-283
-75
-186
-270
-38
-208
-127
-63
-265
-215
-308
-350
-175
-358
-2
-166
-343
-421
-253
-34
-177
-426
-173
-127
-108
-93
-412
-102
-216
-35
-254
-85
-238
-401
-268
-212
-393
-332
-30
-374
-301
-39
-449
-59
-453
-63
-301
-251
-396
-78
-79
-279
-171
-471
-236
-56
-101
-129
-50
2
-213
-127
-107
-90
-472
-473
-435
-17
-490
-354
-122
-65
-181
-303
-319
-133
-350
-380
-60
-200
-55
-44
-482
-501
-82
-51
-361
-167
-7
-493
-68
-488
-18
-487
-250
-179
-143
-307
-85
-494
-178
-477
-453
-519
-143
-104
-523
-282
-16
-497
-358
-209
-292
-337
-500
-255
-167
-527
-184
-451
-305
-277
-453
-296
-441
-410
-521
-431
-215
-23
-53
-88
-296
-28
-454
-285
-259
-513
-526
-164
-4
-90
-22
-274
-432
-487
-372
-130
-162
-317
-401
-390
-16
-162
-409
-509
-256
-274
-371
-331
-430
-10
-562
-516
-246
-399
-122
-328
-134
-211
-443
-321
-290
-579
-101
-48
-208
-503
-138
-43
-33
-278
-8
-278
-515
-111
-164
-503
-69
-538
-450
-290
-434
-194
-477
-284
-324
-292
-582
-267
-38
-217
-489
-102
-142
-50
-511
-606
-254
-404
-319
-261
-191
-26
-376
-13
-355
-483
-133
-573
-136
-508
-70
-249
-86
-353
-280
-418
-582
-371
-652
-643
-369
-522
-33
-456
-226
-600
-621
-394
-516
-52
-542
-548
-524
-4
-202
-102
-405
-203
-101
-76
-160
-30
-314
-45
-211
-223
-35
-672
-640
-576
-198
-131
-478
-334
-44
-489
-351
-180
-242
-473
-462
-519
-651
-608
-360
-626
-262
-403
-50
-535
-284
-387
-227
-523
-152
-454
-687
-331
-201
-246
-533
-667
-71
-34
-24
-190
-227
-528
-413
-302
-687
-719
-714
-466
-432
-460
-83
-703
-401
-642
-146
-350
-128
-549
-579
-83
-747
-219
-612
-410
-694
-643
-268
-323
-684
-677
-290
-6
-78
-627
-751
-360
-76
-249
-724
-154
-106
-290
-669
-51
-290
-634
-740
-605
-645
-713
-214
-767
-752
-689
-174
-487
-386
-561
-394
-605
-4
-7
-180
-781
-75
-462
-471
-723
-709
-30
-434
-771
-652
-8
-796
-748
-87
-463
-276
-436
-477
-116
-86
-600
-476
-499
-173
-219
-85
-458
-225
-144
-405
-688
-570
-45
-65
-741
-184
-504
-265
-336
-130
-361
-95
-528
-532
-186
-461
-189
-682
-306
-223
-75
-11
-640
-313
-539
-548
-594
-203
-605
-277
-356
-822
-242
-282
-219
-441
-72
-558
-832
-322
-572
-44
-660
-736
-754
-99
-192
-482
-248
-296
-799
-418
-759
-114
-507
-10
-717
-778
-279
-775
-787
-864
-554
-525
-632
-312
-183
-267
-735
-342
-453
-152
-882
-95
-538
-227
-336
-719
-254
-481
-481
-591
-739
-783
-409
-468
-328
-429
-271
-425
-246
-476
-822
-757
-771
-2
-41
-676
-821
-288
-386
-749
-528
-777
-916
-312
-648
-699
-26
-258
-722
-513
-706
-111
-631
-745
-148
-710
-147
-470
-312
-314
-448
-530
-674
-283
-657
-404
-483
-712
-278
-154
-841
-152
-506
-537
-226
-649
-711
-808
-331
-196
-877
-432
-847
-745
-669
-71
-692
-175
-438
-83
-826
-64
-611
-528
-553
-664
-754
-678
-503
-362
-365
-710
-339
-805
-47
-298
-274
-551
-901
-581
-562
-368
-6
-559
-964
-994
-404
-148
-383
-154
-518
-350
-309
-669
-689
-780
-457
-88
-142
-522
-177
-115
-935
-893
-306
-481
-912
-745
-691
-763
-674
-246
-994
-497
-686
-474
-661
-385
-9
-310
-710
-991
-51
-361
-314
-346
-355
-872
-622
-998
-586
-631
-1023
-798
-789
-55
-166
-658
-818
-850
-590
-1035
-274
-524
-913
-183
-383
-297
-378
-186
-858
-369
-191
-815
-648
-367
-460
-879
-1052
-476
-382
-455
-892
-57
-54
-523
-824
-1030
-675
-980
-818
-629
-201
-939
-586
-913
-858
	(defun process(cells)
	(do ((moves 0 (+ 1 moves))
	(position 0))
	((null (nth position cells)) (print moves))
	(let ((pos (+ (parse-integer (nth position cells)) position)))
	(setf (nth position cells) (write-to-string (+ (parse-integer (nth position cells)) 1)))
	(setq position pos))))

	(defun start()
	(let (container)
	(with-open-file (file "./input.txt")
	(loop for line = (read-line file nil 'end)
	until (eq line 'end)
	do (push line container)
	finally (process (reverse container))))))

	(start)
	0
	0
	0
	1
	2
	-1
	0
	-5
	-6
	-5
	-3
	-3
	-8
	-3
	-7
	-8
	-4
	-9
	1
	-3
	-17
	0
	-18
	-14
	1
	-13
	-4
	-22
	-7
	-8
	-25
	-23
	-11
	-3
	-9
	-3
	-26
	-7
	-24
	-15
	-17
	2
	-18
	-39
	-6
	-28
	-27
	-38
	-47
	-17
	-16
	-36
	-34
	-3
	-40
	-11
	-45
	-11
	-34
	2
	-27
	-38
	-7
	-48
	-14
	-35
	-37
	-31
	-42
	-8
	0
	-39
	-20
	-50
	-9
	-7
	-18
	-6
	-65
	-44
	-68
	-67
	-61
	-19
	-3
	0
	-66
	-63
	-29
	-4
	-29
	-77
	-51
	-72
	-91
	-84
	-38
	-93
	0
	-7
	-15
	-78
	-68
	-59
	-68
	-47
	-60
	-101
	-30
	-69
	-4
	-52
	-4
	-60
	-30
	-65
	-44
	-108
	-70
	-43
	-80
	-102
	-25
	-58
	-60
	-13
	-81
	-17
	-51
	-32
	-93
	-38
	-2
	-16
	-8
	-1
	-94
	-55
	-122
	-77
	-75
	-25
	-30
	-55
	-60
	-23
	-49
	0
	-119
	-90
	-129
	-35
	-8
	-18
	-79
	-65
	-16
	-100
	-143
	-148
	-39
	-106
	-140
	-102
	-126
	-36
	-41
	-20
	-23
	-140
	-138
	-112
	-49
	-60
	-7
	-152
	-162
	-142
	-1
	-38
	-15
	-4
	-7
	-65
	0
	-114
	-150
	-160
	-162
	-29
	-164
	-32
	-60
	-60
	-97
	-130
	-97
	-172
	-25
	-185
	-35
	-77
	-138
	-188
	-182
	-137
	-122
	-133
	-6
	-37
	-199
	-108
	-53
	-188
	-60
	-30
	-160
	-160
	-23
	-176
	-10
	-23
	-6
	-116
	-216
	-155
	-107
	-66
	-55
	-107
	-132
	-91
	-152
	-127
	-142
	-90
	-54
	-40
	-86
	-151
	-123
	-120
	-37
	-84
	-86
	-205
	-117
	-179
	-32
	-26
	-228
	-232
	-116
	-67
	-122
	-125
	-61
	-2
	2
	-216
	-63
	-31
	-147
	-84
	-113
	-122
	-39
	-5
	-47
	-200
	-129
	-224
	-246
	-8
	-112
	-140
	-65
	-259
	-110
	-164
	-85
	-97
	-129
	-90
	-124
	-6
	-228
	-143
	-78
	-166
	-150
	-165
	-262
	-178
	-6
	-44
	-44
	2
	-57
	-43
	-116
	-197
	-93
	-221
	-160
	-96
	-121
	-127
	-162
	-181
	-45
	-40
	-139
	-194
	-311
	-291
	-104
	-217
	-103
	-28
	-207
	-21
	-97
	-91
	-224
	-257
	-278
	-176
	-8
	-93
	-103
	-35
	-33
	-320
	-70
	-254
	-115
	-59
	-171
	-45
	-143
	-250
	-187
	-181
	-146
	-210
	-66
	-297
	-188
	-79
	-78
	-309
	-186
	-272
	-62
	-41
	-274
	-323
	-174
	-344
	-45
	-146
	-110
	-283
	-135
	-24
	-262
	-39
	-41
	-112
	-190
	-214
	-314
	-224
	-338
	-167
	-240
	-95
	-231
	-154
	-281
	-52
	-282
	-274
	-332
	-311
	-9
	-159
	-191
	-80
	-299
	-354
	-250
	-232
	-98
	-132
	-72
	-61
	-318
	-255
	-194
	-282
	-289
	-114
	-131
	-267
	-276
	-65
	-238
	-335
	-124
	-7
	-339
	-295
	-111
	-260
	-76
	-82
	-206
	-383
	-251
	-230
	-139
	-109
	-273
	-222
	-302
	-359
	-23
	-326
	-283
	-75
	-186
	-270
	-38
	-208
	-127
	-63
	-265
	-215
	-308
	-350
	-175
	-358
	-2
	-166
	-343
	-421
	-253
	-34
	-177
	-426
	-173
	-127
	-108
	-93
	-412
	-102
	-216
	-35
	-254
	-85
	-238
	-401
	-268
	-212
	-393
	-332
	-30
	-374
	-301
	-39
	-449
	-59
	-453
	-63
	-301
	-251
	-396
	-78
	-79
	-279
	-171
	-471
	-236
	-56
	-101
	-129
	-50
	2
	-213
	-127
	-107
	-90
	-472
	-473
	-435
	-17
	-490
	-354
	-122
	-65
	-181
	-303
	-319
	-133
	-350
	-380
	-60
	-200
	-55
	-44
	-482
	-501
	-82
	-51
	-361
	-167
	-7
	-493
	-68
	-488
	-18
	-487
	-250
	-179
	-143
	-307
	-85
	-494
	-178
	-477
	-453
	-519
	-143
	-104
	-523
	-282
	-16
	-497
	-358
	-209
	-292
	-337
	-500
	-255
	-167
	-527
	-184
	-451
	-305
	-277
	-453
	-296
	-441
	-410
	-521
	-431
	-215
	-23
	-53
	-88
	-296
	-28
	-454
	-285
	-259
	-513
	-526
	-164
	-4
	-90
	-22
	-274
	-432
	-487
	-372
	-130
	-162
	-317
	-401
	-390
	-16
	-162
	-409
	-509
	-256
	-274
	-371
	-331
	-430
	-10
	-562
	-516
	-246
	-399
	-122
	-328
	-134
	-211
	-443
	-321
	-290
	-579
	-101
	-48
	-208
	-503
	-138
	-43
	-33
	-278
	-8
	-278
	-515
	-111
	-164
	-503
	-69
	-538
	-450
	-290
	-434
	-194
	-477
	-284
	-324
	-292
	-582
	-267
	-38
	-217
	-489
	-102
	-142
	-50
	-511
	-606
	-254
	-404
	-319
	-261
	-191
	-26
	-376
	-13
	-355
	-483
	-133
	-573
	-136
	-508
	-70
	-249
	-86
	-353
	-280
	-418
	-582
	-371
	-652
	-643
	-369
	-522
	-33
	-456
	-226
	-600
	-621
	-394
	-516
	-52
	-542
	-548
	-524
	-4
	-202
	-102
	-405
	-203
	-101
	-76
	-160
	-30
	-314
	-45
	-211
	-223
	-35
	-672
	-640
	-576
	-198
	-131
	-478
	-334
	-44
	-489
	-351
	-180
	-242
	-473
	-462
	-519
	-651
	-608
	-360
	-626
	-262
	-403
	-50
	-535
	-284
	-387
	-227
	-523
	-152
	-454
	-687
	-331
	-201
	-246
	-533
	-667
	-71
	-34
	-24
	-190
	-227
	-528
	-413
	-302
	-687
	-719
	-714
	-466
	-432
	-460
	-83
	-703
	-401
	-642
	-146
	-350
	-128
	-549
	-579
	-83
	-747
	-219
	-612
	-410
	-694
	-643
	-268
	-323
	-684
	-677
	-290
	-6
	-78
	-627
	-751
	-360
	-76
	-249
	-724
	-154
	-106
	-290
	-669
	-51
	-290
	-634
	-740
	-605
	-645
	-713
	-214
	-767
	-752
	-689
	-174
	-487
	-386
	-561
	-394
	-605
	-4
	-7
	-180
	-781
	-75
	-462
	-471
	-723
	-709
	-30
	-434
	-771
	-652
	-8
	-796
	-748
	-87
	-463
	-276
	-436
	-477
	-116
	-86
	-600
	-476
	-499
	-173
	-219
	-85
	-458
	-225
	-144
	-405
	-688
	-570
	-45
	-65
	-741
	-184
	-504
	-265
	-336
	-130
	-361
	-95
	-528
	-532
	-186
	-461
	-189
	-682
	-306
	-223
	-75
	-11
	-640
	-313
	-539
	-548
	-594
	-203
	-605
	-277
	-356
	-822
	-242
	-282
	-219
	-441
	-72
	-558
	-832
	-322
	-572
	-44
	-660
	-736
	-754
	-99
	-192
	-482
	-248
	-296
	-799
	-418
	-759
	-114
	-507
	-10
	-717
	-778
	-279
	-775
	-787
	-864
	-554
	-525
	-632
	-312
	-183
	-267
	-735
	-342
	-453
	-152
	-882
	-95
	-538
	-227
	-336
	-719
	-254
	-481
	-481
	-591
	-739
	-783
	-409
	-468
	-328
	-429
	-271
	-425
	-246
	-476
	-822
	-757
	-771
	-2
	-41
	-676
	-821
	-288
	-386
	-749
	-528
	-777
	-916
	-312
	-648
	-699
	-26
	-258
	-722
	-513
	-706
	-111
	-631
	-745
	-148
	-710
	-147
	-470
	-312
	-314
	-448
	-530
	-674
	-283
	-657
	-404
	-483
	-712
	-278
	-154
	-841
	-152
	-506
	-537
	-226
	-649
	-711
	-808
	-331
	-196
	-877
	-432
	-847
	-745
	-669
	-71
	-692
	-175
	-438
	-83
	-826
	-64
	-611
	-528
	-553
	-664
	-754
	-678
	-503
	-362
	-365
	-710
	-339
	-805
	-47
	-298
	-274
	-551
	-901
	-581
	-562
	-368
	-6
	-559
	-964
	-994
	-404
	-148
	-383
	-154
	-518
	-350
	-309
	-669
	-689
	-780
	-457
	-88
	-142
	-522
	-177
	-115
	-935
	-893
	-306
	-481
	-912
	-745
	-691
	-763
	-674
	-246
	-994
	-497
	-686
	-474
	-661
	-385
	-9
	-310
	-710
	-991
	-51
	-361
	-314
	-346
	-355
	-872
	-622
	-998
	-586
	-631
	-1023
	-798
	-789
	-55
	-166
	-658
	-818
	-850
	-590
	-1035
	-274
	-524
	-913
	-183
	-383
	-297
	-378
	-186
	-858
	-369
	-191
	-815
	-648
	-367
	-460
	-879
	-1052
	-476
	-382
	-455
	-892
	-57
	-54
	-523
	-824
	-1030
	-675
	-980
	-818
	-629
	-201
	-939
	-586
	-913
	-858