commit 4ce0727524833b5c2e6af953d4487579427134f4 · aylac.top/advent_of_code

+32 -33
2015/1/gleam/src/main.gleam
···

       1
       1
       -
       import gleam/int.{to_string}

     

       2
       2
       -
       import gleam/io.{println}

     

       3
       3
       -
       import gleam/list.{Continue, Stop, fold, fold_until}

     

       4
       4
       -
       import gleam/result.{unwrap}

     

       5
       5
       -
       import gleam/string.{split, trim}

     

       6
       6
       -
       import simplifile.{read}

     

       1
       1
       +
       import gleam/int

     

       2
       2
       +
       import gleam/io

     

       3
       3
       +
       import gleam/list.{Continue, Stop, fold}

     

       4
       4
       +
       import gleam/string

     

       5
       5
       +
       import simplifile as file

     

       7
       6
        
       

     

       8
       7
        
       pub type FloorIndex {

     

       9
       8
        
         FloorIndex(floor: Int, index: Int)

     

       10
       9
        
       }

     

       11
       10
        
       

     

       12
       11
        
       pub fn main() {

     

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

     

       12
       12
       +
         let assert Ok(input) = file.read(from: "../input.txt")

     

       13
       13
       +
         let input = input |> string.trim() |> string.split("")

     

       14
       14
       +
       

     

       15
       15
       +
         input

     

       16
       16
       +
         |> fold(0, fn(fl, cur) {

     

       17
       17
       +
           case cur {

     

       18
       18
       +
             "(" -> fl + 1

     

       19
       19
       +
             ")" -> fl - 1

     

       20
       20
       +
             ___ -> 0

     

       21
       21
       +
           }

     

       22
       22
       +
         })

     

       23
       23
       +
         |> int.to_string

     

       24
       24
       +
         |> io.println

     

       14
       25
        
       

     

       15
       15
       -
         // part 1 - get final floor

     

       16
       16
       -
         println(

     

       17
       17
       -
           fold(input, 0, fn(fl, cur) {

     

       18
       18
       -
             case cur {

     

       19
       19
       -
               "(" -> fl + 1

     

       20
       20
       -
               ")" -> fl - 1

     

       26
       26
       +
         // part 2 - get first time in the basement

     

       27
       27
       +
         let FloorIndex(_, index) =

     

       28
       28
       +
           input

     

       29
       29
       +
           |> list.fold_until(FloorIndex(0, 1), fn(fi, cur) {

     

       30
       30
       +
             let new = case cur {

     

       31
       31
       +
               "(" -> fi.floor + 1

     

       32
       32
       +
               ")" -> fi.floor - 1

     

       21
       33
        
               ___ -> 0

     

       22
       34
        
             }

     

       35
       35
       +
             case new < 0 {

     

       36
       36
       +
               True -> Stop(FloorIndex(new, fi.index))

     

       37
       37
       +
               False -> Continue(FloorIndex(new, fi.index + 1))

     

       38
       38
       +
             }

     

       23
       39
        
           })

     

       24
       24
       -
           |> to_string,

     

       25
       25
       -
         )

     

       26
       40
        
       

     

       27
       27
       -
         // part 2 - get first time in the basement

     

       28
       28
       -
         println(

     

       29
       29
       -
           {

     

       30
       30
       -
             input

     

       31
       31
       -
             |> fold_until(FloorIndex(0, 1), fn(fi, cur) {

     

       32
       32
       -
               let new = case cur {

     

       33
       33
       -
                 "(" -> fi.floor + 1

     

       34
       34
       -
                 ")" -> fi.floor - 1

     

       35
       35
       -
                 ___ -> 0

     

       36
       36
       -
               }

     

       37
       37
       -
               case new < 0 {

     

       38
       38
       -
                 True -> Stop(FloorIndex(new, fi.index))

     

       39
       39
       -
                 False -> Continue(FloorIndex(new, fi.index + 1))

     

       40
       40
       -
               }

     

       41
       41
       -
             })

     

       42
       42
       -
           }.index

     

       43
       43
       -
           |> to_string,

     

       44
       44
       -
         )

     

       41
       41
       +
         index

     

       42
       42
       +
         |> int.to_string

     

       43
       43
       +
         |> io.println

     

       45
       44
        
       }