···

       
0
       
 
       

     

       
1
       
 
       
import gleam/int

     

       
2
       
 
       
import gleam/io.{println}

     

       
3
       
 
       
import gleam/list

     
···

       
5
       
 
       
import gleam/string.{trim}

     

       
6
       
 
       
import simplifile.{read}

     

       
7
       
 
       


     

       
8
       
-
       
fn look_and_say(input, output, last_char, last_char_count, i) {

     

       
9
       
-
       
  let char = string.slice(input, i, 1)

     

       
10
       
-
       
  case char == last_char {

     

       
11
       
-
       
    True -> look_and_say(input, output, char, last_char_count + 1, i + 1)

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
12
       
 
       
    False -> {

     

       
13
       
-
       
      let output = output <> int.to_string(last_char_count) <> last_char

     

       
14
       
-
       
      case char != "" {

     

       
15
       
-
       
        True -> look_and_say(input, output, char, 1, i + 1)

     

       
16
       
-
       
        False -> output

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
17
       
 
       
      }

     

       
18
       
 
       
    }

     

       
19
       
 
       
  }

     

       
20
       
 
       
}

     

       
21
       
 
       


     

       
22
       
 
       
fn look_and_say_helper(input) {

     

       
23
       
-
       
  let char = string.slice(input, 0, 1)

     

       
24
       
-
       
  look_and_say(input, "", char, 1, 1)

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
25
       
 
       
}

     

       
26
       
 
       


     

       
27
       
 
       
pub fn main() {

     

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

     

       
29
       
 
       


     

       
30
       
 
       
  let res =

     

       
31
       
-
       
    list.range(1, 40)

     

       
32
       
 
       
    |> list.fold(input, fn(acc, i) {

     

       
33
       
-
       
      echo i

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
34
       
 
       
      look_and_say_helper(acc)

     

       
35
       
 
       
    })

     

       
36
       
 
       
  println(string.length(res) |> int.to_string)

     

···

       
1
       
+
       
import gleam/bit_array

     

       
2
       
 
       
import gleam/int

     

       
3
       
 
       
import gleam/io.{println}

     

       
4
       
 
       
import gleam/list

     
···

       
6
       
 
       
import gleam/string.{trim}

     

       
7
       
 
       
import simplifile.{read}

     

       
8
       
 
       


     

       
9
       
+
       
fn look_and_say(

     

       
10
       
+
       
  input,

     

       
11
       
+
       
  output: List(BitArray),

     

       
12
       
+
       
  last_char: BitArray,

     

       
13
       
+
       
  last_char_count,

     

       
14
       
+
       
  i,

     

       
15
       
+
       
) {

     

       
16
       
+
       
  let char = bit_array.slice(input, i, 1)

     

       
17
       
+
       
  case char |> unwrap(<<>>) == last_char {

     

       
18
       
+
       
    True -> look_and_say(input, output, last_char, last_char_count + 1, i + 1)

     

       
19
       
 
       
    False -> {

     

       
20
       
+
       
      let output =

     

       
21
       
+
       
        output

     

       
22
       
+
       
        |> list.prepend(<<int.to_string(last_char_count):utf8>>)

     

       
23
       
+
       
        |> list.prepend(last_char)

     

       
24
       
+
       
      case char {

     

       
25
       
+
       
        Ok(char) -> look_and_say(input, output, char, 1, i + 1)

     

       
26
       
+
       
        Error(_) -> output

     

       
27
       
 
       
      }

     

       
28
       
 
       
    }

     

       
29
       
 
       
  }

     

       
30
       
 
       
}

     

       
31
       
 
       


     

       
32
       
 
       
fn look_and_say_helper(input) {

     

       
33
       
+
       
  let char = bit_array.slice(<<input:utf8>>, 0, 1) |> unwrap(<<>>)

     

       
34
       
+
       
  look_and_say(<<input:utf8>>, [], char, 1, 1)

     

       
35
       
+
       
  |> list.reverse

     

       
36
       
+
       
  |> bit_array.concat

     

       
37
       
+
       
  |> bit_array.to_string

     

       
38
       
+
       
  |> unwrap("")

     

       
39
       
 
       
}

     

       
40
       
 
       


     

       
41
       
 
       
pub fn main() {

     

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

     

       
43
       
 
       


     

       
44
       
 
       
  let res =

     

       
45
       
+
       
    list.range(1, 50)

     

       
46
       
 
       
    |> list.fold(input, fn(acc, i) {

     

       
47
       
+
       
      case i == 41 {

     

       
48
       
+
       
        True -> println(string.length(acc) |> int.to_string)

     

       
49
       
+
       
        False -> Nil

     

       
50
       
+
       
      }

     

       
51
       
 
       
      look_and_say_helper(acc)

     

       
52
       
 
       
    })

     

       
53
       
 
       
  println(string.length(res) |> int.to_string)