commit 762cd8eaf673c4e04ec2ec7ab5b295074446f17e · aylac.top/advent_of_code

+20

2015/13/gleam/gleam.toml

···

       1
       1
       +
       name = "main"

     

       2
       2
       +
       version = "1.0.0"

     

       3
       3
       +
       

     

       4
       4
       +
       # Fill out these fields if you intend to generate HTML documentation or publish

     

       5
       5
       +
       # your project to the Hex package manager.

     

       6
       6
       +
       #

     

       7
       7
       +
       # description = ""

     

       8
       8
       +
       # licences = ["Apache-2.0"]

     

       9
       9
       +
       # repository = { type = "github", user = "", repo = "" }

     

       10
       10
       +
       # links = [{ title = "Website", href = "" }]

     

       11
       11
       +
       #

     

       12
       12
       +
       # For a full reference of all the available options, you can have a look at

     

       13
       13
       +
       # https://gleam.run/writing-gleam/gleam-toml/.

     

       14
       14
       +
       

     

       15
       15
       +
       [dependencies]

     

       16
       16
       +
       gleam_stdlib = ">= 0.44.0 and < 2.0.0"

     

       17
       17
       +
       simplifile = ">= 2.3.0 and < 3.0.0"

     

       18
       18
       +
       

     

       19
       19
       +
       [dev-dependencies]

     

       20
       20
       +
       gleeunit = ">= 1.0.0 and < 2.0.0"

+14

2015/13/gleam/manifest.toml

