···

       
1
       
1
       
+
       
input.txt

     

       
2
       
2
       
+
       
input_test.txt

     

···

       
1
       
1
       
 
       
*.mod

     

       
2
       
2
       
 
       
*.out

     

       
3
       
3
       
-
       
./bin

     

       
3
       
3
       
+
       
*.txt

     

       
4
       
4
       
+
       
_build/

     

···

       
1
       
1
       
-
       
module sorting 

     

       
2
       
2
       
-
       
  ! apparently you need to put the subroutine in a module

     

       
3
       
3
       
-
       
  implicit none

     

       
4
       
4
       
-
       
  contains 

     

       
5
       
5
       
-
       
  subroutine sort(arr)

     

       
1
       
1
       
+
       
module sorting

     

       
2
       
2
       
+
       
   ! apparently you need to put the subroutine in a module

     

       
3
       
3
       
+
       
   implicit none

     

       
4
       
4
       
+
       
contains

     

       
5
       
5
       
+
       
   subroutine sort(arr)

     

       
6
       
6
       
 
       
      !! a little insertion sort KISS

     

       
7
       
7
       
 
       
      !! also yea we have no in built sorting

     

       
8
       
8
       
-
       
    implicit none

     

       
9
       
9
       
-
       
    integer, intent(inout) :: arr(1000)

     

       
10
       
10
       
-
       
    integer :: i, j, key

     

       
11
       
11
       
-
       
    do i = 2, 1000 

     

       
12
       
12
       
-
       
      key = arr(i)

     

       
13
       
13
       
-
       
      j = i - 1

     

       
14
       
14
       
-
       
      do while (j > 0 .and. arr(j) > key)

     

       
15
       
15
       
-
       
        arr(j+1) = arr(j)

     

       
16
       
16
       
-
       
        j = j - 1

     

       
8
       
8
       
+
       
      implicit none

     

       
9
       
9
       
+
       
      integer, intent(inout) :: arr(1000)

     

       
10
       
10
       
+
       
      integer :: i, j, key

     

       
11
       
11
       
+
       
      do i = 2, 1000

     

       
12
       
12
       
+
       
         key = arr(i)

     

       
13
       
13
       
+
       
         j = i - 1

     

       
14
       
14
       
+
       
         do while (j > 0 .and. arr(j) > key)

     

       
15
       
15
       
+
       
            arr(j+1) = arr(j)

     

       
16
       
16
       
+
       
            j = j - 1

     

       
17
       
17
       
+
       
         end do

     

       
18
       
18
       
+
       
         arr(j+1) = key

     

       
17
       
19
       
 
       
      end do

     

       
18
       
18
       
-
       
      arr(j+1) = key

     

       
19
       
19
       
-
       
    end do

     

       
20
       
20
       
-
       
  end subroutine sort

     

       
20
       
20
       
+
       
   end subroutine sort

     

       
21
       
21
       
 
       
end module sorting

     

       
22
       
22
       
 
       


     

       
23
       
23
       
 
       
program day_01

     

       
24
       
24
       
-
       
  use sorting

     

       
25
       
25
       
-
       
  implicit none

     

       
26
       
26
       
-
       
  integer :: io, i, dist, sim, left(1000), right(1000) ! yea we are coding to the input file and not generic

     

       
27
       
27
       
-
       
  open(newunit=io, file='./day_01_input.txt', status='old', action='read')

     

       
24
       
24
       
+
       
   use sorting

     

       
25
       
25
       
+
       
   implicit none

     

       
26
       
26
       
+
       
   integer :: io, i, dist, sim, left(1000), right(1000) ! yea we are coding to the input file and not generic

     

       
27
       
27
       
+
       
   open(newunit=io, file='./day_01_input.txt', status='old', action='read')

     

       
28
       
28
       
 
       


     

       
29
       
29
       
-
       
  do i = 1, 1000

     

       
30
       
30
       
-
       
    read(io, *) left(i), right(i) ! read both values in line

     

       
31
       
31
       
-
       
  end do

     

       
29
       
29
       
+
       
   do i = 1, 1000

     

       
30
       
30
       
+
       
      read(io, *) left(i), right(i) ! read both values in line

     

       
31
       
31
       
+
       
   end do

     

       
32
       
32
       
 
       


     

       
33
       
33
       
-
       
  close(10) ! close the file

     

       
33
       
33
       
+
       
   close(10) ! close the file

     

       
34
       
34
       
 
       


     

       
35
       
35
       
-
       
  call sort(left)

     

       
36
       
36
       
-
       
  call sort(right)

     

       
35
       
35
       
+
       
   call sort(left)

     

       
36
       
36
       
+
       
   call sort(right)

     

       
37
       
37
       
 
       


     

       
38
       
38
       
-
       
  ! if we dont init these bad things happen on multiple runs

     

       
39
       
39
       
-
       
  dist = 0 

     

       
40
       
40
       
-
       
  sim = 0

     

       
38
       
38
       
+
       
   ! if we dont init these bad things happen on multiple runs

     

       
39
       
39
       
+
       
   dist = 0

     

       
40
       
40
       
+
       
   sim = 0

     

       
41
       
41
       
 
       


     

       
42
       
42
       
-
       
  do i = 1, 1000

     

       
43
       
43
       
-
       
   dist = dist + abs(left(i) - right(i)) 

     

       
44
       
44
       
-
       
   sim = sim + left(i) * count(right == left(i)) 

     

       
45
       
45
       
-
       
  end do

     

       
42
       
42
       
+
       
   do i = 1, 1000

     

       
43
       
43
       
+
       
      dist = dist + abs(left(i) - right(i))

     

       
44
       
44
       
+
       
      sim = sim + left(i) * count(right == left(i))

     

       
45
       
45
       
+
       
   end do

     

       
46
       
46
       
 
       


     

       
47
       
47
       
-
       
    print*, "distance: ", dist

     

       
48
       
48
       
-
       
    print*, "similarity: ", sim

     

       
47
       
47
       
+
       
   print*, "distance: ", dist

     

       
48
       
48
       
+
       
   print*, "similarity: ", sim

     

       
49
       
49
       
 
       
end program day_01

     

       
50
       
50
       
 
       


     

···

       
1
       
1
       
+
       
let filename = "./day_01_input.txt"

     

       
2
       
2
       
+
       
let try_read ic = try Some (input_line ic) with End_of_file -> None

     

       
3
       
3
       
+
       


     

       
4
       
4
       
+
       
let line_to_ints s =

     

       
5
       
5
       
+
       
  Str.split_delim (Str.regexp "   ") s |> List.map int_of_string

     

       
6
       
6
       
+
       


     

       
7
       
7
       
+
       
let rec read_lines left right ic =

     

       
8
       
8
       
+
       
  match try_read ic with

     

       
9
       
9
       
+
       
  | Some line -> (

     

       
10
       
10
       
+
       
      line_to_ints line |> fun ints ->

     

       
11
       
11
       
+
       
      match ints with

     

       
12
       
12
       
+
       
      | [ a; b ] -> read_lines (a :: left) (b :: right) ic

     

       
13
       
13
       
+
       
      | _ -> failwith "invalid")

     

       
14
       
14
       
+
       
  | None ->

     

       
15
       
15
       
+
       
      close_in ic;

     

       
16
       
16
       
+
       
      (List.sort compare left, List.sort compare right)

     

       
17
       
17
       
+
       


     

       
18
       
18
       
+
       
let calc_sum left right =

     

       
19
       
19
       
+
       
  List.map2 ( - ) left right |> List.map abs |> List.fold_left ( + ) 0

     

       
20
       
20
       
+
       


     

       
21
       
21
       
+
       
let calc_sim left right =

     

       
22
       
22
       
+
       
  List.map

     

       
23
       
23
       
+
       
    (fun x -> x * (List.filter (fun y -> x == y) right |> List.length))

     

       
24
       
24
       
+
       
    left

     

       
25
       
25
       
+
       
  |> List.fold_left ( + ) 0

     

       
26
       
26
       
+
       


     

       
27
       
27
       
+
       
let () =

     

       
28
       
28
       
+
       
  let left, right = open_in filename |> read_lines [] [] in

     

       
29
       
29
       
+
       
  calc_sum left right |> Printf.sprintf "Sum %d" |> print_endline;

     

       
30
       
30
       
