commit e5571015dc1bef38f918f5510cc72661dd839d3e · aylac.top/advent_of_code

+10 -14
2015/12/gleam/src/main.gleam
···

       14
       14
        
         StringValue(String)

     

       15
       15
        
       }

     

       16
       16
        
       

     

       17
       17
       -
       fn int_anywhere_decoder() -> decode.Decoder(Nested) {

     

       17
       17
       +
       fn nested_decoder() -> decode.Decoder(Nested) {

     

       18
       18
        
         use <- decode.recursive

     

       19
       19
        
         decode.one_of(decode.int |> decode.map(IntValue), or: [

     

       20
       20
       -
           decode.list(int_anywhere_decoder()) |> decode.map(NestedList),

     

       21
       21
       -
           decode.dict(decode.string, int_anywhere_decoder()) |> decode.map(NestedDict),

     

       20
       20
       +
           decode.list(nested_decoder()) |> decode.map(NestedList),

     

       21
       21
       +
           decode.dict(decode.string, nested_decoder()) |> decode.map(NestedDict),

     

       22
       22
        
           decode.string |> decode.map(StringValue),

     

       23
       23
        
         ])

     

       24
       24
        
       }

     
···

       29
       29
        
             items

     

       30
       30
        
             |> list.fold(0, fn(acc, data) { acc + get_total_number(data, no_red) })

     

       31
       31
        
           NestedDict(items) -> {

     

       32
       32
       -
             let has_red = case no_red {

     

       33
       33
       -
               True ->

     

       32
       32
       +
             let has_red =

     

       33
       33
       +
               no_red

     

       34
       34
       +
               && {

     

       34
       35
        
                 items

     

       35
       35
       -
                 |> dict.fold(False, fn(state, _, data) {

     

       36
       36
       -
                   case data {

     

       37
       37
       -
                     StringValue("red") -> True

     

       38
       38
       -
                     _ -> state

     

       39
       39
       -
                   }

     

       40
       40
       -
                 })

     

       41
       41
       -
               False -> False

     

       42
       42
       -
             }

     

       36
       36
       +
                 |> dict.values

     

       37
       37
       +
                 |> list.any(fn(data) { data == StringValue("red") })

     

       38
       38
       +
               }

     

       43
       39
        
             case has_red {

     

       44
       40
        
               True -> 0

     

       45
       41
        
               False ->

     
···

       58
       54
        
         let assert Ok(input) =

     

       59
       55
        
           read(from: "../input.json")

     

       60
       56
        
           |> unwrap("")

     

       61
       61
       -
           |> json.parse(int_anywhere_decoder())

     

       57
       57
       +
           |> json.parse(nested_decoder())

     

       62
       58
        
       

     

       63
       59
        
         println(

     

       64
       60
        
           get_total_number(input, no_red: False)