From 2ca07cc93ce07eea671d500d18a57cc7bb3b12e8 Mon Sep 17 00:00:00 2001 From: Acvaxoort Date: Thu, 12 Dec 2024 01:25:44 +0100 Subject: [PATCH] removed useless imports --- 1/main.ml | 3 +-- 10/main.ml | 4 +--- 2/main.ml | 3 +-- 3/main.ml | 1 - 4/main.ml | 3 +-- 5/main.ml | 5 ++--- 6/main.ml | 3 +-- 7/main.ml | 3 +-- 8/main.ml | 3 +-- 9/main.ml | 1 - 10 files changed, 9 insertions(+), 20 deletions(-) diff --git a/1/main.ml b/1/main.ml index 23c5065..1dbe407 100644 --- a/1/main.ml +++ b/1/main.ml @@ -1,5 +1,4 @@ open Printf;; -open String;; let rec build_list in_file = try @@ -15,7 +14,7 @@ let is_not_empty lst = | _ -> true let rec parse_list (l1, l2) str = - let list1 = (List.filter (fun a -> length a != 0) (String.split_on_char ' ' str)) in + let list1 = (List.filter (fun a -> String.length a != 0) (String.split_on_char ' ' str)) in let list_of_int = List.map int_of_string list1 in match list_of_int with | e1 :: e2 :: _ -> (e1 :: l1, e2 :: l2) diff --git a/10/main.ml b/10/main.ml index 290cf81..3c8fdf1 100644 --- a/10/main.ml +++ b/10/main.ml @@ -1,6 +1,4 @@ open Printf;; -open String;; -open Map;; let rec list_of_lines in_file = try @@ -12,7 +10,7 @@ let rec list_of_lines in_file = let file_to_2d_array in_file = let lines = list_of_lines in_file in - let size_x = length @@ List.hd lines in + let size_x = String.length @@ List.hd lines in let size_y = List.length lines in let arr = Array.make_matrix size_x size_y '?' in List.iteri (fun j line -> String.iteri (fun i c -> arr.(j).(i) <- c) line) lines; diff --git a/2/main.ml b/2/main.ml index 2ff02f5..34a2736 100644 --- a/2/main.ml +++ b/2/main.ml @@ -1,5 +1,4 @@ open Printf;; -open String;; let rec list_of_lines in_file = try @@ -15,7 +14,7 @@ let is_not_empty lst = | _ -> true let rec parse_int_list str = - let list1 = (List.filter (fun a -> length a != 0) (String.split_on_char ' ' str)) in + let list1 = (List.filter (fun a -> String.length a != 0) (String.split_on_char ' ' str)) in List.map int_of_string list1 let rec int_list_diff int_list = diff --git a/3/main.ml b/3/main.ml index f092281..0522e18 100644 --- a/3/main.ml +++ b/3/main.ml @@ -1,5 +1,4 @@ open Printf;; -open String;; open Str;; let read_whole_file f = diff --git a/4/main.ml b/4/main.ml index fd9f23e..9e9d1e9 100644 --- a/4/main.ml +++ b/4/main.ml @@ -1,6 +1,5 @@ open Printf;; open Buffer;; -open String;; open Str;; let rec list_of_lines in_file = @@ -13,7 +12,7 @@ let rec list_of_lines in_file = let file_to_2d_array in_file = let lines = list_of_lines in_file in - let size_x = length @@ List.hd lines in + let size_x = String.length @@ List.hd lines in let size_y = List.length lines in let arr = Array.make_matrix size_x size_y '?' in List.iteri (fun j line -> String.iteri (fun i c -> arr.(j).(i) <- c) line) lines; diff --git a/5/main.ml b/5/main.ml index d14b8d4..c381cd8 100644 --- a/5/main.ml +++ b/5/main.ml @@ -1,5 +1,4 @@ open Printf;; -open String;; open Map;; let rec list_of_lines in_file = @@ -11,7 +10,7 @@ let rec list_of_lines in_file = [] let rec parse_int_list sep str = - let list1 = (List.filter (fun a -> length a != 0) (String.split_on_char sep str)) in + let list1 = (List.filter (fun a -> String.length a != 0) (String.split_on_char sep str)) in List.map int_of_string list1 (* Ordering map is a map that indexes int and maps it into a set of ints, @@ -22,7 +21,7 @@ module IntSet = Set.Make(Int) let rec parse_ordering lines ordering_map = match lines with | head :: tail -> - if length head > 0 then + if String.length head > 0 then let elems = parse_int_list '|' head in let e1 = List.hd elems in let e2 = List.nth elems 1 in diff --git a/6/main.ml b/6/main.ml index 8678827..a17f51d 100644 --- a/6/main.ml +++ b/6/main.ml @@ -1,5 +1,4 @@ open Printf;; -open String;; let rec list_of_lines in_file = try @@ -11,7 +10,7 @@ let rec list_of_lines in_file = let file_to_2d_array in_file = let lines = list_of_lines in_file in - let size_x = length @@ List.hd lines in + let size_x = String.length @@ List.hd lines in let size_y = List.length lines in let arr = Array.make_matrix size_x size_y '?' in List.iteri (fun j line -> String.iteri (fun i c -> arr.(j).(i) <- c) line) lines; diff --git a/7/main.ml b/7/main.ml index 75d32c9..b24e19d 100644 --- a/7/main.ml +++ b/7/main.ml @@ -1,5 +1,4 @@ open Printf;; -open String;; let rec list_of_lines in_file = try @@ -13,7 +12,7 @@ let clean_string str = str |> String.split_on_char ':' |> List.hd let rec parse_int_list sep str = - let list1 = (List.filter (fun a -> length a != 0) (String.split_on_char sep str)) in + let list1 = (List.filter (fun a -> String.length a != 0) (String.split_on_char sep str)) in List.map (fun x -> int_of_string @@ clean_string x) list1 let rec is_possible_inner goal operand_list = diff --git a/8/main.ml b/8/main.ml index d78edc1..5ba58d4 100644 --- a/8/main.ml +++ b/8/main.ml @@ -1,5 +1,4 @@ open Printf;; -open String;; open Map;; let rec list_of_lines in_file = @@ -12,7 +11,7 @@ let rec list_of_lines in_file = let file_to_2d_array in_file = let lines = list_of_lines in_file in - let size_x = length @@ List.hd lines in + let size_x = String.length @@ List.hd lines in let size_y = List.length lines in let arr = Array.make_matrix size_x size_y '?' in List.iteri (fun j line -> String.iteri (fun i c -> arr.(j).(i) <- c) line) lines; diff --git a/9/main.ml b/9/main.ml index 5eb948b..2e17389 100644 --- a/9/main.ml +++ b/9/main.ml @@ -1,5 +1,4 @@ open Printf;; -open String;; let rec list_of_lines in_file = try