print result in nucleic

OCamlPro · Oct 24, 2024 · 1e1551b · 1e1551b
1 parent 8bf478f
commit 1e1551b
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/wasm/test/nucleic.ml b/wasm/test/nucleic.ml
@@ -7265,18 +7265,17 @@ let sol_most_distant_atom s = maximum (List.map var_most_distant_atom s)
 
 let most_distant_atom sols = maximum (List.map sol_most_distant_atom sols)
 
-let check () = List.length (pseudoknot ())
-
 let run () = most_distant_atom (pseudoknot ())
 
 let main () =
   for _ = 1 to 350 do
-    ignore (run ())
+    print_float (run ());
+    print_string "\n"
   done;
   assert (abs_float (run () -. 33.7976) < 0.0002)
 
 (*
   Printf.printf "%.4f" (run ()); print_newline()
 *)
 
-let _ = main ()
+let () = main ()