+
       
  calc_sim left right |> Printf.sprintf "Part 2 Simularity %d" |> print_endline

     

···

       
1
       
1
       
-
       
64430   75582

     

       
2
       
2
       
-
       
87936   20843

     

       
3
       
3
       
-
       
98310   72035

     

       
4
       
4
       
-
       
98142   69076

     

       
5
       
5
       
-
       
73170   50561

     

       
6
       
6
       
-
       
65508   20716

     

       
7
       
7
       
-
       
72642   84718

     

       
8
       
8
       
-
       
63792   89556

     

       
9
       
9
       
-
       
88319   66913

     

       
10
       
10
       
-
       
38149   43160

     

       
11
       
11
       
-
       
88982   10253

     

       
12
       
12
       
-
       
34137   95932

     

       
13
       
13
       
-
       
79589   92389

     

       
14
       
14
       
-
       
49164   98263

     

       
15
       
15
       
-
       
49746   92762

     

       
16
       
16
       
-
       
53896   43420

     

       
17
       
17
       
-
       
21240   95725

     

       
18
       
18
       
-
       
88691   37648

     

       
19
       
19
       
-
       
47697   66763

     

       
20
       
20
       
-
       
38234   98154

     

       
21
       
21
       
-
       
74901   20452

     

       
22
       
22
       
-
       
70760   11404

     

       
23
       
23
       
-
       
16084   74024

     

       
24
       
24
       
-
       
77408   32178

     

       
25
       
25
       
-
       
81054   45709

     

       
26
       
26
       
-
       
68478   92252

     

       
27
       
27
       
-
       
52984   55239

     

       
28
       
28
       
-
       
14952   20843

     

       
29
       
29
       
-
       
42548   69422

     

       
30
       
30
       
-
       
21427   20329

     

       
31
       
31
       
-
       
92508   81533

     

       
32
       
32
       
-
       
22650   76459

     

       
33
       
33
       
-
       
48388   81843

     

       
34
       
34
       
-
       
49540   25697

     

       
35
       
35
       
-
       
65666   12373

     

       
36
       
36
       
-
       
45713   16199

     

       
37
       
37
       
-
       
42419   10468

     

       
38
       
38
       
-
       
64757   30375

     

       
39
       
39
       
-
       
58273   43473

     

       
40
       
40
       
-
       
10576   20540

     

       
41
       
41
       
-
       
31508   42210

     

       
42
       
42
       
-
       
21718   52578

     

       
43
       
43
       
-
       
55862   92252

     

       
44
       
44
       
-
       
29892   20716

     

       
45
       
45
       
-
       
35978   50547

     

       
46
       
46
       
-
       
18953   43473

     

       
47
       
47
       
-
       
51379   31038

     

       
48
       
48
       
-
       
16417   83883

     

       
49
       
49
       
-
       
66023   24679

     

       
50
       
50
       
-
       
28031   55268

     

       
51
       
51
       
-
       
69178   45771

     

       
52
       
52
       
-
       
56463   93602

     

       
53
       
53
       
-
       
33368   20147

     

       
54
       
54
       
-
       
16434   43473

     

       
55
       
55
       
-
       
97551   73418

     

       
56
       
56
       
-
       
46904   19198

     

       
57
       
57
       
-
       
25697   60996

     

       
58
       
58
       
-
       
37363   35781

     

       
59
       
59
       
-
       
11282   92252

     

       
60
       
60
       
-
       
35209   72035

     

       
61
       
61
       
-
       
66763   27103

     

       
62
       
62
       
-
       
85271   69322

     

       
63
       
63
       
-
       
33759   94633

     

       
64
       
64
       
-
       
17008   83883

     

       
65
       
65
       
-
       
97073   21870

     

       
66
       
66
       
-
       
24061   55053

     

       
67
       
67
       
-
       
53095   92252

     

       
68
       
68
       
-
       
12374   92762

     

       
69
       
69
       
-
       
25571   51808

     

       
70
       
70
       
-
       
37178   10953

     

       
71
       
71
       
-
       
88710   67938

     

       
72
       
72
       
-
       
64979   48065

     

       
73
       
73
       
-
       
49734   80760

     

       
74
       
74
       
-
       
73780   81067

     

       
75
       
75
       
-
       
55802   37177

     

       
76
       
76
       
-
       
78442   90493

     

       
77
       
77
       
-
       
97220   32178

     

       
78
       
78
       
-
       
39845   25697

     

       
79
       
79
       
-
       
27359   39117

     

       
80
       
80
       
-
       
66371   17473

     

       
81
       
81
       
-
       
50236   82028

     

       
82
       
82
       
-
       
54937   41865

     

       
83
       
83
       
-
       
11989   69107

     

       
84
       
84
       
-
       
61602   78467

     

       
85
       
85
       
-
       
83376   75395

     

       
86
       
86
       
-
       
84545   42210

     

       
87
       
87
       
-
       
24250   55446

     

       
88
       
88
       
-
       
29247   37936

     

       
89
       
89
       
-
       
48897   21653

     

       
90
       
90
       
-
       
89795   26960

     

       
91
       
91
       
-
       
60748   39097

     

       
92
       
92
       
-
       
32745   20716

     

       
93
       
93
       
-
       
66967   43473

     

       
94
       
94
       
-
       
63073   21718

     

       
95
       
95
       
-
       
71949   83590

     

       
96
       
96
       
-
       
30876   83883

     

       
97
       
97
       
-
       
43640   21718

     

       
98
       
98
       
-
       
37703   37133

     

       
99
       
99
       
-
       
19198   43473

     

       
100
       
100
       
-
       
43605   42609

     

       
101
       
101
       
-
       
35757   54910

     

       
102
       
102
       
-
       
20959   23081

     

       
103
       
103
       
-
       
29302   52984

     

       
104
       
104
       
-
       
56530   82308

     

       
105
       
105
       
-
       
95611   42671

     

       
106
       
106
       
-
       
60818   39516

     

       
107
       
107
       
-
       
18302   61539

     

       
108
       
108
       
-
       
25344   25697

     

       
109
       
109
       
-
       
91669   80760

     

       
110
       
110
       
-
       
67090   98098

     

       
111
       
111
       
-
       
44280   59977

     

       
112
       
112
       
-
       
17423   65400

     

       
113
       
113
       
-
       
56952   78467

     

       
114
       
114
       
-
       
23067   72035

     

       
115
       
115
       
-
       
45925   76133

     

       
116
       
116
       
-
       
84963   87050

     

       
117
       
117
       
-
       
29175   32178

     

       
118
       
118
       
-
       
89724   74826

     

       
119
       
119
       
-
       
85282   49648

     

       
120
       
120
       
-
       
86399   77097

     

       
121
       
121
       
-
       
34615   52896

     

       
122
       
122
       
-
       
47895   52578

     

       
123
       
123
       
-
       
68604   72035

     

       
124
       
124
       
-
       
30689   20716

     

       
125
       
125
       
-
       
66582   92521

     

       
126
       
126
       
-
       
72688   76209

     

       
127
       
127
       
-
       
47389   87846

     

       
128
       
128
       
-
       
66229   64769

     

       
129
       
129
       
-
       
32205   70746

     

       
130
       
130
       
-
       
95885   83814

     

       
131
       
131
       
-
       
56440   19941

     

       
132
       
132
       
-
       
87356   21436

     

       
133
       
133
       
-
       
67641   92252

     

       
134
       
134
       
-
       
20678   45960

     

       
135
       
135
       
-
       
31065   75217

     

       
136
       
136
       
-
       
95705   69076

     

       
137
       
137
       
-
       
90463   44022

     

       
138
       
138
       
-
       
51401   36472

     

       
139
       
139
       
-
       
73186   48543

     

       
140
       
140
       
-
       
45910   49551

     

       
141
       
141
       
-
       
26499   84718

     

       
142
       
142
       
-
       
94815   20415

     

       
143
       
143
       
-
       
46840   43473

     

       
144
       
144
       
-
       
47483   94710

     

       
145
       
145
       
-
       
11870   43473

     

       
146
       
146
       
-
       
28799   14080

     

       
147
       
147
       
-
       
24832   79589

     

       
148
       
148
       
-
       
83929   51875

     

       
149
       
149
       
-
       
39407   53253

     

       
150
       
150
       
-
       
73986   62364

     

       
151
       
151
       
-
       
