commit 8121f151f19f407363b20b9de673a908069d63cd · treybastian.com/advent-of-code

-1

2024/.gitignore

+54

2024/day_02.f90

···

       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

+1000

2024/day_02_input.txt

···

       1
       1
       +
       38 41 44 47 50 47

     

       2
       2
       +
       75 78 79 82 85 85

     

       3
       3
       +
       11 13 16 19 21 25

     

       4
       4
       +
       39 40 43 44 50

     

       5
       5
       +
       75 77 80 78 80 83 84 87

     

       6
       6
       +
       17 20 23 21 22 23 24 22

     

       7
       7
       +
       80 82 79 80 82 82

     

       8
       8
       +
       50 51 49 52 56

     

       9
       9
       +
       78 80 82 83 80 81 82 88

     

       10
       10
       +
       43 45 48 50 52 52 55

     

       11
       11
       +
       34 35 38 38 41 39

     

       12
       12
       +
       51 54 57 60 62 63 63 63

     

       13
       13
       +
       24 26 27 30 33 33 34 38

     

       14
       14
       +
       24 25 26 26 27 28 33

     

       15
       15
       +
       33 35 37 41 44 46

     

       16
       16
       +
       55 58 60 63 66 70 71 70

     

       17
       17
       +
       90 93 94 98 98

     

       18
       18
       +
       63 64 67 69 73 77

     

       19
       19
       +
       13 15 18 22 25 28 34

     

       20
       20
       +
       60 63 68 70 71 74 76 79

     

       21
       21
       +
       76 79 82 89 87

     

       22
       22
       +
       63 66 69 71 74 76 82 82

     

       23
       23
       +
       55 57 63 64 66 70

     

       24
       24
       +
       63 64 67 68 74 75 82

     

       25
       25
       +
       47 45 46 47 49

     

       26
       26
       +
       22 21 22 24 27 26

     

       27
       27
       +
       67 64 65 67 69 72 75 75

     

       28
       28
       +
       24 22 24 26 28 31 35

     

       29
       29
       +
       50 48 49 52 57

     

       30
       30
       +
       69 67 70 71 68 69 70 71

     

       31
       31
       +
       38 37 38 39 42 41 38

     

       32
       32
       +
       34 32 31 32 32

     

       33
       33
       +
       14 13 14 17 19 18 22

     

       34
       34
       +
       76 74 77 79 80 83 81 88

     

       35
       35
       +
       89 87 87 90 92

     

       36
       36
       +
       86 85 87 90 90 92 93 92

     

       37
       37
       +
       34 33 34 37 37 37

     

       38
       38
       +
       91 88 89 92 92 96

     

       39
       39
       +
       84 82 83 86 88 88 95

     

       40
       40
       +
       10 8 10 14 16 18

     

       41
       41
       +
       67 64 66 68 72 70

     

       42
       42
       +
       31 30 32 36 38 38

     

       43
       43
       +
       64 61 65 66 69 70 74

     

       44
       44
       +
       61 60 61 65 68 75

     

       45
       45
       +
       56 53 55 56 63 64

     

       46
       46
       +
       37 34 35 36 43 44 42

     

       47
       47
       +
       41 39 41 44 50 51 51

     

       48
       48
       +
       36 33 34 40 42 43 45 49

     

       49
       49
       +
       45 44 45 47 50 57 63

     

       50
       50
       +
       84 84 85 87 90 91 92

     

       51
       51
       +
       40 40 41 43 46 49 47

     

       52
       52
       +
       24 24 25 28 30 30

     

       53
       53
       +
       86 86 88 89 91 94 95 99

     

       54
       54
       +
       28 28 30 33 35 37 38 43

     

       55
       55
       +
       74 74 76 73 76

     

       56
       56
       +
       85 85 86 84 82

     

       57
       57
       +
       93 93 92 93 96 96

     

       58
       58
       +
       70 70 73 72 76

     

       59
       59
       +
       49 49 48 49 54

     

       60
       60
       +
       12 12 13 15 18 18 21

     

       61
       61
       +
       59 59 61 63 66 68 68 66

     

       62
       62
       +
       28 28 31 31 31

     

       63
       63
       +
       89 89 89 91 95

     

       64
       64
       +
       24 24 26 28 28 31 32 39

     

       65
       65
       +
       70 70 71 75 78 81 82

     

       66
       66
       +
       45 45 48 50 54 51

     

       67
       67
       +
       42 42 46 48 50 50

     

       68
       68
       +
       12 12 13 17 19 21 24 28

     

       69
       69
       +
       4 4 8 11 18

     

       70
       70
       +
       18 18 19 24 26

     

       71
       71
       +
       45 45 50 52 53 50

     

       72
       72
       +
       60 60 62 65 68 74 74

     

       73
       73
       +
       49 49 51 58 60 61 64 68

     

       74
       74
       +
       21 21 28 29 30 36

     

       75
       75
       +
       69 73 76 79 82

     

       76
       76
       +
       5 9 11 14 17 18 15

     

       77
       77
       +
       4 8 10 12 12

     

       78
       78
       +
       62 66 68 69 73

     

       79
       79
       +
       2 6 7 9 10 11 13 19

     

       80
       80
       +
       54 58 55 58 59 62

     

       81
       81
       +
       1 5 7 4 5 3

     

       82
       82
       +
       55 59 56 58 61 64 64

     

       83
       83
       +
       85 89 86 88 90 93 97

     

       84
       84
       +
       79 83 82 84 89

     

       85
       85
       +
       40 44 44 45 46

     

       86
       86
       +
       19 23 24 24 23

     

       87
       87
       +
       28 32 33 33 36 36

     

       88
       88
       +
       28 32 32 35 38 42

     

       89
       89
       +
       47 51 52 52 53 59

     

       90
       90
       +
       29 33 35 37 41 42

     

       91
       91
       +
       75 79 83 84 85 88 85

     

       92
       92
       +
       41 45 49 51 54 55 55

     

       93
       93
       +
       36 40 42 44 48 52

     

       94
       94
       +
       16 20 23 25 29 36

     

       95
       95
       +
       47 51 54 55 57 62 63

     

       96
       96
       +
       87 91 93 99 96

     

       97
       97
       +
       15 19 21 26 26

     

       98
       98
       +
       37 41 44 49 52 55 59

     

       99
       99
       +
       9 13 20 21 28

     

       100
       100
       +
       16 22 23 26 29

     

       101
       101
       +
       34 41 43 44 47 48 46

     

       102
       102
       +
       3 10 12 13 14 14

     

       103
       103
       +
       16 23 25 28 31 35

     

       104
       104
       +
       18 24 26 28 29 32 37

     

       105
       105
       +
       59 66 69 70 73 70 72

     

       106
       106
       +
       40 45 46 49 46 49 46

     

       107
       107
       +
       14 20 22 24 27 24 24

     

       108
       108
       +
       75 82 83 86 84 88

     

       109
       109
       +
       14 21 22 24 23 26 29 36

     

       110
       110
       +
       1 7 10 10 11 13 14 16

     

       111
       111
       +
       2 8 9 12 14 14 12

     

       112
       112
       +
       2 9 9 12 13 14 14

     

       113
       113
       +
       10 15 17 17 21

     

       114
       114
       +
       54 59 60 60 65

     

       115
       115
       +
       70 77 79 83 84

     

       116
       116
       +
       21 28 32 35 36 38 37

     

       117
       117
       +
       26 33 34 38 41 42 43 43

     

       118
       118
       +
       4 11 12 16 17 18 21 25

     

       119
       119
       +
       25 32 33 35 38 42 45 50

     

       120
       120
       +
       19 26 28 29 34 37 40 43

     

       121
       121
       +
       39 46 51 53 56 57 55

     

       122
       122
       +
       1 8 13 15 15

     

       123
       123
       +
       55 62 65 66 71 72 76

     

       124
       124
       +
       42 49 56 57 58 59 61 68

     

       125
       125
       +
       78 76 75 74 76

     

       126
       126
       +
       30 29 27 26 24 23 21 21

     

       127
       127
       +
       16 13 11 10 7 3

     

       128
       128
       +
       41 40 38 37 34 32 31 25

     

       129
       129
       +
       49 46 48 47 44 41

     

       130
       130
       +
       71 69 71 69 71

     

       131
       131
       +
       6 3 5 2 2

     

       132
       132
       +
       94 91 88 86 83 84 82 78

     

       133
       133
       +
       35 33 30 33 30 25

     

       134
       134
       +
       43 40 38 38 36 35 33

     

       135
       135
       +
       34 32 30 29 28 28 27 29

     

       136
       136
       +
       61 58 58 55 54 52 52

     

       137
       137
       +
       79 77 76 76 73 69

     

       138
       138
       +
       81 79 76 73 73 71 66

     

       139
       139
       +
       20 19 17 13 10

     

       140
       140
       +
       94 92 89 88 86 83 79 81

     

       141
       141
       +
       55 54 51 47 47

     

       142
       142
       +
       27 26 24 21 17 15 11

     

       143
       143
       +
       20 19 18 14 13 10 4

     

       144
       144
       +
       50 49 48 47 45 39 36 34

     

       145
       145
       +
       82 80 74 71 74

     

       146
       146
       +
       93 92 89 88 83 81 81

     

       147
       147
       +
       98 95 89 88 85 81

     

       148
       148
       +
       28 25 23 20 18 11 9 2

     

       149
       149
       +
       6 7 4 2 1

     

       150
       150
       +
       52 53 51 49 50

     

       151
       151
       +
       7 9 8 7 6 5 4 4

     

       152
       152
       +
       89 90 88 86 83 81 77

     

       153
       153
       +
       29 32 31 29 28 21

     

       154
       154
       +
       68 70 72 69 68 65 64 61

     

       155
       155
       +
       85 87 86 85 87 89

     

       156
       156
       +
       46 49 48 49 49

     

       157
       157
       +
       83 84 82 83 79

     

       158
       158
       +
       32 35 33 35 28

     

       159
       159
       +
       14 17 16 16 14

     

       160
       160
       +
       46 47 47 44 47

     

       161
       161
       +
       15 18 16 13 13 13

     

       162
       162
       +
       11 13 12 12 11 8 4

     

       163
       163
       +
       92 93 92 92 89 82

     

       164
       164
       +
       39 41 38 37 33 31

     

       165
       165
       +
       12 13 12 8 6 5 3 4

     

       166
       166
       +
       70 73 70 67 66 62 59 59

     

       167
       167
       +
       17 18 17 16 15 13 9 5

     

       168
       168
       +
       39 42 38 35 32 29 27 22

     

       169
       169
       +
       54 57 54 49 47

     

       170
       170
       +
       51 54 52 50 45 48

     

       171
       171
       +
       24 25 24 17 16 16

     

       172
       172
       +
       32 34 27 25 21

     

       173
       173
       +
       38 39 37 32 27

     

       174
       174
       +
       14 14 11 10 7 5 2

     

       175
       175
       +
       87 87 86 85 82 81 82

     

       176
       176
       +
       50 50 47 44 43 43

     

       177
       177
       +
       78 78 76 73 69

     

       178
       178
       +
       21 21 20 17 16 13 12 6

     

       179
       179
       +
       53 53 56 53 51 49 48 45

     

       180
       180
       +
       92 92 95 93 91 89 87 88

     

       181
       181
       +
       6 6 7 5 3 1 1

     

       182
       182
       +
       98 98 96 98 95 93 92 88

     

       183
       183
       +
       15 15 17 14 13 12 9 3

     

       184
       184
       +
       38 38 38 35 34 33 31

     

       185
       185
       +
       42 42 40 39 39 36 38

     

       186
       186
       +
       32 32 31 28 28 27 27

     

       187
       187
       +
       9 9 9 8 5 1

     

       188
       188
       +
       49 49 47 44 42 41 41 35

     

       189
       189
       +
       49 49 48 47 43 40

     

       190
       190
       +
       61 61 58 56 52 49 46 49

     

       191
       191
       +
       87 87 83 80 80

     

       192
       192
       +
       91 91 89 85 84 80

     

       193
       193
       +
       27 27 26 22 17

     

       194
       194
       +
       91 91 90 89 82 81 78

     

       195
       195
       +
       50 50 48 45 38 39

     

       196
       196
       +
       12 12 6 3 1 1

     

       197
       197
       +
       84 84 82 81 74 72 70 66

     

       198
       198
       +
       50 50 47 45 43 38 37 31

     

       199
       199
       +
       82 78 77 74 71

     

       200
       200
       +
       94 90 89 86 89

     

       201
       201
       +
       16 12 10 7 7

     

       202
       202
       +
       85 81 80 77 73

     

       203
       203
       +
       86 82 79 76 69

     

       204
       204
       +
       90 86 85 86 83 82

     

       205
       205
       +
       46 42 39 36 38 41

     

       206
       206
       +
       16 12 15 13 10 7 4 4

     

       207
       207
       +
       38 34 37 35 33 31 27

     

       208
       208
       +
       53 49 47 44 46 45 38

     

       209
       209
       +
       58 54 54 53 50

     

       210
       210
       +
       69 65 63 61 58 58 57 58

     

       211
       211
       +
       28 24 23 22 21 21 21

     

       212
       212
       +
       32 28 28 25 22 18

     

       213
       213
       +
       19 15 13 13 10 4

     

       214
       214
       +
       63 59 56 52 49 47 46 45

     

       215
       215
       +
       32 28 25 21 19 17 15 18

     

       216
       216
       +
       62 58 57 56 52 52

     

       217
       217
       +
       93 89 88 87 83 79

     

       218
       218
       +
       94 90 87 83 76

     

       219
       219
       +
       72 68 65 60 58 55

     

       220
       220
       +
       44 40 37 30 32

     

       221
       221
       +
       69 65 64 63 61 58 51 51

     

       222
       222
       +
       82 78 76 70 69 66 62

     

       223
       223
       +
       62 58 52 51 45

     

       224
       224
       +
       90 85 82 81 79 78 75 72

     

       225
       225
       +
       76 69 67 66 69

     

       226
       226
       +
       68 63 61 60 58 56 56

     

       227
       227
       +
       72 65 62 60 56

     

       228
       228
       +
       81 74 73 71 68 65 58

     

       229
       229
       +
       69 63 60 63 62 60

     

       230
       230
       +
       69 62 61 60 58 57 60 61

     

       231
       231
       +
       57 51 53 51 50 49 49

     

       232
       232
       +
       26 20 18 21 19 15

     

       233
       233
       +
       44 39 36 37 30

     

       234
       234
       +
       48 41 41 39 37

     

       235
       235
       +
       29 24 24 22 23

     

       236
       236
       +
       38 31 28 28 27 27

     

       237
       237
       +
       97 92 90 90 88 84

     

       238
       238
       +
       53 46 45 42 42 35

     

       239
       239
       +
       72 67 64 60 58 55 53

     

       240
       240
       +
       69 64 63 62 60 57 53 56

     

       241
       241
       +
       32 25 22 18 16 16

     

       242
       242
       +
       24 17 13 12 8

     

       243
       243
       +
       31 24 21 19 15 9

     

       244
       244
       +
       41 36 29 27 24 21 20 18

     

       245
       245
       +
       22 15 10 7 5 7

     

       246
       246
       +
       56 51 50 48 42 39 38 38

     

       247
       247
       +
       59 52 49 43 39

     

       248
       248
       +
       89 82 81 78 72 69 64

     

       249
       249
       +
       8 10 11 12 14 15 16 13

     

       250
       250
       +
       18 20 21 22 24 26 26

     

       251
       251
       +
       36 37 39 42 45 48 50 54

     

       252
       252
       +
       15 16 18 20 21 28

     

       253
       253
       +
       10 13 10 11 13

     

       254
       254
       +
       87 90 93 96 98 99 97 94

     

       255
       255
       +
       96 97 98 96 96

     

       256
       256
       +
       6 7 4 5 8 12

     

       257
       257
       +
       53 55 53 55 60

     

       258
       258
       +
       26 27 29 30 30 32 33

     

       259
       259
       +
       43 44 44 47 46

     

       260
       260
       +
       31 33 35 35 38 41 44 44

     

       261
       261
       +
       13 16 17 19 19 21 22 26

     

       262
       262
       +
       29 31 31 34 35 37 40 45

     

       263
       263
       +
       83 84 86 87 91 93 96

     

       264
       264
       +
       78 80 83 84 88 86

     

       265
       265
       +
       1 2 3 5 9 11 11

     

       266
       266
       +
       3 4 8 9 10 14

     

       267
       267
       +
       66 69 73 75 80

     

       268
       268
       +
       15 18 19 21 28 29 31

     

       269
       269
       +
       74 76 79 84 86 89 87

     

       270
       270
       +
       17 19 22 24 31 31

     

       271
       271
       +
       13 14 15 18 23 25 27 31

     

       272
       272
       +
       26 27 29 34 37 44

     

       273
       273
       +
       38 35 38 39 40 41 42

     

       274
       274
       +
       78 76 78 79 81 80

     

       275
       275
       +
       8 6 7 8 9 10 10

     

       276
       276
       +
       56 55 56 59 62 63 65 69

     

       277
       277
       +
       43 40 42 45 47 48 53

     

       278
       278
       +
       88 86 85 88 90

     

       279
       279
       +
       75 74 77 75 76 77 80 77

     

       280
       280
       +
       7 6 9 6 8 8

     

       281
       281
       +
       54 52 53 52 53 54 58

     

       282
       282
       +
       32 29 30 33 32 37

     

       283
       283
       +
       66 63 64 65 65 66

     

       284
       284
       +
       85 82 82 83 82

     

       285
       285
       +
       71 69 69 70 71 71

     

       286
       286
       +
       82 80 83 86 88 88 92

     

       287
       287
       +
       92 89 89 90 93 94 99

     

       288
       288
       +
       72 70 72 73 75 79 80

     

       289
       289
       +
       51 48 49 50 54 55 58 57

     

       290
       290
       +
       72 70 73 75 79 80 80

     

       291
       291
       +
       71 68 71 72 76 80

     

       292
       292
       +
       49 48 52 55 56 59 65

     

       293
       293
       +
       42 40 41 44 49 50

     

       294
       294
       +
       65 63 69 70 71 70

     

       295
       295
       +
       46 44 45 48 49 54 55 55

     

       296
       296
       +
       20 18 20 23 30 32 36

     

       297
       297
       +
       29 27 30 37 40 45

     

       298
       298
       +
       86 86 88 90 92

     

       299
       299
       +
       79 79 80 83 86 89 92 89

     

       300
       300
       +
       73 73 76 79 81 83 83

     

       301
       301
       +
       61 61 62 63 65 67 71

     

       302
       302
       +
       87 87 90 91 98

     

       303
       303
       +
       48 48 51 50 53 56

     

       304
       304
       +
       54 54 53 54 52

     

       305
       305
       +
       92 92 91 92 95 95

     

       306
       306
       +
       31 31 33 36 37 34 35 39

     

       307
       307
       +
       55 55 52 53 58

     

       308
       308
       +
       82 82 83 84 86 86 87 89

     

       309
       309
       +
       20 20 20 21 20

     

       310
       310
       +
       27 27 30 30 31 31

     

       311
       311
       +
       22 22 23 23 24 27 28 32

     

       312
       312
       +
       82 82 84 85 85 87 93

     

       313
       313
       +
       41 41 45 46 49 50

     

       314
       314
       +
       61 61 65 67 69 68

     

       315
       315
       +
       54 54 58 61 64 64

     

       316
       316
       +
       48 48 52 55 59

     

       317
       317
       +
       16 16 17 21 26

     

       318
       318
       +
       18 18 21 24 29 30 32 33

     

       319
       319
       +
       26 26 29 35 32

     

       320
       320
       +
       15 15 18 21 24 25 32 32

     

       321
       321
       +
       63 63 65 71 73 77

     

       322
       322
       +
       36 36 39 42 45 46 53 60

     

       323
       323
       +
       40 44 45 47 50 52

     

       324
       324
       +
       3 7 9 11 12 15 12

     

       325
       325
       +
       39 43 45 48 49 50 53 53

     

       326
       326
       +
       1 5 6 9 10 14

     

       327
       327
       +
       81 85 88 90 91 92 99

     

       328
       328
       +
       25 29 31 34 32 35

     

       329
       329
       +
       71 75 77 76 73

     

       330
       330
       +
       38 42 39 40 42 44 44

     

       331
       331
       +
       1 5 8 10 9 10 14

     

       332
       332
       +
       80 84 85 84 86 92

     

       333
       333
       +
       72 76 78 81 81 84 85

     

       334
       334
       +
       85 89 92 92 93 95 94

     

       335
       335
       +
       89 93 93 94 94

     

       336
       336
       +
       8 12 13 14 15 16 16 20

     

       337
       337
       +
       57 61 63 66 66 72

     

       338
       338
       +
       82 86 89 90 93 97 98 99

     

       339
       339
       +
       4 8 10 14 15 13

     

       340
       340
       +
       4 8 9 11 15 15

     

       341
       341
       +
       26 30 33 36 37 41 45

     

       342
       342
       +
       10 14 16 20 22 29

     

       343
       343
       +
       3 7 12 15 18

     

       344
       344
       +
       72 76 78 79 82 87 90 89

     

       345
       345
       +
       71 75 77 82 82

     

       346
       346
       +
       71 75 82 84 88

     

       347
       347
       +
       15 19 26 29 34

     

       348
       348
       +
       66 72 74 76 78 81

     

       349
       349
       +
       13 19 22 23 20

     

       350
       350
       +
       43 50 53 56 58 58

     

       351
       351
       +
       67 72 73 76 78 82

     

       352
       352
       +
       67 73 75 77 80 83 84 89

     

       353
       353
       +
       71 78 77 80 83

     

       354
       354
       +
       23 30 32 33 32 31

     

       355
       355
       +
       31 36 39 36 36

     

       356
       356
       +
       35 41 43 46 45 48 52

     

       357
       357
       +
       36 43 40 42 48

     

       358
       358
       +
       49 54 55 57 57 60 63 64

     

       359
       359
       +
       42 49 52 52 49

     

       360
       360
       +
       65 70 73 73 75 77 80 80

     

       361
       361
       +
       61 66 66 69 70 71 73 77

     

       362
       362
       +
       32 38 38 40 47

     

       363
       363
       +
       65 72 74 75 77 81 84

     

       364
       364
       +
       42 48 49 51 55 53

     

       365
       365
       +
       47 54 56 57 61 62 62

     

       366
       366
       +
       7 14 16 20 21 22 26

     

       367
       367
       +
       45 50 52 55 59 62 64 71

     

       368
       368
       +
       37 44 49 52 53

     

       369
       369
       +
       27 32 38 40 42 45 46 45

     

       370
       370
       +
       47 52 58 59 61 61

     

       371
       371
       +
       1 6 7 12 13 14 17 21

     

       372
       372
       +
       40 47 53 55 56 63

     

       373
       373
       +
       74 73 72 70 68 66 63 66

     

       374
       374
       +
       11 9 7 5 3 3

     

       375
       375
       +
       38 35 33 31 29 25

     

       376
       376
       +
       66 64 62 61 60 59 56 49

     

       377
       377
       +
       20 17 16 17 14 12 11 10

     

       378
       378
       +
       88 87 88 85 82 81 80 83

     

       379
       379
       +
       40 37 40 38 37 34 33 33

     

       380
       380
       +
       13 11 13 11 8 7 3

     

       381
       381
       +
       64 61 60 63 62 55

     

       382
       382
       +
       28 26 26 23 22 19

     

       383
       383
       +
       13 10 7 6 6 7

     

       384
       384
       +
       53 50 49 49 47 45 45

     

       385
       385
       +
       71 68 66 65 65 62 60 56

     

       386
       386
       +
       80 77 75 73 72 72 69 62

     

       387
       387
       +
       39 37 34 30 29 27

     

       388
       388
       +
       40 38 37 33 34

     

       389
       389
       +
       39 37 33 31 29 26 24 24

     

       390
       390
       +
       60 57 53 51 47

     

       391
       391
       +
       26 23 19 18 11

     

       392
       392
       +
       57 56 51 49 48 47 46 44

     

       393
       393
       +
       75 74 67 66 63 62 61 62

     

       394
       394
       +
       26 25 20 17 17

     

       395
       395
       +
       30 29 27 21 19 18 14

     

       396
       396
       +
       86 85 79 78 71

     

       397
       397
       +
       38 39 38 35 34 31 30

     

       398
       398
       +
       52 53 50 49 46 44 45

     

       399
       399
       +
       92 93 92 91 90 90

     

       400
       400
       +
       24 27 25 24 23 19

     

       401
       401
       +
       29 32 29 28 25 24 18

     

       402
       402
       +
       77 78 81 78 77 75

     

       403
       403
       +
       21 22 21 19 21 22

     

       404
       404
       +
       32 35 32 31 32 31 28 28

     

       405
       405
       +
       81 83 84 82 80 78 74

     

       406
       406
       +
       23 24 21 18 17 18 15 8

     

       407
       407
       +
       20 22 21 21 18

     

       408
       408
       +
       54 57 56 55 53 51 51 52

     

       409
       409
       +
       11 12 10 10 10

     

       410
       410
       +
       45 46 45 44 42 42 38

     

       411
       411
       +
       69 70 67 65 65 64 58

     

       412
       412
       +
       15 16 15 11 10 9 8

     

       413
       413
       +
       37 38 34 33 31 29 27 29

     

       414
       414
       +
       46 49 46 45 41 38 37 37

     

       415
       415
       +
       41 43 39 37 36 32

     

       416
       416
       +
       82 85 81 79 77 74 69

     

       417
       417
       +
       85 87 84 82 81 76 73 71

     

       418
       418
       +
       75 78 73 70 73

     

       419
       419
       +
       43 45 38 36 35 33 33

     

       420
       420
       +
       62 65 59 58 55 51

     

       421
       421
       +
       31 34 32 27 24 17

     

       422
       422
       +
       11 11 8 7 4 1

     

       423
       423
       +
       94 94 93 91 90 87 86 87

     

       424
       424
       +
       26 26 23 20 19 17 17

     

       425
       425
       +
       12 12 10 9 7 3

     

       426
       426
       +
       79 79 78 76 75 69

     

       427
       427
       +
       16 16 17 16 13

     

       428
       428
       +
       38 38 35 34 37 36 33 35

     

       429
       429
       +
       37 37 36 37 36 34 32 32

     

       430
       430
       +
       48 48 47 50 48 45 41

     

       431
       431
       +
       53 53 52 49 51 49 42

     

       432
       432
       +
       78 78 78 76 75

     

       433
       433
       +
       91 91 90 87 85 85 82 85

     

       434
       434
       +
       58 58 56 54 51 51 51

     

       435
       435
       +
       29 29 27 27 26 25 23 19

     

       436
       436
       +
       71 71 71 70 69 64

     

       437
       437
       +
       17 17 14 11 7 4 3 1

     

       438
       438
       +
       21 21 19 15 17

     

       439
       439
       +
       28 28 26 22 22

     

       440
       440
       +
       51 51 50 46 42

     

       441
       441
       +
       26 26 25 21 20 17 11

     

       442
       442
       +
       72 72 70 65 63 61 58 56

     

       443
       443
       +
       84 84 78 77 80

     

       444
       444
       +
       40 40 39 36 31 29 28 28

     

       445
       445
       +
       22 22 21 18 13 11 10 6

     

       446
       446
       +
       63 63 61 56 54 47

     

       447
       447
       +
       91 87 84 81 78 77

     

       448
       448
       +
       97 93 91 89 86 85 84 87

     

       449
       449
       +
       19 15 14 13 13

     

       450
       450
       +
       20 16 13 12 10 6

     

       451
       451
       +
       96 92 90 88 86 83 76

     

       452
       452
       +
       97 93 95 94 92 89

     

       453
       453
       +
       47 43 41 38 36 38 40

     

       454
       454
       +
       85 81 84 81 79 76 76

     

       455
       455
       +
       80 76 77 75 71

     

       456
       456
       +
       32 28 26 29 27 24 23 18

     

       457
       457
       +
       30 26 24 24 21 19 18 17

     

       458
       458
       +
       22 18 16 16 18

     

       459
       459
       +
       77 73 71 71 69 68 67 67

     

       460
       460
       +
       41 37 36 34 31 31 28 24

     

       461
       461
       +
       97 93 91 88 85 85 79

     

       462
       462
       +
       47 43 39 36 34

     

       463
       463
       +
       29 25 23 21 17 19

     

       464
       464
       +
       55 51 48 47 43 43

     

       465
       465
       +
       91 87 86 83 79 78 74

     

       466
       466
       +
       54 50 46 45 40

     

       467
       467
       +
       42 38 37 32 31

     

       468
       468
       +
       40 36 30 29 28 25 24 27

     

       469
       469
       +
       55 51 44 43 40 37 37

     

       470
       470
       +
       45 41 36 33 29

     

       471
       471
       +
       74 70 63 61 54

     

       472
       472
       +
       38 31 29 26 24 23

     

       473
       473
       +
       55 50 47 44 41 39 40

     

       474
       474
       +
       64 57 56 54 53 50 50

     

       475
       475
       +
       26 20 19 17 13

     

       476
       476
       +
       86 79 76 73 67

     

       477
       477
       +
       21 15 12 9 6 3 6 3

     

       478
       478
       +
       90 85 83 80 82 84

     

       479
       479
       +
       59 52 54 51 51

     

       480
       480
       +
       41 35 37 34 31 28 24

     

       481
       481
       +
       48 42 40 38 35 34 36 31

     

       482
       482
       +
       40 35 34 34 32

     

       483
       483
       +
       69 62 62 59 61

     

       484
       484
       +
       79 73 71 68 67 67 65 65

     

       485
       485
       +
       57 52 49 48 48 47 45 41

     

       486
       486
       +
       37 30 29 29 27 26 19

     

       487
       487
       +
       45 38 35 31 28

     

       488
       488
       +
       80 74 70 68 66 64 61 62

     

       489
       489
       +
       91 84 80 78 76 76

     

       490
       490
       +
       22 16 13 11 7 3

     

       491
       491
       +
       34 29 25 24 22 15

     

       492
       492
       +
       87 82 76 73 72

     

       493
       493
       +
       29 22 19 13 10 13

     

       494
       494
       +
       86 79 73 72 72

     

       495
       495
       +
       71 66 65 63 56 55 51

     

       496
       496
       +
       37 32 25 22 19 18 11

     

       497
       497
       +
       87 87 86 85 78 76 76

     

       498
       498
       +
       7 11 13 15 18

     

       499
       499
       +
       47 46 48 50 51 56 58 63

     

       500
       500
       +
       35 35 36 35 33 30 32

     

       501
       501
       +
       38 34 32 25 24 26

     

       502
       502
       +
       46 41 38 35 32 32

     

       503
       503
       +
       19 19 15 13 12 5

     

       504
       504
       +
       22 18 17 16 13 10 9 5

     

       505
       505
       +
       65 69 72 77 78

     

       506
       506
       +
       23 22 25 25 24

     

       507
       507
       +
       3 2 4 5 12 15

     

       508
       508
       +
       21 21 20 13 11

     

       509
       509
       +
       45 45 44 43 42 40 38 41

     

       510
       510
       +
       66 64 63 62 64 64

     

       511
       511
       +
       39 32 31 27 20

     

       512
       512
       +
       23 20 18 18 15 12 9 5

     

       513
       513
       +
       44 41 42 45 48 49 52 56

     

       514
       514
       +
       10 14 17 18 16

     

       515
       515
       +
       86 81 75 74 68

     

       516
       516
       +
       77 76 73 70 69 69

     

       517
       517
       +
       25 23 26 32 30

     

       518
       518
       +
       16 20 23 21 24 28

     

       519
       519
       +
       80 80 83 85 85 82

     

       520
       520
       +
       21 21 18 20 21 24 26

     

       521
       521
       +
       26 29 28 26 21

     

       522
       522
       +
       9 15 17 19 20 21 23 28

     

       523
       523
       +
       57 58 61 63 65 69 70 75

     

       524
       524
       +
       72 75 78 81 86 88 90 91

     

       525
       525
       +
       66 68 69 74 79

     

       526
       526
       +
       16 15 15 16 17 24

     

       527
       527
       +
       60 66 67 66 69 76

     

       528
       528
       +
       46 42 43 42 41 39 34

     

       529
       529
       +
       31 31 34 34 34

     

       530
       530
       +
       18 18 14 13 11 7

     

       531
       531
       +
       1 1 4 5 6 8 15

     

       532
       532
       +
       43 47 49 55 59

     

       533
       533
       +
       11 11 14 17 16

     

       534
       534
       +
       31 34 32 30 29 28 29

     

       535
       535
       +
       99 99 97 97 95 98

     

       536
       536
       +
       66 68 72 74 78

     

       537
       537
       +
       6 13 15 16 19 19 20 21

     

       538
       538
       +
       91 92 91 91 89 90

     

       539
       539
       +
       33 39 42 46 52

     

       540
       540
       +
       51 50 51 52 52

     

       541
       541
       +
       41 38 40 43 47 48 52

     

       542
       542
       +
       40 36 34 32 32 29 29

     

       543
       543
       +
       35 34 37 39 43 44 47

     

       544
       544
       +
       89 87 86 83 81 79 78 71

     

       545
       545
       +
       33 29 26 21 20 15

     

       546
       546
       +
       70 72 73 74 77 77 78 78

     

       547
       547
       +
       86 87 85 87 89 92 95

     

       548
       548
       +
       56 59 58 56 55 55 52 52

     

       549
       549
       +
       8 8 10 11 12 11 17

     

       550
       550
       +
       29 30 27 26 23 22 20 20

     

       551
       551
       +
       47 53 55 56 57 59 56 56

     

       552
       552
       +
       8 8 10 11 15 19

     

       553
       553
       +
       15 15 16 21 24 27 28 25

     

       554
       554
       +
       55 52 55 58 65 67 67

     

       555
       555
       +
       74 68 65 64 62 60 58 52

     

       556
       556
       +
       30 34 36 35 37

     

       557
       557
       +
       64 60 59 57 54 53 52 47

     

       558
       558
       +
       34 36 38 36 39 42 46

     

       559
       559
       +
       36 30 30 29 26 25 22 22

     

       560
       560
       +
       95 96 98 96 95

     

       561
       561
       +
       49 47 44 41 37

     

       562
       562
       +
       8 14 15 15 18 19 16

     

       563
       563
       +
       40 42 40 40 33

     

       564
       564
       +
       50 48 51 51 51

     

       565
       565
       +
       18 17 20 23 26 26 27 31

     

       566
       566
       +
       87 91 92 93 93 97

     

       567
       567
       +
       50 53 56 60 62 64

     

       568
       568
       +
       71 75 79 81 81

     

       569
       569
       +
       74 76 70 68 63

     

       570
       570
       +
       27 22 19 21 20 20

     

       571
       571
       +
       67 63 62 58 56 54 52 48

     

       572
       572
       +
       83 85 88 91 92 93 96 96

     

       573
       573
       +
       67 74 76 74 75 78 80 78

     

       574
       574
       +
       60 60 57 53 53

     

       575
       575
       +
       16 15 14 17 20 22 25 29

     

       576
       576
       +
       66 69 66 66 62

     

       577
       577
       +
       65 69 72 75 74 74

     

       578
       578
       +
       52 45 42 40 43

     

       579
       579
       +
       17 17 20 23 26 31 35

     

       580
       580
       +
       35 40 42 44 45 44

     

       581
       581
       +
       80 79 80 82 83 83 84

     

       582
       582
       +
       25 24 20 17 16 13 8

     

       583
       583
       +
       88 81 80 77 73 75

     

       584
       584
       +
       70 69 69 67 61

     

       585
       585
       +
       9 14 15 21 22 19

     

       586
       586
       +
       40 40 43 44 45 46 49 52

     

       587
       587
       +
       78 73 72 70 71 68

     

       588
       588
       +
       14 20 23 25 31 37

     

       589
       589
       +
       16 22 23 24 26 25 26

     

       590
       590
       +
       32 28 26 24 24

     

       591
       591
       +
       24 21 24 27 28 32 38

     

       592
       592
       +
       47 48 47 45 41

     

       593
       593
       +
       45 49 53 54 57 63

     

       594
       594
       +
       37 40 42 44 45 47 50 55

     

       595
       595
       +
       42 42 39 42 44 47 47

     

       596
       596
       +
       45 41 42 41 39 38 35 31

     

       597
       597
       +
       13 9 7 6 2 2

     

       598
       598
       +
       63 63 60 59 58 55 54

     

       599
       599
       +
       44 41 40 38 37 32 28

     

       600
       600
       +
       33 28 24 23 20 19 19

     

       601
       601
       +
       27 21 18 18 17 16 15 16

     

       602
       602
       +
       11 14 13 14 19

     

       603
       603
       +
       87 83 80 77 70 68 65 65

     

       604
       604
       +
       15 13 11 8 10

     

       605
       605
       +
       35 39 40 39 41 39

     

       606
       606
       +
       46 50 50 53 56 63

     

       607
       607
       +
       76 79 77 70 68

     

       608
       608
       +
       63 65 69 72 74 77 75

     

       609
       609
       +
       30 34 36 38 41 42 46

     

       610
       610
       +
       20 16 15 12 10 8 5 3

     

       611
       611
       +
       41 45 45 48 45

     

       612
       612
       +
       27 33 33 34 38

     

       613
       613
       +
       78 83 84 90 92 96

     

       614
       614
       +
       28 29 28 25 22 19 15 15

     

       615
       615
       +
       81 83 83 80 78 75

     

       616
       616
       +
       74 69 66 65 62 61 58 54

     

       617
       617
       +
       89 83 81 79 78 77 77 74

     

       618
       618
       +
       58 58 56 57 60 61 62 66

     

       619
       619
       +
       9 12 14 17 19 22 25 24

     

       620
       620
       +
       14 14 11 9 8 6 7 3

     

       621
       621
       +
       22 22 20 17 19 14

     

       622
       622
       +
       43 43 44 51 53 55 62

     

       623
       623
       +
       75 75 74 73 73 70

     

       624
       624
       +
       61 61 64 66 66 70

     

       625
       625
       +
       38 35 35 33 31 29 32

     

       626
       626
       +
       41 41 39 37 36 33 31 24

     

       627
       627
       +
       73 70 72 69 76

     

       628
       628
       +
       91 91 90 89 88 84

     

       629
       629
       +
       12 16 20 23 25 27 30 34

     

       630
       630
       +
       84 86 87 89 90 93

     

       631
       631
       +
       94 92 89 86 85 84 83 82

     

       632
       632
       +
       49 46 45 44 41

     

       633
       633
       +
       21 19 17 16 14 12 10

     

       634
       634
       +
       23 24 25 28 30 31 34 36

     

       635
       635
       +
       15 12 10 8 6

     

       636
       636
       +
       67 70 71 72 75 77

     

       637
       637
       +
       27 26 24 23 20 17 14

     

       638
       638
       +
       74 75 76 79 81 84 85 88

     

       639
       639
       +
       35 34 31 29 26 24 23

     

       640
       640
       +
       9 8 7 4 2

     

       641
       641
       +
       17 16 13 10 8 6 4 3

     

       642
       642
       +
       45 47 50 52 54 56 58

     

       643
       643
       +
       28 29 30 31 32 35 38 40

     

       644
       644
       +
       69 68 66 64 63 62 60

     

       645
       645
       +
       43 44 47 48 51 52

     

       646
       646
       +
       21 24 26 28 29

     

       647
       647
       +
       29 27 25 22 19 18 16

     

       648
       648
       +
       86 83 82 80 77 76 73 71

     

       649
       649
       +
       23 21 20 17 16 15 12 10

     

       650
       650
       +
       7 8 9 12 15 17 20

     

       651
       651
       +
       26 28 30 33 36 38

     

       652
       652
       +
       29 28 25 24 21 19 17

     

       653
       653
       +
       86 84 83 81 78 77 74

     

       654
       654
       +
       5 8 11 13 16 18

     

       655
       655
       +
       70 71 72 73 76 77

     

       656
       656
       +
       28 31 32 33 35 37

     

       657
       657
       +
       27 25 24 22 19

     

       658
       658
       +
       36 35 34 31 30 29

     

       659
       659
       +
       30 28 25 22 20 18 15 13

     

       660
       660
       +
       27 30 31 33 34 35 36

     

       661
       661
       +
       15 17 18 21 23 24

     

       662
       662
       +
       23 26 28 29 31

     

       663
       663
       +
       76 79 82 83 86 87 90 91

     

       664
       664
       +
       32 31 28 25 23

     

       665
       665
       +
       3 4 5 8 9 10 13 16

     

       666
       666
       +
       8 11 13 15 17

     

       667
       667
       +
       58 56 55 54 52 51 48

     

       668
       668
       +
       41 44 45 47 50 52 54 57

     

       669
       669
       +
       66 65 64 62 60 59 57

     

       670
       670
       +
       69 66 63 60 58 55

     

       671
       671
       +
       27 30 31 33 34 35 36 39

     

       672
       672
       +
       43 40 39 38 36 35

     

       673
       673
       +
       42 41 39 36 33

     

       674
       674
       +
       77 79 82 85 88 89 91

     

       675
       675
       +
       14 13 12 9 6 4 3 2

     

       676
       676
       +
       47 49 52 55 56

     

       677
       677
       +
       88 91 92 93 96 97 99

     

       678
       678
       +
       99 97 96 93 91 90

     

       679
       679
       +
       74 77 79 82 85 88 90

     

       680
       680
       +
       1 4 5 7 10 11

     

       681
       681
       +
       16 18 21 24 26 28 30

     

       682
       682
       +
       99 96 93 90 89

     

       683
       683
       +
       70 69 66 64 63 60 58 57

     

       684
       684
       +
       77 75 72 69 67 64

     

       685
       685
       +
       30 27 25 23 21 18

     

       686
       686
       +
       87 84 83 81 79 77

     

       687
       687
       +
       20 21 24 27 29

     

       688
       688
       +
       29 26 23 21 20 17 16 14

     

       689
       689
       +
       43 41 40 39 38 36 35

     

       690
       690
       +
       61 64 66 68 70 73 74 75

     

       691
       691
       +
       39 41 42 43 44 46 49

     

       692
       692
       +
       17 20 23 25 28 29 30 31

     

       693
       693
       +
       37 40 43 45 48 49 51 54

     

       694
       694
       +
       49 52 54 57 58

     

       695
       695
       +
       15 18 21 24 27 30

     

       696
       696
       +
       20 18 16 15 14

     

       697
       697
       +
       86 85 82 81 80 77

     

       698
       698
       +
       62 61 60 58 56 54 53 52

     

       699
       699
       +
       16 13 10 9 6 4 3 2

     

       700
       700
       +
       14 13 11 9 8 7 6 5

     

       701
       701
       +
       55 56 57 59 62 63 66

     

       702
       702
       +
       59 61 64 66 67 69 72 75

     

       703
       703
       +
       14 17 19 21 22

     

       704
       704
       +
       52 49 47 46 43

     

       705
       705
       +
       80 82 84 85 88

     

       706
       706
       +
       18 15 13 11 10

     

       707
       707
       +
       86 83 80 79 78 75 74

     

       708
       708
       +
       50 49 46 44 42 41

     

       709
       709
       +
       46 48 50 52 54 55 58

     

       710
       710
       +
       64 61 59 57 55 52

     

       711
       711
       +
       10 11 14 17 19 20

     

       712
       712
       +
       86 85 83 80 78 77 74

     

       713
       713
       +
       57 55 54 53 50 49

     

       714
       714
       +
       72 70 69 68 67 64 63 60

     

       715
       715
       +
       60 59 56 55 53 52

     

       716
       716
       +
       46 48 51 54 55 58 61

     

       717
       717
       +
       24 23 22 20 17 15 12

     

       718
       718
       +
       71 74 76 78 80 81 84

     

       719
       719
       +
       30 33 34 35 37 39 40 43

     

       720
       720
       +
       67 68 70 73 75 78 80 81

     

       721
       721
       +
       53 51 49 46 43 42

     

       722
       722
       +
       46 47 48 49 50 52

     

       723
       723
       +
       16 17 18 20 23 25 27 28

     

       724
       724
       +
       74 72 71 69 66 65 64 63

     

       725
       725
       +
       98 97 94 91 88 87 85

     

       726
       726
       +
       49 48 47 45 44 42 41 38

     

       727
       727
       +
       83 84 85 87 88 89 90

     

       728
       728
       +
       41 44 46 48 50 51 52 53

     

       729
       729
       +
       56 58 59 62 65 67 70

     

       730
       730
       +
       33 32 31 28 27 25

     

       731
       731
       +
       57 58 61 64 66 69

     

       732
       732
       +
       60 59 56 53 50 47

     

       733
       733
       +
       69 70 72 73 75 78

     

       734
       734
       +
       39 42 44 47 48

     

       735
       735
       +
       57 60 61 62 63 66 68 69

     

       736
       736
       +
       2 3 5 7 9 10

     

       737
       737
       +
       66 67 68 69 70 71 72

     

       738
       738
       +
       9 8 7 4 1

     

       739
       739
       +
       86 84 81 79 76 73 72

     

       740
       740
       +
       56 55 54 52 50

     

       741
       741
       +
       35 38 41 42 45 46

     

       742
       742
       +
       41 39 38 35 34 31

     

       743
       743
       +
       85 82 79 76 73 71 69

     

       744
       744
       +
       10 13 14 15 16 19 22

     

       745
       745
       +
       31 28 26 24 22 19

     

       746
       746
       +
       89 88 86 83 82 81 80

     

       747
       747
       +
       50 47 46 44 43 42 39 38

     

       748
       748
       +
       64 63 60 59 56 54 51 49

     

       749
       749
       +
       43 41 40 39 37 35 33

     

       750
       750
       +
       64 61 58 57 54 52 50

     

       751
       751
       +
       41 44 45 47 49

     

       752
       752
       +
       89 90 93 94 96

     

       753
       753
       +
       39 36 33 30 27 25

     

       754
       754
       +
       30 28 27 25 24

     

       755
       755
       +
       83 84 86 88 89 92 95

     

       756
       756
       +
       42 41 38 35 32

     

       757
       757
       +
       30 29 27 26 23 22 21 20

     

       758
       758
       +
       8 10 11 12 15

     

       759
       759
       +
       59 56 54 52 51

     

       760
       760
       +
       64 63 61 59 56 54 53 52

     

       761
       761
       +
       68 69 70 73 75 76 79

     

       762
       762
       +
       62 64 66 68 70 73 75

     

       763
       763
       +
       33 35 36 37 39 41

     

       764
       764
       +
       49 52 55 56 59 61

     

       765
       765
       +
       46 48 51 53 54 57 60 61

     

       766
       766
       +
       24 26 29 31 33 34 35

     

       767
       767
       +
       41 39 36 35 34 33 30

     

       768
       768
       +
       98 96 93 90 87 86 84

     

       769
       769
       +
       31 29 28 27 25 22 21

     

       770
       770
       +
       28 31 32 34 35 36 39

     

       771
       771
       +
       76 77 80 82 84 86

     

       772
       772
       +
       10 12 15 17 18 19 22

     

       773
       773
       +
       75 76 79 81 83

     

       774
       774
       +
       44 43 41 40 38 35 32 31

     

       775
       775
       +
       63 65 67 70 73 75 77 78

     

       776
       776
       +
       69 66 63 62 60

     

       777
       777
       +
       17 20 22 24 26 27

     

       778
       778
       +
       90 87 85 82 81 78

     

       779
       779
       +
       95 94 93 90 87 85 83 80

     

       780
       780
       +
       18 21 23 24 26

     

       781
       781
       +
       43 41 40 38 37 35 33 32

     

       782
       782
       +
       70 71 72 74 75 78 79 80

     

       783
       783
       +
       32 30 27 25 23 21

     

       784
       784
       +
       55 57 59 62 64 67 69

     

       785
       785
       +
       52 53 54 56 59 61 62 65

     

       786
       786
       +
       29 27 24 21 20

     

       787
       787
       +
       41 42 44 45 46 47

     

       788
       788
       +
       67 69 70 73 76

     

       789
       789
       +
       24 22 21 20 17 14 13

     

       790
       790
       +
       73 72 69 67 65 63 61

     

       791
       791
       +
       19 20 22 23 24 25 28 29

     

       792
       792
       +
       37 36 35 34 31 30 29 27

     

       793
       793
       +
       42 43 44 46 49

     

       794
       794
       +
       79 82 85 88 90

     

       795
       795
       +
       27 25 22 20 18

     

       796
       796
       +
       47 49 52 55 57

     

       797
       797
       +
       68 66 64 62 59 56

     

       798
       798
       +
       89 87 84 82 80

     

       799
       799
       +
       93 91 90 87 86

     

       800
       800
       +
       31 28 26 25 22

     

       801
       801
       +
       12 9 7 4 2

     

       802
       802
       +
       27 26 24 22 21

     

       803
       803
       +
       71 74 76 79 81 82

     

       804
       804
       +
       24 23 20 17 14 11 10

     

       805
       805
       +
       58 55 52 49 48

     

       806
       806
       +
       97 94 92 89 87 86 85 82

     

       807
       807
       +
       91 88 87 85 83 82

     

       808
       808
       +
       63 60 57 56 53 52 51 49

     

       809
       809
       +
       63 66 68 70 73 76

     

       810
       810
       +
       22 20 19 18 15 13

     

       811
       811
       +
       65 63 62 61 60 59

     

       812
       812
       +
       97 95 94 91 88 85

     

       813
       813
       +
       13 15 18 20 21 23

     

       814
       814
       +
       66 67 70 71 74 77

     

       815
       815
       +
       61 60 58 56 53 52 49

     

       816
       816
       +
       17 15 12 11 10 7 6 3

     

       817
       817
       +
       86 87 88 89 91 92

     

       818
       818
       +
       78 80 83 86 89 91 92 94

     

       819
       819
       +
       66 65 63 62 61 59 58

     

       820
       820
       +
       84 86 88 89 92

     

       821
       821
       +
       80 83 86 87 88

     

       822
       822
       +
       69 68 65 62 60 59 56 53

     

       823
       823
       +
       57 59 62 65 68 69 72 73

     

       824
       824
       +
       11 14 15 16 18 21 22

     

       825
       825
       +
       20 21 23 26 29 31 33

     

       826
       826
       +
       26 25 24 22 20 18

     

       827
       827
       +
       25 28 29 32 34

     

       828
       828
       +
       63 62 61 60 59 57 56

     

       829
       829
       +
       69 72 75 77 80 82 83 86

     

       830
       830
       +
       59 56 53 50 48 45 42

     

       831
       831
       +
       30 33 34 36 37 40

     

       832
       832
       +
       51 48 45 42 41

     

       833
       833
       +
       79 81 83 85 87 89 90 93

     

       834
       834
       +
       59 61 63 64 66 69 70 72

     

       835
       835
       +
       44 45 46 49 51 54 57 59

     

       836
       836
       +
       40 41 42 43 46 48 51

     

       837
       837
       +
       10 13 15 17 20 21 23 25

     

       838
       838
       +
       11 9 6 5 4 3

     

       839
       839
       +
       88 90 91 93 94 97

     

       840
       840
       +
       94 93 90 87 84 83 80 78

     

       841
       841
       +
       72 74 76 79 82 83 86

     

       842
       842
       +
       91 90 89 88 87 86

     

       843
       843
       +
       24 27 30 33 35 37 38 41

     

       844
       844
       +
       54 53 50 48 45 43 40

     

       845
       845
       +
       75 74 72 70 68 66 63

     

       846
       846
       +
       86 85 83 80 78 75

     

       847
       847
       +
       72 73 76 77 78 79 82

     

       848
       848
       +
       81 79 78 77 76 74 71 69

     

       849
       849
       +
       11 14 16 19 21

     

       850
       850
       +
       83 80 77 74 71 70

     

       851
       851
       +
       75 77 79 82 85 87 89 91

     

       852
       852
       +
       38 40 41 44 47 49

     

       853
       853
       +
       37 39 40 43 46 48 51

     

       854
       854
       +
       26 25 22 21 19 16

     

       855
       855
       +
       28 25 24 22 19 17 15 14

     

       856
       856
       +
       99 96 93 91 88 87 86

     

       857
       857
       +
       68 67 66 65 62 60 58

     

       858
       858
       +
       36 38 41 43 46

     

       859
       859
       +
       69 71 74 76 78 80 83 85

     

       860
       860
       +
       37 34 31 28 27 26

     

       861
       861
       +
       70 73 76 77 78 80 81 83

     

       862
       862
       +
       65 64 61 59 57 54 52

     

       863
       863
       +
       13 10 9 6 4

     

       864
       864
       +
       85 88 91 93 94

     

       865
       865
       +
       77 78 80 83 86 87 90 93

     

       866
       866
       +
       36 37 38 39 42 45 46 47

     

       867
       867
       +
       66 69 70 73 76 79 80

     

       868
       868
       +
       81 80 77 75 74 71 69

     

       869
       869
       +
       56 53 50 47 45 42 40

     

       870
       870
       +
       75 72 70 67 65 64 61 59

     

       871
       871
       +
       35 33 30 28 26 24 21

     

       872
       872
       +
       13 14 16 17 18 20 23 25

     

       873
       873
       +
       30 31 32 33 36 39

     

       874
       874
       +
       40 37 35 34 32 29 26 25

     

       875
       875
       +
       19 17 16 14 13 12 11 9

     

       876
       876
       +
       54 53 50 47 44

     

       877
       877
       +
       65 64 62 60 57 54

     

       878
       878
       +
       37 35 32 29 27

     

       879
       879
       +
       28 29 32 35 38 40 43 46

     

       880
       880
       +
       87 90 92 93 95 97

     

       881
       881
       +
       9 10 13 16 17 18 20

     

       882
       882
       +
       60 57 55 54 53 52 50 47

     

       883
       883
       +
       74 73 71 69 66

     

       884
       884
       +
       62 63 66 69 70 71

     

       885
       885
       +
       37 39 42 43 44 46 48

     

       886
       886
       +
       15 18 19 20 22

     

       887
       887
       +
       62 59 58 56 55 54 52 50

     

       888
       888
       +
       29 26 25 23 20 19

     

       889
       889
       +
       62 63 66 67 68 70

     

       890
       890
       +
       97 96 94 93 92 91 88

     

       891
       891
       +
       42 40 37 35 34

     

       892
       892
       +
       65 63 60 57 56 54 51

     

       893
       893
       +
       39 38 37 36 35 33

     

       894
       894
       +
       45 42 39 36 34 33

     

       895
       895
       +
       37 35 33 30 28 25 24 22

     

       896
       896
       +
       20 19 16 15 12 9

     

       897
       897
       +
       41 38 35 34 33 31 30 29

     

       898
       898
       +
       69 67 65 63 62 59

     

       899
       899
       +
       77 75 73 71 70 68 65 63

     

       900
       900
       +
       3 5 8 10 13 16 18

     

       901
       901
       +
       21 23 25 27 30 33 35

     

       902
       902
       +
       67 66 64 62 60

     

       903
       903
       +
       95 92 90 87 84

     

       904
       904
       +
       66 63 60 57 56 53 50 49

     

       905
       905
       +
       47 46 44 41 40

     

       906
       906
       +
       39 42 43 44 47

     

       907
       907
       +
       57 56 53 51 48 47

     

       908
       908
       +
       23 24 25 26 28 30 31

     

       909
       909
       +
       78 79 80 81 83 86 87

     

       910
       910
       +
       13 16 18 20 21 24

     

       911
       911
       +
       90 88 86 83 82 80 78 77

     

       912
       912
       +
       82 80 79 77 76 73 71 68

     

       913
       913
       +
       64 65 67 69 71

     

       914
       914
       +
       64 66 68 69 71 73 74

     

       915
       915
       +
       25 27 28 31 32 35 36 39

     

       916
       916
       +
       54 55 57 58 59

     

       917
       917
       +
       58 55 52 49 46

     

       918
       918
       +
       18 15 12 9 8 5 3

     

       919
       919
       +
       13 15 17 19 22 25 26 28

     

       920
       920
       +
       77 79 82 85 88

     

       921
       921
       +
       59 61 63 66 69

     

       922
       922
       +
       15 12 11 8 7 6

     

       923
       923
       +
       60 63 65 67 70 71 74

     

       924
       924
       +
       75 74 71 68 67 65 63

     

       925
       925
       +
       39 40 43 46 48

     

       926
       926
       +
       67 70 73 75 76 78 81

     

       927
       927
       +
       73 70 67 64 61

     

       928
       928
       +
       22 24 25 28 31

     

       929
       929
       +
       62 64 67 69 71 73

     

       930
       930
       +
       44 41 40 37 36 33 32 31

     

       931
       931
       +
       50 47 45 43 41 39 37 34

     

       932
       932
       +
       36 38 40 41 42

     

       933
       933
       +
       93 92 90 87 86 84 83 82

     

       934
       934
       +
       17 14 11 10 8

     

       935
       935
       +
       90 87 86 84 81

     

       936
       936
       +
       56 57 60 63 64 66 67 69

     

       937
       937
       +
       38 36 33 32 31

     

       938
       938
       +
       67 64 63 60 57 54 52 51

     

       939
       939
       +
       76 77 79 81 83

     

       940
       940
       +
       82 83 86 87 88

     

       941
       941
       +
       39 40 43 45 46 49 52

     

       942
       942
       +
       67 68 71 73 75 76 78 81

     

       943
       943
       +
       25 24 21 18 17 16 15 13

     

       944
       944
       +
       89 86 83 80 78 77 75 72

     

       945
       945
       +
       20 21 23 25 27 28 29

     

       946
       946
       +
       1 4 6 9 12 15 18 19

     

       947
       947
       +
       51 52 53 54 55 56 57

     

       948
       948
       +
       71 70 68 67 65 62 61

     

       949
       949
       +
       29 26 24 21 18 17 15

     

       950
       950
       +
       55 53 52 50 49 48 46 45

     

       951
       951
       +
       24 27 28 29 32 33 34 37

     

       952
       952
       +
       61 64 65 66 67 68

     

       953
       953
       +
       82 80 77 75 74

     

       954
       954
       +
       71 68 66 63 61 58 56 54

     

       955
       955
       +
       27 28 30 31 33 35 38 41

     

       956
       956
       +
       12 13 16 19 21 24 26

     

       957
       957
       +
       46 49 51 54 55 58 59 61

     

       958
       958
       +
       63 62 60 57 54

     

       959
       959
       +
       78 75 74 71 69 66 64

     

       960
       960
       +
       84 82 80 77 75 72

     

       961
       961
       +
       75 72 70 68 67

     

       962
       962
       +
       52 54 57 59 61 64

     

       963
       963
       +
       42 45 47 49 50 53

     

       964
       964
       +
       80 83 85 86 88 91 93 94

     

       965
       965
       +
       29 32 33 36 38

     

       966
       966
       +
       4 5 7 8 9

     

       967
       967
       +
       37 36 35 33 31 29

     

       968
       968
       +
       58 59 62 63 65 67

     

       969
       969
       +
       60 58 56 55 53

     

       970
       970
       +
       76 79 81 82 84 86 87

     

       971
       971
       +
       87 89 90 92 93 95 96

     

       972
       972
       +
       59 61 64 65 68

     

       973
       973
       +
       63 65 68 69 71 74

     

       974
       974
       +
       81 83 86 89 90 91 94 95

     

       975
       975
       +
       54 53 51 50 49 47 44

     

       976
       976
       +
       78 81 83 86 89 92

     

       977
       977
       +
       64 65 68 69 70

     

       978
       978
       +
       30 28 25 22 21 18 17

     

       979
       979
       +
       36 34 33 32 30

     

       980
       980
       +
       31 30 27 24 23 22 21 18

     

       981
       981
       +
       62 64 65 66 69 72

     

       982
       982
       +
       9 6 5 3 1

     

       983
       983
       +
       6 8 11 13 14

     

       984
       984
       +
       51 49 48 47 45 43 41

     

       985
       985
       +
       76 75 74 71 68 65 63 61

     

       986
       986
       +
       83 85 88 91 92 93

     

       987
       987
       +
       51 49 47 45 44 43

     

       988
       988
       +
       69 66 64 62 60 58

     

       989
       989
       +
       6 7 9 10 12 13 16 19

     

       990
       990
       +
       45 44 43 42 41

     

       991
       991
       +
       56 58 60 63 64 67 68

     

       992
       992
       +
       71 73 76 78 81 83 84 86

     

       993
       993
       +
       83 82 81 78 75 72 70 67

     

       994
       994
       +
       51 50 48 45 42 39 37

     

       995
       995
       +
       88 86 85 82 79

     

       996
       996
       +
       51 48 46 43 42 40 39 38

     

       997
       997
       +
       34 36 39 42 45 48 50 53

     

       998
       998
       +
       27 24 22 21 19 17 16

     

       999
       999
       +
       66 63 61 60 58 57 54 53

     

       1000
       1000
       +
       83 84 87 90 91 94 96 98