···

       1
       1
       +
       # This file was generated by Gleam

     

       2
       2
       +
       # You typically do not need to edit this file

     

       3
       3
       +
       

     

       4
       4
       +
       packages = [

     

       5
       5
       +
         { name = "filepath", version = "1.1.2", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "filepath", source = "hex", outer_checksum = "B06A9AF0BF10E51401D64B98E4B627F1D2E48C154967DA7AF4D0914780A6D40A" },

     

       6
       6
       +
         { name = "gleam_stdlib", version = "0.65.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "7C69C71D8C493AE11A5184828A77110EB05A7786EBF8B25B36A72F879C3EE107" },

     

       7
       7
       +
         { name = "gleeunit", version = "1.7.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "CD701726CBCE5588B375D157B4391CFD0F2F134CD12D9B6998A395484DE05C58" },

     

       8
       8
       +
         { name = "simplifile", version = "2.3.0", build_tools = ["gleam"], requirements = ["filepath", "gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "0A868DAC6063D9E983477981839810DC2E553285AB4588B87E3E9C96A7FB4CB4" },

     

       9
       9
       +
       ]

     

       10
       10
       +
       

     

       11
       11
       +
       [requirements]

     

       12
       12
       +
       gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }

     

       13
       13
       +
       gleeunit = { version = ">= 1.0.0 and < 2.0.0" }

     

       14
       14
       +
       simplifile = { version = ">= 2.3.0 and < 3.0.0" }

+183

2015/13/gleam/src/main.gleam

···

       1
       1
       +
       import gleam/dict.{type Dict}

     

       2
       2
       +
       import gleam/int

     

       3
       3
       +
       import gleam/io

     

       4
       4
       +
       import gleam/list

     

       5
       5
       +
       import gleam/set.{type Set}

     

       6
       6
       +
       import gleam/string

     

       7
       7
       +
       import simplifile.{read}

     

       8
       8
       +
       

     

       9
       9
       +
       pub type Relation {

     

       10
       10
       +
         Relation(person: String, neighbor: String)

     

       11
       11
       +
       }

     

       12
       12
       +
       

     

       13
       13
       +
       pub type SingularHappiness =

     

       14
       14
       +
         Int

     

       15
       15
       +
       

     

       16
       16
       +
       pub type SingularHappinessDict =

     

       17
       17
       +
         Dict(Relation, SingularHappiness)

     

       18
       18
       +
       

     

       19
       19
       +
       pub type Happiness =

     

       20
       20
       +
         Int

     

       21
       21
       +
       

     

       22
       22
       +
       pub type HappinessDict =

     

       23
       23
       +
         Dict(Relation, Happiness)

     

       24
       24
       +
       

     

       25
       25
       +
       pub type People =

     

       26
       26
       +
         Set(String)

     

       27
       27
       +
       

     

       28
       28
       +
       pub type Sign {

     

       29
       29
       +
         Gain

     

       30
       30
       +
         Lose

     

       31
       31
       +
       }

     

       32
       32
       +
       

     

       33
       33
       +
       fn do_find_happiest_table(

     

       34
       34
       +
         happiness_dict,

     

       35
       35
       +
         people,

     

       36
       36
       +
         happiest_table,

     

       37
       37
       +
         first_person first_person,

     

       38
       38
       +
         last_person last_person,

     

       39
       39
       +
         table table,

     

       40
       40
       +
       ) {

     

       41
       41
       +
         case set.size(people) == 0 {

     

       42
       42
       +
           True -> {

     

       43
       43
       +
             let assert Ok(relation) =

     

       44
       44
       +
               happiness_dict |> dict.get(Relation(last_person, first_person))

     

       45
       45
       +
               as "There should be more than one person"

     

       46
       46
       +
             let table = table + relation

     

       47
       47
       +
             case table > happiest_table {

     

       48
       48
       +
               True -> table

     

       49
       49
       +
               False -> happiest_table

     

       50
       50
       +
             }

     

       51
       51
       +
           }

     

       52
       52
       +
           False -> {

     

       53
       53
       +
             people

     

       54
       54
       +
             |> set.fold(0, fn(happiest_table, person) {

     

       55
       55
       +
               let assert Ok(relation) =

     

       56
       56
       +
                 happiness_dict |> dict.get(Relation(last_person, person))

     

       57
       57
       +
                 as {

     

       58
       58
       +
                   "Relation between "

     

       59
       59
       +
                   <> { last_person <> " and " <> person }

     

       60
       60
       +
                   <> " was not found"

     

       61
       61
       +
                 }

     

       62
       62
       +
               let table =

     

       63
       63
       +
                 table

     

       64
       64
       +
                 + relation

     

       65
       65
       +
                 + do_find_happiest_table(

     

       66
       66
       +
                   happiness_dict,

     

       67
       67
       +
                   people |> set.delete(person),

     

       68
       68
       +
                   happiest_table,

     

       69
       69
       +
                   first_person,

     

       70
       70
       +
                   last_person: person,

     

       71
       71
       +
                   table: table,

     

       72
       72
       +
                 )

     

       73
       73
       +
               case table > happiest_table {

     

       74
       74
       +
                 True -> table

     

       75
       75
       +
                 False -> happiest_table

     

       76
       76
       +
               }

     

       77
       77
       +
             })

     

       78
       78
       +
           }

     

       79
       79
       +
         }

     

       80
       80
       +
       }

     

       81
       81
       +
       

     

       82
       82
       +
       pub fn find_happiest_table(happiness_dict: HappinessDict, people: People) {

     

       83
       83
       +
         let assert Ok(person) = people |> set.to_list |> list.first

     

       84
       84
       +
           as "People list is empty"

     

       85
       85
       +
         do_find_happiest_table(

     

       86
       86
       +
           happiness_dict,

     

       87
       87
       +
           people |> set.delete(person),

     

       88
       88
       +
           0,

     

       89
       89
       +
           first_person: person,

     

       90
       90
       +
           last_person: person,

     

       91
       91
       +
           table: 0,

     

       92
       92
       +
         )

     

       93
       93
       +
       }

     

       94
       94
       +
       

     

       95
       95
       +
       pub fn parse_sign(sign: String) {

     

       96
       96
       +
         case sign {

     

       97
       97
       +
           "gain" -> Ok(Gain)

     

       98
       98
       +
           "lose" -> Ok(Lose)

     

       99
       99
       +
           _ -> Error("Some sign input was neither gain or lose: " <> sign)

     

       100
       100
       +
         }

     

       101
       101
       +
       }

     

       102
       102
       +
       

     

       103
       103
       +
       pub fn main() {

     

       104
       104
       +
         let assert Ok(input) = read(from: "../input.txt") as "Input file not found"

     

       105
       105
       +
       

     

       106
       106
       +
         let singular_happiness_dict: SingularHappinessDict =

     

       107
       107
       +
           input

     

       108
       108
       +
           |> string.trim

     

       109
       109
       +
           |> string.split("\n")

     

       110
       110
       +
           |> list.map(fn(value) {

     

       111
       111
       +
             case value |> string.split(" ") {

     

       112
       112
       +
               // (person) would (gain/lose) (amount) happiness units by sitting next to (neighbor.)

     

       113
       113
       +
               [person, _, sign, happiness, _, _, _, _, _, _, neighbor] -> {

     

       114
       114
       +
                 let assert Ok(happiness) = happiness |> int.base_parse(10)

     

       115
       115
       +
                   as { "Happiness values should be integers: " <> happiness }

     

       116
       116
       +
                 let sign = case parse_sign(sign) {

     

       117
       117
       +
                   Ok(sign) -> sign

     

       118
       118
       +
                   Error(message) -> panic as message

     

       119
       119
       +
                 }

     

       120
       120
       +
                 let happiness = case sign {

     

       121
       121
       +
                   Gain -> happiness

     

       122
       122
       +
                   Lose -> happiness |> int.negate

     

       123
       123
       +
                 }

     

       124
       124
       +
       

     

       125
       125
       +
                 let neighbor = case neighbor |> string.last {

     

       126
       126
       +
                   Ok(".") -> neighbor |> string.drop_end(1)

     

       127
       127
       +
                   _ -> panic as { "Neighbor didn't end in a dot: " <> neighbor }

     

       128
       128
       +
                 }

     

       129
       129
       +
       

     

       130
       130
       +
                 #(Relation(person, neighbor), happiness)

     

       131
       131
       +
               }

     

       132
       132
       +
               _ -> panic as { "Value doesn't match constrainsts" <> value }

     

       133
       133
       +
             }

     

       134
       134
       +
           })

     

       135
       135
       +
           |> dict.from_list

     

       136
       136
       +
       

     

       137
       137
       +
         let happiness_dict: HappinessDict =

     

       138
       138
       +
           singular_happiness_dict

     

       139
       139
       +
           |> dict.fold(dict.new(), fn(hd, relation, singular_happiness) {

     

       140
       140
       +
             let Relation(person1, person2) = relation

     

       141
       141
       +
       

     

       142
       142
       +
             case hd |> dict.has_key(relation) {

     

       143
       143
       +
               False -> {

     

       144
       144
       +
                 let other_relation = Relation(person2, person1)

     

       145
       145
       +
                 let assert Ok(other_singular_happiness) =

     

       146
       146
       +
                   singular_happiness_dict |> dict.get(other_relation)

     

       147
       147
       +
                   as "Malformed singular_happiness_dict"

     

       148
       148
       +
                 let total_happiness = singular_happiness + other_singular_happiness

     

       149
       149
       +
       

     

       150
       150
       +
                 hd

     

       151
       151
       +
                 |> dict.insert(relation, total_happiness)

     

       152
       152
       +
                 |> dict.insert(other_relation, total_happiness)

     

       153
       153
       +
               }

     

       154
       154
       +
               True -> hd

     

       155
       155
       +
             }

     

       156
       156
       +
           })

     

       157
       157
       +
       

     

       158
       158
       +
         let people: People =

     

       159
       159
       +
           singular_happiness_dict

     

       160
       160
       +
           |> dict.fold(set.new(), fn(people, relation, _) {

     

       161
       161
       +
             people |> set.insert(relation.person)

     

       162
       162
       +
           })

     

       163
       163
       +
       

     

       164
       164
       +
         "Part 1" |> io.println

     

       165
       165
       +
         let happiest_table = find_happiest_table(happiness_dict, people)

     

       166
       166
       +
         happiest_table |> int.to_string |> io.println

     

       167
       167
       +
       

     

       168
       168
       +
         "Part 2" |> io.println

     

       169
       169
       +
         let relations_with_me: SingularHappinessDict =

     

       170
       170
       +
           people

     

       171
       171
       +
           |> set.to_list

     

       172
       172
       +
           |> list.map(fn(person) {

     

       173
       173
       +
             [#(Relation(person, "Me"), 0), #(Relation("Me", person), 0)]

     

       174
       174
       +
           })

     

       175
       175
       +
           |> list.flatten

     

       176
       176
       +
           |> dict.from_list

     

       177
       177
       +
         let happiness_dict = happiness_dict |> dict.merge(relations_with_me)

     

       178
       178
       +
         let people = people |> set.insert("Me")

     

       179
       179
       +
       

     

       180
       180
       +
         let happiest_table_with_me = find_happiest_table(happiness_dict, people)

     

       181
       181
       +
         "With me: " |> io.print

     

       182
       182
       +
         happiest_table_with_me |> int.to_string |> io.println

     

       183
       183
       +
       }

+5 -4

template/gleam/src/main.gleam

···

       1
       1
        
       import gleam/int.{to_string}

     

       2
       2
        
       import gleam/io.{println}

     

       3
       3
       -
       import gleam/result.{unwrap}

     

       4
       4
       -
       import gleam/string.{trim}

     

       5
       5
       -
       import simplifile.{read}

     

       3
       3
       +
       import gleam/string

     

       4
       4
       +
       import simplifile.{read as read_file}

     

       6
       5
        
       

     

       7
       6
        
       pub fn main() {

     

       8
       8
       -
         let input = read(from: "../input.txt") |> unwrap("") |> trim()

     

       7
       7
       +
         let assert Ok(input) = read_file(from: "../input.txt")

     

       8
       8
       +
           as "Input file not found"

     

       9
       9
       +
         let input = input |> string.trim

     

       9
       10
        
       

     

       10
       11
        
         println(

     

       11
       12
        
           5