66614   44738

     

       
152
       
152
       
-
       
75392   21277

     

       
153
       
153
       
-
       
70204   55613

     

       
154
       
154
       
-
       
99686   21718

     

       
155
       
155
       
-
       
85726   19198

     

       
156
       
156
       
-
       
47638   92252

     

       
157
       
157
       
-
       
81669   30026

     

       
158
       
158
       
-
       
70370   60748

     

       
159
       
159
       
-
       
53783   11004

     

       
160
       
160
       
-
       
54371   35046

     

       
161
       
161
       
-
       
72567   87098

     

       
162
       
162
       
-
       
87969   32178

     

       
163
       
163
       
-
       
81067   60748

     

       
164
       
164
       
-
       
61446   98023

     

       
165
       
165
       
-
       
76471   92252

     

       
166
       
166
       
-
       
64431   25697

     

       
167
       
167
       
-
       
42080   80760

     

       
168
       
168
       
-
       
14486   13466

     

       
169
       
169
       
-
       
82716   52984

     

       
170
       
170
       
-
       
49351   15539

     

       
171
       
171
       
-
       
36159   15090

     

       
172
       
172
       
-
       
56913   88064

     

       
173
       
173
       
-
       
96843   44738

     

       
174
       
174
       
-
       
66639   89714

     

       
175
       
175
       
-
       
91239   42210

     

       
176
       
176
       
-
       
65785   76459

     

       
177
       
177
       
-
       
49114   86785

     

       
178
       
178
       
-
       
58894   41438

     

       
179
       
179
       
-
       
45307   79589

     

       
180
       
180
       
-
       
38693   80286

     

       
181
       
181
       
-
       
21963   52722

     

       
182
       
182
       
-
       
46504   44738

     

       
183
       
183
       
-
       
22201   84718

     

       
184
       
184
       
-
       
15556   61539

     

       
185
       
185
       
-
       
86120   86377

     

       
186
       
186
       
-
       
21887   81067

     

       
187
       
187
       
-
       
32242   92762

     

       
188
       
188
       
-
       
61544   37648

     

       
189
       
189
       
-
       
29147   73990

     

       
190
       
190
       
-
       
24239   62852

     

       
191
       
191
       
-
       
30163   48652

     

       
192
       
192
       
-
       
95900   83883

     

       
193
       
193
       
-
       
71487   60590

     

       
194
       
194
       
-
       
69076   47403

     

       
195
       
195
       
-
       
68557   70174

     

       
196
       
196
       
-
       
80423   85726

     

       
197
       
197
       
-
       
92873   10245

     

       
198
       
198
       
-
       
59391   87955

     

       
199
       
199
       
-
       
15416   80760

     

       
200
       
200
       
-
       
90803   70939

     

       
201
       
201
       
-
       
25081   81067

     

       
202
       
202
       
-
       
10323   46564

     

       
203
       
203
       
-
       
75418   60748

     

       
204
       
204
       
-
       
92762   43409

     

       
205
       
205
       
-
       
32178   20716

     

       
206
       
206
       
-
       
72035   25025

     

       
207
       
207
       
-
       
30702   11797

     

       
208
       
208
       
-
       
70262   20843

     

       
209
       
209
       
-
       
10801   60970

     

       
210
       
210
       
-
       
69510   56933

     

       
211
       
211
       
-
       
38295   27487

     

       
212
       
212
       
-
       
57266   71215

     

       
213
       
213
       
-
       
39071   92542

     

       
214
       
214
       
-
       
20540   21718

     

       
215
       
215
       
-
       
57027   81151

     

       
216
       
216
       
-
       
77729   90745

     

       
217
       
217
       
-
       
96980   28442

     

       
218
       
218
       
-
       
65961   19198

     

       
219
       
219
       
-
       
55385   82179

     

       
220
       
220
       
-
       
86139   91952

     

       
221
       
221
       
-
       
72873   61041

     

       
222
       
222
       
-
       
95457   44738

     

       
223
       
223
       
-
       
84209   83883

     

       
224
       
224
       
-
       
93774   92762

     

       
225
       
225
       
-
       
67731   14982

     

       
226
       
226
       
-
       
81176   26473

     

       
227
       
227
       
-
       
50239   13336

     

       
228
       
228
       
-
       
74772   81067

     

       
229
       
229
       
-
       
91982   80690

     

       
230
       
230
       
-
       
40004   89466

     

       
231
       
231
       
-
       
52769   72035

     

       
232
       
232
       
-
       
40693   42210

     

       
233
       
233
       
-
       
50506   26856

     

       
234
       
234
       
-
       
71898   68597

     

       
235
       
235
       
-
       
99210   32178

     

       
236
       
236
       
-
       
45079   53505

     

       
237
       
237
       
-
       
17581   94678

     

       
238
       
238
       
-
       
83211   28309

     

       
239
       
239
       
-
       
52582   50257

     

       
240
       
240
       
-
       
62597   92762

     

       
241
       
241
       
-
       
20716   38593

     

       
242
       
242
       
-
       
18630   73077

     

       
243
       
243
       
-
       
20835   30809

     

       
244
       
244
       
-
       
75099   18088

     

       
245
       
245
       
-
       
56109   42210

     

       
246
       
246
       
-
       
31503   72884

     

       
247
       
247
       
-
       
60392   83711

     

       
248
       
248
       
-
       
26052   17008

     

       
249
       
249
       
-
       
49938   20540

     

       
250
       
250
       
-
       
16604   85679

     

       
251
       
251
       
-
       
94700   29256

     

       
252
       
252
       
-
       
52740   69859

     

       
253
       
253
       
-
       
84337   25174

     

       
254
       
254
       
-
       
46814   64723

     

       
255
       
255
       
-
       
68259   34542

     

       
256
       
256
       
-
       
79927   18036

     

       
257
       
257
       
-
       
57010   78467

     

       
258
       
258
       
-
       
73378   90472

     

       
259
       
259
       
-
       
83131   30214

     

       
260
       
260
       
-
       
84704   37648

     

       
261
       
261
       
-
       
36494   40475

     

       
262
       
262
       
-
       
43734   90827

     

       
263
       
263
       
-
       
85678   61539

     

       
264
       
264
       
-
       
65197   81067

     

       
265
       
265
       
-
       
80121   24363

     

       
266
       
266
       
-
       
97038   85579

     

       
267
       
267
       
-
       
59873   72035

     

       
268
       
268
       
-
       
54928   17827

     

       
269
       
269
       
-
       
46120   33920

     

       
270
       
270
       
-
       
68979   32133

     

       
271
       
271
       
-
       
88690   90929

     

       
272
       
272
       
-
       
38840   92762

     

       
273
       
273
       
-
       
66900   67817

     

       
274
       
274
       
-
       
59182   85839

     

       
275
       
275
       
-
       
15538   81151

     

       
276
       
276
       
-
       
60198   54586

     

       
277
       
277
       
-
       
57452   71692

     

       
278
       
278
       
-
       
12212   79875

     

       
279
       
279
       
-
       
62853   67888

     

       
280
       
280
       
-
       
67754   53532

     

       
281
       
281
       
-
       
86454   52984

     

       
282
       
282
       
-
       
94629   92403

     

       
283
       
283
       
-
       
80986   30351

     

       
284
       
284
       
-
       
76966   77097

     

       
285
       
285
       
-
       
78419   92762

     

       
286
       
286
       
-
       
12343   20540

     

       
287
       
287
       
-
       
26294   75804

     

       
288
       
288
       
-
       
18240   23339

     

       
289
       
289
       
-
       
72971   58631

     

       
290
       
290
       
-
       
69610   81067

     

       
291
       
291
       
-
       
96198   31081

     

       
292
       
292
       
-
       
25389   13525

     

       
293
       
293
       
-
       
29670   76459

     

       
294
       
294
       
-
       
39477   79589

     

       
295
       
295
       
-
       
58028   21718

     

       
296
       
296
       
-
       
77097   27842

     

       
297
       
297
       
-
       
95031   78097

     

       
298
       
298
       
-
       
32844   43989

     

       
299
       
299
       
-
       
12618   96437

     

       
300
       
300
       
-
       
82959   43688

     

       
301
       
301
       
-
       
40438   20716

     

       
302
       
302
       
-
       
58980   80760

     

       
303
       
303
       
-
       
26176   39610

     

       
304
       
