···

       
13
       
13
       
 
       
      |> list.fold(#(0, bank), fn(acc, i) {

     

       
14
       
14
       
 
       
        let #(number, bank) = acc

     

       
15
       
15
       
 
       


     

       
16
       
16
       
-
       
        let max =

     

       
16
       
16
       
+
       
        let #(max, loc) =

     

       
17
       
17
       
 
       
          bank

     

       
18
       
18
       
 
       
          |> list.reverse

     

       
19
       
19
       
 
       
          |> list.drop(i)

     

       
20
       
20
       
 
       
          |> list.reverse

     

       
21
       
21
       
-
       
          |> list.max(int.compare)

     

       
22
       
22
       
-
       
          |> result.unwrap(

     

       
23
       
23
       
-
       
            bank |> list.reverse |> list.first |> result.unwrap(0),

     

       
24
       
24
       
-
       
          )

     

       
25
       
25
       
-
       


     

       
26
       
26
       
-
       
        let max_loc =

     

       
27
       
27
       
-
       
          bank

     

       
28
       
21
       
 
       
          |> list.index_map(fn(n, i) { #(n, i) })

     

       
29
       
29
       
-
       
          |> list.key_find(max)

     

       
30
       
30
       
-
       
          |> result.unwrap(0)

     

       
22
       
22
       
+
       
          |> list.max(fn(a, b) { int.compare(a.0, b.0) })

     

       
23
       
23
       
+
       
          |> result.unwrap(#(0, 0))

     

       
31
       
24
       
 
       


     

       
32
       
32
       
-
       
        #(number * 10 + max, list.drop(bank, max_loc + 1))

     

       
25
       
25
       
+
       
        #(number * 10 + max, list.drop(bank, loc + 1))

     

       
33
       
26
       
 
       
      })

     

       
34
       
27
       
 
       
    acc + n

     

       
35
       
28
       
 
       
  })