+86

2024/day_02_part_2.f90

···

       1
       1
       +
       module day2_utils 

     

       2
       2
       +
         implicit none

     

       3
       3
       +
         contains

     

       4
       4
       +
         subroutine has_fail_value(list, res) 

     

       5
       5
       +
           implicit none

     

       6
       6
       +
           integer, allocatable, intent(in) :: list(:)

     

       7
       7
       +
           integer :: i

     

       8
       8
       +
           integer, intent(out):: res

     

       9
       9
       +
           logical is_decrement

     

       10
       10
       +
       

     

       11
       11
       +
           res = -1 

     

       12
       12
       +
           do i = 1, size(list) - 1

     

       13
       13
       +
           if (list(i) == list(i+1)) then 

     

       14
       14
       +
              res= i 

     

       15
       15
       +
              exit

     

       16
       16
       +
             end if

     

       17
       17
       +
             if(i == 1 .and. list(i) > list(i+1)) then

     

       18
       18
       +
               is_decrement = .true.

     

       19
       19
       +
             else if (i==1 .and. list(i) < list(i+1)) then

     

       20
       20
       +
               is_decrement = .false.

     

       21
       21
       +
             end if

     

       22
       22
       +
             

     

       23
       23
       +
             if(is_decrement)  then

     

       24
       24
       +
               if (list(i) < list(i+1) .or. abs(list(i) - list(i+1)) > 3) then 

     

       25
       25
       +
                res = i 

     

       26
       26
       +
                 exit

     

       27
       27
       +
               end if

     

       28
       28
       +
             else

     

       29
       29
       +
               if (list(i) >  list(i+1) .or. abs(list(i) - list(i+1)) > 3) then 

     

       30
       30
       +
                 res = i

     

       31
       31
       +
                 exit

     

       32
       32
       +
               end if

     

       33
       33
       +
             end if

     

       34
       34
       +
           end do

     

       35
       35
       +
         end subroutine has_fail_value

     

       36
       36
       +
       end module day2_utils

     

       37
       37
       +
       

     

       38
       38
       +
       program day_02_part_2

     

       39
       39
       +
         use day2_utils

     

       40
       40
       +
         implicit none

     

       41
       41
       +
         logical :: is_decrement 

     

       42
       42
       +
         integer :: io, i,x,y, fail, spaces, res

     

       43
       43
       +
         integer, dimension(:), allocatable :: list, list2

     

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

     

       45
       45
       +
       

     

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

     

       47
       47
       +
       

     

       48
       48
       +
         res = 0

     

       49
       49
       +
         do i = 1, 1000 

     

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

     

       51
       51
       +
           spaces = 1 ! reset space count

     

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

     

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

     

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

     

       55
       55
       +
               spaces = spaces+1 

     

       56
       56
       +
             end if

     

       57
       57
       +
           end do

     

       58
       58
       +
       

     

       59
       59
       +
           allocate(list(spaces))

     

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

     

       61
       61
       +
           fail = -1

     

       62
       62
       +
           call has_fail_value(list, fail) 

     

       63
       63
       +
           if (fail > 0) then 

     

       64
       64
       +
             y = 1

     

       65
       65
       +
             allocate(list2(spaces -1))

     

       66
       66
       +
             do x = 1, size(list)

     

       67
       67
       +
               if(x /= fail) then

     

       68
       68
       +
                 list2(y) = list(x)

     

       69
       69
       +
                 y = y+1

     

       70
       70
       +
               end if

     

       71
       71
       +
             end do

     

       72
       72
       +
             fail = -1

     

       73
       73
       +
             call has_fail_value(list2, fail)

     

       74
       74
       +
             if(fail > 0) then

     

       75
       75
       +
               print*, list2(:)

     

       76
       76
       +
              end if

     

       77
       77
       +
             deallocate(list2)

     

       78
       78
       +
       

     

       79
       79
       +
            end if

     

       80
       80
       +
            if (fail == -1) then

     

       81
       81
       +
            res = res + 1 

     

       82
       82
       +
           endif

     

       83
       83
       +
           deallocate(list)

     

       84
       84
       +
         end do

     

       85
       85
       +
         print*, res 

     

       86
       86
       +
       end program day_02_part_2