304
       
-
       
81464   24846

     

       
305
       
305
       
-
       
31997   35781

     

       
306
       
306
       
-
       
82384   83883

     

       
307
       
307
       
-
       
54010   20844

     

       
308
       
308
       
-
       
63959   45452

     

       
309
       
309
       
-
       
43239   16738

     

       
310
       
310
       
-
       
45375   87524

     

       
311
       
311
       
-
       
36278   95715

     

       
312
       
312
       
-
       
96601   80760

     

       
313
       
313
       
-
       
82935   27550

     

       
314
       
314
       
-
       
13493   58808

     

       
315
       
315
       
-
       
17988   92762

     

       
316
       
316
       
-
       
59523   67650

     

       
317
       
317
       
-
       
69133   44178

     

       
318
       
318
       
-
       
59959   77097

     

       
319
       
319
       
-
       
89068   20843

     

       
320
       
320
       
-
       
31067   36430

     

       
321
       
321
       
-
       
55300   23059

     

       
322
       
322
       
-
       
36759   48277

     

       
323
       
323
       
-
       
91317   46947

     

       
324
       
324
       
-
       
58240   85726

     

       
325
       
325
       
-
       
22368   92356

     

       
326
       
326
       
-
       
60765   84751

     

       
327
       
327
       
-
       
72733   26888

     

       
328
       
328
       
-
       
19688   62073

     

       
329
       
329
       
-
       
90158   57933

     

       
330
       
330
       
-
       
11176   28442

     

       
331
       
331
       
-
       
53051   50769

     

       
332
       
332
       
-
       
76632   97012

     

       
333
       
333
       
-
       
98132   80760

     

       
334
       
334
       
-
       
73098   83281

     

       
335
       
335
       
-
       
46753   25697

     

       
336
       
336
       
-
       
44849   15301

     

       
337
       
337
       
-
       
62899   74187

     

       
338
       
338
       
-
       
71237   81067

     

       
339
       
339
       
-
       
56670   20649

     

       
340
       
340
       
-
       
18624   82808

     

       
341
       
341
       
-
       
32614   34732

     

       
342
       
342
       
-
       
98452   76464

     

       
343
       
343
       
-
       
51626   35781

     

       
344
       
344
       
-
       
55943   89986

     

       
345
       
345
       
-
       
59443   72035

     

       
346
       
346
       
-
       
96628   73132

     

       
347
       
347
       
-
       
77928   45659

     

       
348
       
348
       
-
       
76256   74161

     

       
349
       
349
       
-
       
13944   94048

     

       
350
       
350
       
-
       
12446   20843

     

       
351
       
351
       
-
       
70331   46956

     

       
352
       
352
       
-
       
46097   39097

     

       
353
       
353
       
-
       
46415   83883

     

       
354
       
354
       
-
       
29460   44307

     

       
355
       
355
       
-
       
73685   89046

     

       
356
       
356
       
-
       
53969   52578

     

       
357
       
357
       
-
       
82435   40606

     

       
358
       
358
       
-
       
65769   45167

     

       
359
       
359
       
-
       
89700   50621

     

       
360
       
360
       
-
       
80281   43473

     

       
361
       
361
       
-
       
97402   60748

     

       
362
       
362
       
-
       
11127   87361

     

       
363
       
363
       
-
       
50692   60748

     

       
364
       
364
       
-
       
43989   61539

     

       
365
       
365
       
-
       
40319   11156

     

       
366
       
366
       
-
       
85446   71698

     

       
367
       
367
       
-
       
58820   89274

     

       
368
       
368
       
-
       
77545   80760

     

       
369
       
369
       
-
       
34103   37577

     

       
370
       
370
       
-
       
83858   33573

     

       
371
       
371
       
-
       
23402   61991

     

       
372
       
372
       
-
       
82147   48488

     

       
373
       
373
       
-
       
15719   80760

     

       
374
       
374
       
-
       
16987   22112

     

       
375
       
375
       
-
       
41519   29897

     

       
376
       
376
       
-
       
29178   47932

     

       
377
       
377
       
-
       
92027   25765

     

       
378
       
378
       
-
       
92998   92252

     

       
379
       
379
       
-
       
52103   77097

     

       
380
       
380
       
-
       
64962   32490

     

       
381
       
381
       
-
       
81888   29503

     

       
382
       
382
       
-
       
92252   57018

     

       
383
       
383
       
-
       
88397   32178

     

       
384
       
384
       
-
       
13852   89473

     

       
385
       
385
       
-
       
73603   20540

     

       
386
       
386
       
-
       
95704   32178

     

       
387
       
387
       
-
       
36045   46227

     

       
388
       
388
       
-
       
38834   72035

     

       
389
       
389
       
-
       
85241   60748

     

       
390
       
390
       
-
       
94036   77097

     

       
391
       
391
       
-
       
90984   92762

     

       
392
       
392
       
-
       
44738   44738

     

       
393
       
393
       
-
       
48078   76459

     

       
394
       
394
       
-
       
40832   24578

     

       
395
       
395
       
-
       
78789   78634

     

       
396
       
396
       
-
       
42210   92252

     

       
397
       
397
       
-
       
16967   61124

     

       
398
       
398
       
-
       
76704   65696

     

       
399
       
399
       
-
       
69647   51055

     

       
400
       
400
       
-
       
41412   35781

     

       
401
       
401
       
-
       
50365   63580

     

       
402
       
402
       
-
       
33725   79129

     

       
403
       
403
       
-
       
90837   17116

     

       
404
       
404
       
-
       
25000   52578

     

       
405
       
405
       
-
       
55672   81986

     

       
406
       
406
       
-
       
50507   73820

     

       
407
       
407
       
-
       
82260   92762

     

       
408
       
408
       
-
       
58284   33808

     

       
409
       
409
       
-
       
79462   43473

     

       
410
       
410
       
-
       
76384   23808

     

       
411
       
411
       
-
       
49652   81151

     

       
412
       
412
       
-
       
24386   44424

     

       
413
       
413
       
-
       
76993   77003

     

       
414
       
414
       
-
       
11077   79166

     

       
415
       
415
       
-
       
58255   43047

     

       
416
       
416
       
-
       
81122   28757

     

       
417
       
417
       
-
       
63846   30206

     

       
418
       
418
       
-
       
69361   76459

     

       
419
       
419
       
-
       
19338   35781

     

       
420
       
420
       
-
       
28857   37648

     

       
421
       
421
       
-
       
33643   89353

     

       
422
       
422
       
-
       
61915   52984

     

       
423
       
423
       
-
       
54227   18855

     

       
424
       
424
       
-
       
16162   92252

     

       
425
       
425
       
-
       
21546   60184

     

       
426
       
426
       
-
       
15120   61012

     

       
427
       
427
       
-
       
63185   68250

     

       
428
       
428
       
-
       
44681   89512

     

       
429
       
429
       
-
       
25644   80760

     

       
430
       
430
       
-
       
12963   42210

     

       
431
       
431
       
-
       
41952   17962

     

       
432
       
432
       
-
       
46649   89796

     

       
433
       
433
       
-
       
46412   68405

     

       
434
       
434
       
-
       
32401   61539

     

       
435
       
435
       
-
       
81393   20540

     

       
436
       
436
       
-
       
13678   78467

     

       
437
       
437
       
-
       
68025   99213

     

       
438
       
438
       
-
       
27934   35781

     

       
439
       
439
       
-
       
91794   61539

     

       
440
       
440
       
-
       
98970   71396

     

       
441
       
441
       
-
       
18314   69562

     

       
442
       
442
       
-
       
19908   97620

     

       
443
       
443
       
-
       
69828   60768

     

       
444
       
444
       
-
       
89139   36928

     

       
445
       
445
       
-
       
71402   25697

     

       
446
       
446
       
-
       
64070   32178

     

       
447
       
447
       
-
       
55145   38138

     

       
448
       
448
       
-
       
65851   25697

     

       
449
       
449
       
-
       
98808   67787

     

       
450
       
450
       
-
       
57244   21718

     

       
451
       
451
       
-
       
18541   79589

     

       
452
       
452
       
-
       
88135   84731

     

       
453
       
453
       
-
       
77694   61539

     

       
454
       
454
       
-
       
52608   83313

     

       
455
       
455
       
-
       
67204   91715

     

       
456
       
456
       
-
       
