commit 008db5dd92e954ce11a0b491eef759f6520f35cb · aylac.top/advent_of_code

+30 -84
2015/14/gleam/src/main.gleam
···

       18
       18
        
       }

     

       19
       19
        
       

     

       20
       20
        
       pub type ReindeerState {

     

       21
       21
       -
         ReindeerState(km: Int, action: Action, time_until_change: Int)

     

       22
       22
       -
       }

     

       23
       23
       -
       

     

       24
       24
       -
       pub type RunState =

     

       25
       25
       -
         dict.Dict(String, ReindeerState)

     

       26
       26
       -
       

     

       27
       27
       -
       pub type ReindeerStatePoints {

     

       28
       28
       -
         ReindeerStatePoints(

     

       29
       29
       -
           points: Int,

     

       30
       30
       -
           km: Int,

     

       31
       31
       -
           action: Action,

     

       32
       32
       -
           time_until_change: Int,

     

       33
       33
       -
         )

     

       21
       21
       +
         ReindeerState(points: Int, km: Int, action: Action, time_until_change: Int)

     

       34
       22
        
       }

     

       35
       23
        
       

     

       36
       24
        
       pub type LeadKm {

     

       37
       25
        
         LeadKm(km: Int, leads: Set(String))

     

       38
       26
        
       }

     

       39
       27
        
       

     

       40
       40
       -
       pub type RunStatePoints {

     

       41
       41
       -
         RunStatePoints(lead_km: LeadKm, state: Dict(String, ReindeerStatePoints))

     

       28
       28
       +
       pub type RunState {

     

       29
       29
       +
         RunState(lead_km: LeadKm, state: Dict(String, ReindeerState))

     

       42
       30
        
       }

     

       43
       31
        
       

     

       44
       32
        
       pub fn to_int(number_string) {

     
···

       51
       39
        
         case sec > 0 {

     

       52
       40
        
           False -> state

     

       53
       41
        
           True -> {

     

       54
       54
       -
             reindeers

     

       55
       55
       -
             |> list.fold(state, fn(state, reindeer) {

     

       56
       56
       -
               let Reindeer(name, speed, run, rest) = reindeer

     

       57
       57
       -
               let ReindeerState(km, action, time_until_change) =

     

       58
       58
       -
                 state

     

       59
       59
       -
                 |> dict.get(reindeer.name)

     

       60
       60
       -
                 |> result.unwrap(ReindeerState(0, Run, run))

     

       61
       61
       -
       

     

       62
       62
       -
               let km = case action {

     

       63
       63
       -
                 Run -> km + speed

     

       64
       64
       -
                 Rest -> km

     

       65
       65
       -
               }

     

       66
       66
       -
               case time_until_change, action {

     

       67
       67
       -
                 1, Run -> ReindeerState(km, Rest, rest)

     

       68
       68
       -
                 1, Rest -> ReindeerState(km, Run, run)

     

       69
       69
       -
                 _, _ -> ReindeerState(km, action, time_until_change - 1)

     

       70
       70
       -
               }

     

       71
       71
       -
               |> dict.insert(state, name, _)

     

       72
       72
       -
             })

     

       73
       73
       -
             |> do_calculate_run_state(reindeers, sec - 1)

     

       74
       74
       -
           }

     

       75
       75
       -
         }

     

       76
       76
       -
       }

     

       77
       77
       -
       

     

       78
       78
       -
       pub fn calculate_run_state(reindeers: List(Reindeer), sec: Int) {

     

       79
       79
       -
         do_calculate_run_state(dict.new(), reindeers, sec)

     

       80
       80
       -
       }

     

       81
       81
       -
       

     

       82
       82
       -
       pub fn get_winner_km(state: RunState) {

     

       83
       83
       -
         state

     

       84
       84
       -
         |> dict.fold(0, fn(winner, _, state) {

     

       85
       85
       -
           case state.km > winner {

     

       86
       86
       -
             True -> state.km

     

       87
       87
       -
             False -> winner

     

       88
       88
       -
           }

     

       89
       89
       -
         })

     

       90
       90
       -
       }

     

       91
       91
       -
       

     

       92
       92
       -
       pub fn do_calculate_run_state_pt2(

     

       93
       93
       -
         state: RunStatePoints,

     

       94
       94
       -
         reindeers: List(Reindeer),

     

       95
       95
       -
         sec,

     

       96
       96
       -
       ) {

     

       97
       97
       -
         case sec > 0 {

     

       98
       98
       -
           False -> state

     

       99
       99
       -
           True -> {

     

       100
       100
       -
             let RunStatePoints(LeadKm(_, leads), state) =

     

       42
       42
       +
             let RunState(LeadKm(_, leads), state) =

     

       101
       43
        
               reindeers

     

       102
       44
        
               |> list.fold(state, fn(s, reindeer) {

     

       103
       103
       -
                 let RunStatePoints(lead_km, state) = s

     

       45
       45
       +
                 let RunState(lead_km, state) = s

     

       104
       46
        
                 let Reindeer(name, speed, run, rest) = reindeer

     

       105
       105
       -
                 let ReindeerStatePoints(points, km, action, time_until_change) =

     

       47
       47
       +
                 let ReindeerState(points, km, action, time_until_change) =

     

       106
       48
        
                   state

     

       107
       49
        
                   |> dict.get(reindeer.name)

     

       108
       108
       -
                   |> result.unwrap(ReindeerStatePoints(0, 0, Run, run))

     

       50
       50
       +
                   |> result.unwrap(ReindeerState(0, 0, Run, run))

     

       109
       51
        
       

     

       110
       52
        
                 let km = case action {

     

       111
       53
        
                   Run -> km + speed

     
···

       113
       55
        
                 }

     

       114
       56
        
                 let state =

     

       115
       57
        
                   case time_until_change, action {

     

       116
       116
       -
                     1, Run -> ReindeerStatePoints(points, km, Rest, rest)

     

       117
       117
       -
                     1, Rest -> ReindeerStatePoints(points, km, Run, run)

     

       118
       118
       -
                     _, _ ->

     

       119
       119
       -
                       ReindeerStatePoints(points, km, action, time_until_change - 1)

     

       58
       58
       +
                     1, Run -> ReindeerState(points, km, Rest, rest)

     

       59
       59
       +
                     1, Rest -> ReindeerState(points, km, Run, run)

     

       60
       60
       +
                     _, _ -> ReindeerState(points, km, action, time_until_change - 1)

     

       120
       61
        
                   }

     

       121
       62
        
                   |> dict.insert(state, name, _)

     

       122
       63
        
       

     
···

       126
       67
        
                   Lt -> lead_km

     

       127
       68
        
                 }

     

       128
       69
        
       

     

       129
       129
       -
                 RunStatePoints(lead_km, state)

     

       70
       70
       +
                 RunState(lead_km, state)

     

       130
       71
        
               })

     

       131
       72
        
       

     

       132
       73
        
             let state =

     

       133
       74
        
               leads

     

       134
       75
        
               |> set.fold(state, fn(state, reindeer_name) {

     

       135
       135
       -
                 let assert Ok(ReindeerStatePoints(

     

       136
       136
       -
                   points,

     

       137
       137
       -
                   km,

     

       138
       138
       -
                   action,

     

       139
       139
       -
                   time_until_change,

     

       140
       140
       -
                 )) =

     

       76
       76
       +
                 let assert Ok(ReindeerState(points, km, action, time_until_change)) =

     

       141
       77
        
                   state

     

       142
       78
        
                   |> dict.get(reindeer_name)

     

       143
       79
        
                 state

     

       144
       80
        
                 |> dict.insert(

     

       145
       81
        
                   reindeer_name,

     

       146
       146
       -
                   ReindeerStatePoints(points + 1, km, action, time_until_change),

     

       82
       82
       +
                   ReindeerState(points + 1, km, action, time_until_change),

     

       147
       83
        
                 )

     

       148
       84
        
               })

     

       149
       85
        
       

     

       150
       150
       -
             RunStatePoints(LeadKm(0, set.new()), state)

     

       151
       151
       -
             |> do_calculate_run_state_pt2(reindeers, sec - 1)

     

       86
       86
       +
             RunState(LeadKm(0, set.new()), state)

     

       87
       87
       +
             |> do_calculate_run_state(reindeers, sec - 1)

     

       152
       88
        
           }

     

       153
       89
        
         }

     

       154
       90
        
       }

     

       155
       91
        
       

     

       156
       156
       -
       pub fn calculate_run_state_pt2(reindeers: List(Reindeer), sec: Int) {

     

       157
       157
       -
         do_calculate_run_state_pt2(

     

       158
       158
       -
           RunStatePoints(LeadKm(0, set.new()), dict.new()),

     

       92
       92
       +
       pub fn calculate_run_state(reindeers: List(Reindeer), sec: Int) {

     

       93
       93
       +
         do_calculate_run_state(

     

       94
       94
       +
           RunState(LeadKm(0, set.new()), dict.new()),

     

       159
       95
        
           reindeers,

     

       160
       96
        
           sec,

     

       161
       97
        
         )

     

       162
       98
        
       }

     

       163
       99
        
       

     

       164
       164
       -
       pub fn get_winner_points(state: RunStatePoints) {

     

       100
       100
       +
       pub fn get_winner_km(state: RunState) {

     

       101
       101
       +
         state.state

     

       102
       102
       +
         |> dict.fold(0, fn(winner, _, state) {

     

       103
       103
       +
           case state.km > winner {

     

       104
       104
       +
             True -> state.km

     

       105
       105
       +
             False -> winner

     

       106
       106
       +
           }

     

       107
       107
       +
         })

     

       108
       108
       +
       }

     

       109
       109
       +
       

     

       110
       110
       +
       pub fn get_winner_points(state: RunState) {

     

       165
       111
        
         state.state

     

       166
       112
        
         |> dict.fold(0, fn(winner, _, state) {

     

       167
       113
        
           case state.points > winner {

     
···

       196
       142
        
       

     

       197
       143
        
         "Part 2" |> io.println

     

       198
       144
        
         reindeer

     

       199
       199
       -
         |> calculate_run_state_pt2(2503)

     

       145
       145
       +
         |> calculate_run_state(2503)

     

       200
       146
        
         |> get_winner_points

     

       201
       147
        
         |> int.to_string

     

       202
       148
        
         |> io.println