···

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

     

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

     

       
18
       
18
       
 
       
gleam_crypto = ">= 1.5.1 and < 2.0.0"

     

       
19
       
19
       
-
       
gleam_yielder = ">= 1.1.0 and < 2.0.0"

     

       
20
       
19
       
 
       


     

       
21
       
20
       
 
       
[dev-dependencies]

     

       
22
       
21
       
 
       
gleeunit = ">= 1.0.0 and < 2.0.0"

     

···

       
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_crypto", version = "1.5.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_crypto", source = "hex", outer_checksum = "50774BAFFF1144E7872814C566C5D653D83A3EBF23ACC3156B757A1B6819086E" },

     

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

     

       
8
       
8
       
-
       
  { name = "gleam_yielder", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_yielder", source = "hex", outer_checksum = "8E4E4ECFA7982859F430C57F549200C7749823C106759F4A19A78AEA6687717A" },

     

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

     

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

     

       
11
       
10
       
 
       
]

     
···

       
13
       
12
       
 
       
[requirements]

     

       
14
       
13
       
 
       
gleam_crypto = { version = ">= 1.5.1 and < 2.0.0" }

     

       
15
       
14
       
 
       
gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }

     

       
16
       
16
       
-
       
gleam_yielder = { version = ">= 1.1.0 and < 2.0.0" }

     

       
17
       
15
       
 
       
gleeunit = { version = ">= 1.0.0 and < 2.0.0" }

     

       
18
       
16
       
 
       
simplifile = { version = ">= 2.3.0 and < 3.0.0" }

     

···

       
4
       
4
       
 
       
import gleam/io.{println}

     

       
5
       
5
       
 
       
import gleam/result.{unwrap}

     

       
6
       
6
       
 
       
import gleam/string.{trim}

     

       
7
       
7
       
-
       
import gleam/yielder.{Next, find, unfold}

     

       
8
       
7
       
 
       
import simplifile.{read}

     

       
9
       
8
       
 
       


     

       
10
       
10
       
-
       
// claude just helped me with understanding how yield works. didn't want to add that 1 manually because it's ugly. here's my pure mine attempt

     

       
11
       
11
       
-
       
//  let res =

     

       
12
       
12
       
-
       
//  yielder.unfold(0, fn(v) {

     

       
13
       
13
       
-
       
//    let hash =

     

       
14
       
14
       
-
       
//      crypto.hash(Md5, <<{ input <> to_string(v) }:utf8>>)

     

       
15
       
15
       
-
       
//      |> bit_array.base16_encode

     

       
16
       
16
       
-
       
//

     

       
17
       
17
       
-
       
//    case hash {

     

       
18
       
18
       
-
       
//      "00000" <> _ -> yielder.Done

     

       
19
       
19
       
-
       
//      ______ -> yielder.Next(v, v + 1)

     

       
20
       
20
       
-
       
//    }

     

       
21
       
21
       
-
       
//  })

     

       
22
       
22
       
-
       
//  |> yielder.last()

     

       
23
       
23
       
-
       
//  |> unwrap(0)

     

       
24
       
24
       
-
       
//  |> int.add(1)

     

       
25
       
25
       
-
       
//  |> to_string

     

       
26
       
26
       
-
       


     

       
27
       
27
       
-
       
pub fn find_first_with_leading(input: String, leading: String) {

     

       
28
       
28
       
-
       
  unfold(0, fn(v) { Next(v, v + 1) })

     

       
29
       
29
       
-
       
  |> find(fn(v) {

     

       
30
       
30
       
-
       
    hash(Md5, <<{ input <> to_string(v) }:utf8>>)

     

       
9
       
9
       
+
       
pub fn find_first_with_leading(input: String, leading: String, i: Int) {

     

       
10
       
10
       
+
       
  let result =

     

       
11
       
11
       
+
       
    hash(Md5, <<{ input <> to_string(i) }:utf8>>)

     

       
31
       
12
       
 
       
    |> bit_array.base16_encode

     

       
32
       
13
       
 
       
    |> string.starts_with(leading)

     

       
33
       
33
       
-
       
  })

     

       
34
       
34
       
-
       
  |> unwrap(0)

     

       
35
       
35
       
-
       
  |> to_string

     

       
14
       
14
       
+
       
  case result {

     

       
15
       
15
       
+
       
    True -> i

     

       
16
       
16
       
+
       
    False -> find_first_with_leading(input, leading, i + 1)

     

       
17
       
17
       
+
       
  }

     

       
36
       
18
       
 
       
}

     

       
37
       
19
       
 
       


     

       
38
       
20
       
 
       
pub fn main() {

     

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

     

       
40
       
40
       
-
       
  println(find_first_with_leading(input, "00000"))

     

       
41
       
41
       
-
       
  println(find_first_with_leading(input, "000000"))

     

       
22
       
22
       
+
       
  println(find_first_with_leading(input, "00000", 0) |> to_string)

     

       
23
       
23
       
+
       
  println(find_first_with_leading(input, "000000", 0) |> to_string)

     

       
42
       
24
       
 
       
}