47233   39097

     

       
457
       
457
       
-
       
99317   37648

     

       
458
       
458
       
-
       
84111   30506

     

       
459
       
459
       
-
       
71316   39097

     

       
460
       
460
       
-
       
24604   61539

     

       
461
       
461
       
-
       
28504   58867

     

       
462
       
462
       
-
       
64952   35781

     

       
463
       
463
       
-
       
72718   43275

     

       
464
       
464
       
-
       
55834   44738

     

       
465
       
465
       
-
       
30446   92252

     

       
466
       
466
       
-
       
37415   29159

     

       
467
       
467
       
-
       
41743   78467

     

       
468
       
468
       
-
       
26267   59675

     

       
469
       
469
       
-
       
33658   11262

     

       
470
       
470
       
-
       
50677   44738

     

       
471
       
471
       
-
       
71609   78322

     

       
472
       
472
       
-
       
26047   52977

     

       
473
       
473
       
-
       
31723   21718

     

       
474
       
474
       
-
       
44390   72035

     

       
475
       
475
       
-
       
53788   89828

     

       
476
       
476
       
-
       
84829   60748

     

       
477
       
477
       
-
       
57972   32178

     

       
478
       
478
       
-
       
93241   27703

     

       
479
       
479
       
-
       
38576   20540

     

       
480
       
480
       
-
       
44958   84718

     

       
481
       
481
       
-
       
94256   47639

     

       
482
       
482
       
-
       
41263   85109

     

       
483
       
483
       
-
       
75946   67054

     

       
484
       
484
       
-
       
20333   77097

     

       
485
       
485
       
-
       
55509   95680

     

       
486
       
486
       
-
       
39858   40117

     

       
487
       
487
       
-
       
88032   21718

     

       
488
       
488
       
-
       
98778   76619

     

       
489
       
489
       
-
       
89995   18411

     

       
490
       
490
       
-
       
28456   62071

     

       
491
       
491
       
-
       
61789   72035

     

       
492
       
492
       
-
       
78073   70754

     

       
493
       
493
       
-
       
77073   31065

     

       
494
       
494
       
-
       
86999   21718

     

       
495
       
495
       
-
       
42298   40782

     

       
496
       
496
       
-
       
50995   43473

     

       
497
       
497
       
-
       
32947   20843

     

       
498
       
498
       
-
       
40617   22994

     

       
499
       
499
       
-
       
84633   40716

     

       
500
       
500
       
-
       
19900   28627

     

       
501
       
501
       
-
       
17816   68538

     

       
502
       
502
       
-
       
32530   25156

     

       
503
       
503
       
-
       
17673   77097

     

       
504
       
504
       
-
       
38208   77097

     

       
505
       
505
       
-
       
54880   78467

     

       
506
       
506
       
-
       
10746   36942

     

       
507
       
507
       
-
       
36110   23213

     

       
508
       
508
       
-
       
80179   61360

     

       
509
       
509
       
-
       
55819   35781

     

       
510
       
510
       
-
       
28442   79589

     

       
511
       
511
       
-
       
88289   92066

     

       
512
       
512
       
-
       
83346   28171

     

       
513
       
513
       
-
       
37597   74543

     

       
514
       
514
       
-
       
45978   84718

     

       
515
       
515
       
-
       
52946   28442

     

       
516
       
516
       
-
       
64609   92762

     

       
517
       
517
       
-
       
24593   39097

     

       
518
       
518
       
-
       
92409   92252

     

       
519
       
519
       
-
       
60718   60223

     

       
520
       
520
       
-
       
26498   70229

     

       
521
       
521
       
-
       
14277   35781

     

       
522
       
522
       
-
       
90961   79589

     

       
523
       
523
       
-
       
19915   79965

     

       
524
       
524
       
-
       
68301   14227

     

       
525
       
525
       
-
       
56321   80760

     

       
526
       
526
       
-
       
15922   67051

     

       
527
       
527
       
-
       
80444   72035

     

       
528
       
528
       
-
       
49913   39097

     

       
529
       
529
       
-
       
97519   83883

     

       
530
       
530
       
-
       
81867   76459

     

       
531
       
531
       
-
       
72049   32178

     

       
532
       
532
       
-
       
98003   81151

     

       
533
       
533
       
-
       
29774   84718

     

       
534
       
534
       
-
       
83596   92936

     

       
535
       
535
       
-
       
65711   41869

     

       
536
       
536
       
-
       
94799   72035

     

       
537
       
537
       
-
       
52228   74833

     

       
538
       
538
       
-
       
35681   15295

     

       
539
       
539
       
-
       
86161   47398

     

       
540
       
540
       
-
       
99764   44738

     

       
541
       
541
       
-
       
13342   66763

     

       
542
       
542
       
-
       
19557   41667

     

       
543
       
543
       
-
       
85701   24392

     

       
544
       
544
       
-
       
67265   54679

     

       
545
       
545
       
-
       
24579   60748

     

       
546
       
546
       
-
       
99212   72720

     

       
547
       
547
       
-
       
11279   20540

     

       
548
       
548
       
-
       
81879   36662

     

       
549
       
549
       
-
       
42791   12924

     

       
550
       
550
       
-
       
98914   75630

     

       
551
       
551
       
-
       
29879   52984

     

       
552
       
552
       
-
       
87696   69076

     

       
553
       
553
       
-
       
54212   32065

     

       
554
       
554
       
-
       
30014   76459

     

       
555
       
555
       
-
       
43433   64434

     

       
556
       
556
       
-
       
31827   43749

     

       
557
       
557
       
-
       
27323   32614

     

       
558
       
558
       
-
       
47887   78467

     

       
559
       
559
       
-
       
12778   90971

     

       
560
       
560
       
-
       
38504   25697

     

       
561
       
561
       
-
       
11985   12152

     

       
562
       
562
       
-
       
88281   32178

     

       
563
       
563
       
-
       
60313   18405

     

       
564
       
564
       
-
       
84487   44738

     

       
565
       
565
       
-
       
10753   76459

     

       
566
       
566
       
-
       
11349   59672

     

       
567
       
567
       
-
       
58532   69076

     

       
568
       
568
       
-
       
37463   81151

     

       
569
       
569
       
-
       
74158   17588

     

       
570
       
570
       
-
       
47713   16319

     

       
571
       
571
       
-
       
52617   99026

     

       
572
       
572
       
-
       
75642   54241

     

       
573
       
573
       
-
       
86070   84718

     

       
574
       
574
       
-
       
89264   68926

     

       
575
       
575
       
-
       
13839   84718

     

       
576
       
576
       
-
       
16425   22018

     

       
577
       
577
       
-
       
15973   35781

     

       
578
       
578
       
-
       
97324   39267

     

       
579
       
579
       
-
       
74858   93659

     

       
580
       
580
       
-
       
30114   82028

     

       
581
       
581
       
-
       
91599   92765

     

       
582
       
582
       
-
       
47093   37648

     

       
583
       
583
       
-
       
50285   60748

     

       
584
       
584
       
-
       
14846   15314

     

       
585
       
585
       
-
       
89741   83883

     

       
586
       
586
       
-
       
27133   42151

     

       
587
       
587
       
-
       
38409   39097

     

       
588
       
588
       
-
       
34370   60748

     

       
589
       
589
       
-
       
43982   69423

     

       
590
       
590
       
-
       
22858   20843

     

       
591
       
591
       
-
       
57345   34197

     

       
592
       
592
       
-
       
40807   61764

     

       
593
       
593
       
-
       
75561   28363

     

       
594
       
594
       
-
       
14111   34713

     

       
595
       
595
       
-
       
49442   81067

     

       
596
       
596
       
-
       
61122   53151

     

       
597
       
597
       
-
       
97636   25131

     

       
598
       
598
       
-
       
43772   25697

     

       
599
       
599
       
-
       
55030   83358

     

       
600
       
600
       
-
       
52741   23263

     

       
601
       
601
       
-
       
74578   81559

     

       
602
       
602
       
-
       
50656   34834

     

       
603
       
603
       
-
       
62586   23884

     

       
604
       
604
       
-
       
99380   73924

     

       
605
       
605
       
-
       
41885   46691

     

       
606
       
606
       
-
       
95691   23340

     

       
607
       
607
       
-
       
68929   18409

     

       
608
       
608
       
-
       
32180   25515

     

       
609
       
