Теперь тесты точно работают

lab2/test/lab2_test.gleam

@@ -1,4 +1,5 @@
 import gleam/int
+import gleam/io
 import gleam/list
 import gleam/option
 import gleam/order
@@ -28,23 +29,25 @@ fn string_equal(a: String, b: String) -> Bool {
 
 // Генерация случайных данных
 fn gk() -> Int {
-  int.random(1000) - 500
+  int.random(10_000) - 5000
 }
 
 fn gv() -> String {
-  let length = int.random(32)
+  let length = int.random(64)
   let generator: random.Generator(Int) = random.int(97, 122)
-  let seed = seed.new(42)
   // random string of given length
+  let string =
     string.join(
       list.repeat("", length)
         |> list.map(fn(_) {
-        let code = random.sample(generator, seed)
+          let code = random.sample(generator, seed.random())
           let assert Ok(cp) = string.utf_codepoint(code)
           string.from_utf_codepoints([cp])
         }),
       "",
     )
+  io.println("Generating rnd s:" <> string)
+  string
 }
 
 /// Тест создания пустого дерева
@@ -239,7 +242,7 @@ pub fn monoid_left_identity_test() {
 
   let result = lab2.concat(lab2.empty(), tree, int_compare)
 
-  lab2.equal(tree, result, int_equal, string_equal) |> should.be_true
+  lab2.semantic_equal(tree, result, int_compare, string_equal) |> should.be_true
 }
 
 /// Тест нейтрального элемента (правая единица)
@@ -255,7 +258,7 @@ pub fn monoid_right_identity_test() {
 
   let result = lab2.concat(tree, lab2.empty(), int_compare)
 
-  lab2.equal(tree, result, int_equal, string_equal) |> should.be_true
+  lab2.semantic_equal(tree, result, int_compare, string_equal) |> should.be_true
 }
 
 /// Тест ассоциативности