609
       
-
       
27880   69609

     

       
610
       
610
       
-
       
15658   25697

     

       
611
       
611
       
-
       
40225   76459

     

       
612
       
612
       
-
       
54028   95026

     

       
613
       
613
       
-
       
51248   83206

     

       
614
       
614
       
-
       
55585   44495

     

       
615
       
615
       
-
       
34730   36987

     

       
616
       
616
       
-
       
72713   43473

     

       
617
       
617
       
-
       
48744   43473

     

       
618
       
618
       
-
       
50628   44738

     

       
619
       
619
       
-
       
66099   81067

     

       
620
       
620
       
-
       
84471   82826

     

       
621
       
621
       
-
       
74726   43646

     

       
622
       
622
       
-
       
63777   80760

     

       
623
       
623
       
-
       
38782   10687

     

       
624
       
624
       
-
       
62565   32178

     

       
625
       
625
       
-
       
30082   36088

     

       
626
       
626
       
-
       
66224   25697

     

       
627
       
627
       
-
       
17798   39097

     

       
628
       
628
       
-
       
65148   37648

     

       
629
       
629
       
-
       
50731   66803

     

       
630
       
630
       
-
       
60010   16037

     

       
631
       
631
       
-
       
71057   20540

     

       
632
       
632
       
-
       
79087   47464

     

       
633
       
633
       
-
       
63666   37648

     

       
634
       
634
       
-
       
61860   74023

     

       
635
       
635
       
-
       
46372   33274

     

       
636
       
636
       
-
       
40076   97575

     

       
637
       
637
       
-
       
81205   25697

     

       
638
       
638
       
-
       
29232   48419

     

       
639
       
639
       
-
       
91161   25173

     

       
640
       
640
       
-
       
80675   51474

     

       
641
       
641
       
-
       
45465   75816

     

       
642
       
642
       
-
       
80432   80760

     

       
643
       
643
       
-
       
84712   73906

     

       
644
       
644
       
-
       
32924   96322

     

       
645
       
645
       
-
       
27386   25697

     

       
646
       
646
       
-
       
35781   80760

     

       
647
       
647
       
-
       
28248   77822

     

       
648
       
648
       
-
       
33634   48276

     

       
649
       
649
       
-
       
93878   48409

     

       
650
       
650
       
-
       
26858   59450

     

       
651
       
651
       
-
       
63868   42103

     

       
652
       
652
       
-
       
94063   13352

     

       
653
       
653
       
-
       
26657   52984

     

       
654
       
654
       
-
       
65635   92762

     

       
655
       
655
       
-
       
47508   11445

     

       
656
       
656
       
-
       
87138   83597

     

       
657
       
657
       
-
       
33328   62612

     

       
658
       
658
       
-
       
70031   85726

     

       
659
       
659
       
-
       
81151   23518

     

       
660
       
660
       
-
       
42263   32662

     

       
661
       
661
       
-
       
85424   71871

     

       
662
       
662
       
-
       
21504   72035

     

       
663
       
663
       
-
       
76646   90060

     

       
664
       
664
       
-
       
36770   31991

     

       
665
       
665
       
-
       
76459   43473

     

       
666
       
666
       
-
       
58215   44495

     

       
667
       
667
       
-
       
20418   86232

     

       
668
       
668
       
-
       
68543   81067

     

       
669
       
669
       
-
       
71082   52984

     

       
670
       
670
       
-
       
24484   86494

     

       
671
       
671
       
-
       
70941   98749

     

       
672
       
672
       
-
       
71613   24014

     

       
673
       
673
       
-
       
98938   35781

     

       
674
       
674
       
-
       
42671   25697

     

       
675
       
675
       
-
       
11798   25697

     

       
676
       
676
       
-
       
55015   81601

     

       
677
       
677
       
-
       
92532   78131

     

       
678
       
678
       
-
       
10415   43260

     

       
679
       
679
       
-
       
89920   11599

     

       
680
       
680
       
-
       
36610   30402

     

       
681
       
681
       
-
       
11196   46252

     

       
682
       
682
       
-
       
61243   80760

     

       
683
       
683
       
-
       
47794   15435

     

       
684
       
684
       
-
       
10054   40848

     

       
685
       
685
       
-
       
90743   52578

     

       
686
       
686
       
-
       
12980   92252

     

       
687
       
687
       
-
       
43206   92762

     

       
688
       
688
       
-
       
23376   69724

     

       
689
       
689
       
-
       
45693   77097

     

       
690
       
690
       
-
       
79629   70562

     

       
691
       
691
       
-
       
69524   20540

     

       
692
       
692
       
-
       
30811   48749

     

       
693
       
693
       
-
       
76688   51485

     

       
694
       
694
       
-
       
50584   77097

     

       
695
       
695
       
-
       
46173   35918

     

       
696
       
696
       
-
       
22138   92762

     

       
697
       
697
       
-
       
98933   52984

     

       
698
       
698
       
-
       
55451   42210

     

       
699
       
699
       
-
       
97723   34368

     

       
700
       
700
       
-
       
39097   60748

     

       
701
       
701
       
-
       
29080   78467

     

       
702
       
702
       
-
       
58962   78467

     

       
703
       
703
       
-
       
71265   13782

     

       
704
       
704
       
-
       
14559   20716

     

       
705
       
705
       
-
       
14366   20540

     

       
706
       
706
       
-
       
68344   72035

     

       
707
       
707
       
-
       
48432   88048

     

       
708
       
708
       
-
       
38005   43473

     

       
709
       
709
       
-
       
85989   93533

     

       
710
       
710
       
-
       
98422   83883

     

       
711
       
711
       
-
       
20685   80045

     

       
712
       
712
       
-
       
69814   72035

     

       
713
       
713
       
-
       
11356   28819

     

       
714
       
714
       
-
       
39329   20843

     

       
715
       
715
       
-
       
52898   19198

     

       
716
       
716
       
-
       
43135   25697

     

       
717
       
717
       
-
       
20409   25697

     

       
718
       
718
       
-
       
52446   34899

     

       
719
       
719
       
-
       
63515   84718

     

       
720
       
720
       
-
       
19371   20540

     

       
721
       
721
       
-
       
16430   20540

     

       
722
       
722
       
-
       
45803   74304

     

       
723
       
723
       
-
       
66092   33425

     

       
724
       
724
       
-
       
80760   95646

     

       
725
       
725
       
-
       
64945   37648

     

       
726
       
726
       
-
       
43951   78467

     

       
727
       
727
       
-
       
87271   17766

     

       
728
       
728
       
-
       
91354   75924

     

       
729
       
729
       
-
       
32506   37648

     

       
730
       
730
       
-
       
15452   79052

     

       
731
       
731
       
-
       
87783   42991

     

       
732
       
732
       
-
       
90937   75439

     

       
733
       
733
       
-
       
68208   97868

     

       
734
       
734
       
-
       
91228   92252

     

       
735
       
735
       
-
       
35773   92762

     

       
736
       
736
       
-
       
74252   32178

     

       
737
       
737
       
-
       
96573   74280

     

       
738
       
738
       
-
       
29447   31544

     

       
739
       
739
       
-
       
61206   62085

     

       
740
       
740
       
-
       
75242   75894

     

       
741
       
741
       
-
       
76850   77838

     

       
742
       
742
       
-
       
22095   24247

     

       
743
       
743
       
-
       
78467   55285

     

       
744
       
744
       
-
       
27611   20540

     

       
745
       
745
       
-
       
18974   84363

     

       
746
       
746
       
-
       
74621   83883

     

       
747
       
747
       
-
       
19469   19323

     

       
748
       
748
       
-
       
26785   25697

     

       
749
       
749
       
-
       
99803   77726

     

       
750
       
750
       
-
       
96042   21449

     

       
751
       
751
       
-
       
61772   39950

     

       
752
       
752
       
-
       
21746   79309

     

       
753
       
753
       
-
       
44817   14075

     

       
754
       
754
       
-
       
65817   54251

     

       
755
       
755
       
-
       
90360   84880

     

       
756
       
756
       
-
       
40529   83883

     

       
757
       
757
       
-
       
63336   62916

     

       
758
       
758
       
-
       
57489   39191

     

       
759
       
759
       
-
       
41980   76639

     

       
760
       
760
       
-
       
61947   69076

     

       
761
       
761
       
-
       
72393   92252

     

       
762
       
762
       
-
       
72994   20540

     

       
763
       
763
       
-
       
38393   42671

     

       
764
       
764
       
-
       
61264   25490

     

       
765
       
765
       
-
       
28725   27770

     

       
766
       
766
       
-
       
68461   83883

     

       
767
       
767
       
-
       
68050   19198

     

       
768
       
768
       
-
       
97146   44738

     

       
769
       
769
       
-
       
13195   32178

     

       
770
       
770
       
-
       
48395   14399

     

       
771
       
771
       
-
       
55269   12291

     

       
772
       
772
       
-
       
43616   62312

     

       
773
       
773
       
-
       
76357   19177

     

       
774
       
774
       
-
       
50496   55565

     

       
775
       
775
       
-
       
97083   24002

     

       
776
       
776
       
-
       
32806   69076

     

       
777
       
777
       
-
       
71713   47157

     

       
778
       
778
       
-
       
91635   92762

     

       
779
       
779
       
-
       
23121   20540

     

       
780
       
780
       
-
       
27917   92762

     

       
781
       
781
       
-
       
61595   77858

     

       
782
       
782
       
-
       
96038   78467

     

       
783
       
783
       
-
       
51300   30664

     

       
784
       
784
       
-
       
99332   39795

     

       
785
       
785
       
-
       
49914   33272

     

       
786
       
786
       
-
       
87083   54823

     

       
787
       
787
       
-
       
39253   99039

     

       
788
       
788
       
-
       
98686   23548

     

       
789
       
789
       
-
       
63961   20540

     

       
790
       
790
       
-
       
76429   42671

     

       
791
       
791
       
-
       
84657   78621

     

       
792
       
792
       
-
       
18867   58861

     

       
793
       
793
       
-
       
28534   92703

     

       
794
       
794
       
-
       
20843   72035

     

       
795
       
795
       
-
       
40011   42210

     

       
796
       
796
       
-
       
28716   35781

     

       
797
       
797
       
-
       
64363   94627

     

       
798
       
798
       
-
       
41215   39358

     

       
799
       
799
       
-
       
74285   77374

     

       
800
       
800
       
-
       
37245   20843

     

       
801
       
801
       
-
       
53602   35781

     

       
802
       
802
       
-
       
73935   90042

     

       
803
       
803
       
-
       
35283   25697

     

       
804
       
804
       
-
       
84164   92252

     

       
805
       
805
       
-
       
26264   19198

     

       
806
       
806
       
-
       
49434   92252

     

       
807
       
807
       
-
       
67281   76459

     

       
808
       
808
       
-
       
47315   37648

     

       
809
       
809
       
-
       
21216   70552

     

       
810
       
810
       
-
       
57730   44738

     

       
811
       
811
       
-
       
55530   83883

     

       
812
       
812
       
-
       
23807   60687

     

       
813
       
813
       
-
       
79378   65500

     

       
814
       
814
       
-
       
81270   19442

     

       
815
       
815
       
-
       
89580   78935

     

       
816
       
816
       
-
       
81287   76459

     

       
817
       
817
       
-
       
37987   82563

     

       
818
       
818
       
-
       
29721   71638

     

       
819
       
819
       
-
       
76282   93445

     

       
820
       
820
       
-
       
82973   44738

     

       
821
       
821
       
-
       
43095   76459

     

       
822
       
822
       
-
       
57911   42481

     

       
823
       
823
       
-
       
15665   30034

     

       
824
       
824
       
-
       
97099   20843

     

       
825
       
825
       
-
       
77440   61539

     

       
826
       
826
       
-
       
61564   40937

     

       
827
       
827
       
-
       
38697   50046

     

       
828
       
828
       
-
       
91585   71537

     

       
829
       
829
       
-
       
66058   44507

     

       
830
       
830
       
-
       
96221   92762

     

       
831
       
831
       
-
       
80464   31623

     

       
832
       
832
       
-
       
52031   88911

     

       
833
       
833
       
-
       
74599   81151

     

       
834
       
834
       
-
       
44495   81151

     

       
835
       
835
       
-
       
37781   50336

     

       
836
       
836
       
-
       
42333   92252

     

       
837
       
837
       
-
       
25393   37648

     

       
838
       
838
       
-
       
31875   40879

     

       
839
       
839
       
-
       
25513   60748

     

       
840
       
840
       
-
       
52578   20540

     

       
841
       
841
       
-
       
83883   67476

     

       
842
       
842
       
-
       
13961   80760

     

       
843
       
843
       
-
       
86512   72429

     

       
844
       
844
       
-
       
52957   37648

     

       
845
       
845
       
-
       
70656   20843

     

       
846
       
846
       
-
       
32267   78467

     

       
847
       
847
       
-
       
67751   23702

     

       
848
       
848
       
-
       
83650   76459

     

       
849
       
849
       
-
       
11249   44738

     

       
850
       
850
       
-
       
82052   44240

     

       
851
       
851
       
-
       
60178   19059

     

       
852
       
852
       
-
       
78052   80760

     

       
853
       
853
       
-
       
92063   42210

     

       
854
       
854
       
-
       
47149   42671

     

       
855
       
855
       
-
       
82429   61080

     

       
856
       
856
       
-
       
24749   68627

     

       
857
       
857
       
-
       
26862   32614

     

       
858
       
858
       
-
       
77843   56271

     

       
859
       
859
       
-
       
24471   41563

     

       
860
       
860
       
-
       
15084   62867

     

       
861
       
861
       
-
       
15444   43417

     

       
862
       
862
       
-
       
15492   61539

     

       
863
       
863
       
-
       
22651   80760

     

       
864
       
864
       
-
       
62625   21763

     

       
865
       
865
       
-
       
49448   48757

     

       
866
       
866
       
-
       
47125   36097

     

       
867
       
867
       
-
       
45650   21134

     

       
868
       
868
       
-
       
76382   40592

     

       
869
       
869
       
-
       
28236   81067

     

       
870
       
870
       
-
       
24712   28270

     

       
871
       
871
       
-
       
26908   63823

     

       
872
       
872
       
-
       
51661   92252

     

       
873
       
873
       
-
       
33112   54575

     

       
874
       
874
       
-
       
59018   52984

     

       
875
       
875
       
-
       
12648   35781

     

       
876
       
876
       
-
       
47726   76268

     

       
877
       
877
       
-
       
16833   15099

     

       
878
       
878
       
-
       
17720   24491

     

       
879
       
879
       
-
       
64016   31467

     

       
880
       
880
       
-
       
62900   37648

     

       
881
       
881
       
-
       
66411   97080

     

       
882
       
882
       
-
       
47653   32178

     

       
883
       
883
       
-
       
78845   16864

     

       
884
       
884
       
-
       
98508   26852

     

       
885
       
885
       
-
       
83446   10379

     

       
886
       
886
       
-
       
50837   40936

     

       
887
       
887
       
-
       
85485   63694

     

       
888
       
888
       
-
       
41709   37648

     

       
889
       
889
       
-
       
84178   28689

     

       
890
       
890
       
-
       
27821   57472

     

       
891
       
891
       
-
       
89199   43473

     

       
892
       
892
       
-
       
95089   43852

     

       
893
       
893
       
-
       
80677   20716

     

       
894
       
894
       
-
       
84551   20125

     

       
895
       
895
       
-
       
84718   11853

     

       
896
       
896
       
-
       
14520   20843

     

       
897
       
897
       
-
       
61473   92762

     

       
898
       
898
       
-
       
69357   37320

     

       
899
       
899
       
-
       
36592   24917

     

       
900
       
900
       
-
       
88660   35781

     

       
901
       
901
       
-
       
92407   20540

     

       
902
       
902
       
-
       
17708   20540

     

       
903
       
903
       
-
       
27217   12607

     

       
904
       
904
       
-
       
51540   44495

     

       
905
       
905
       
-
       
93978   77706

     

       
906
       
906
       
-
       
83790   34181

     

       
907
       
907
       
-
       
46160   69737

     

       
908
       
908
       
-
       
21508   54282

     

       
909
       
909
       
-
       
20593   84718

     

       
910
       
910
       
-
       
12368   38902

     

       
911
       
911
       
-
       
46760   16081

     

       
912
       
912
       
-
       
46693   75780

     

       
913
       
913
       
-
       
90007   89913

     

       
914
       
914
       
-
       
63689   76234

     

       
915
       
915
       
-
       
98781   92745

     

       
916
       
916
       
-
       
77580   44738

     

       
917
       
917
       
-
       
24571   39242

     

       
918
       
918
       
-
       
37950   98910

     

       
919
       
919
       
-
       
63333   76587

     

       
920
       
920
       
-
       
14765   74779

     

       
921
       
921
       
-
       
41979   55432

     

       
922
       
922
       
-
       
65602   13148

     

       
923
       
923
       
-
       
34240   32614

     

       
924
       
924
       
-
       
40909   22506

     

       
925
       
925
       
-
       
25236   78757

     

       
926
       
926
       
-
       
56096   32614

     

       
927
       
927
       
-
       
85735   39877

     

       
928
       
928
       
-
       
37637   52969

     

       
929
       
929
       
-
       
34344   33132

     

       
930
       
930
       
-
       
53389   47303

     

       
931
       
931
       
-
       
66490   36750

     

       
932
       
932
       
-
       
18024   48801

     

       
933
       
933
       
-
       
45153   91679

     

       
934
       
934
       
-
       
94052   20540

     

       
935
       
935
       
-
       
67564   74190

     

       
936
       
936
       
-
       
54685   84718

     

       
937
       
937
       
-
       
89848   69076

     

       
938
       
938
       
-
       
15698   44738

     

       
939
       
939
       
-
       
67033   35486

     

       
940
       
940
       
-
       
23435   24004

     

       
941
       
941
       
-
       
99883   69819

     

       
942
       
942
       
-
       
32300   68680

     

       
943
       
943
       
-
       
82028   21625

     

       
944
       
944
       
-
       
19382   78452

     

       
945
       
945
       
-
       
40073   37648

     

       
946
       
946
       
-
       
86881   31642

     

       
947
       
947
       
-
       
42474   41279

     

       
948
       
948
       
-
       
59165   80760

     

       
949
       
949
       
-
       
60370   34541

     

       
950
       
950
       
-
       
74295   73389

     

       
951
       
951
       
-
       
98654   42210

     

       
952
       
952
       
-
       
87697   39399

     

       
953
       
953
       
-
       
68417   55320

     

       
954
       
954
       
-
       
32125   87304

     

       
955
       
955
       
-
       
23153   51288

     

       
956
       
956
       
-
       
32963   12352

     

       
957
       
957
       
-
       
18366   57673

     

       
958
       
958
       
-
       
74792   50327

     

       
959
       
959
       
-
       
78281   43473

     

       
960
       
960
       
-
       
41693   49359

     

       
961
       
961
       
-
       
41188   35781

     

       
962
       
962
       
-
       
19719   72035

     

       
963
       
963
       
-
       
44395   72831

     

       
964
       
964
       
-
       
75495   78467

     

       
965
       
965
       
-
       
14585   21023

     

       
966
       
966
       
-
       
94358   23804

     

       
967
       
967
       
-
       
13464   23423

     

       
968
       
968
       
-
       
58483   85726

     

       
969
       
969
       
-
       
44941   69076

     

       
970
       
970
       
-
       
91349   12344

     

       
971
       
971
       
-
       
95485   83883

     

       
972
       
972
       
-
       
58981   65861

     

       
973
       
973
       
-
       
43473   61539

     

       
974
       
974
       
-
       
51945   69762

     

       
975
       
975
       
-
       
40385   44738

     

       
976
       
976
       
-
       
32646   42174

     

       
977
       
977
       
-
       
73150   81067

     

       
978
       
978
       
-
       
12154   37648

     

       
979
       
979
       
-
       
55441   20843

     

       
980
       
980
       
-
       
98025   39097

     

       
981
       
981
       
-
       
15339   38796

     

       
982
       
982
       
-
       
31543   42210

     

       
983
       
983
       
-
       
65949   42245

     

       
984
       
984
       
-
       
31434   32614

     

       
985
       
985
       
-
       
57312   57203

     

       
986
       
986
       
-
       
91833   76885

     

       
987
       
987
       
-
       
23286   52984

     

       
988
       
988
       
-
       
58987   32178

     

       
989
       
989
       
-
       
12591   37648

     

       
990
       
990
       
-
       
37648   32316

     

       
991
       
991
       
-
       
97542   35781

     

       
992
       
992
       
-
       
33381   44140

     

       
993
       
993
       
-
       
69851   92540

     

       
994
       
994
       
-
       
60076   19198

     

       
995
       
995
       
-
       
86697   32614

     

       
996
       
996
       
-
       
25533   96431

     

       
997
       
997
       
-
       
68777   15175

     

       
998
       
998
       
-
       
47390   75651

     

       
999
       
999
       
-
       
94550   80760

     

       
1000
       
1000
       
-
       
61539   20843

     

···

       
1
       
1
       
+
       
program day_02

     

       
2
       
2
       
+
       
   implicit none

     

       
3
       
3
       
+
       
   logical :: is_decrement, fail

     

       
4
       
4
       
+
       
   integer :: io, i,x, spaces, res

     

       
5
       
5
       
+
       
   integer, dimension(:), allocatable :: list

     

       
6
       
6
       
+
       
   character(len=100) :: line

     

       
7
       
7
       
+
       


     

       
8
       
8
       
+
       
   open(newunit=io, file='./day_02_input.txt', status='old', action='read')

     

       
9
       
9
       
+
       


     

       
10
       
10
       
+
       
   res = 0

     

       
11
       
11
       
+
       
   do i = 1, 1000

     

       
12
       
12
       
+
       
      read(io, '(a)') line ! reading the line

     

       
13
       
13
       
+
       
      spaces = 1 ! reset space count

     

       
14
       
14
       
+
       
      do x = 1, len(trim(line))

     

       
15
       
15
       
+
       
         ! counting spaces to see how big of an array we need to allocate

     

       
16
       
16
       
+
       
         if(iachar(line(x:x))== 32 ) then

     

       
17
       
17
       
+
       
            spaces = spaces+1

     

       
18
       
18
       
+
       
         end if

     

       
19
       
19
       
+
       
      end do

     

       
20
       
20
       
+
       


     

       
21
       
21
       
+
       
      allocate(list(spaces))

     

       
22
       
22
       
+
       
      read(line, *) list !reading the ints into an array

     

       
23
       
23
       
+
       
      fail = .false.

     

       
24
       
24
       
+
       


     

       
25
       
25
       
+
       
      do x = 1, size(list) -1

     

       
26
       
26
       
+
       
         if (list(x) == list(x+1)) then

     

       
27
       
27
       
+
       
            fail = .true.

     

       
28
       
28
       
+
       
            exit

     

       
29
       
29
       
+
       
         end if

     

       
30
       
30
       
+
       
         if(x == 1 .and. list(x) > list(x+1)) then

     

       
31
       
31
       
+
       
            is_decrement = .true.

     

       
32
       
32
       
+
       
         else if (x==1 .and. list(x) < list(x+1)) then

     

       
33
       
33
       
+
       
            is_decrement = .false.

     

       
34
       
34
       
+
       
         end if

     

       
35
       
35
       
+
       


     

       
36
       
36
       
+
       
         if(is_decrement)  then

     

       
37
       
37
       
+
       
            if (list(x) < list(x+1) .or. abs(list(x) - list(x+1)) > 3) then

     

       
38
       
38
       
+
       
               fail = .true.

     

       
39
       
39
       
+
       
               exit

     

       
40
       
40
       
+
       
            end if

     

       
41
       
41
       
+
       
         else

     

       
42
       
42
       
+
       
            if (list(x) >  list(x+1) .or. abs(list(x) - list(x+1)) > 3) then

     

       
43
       
43
       
+
       
               fail = .true.

     

       
44
       
44
       
+
       
               exit

     

       
45
       
45
       
+
       
            end if

     

       
46
       
46
       
+
       
         end if

     

       
47
       
47
       
+
       
      end do

     

       
48
       
48
       
+
       
      if (fail .eqv. .false.) then

     

       
49
       
49
       
+
       
         res = res + 1

     

       
50
       
50
       
+
       
      endif

     

       
51
       
51
       
+
       
      deallocate(list)

     

       
52
       
52
       
+
       
   end do

     

       
53
       
53
       
+
       
   print*, res

     

       
54
       
54
       
+
       
end program day_02