Day 5

2023-01-19 16:37:55 +01:00
parent c14c6f5ea7
commit 99cd6c4ee9
4 changed files with 628 additions and 2 deletions
@@ -3,6 +3,14 @@ let read_file filename =
  let s = really_input_string ch (in_channel_length ch) in
  close_in ch;
  s
-  ;;
+;;

-let list_of_chars str = List.init (String.length str) (String.get str)
+let list_of_chars str =
+  List.init (String.length str) (String.get str)
+;;
+
+let rec transpose = function
+  | []
+  | [] :: _ -> []
+  | rows -> List.map List.hd rows :: transpose (List.map List.tl rows)
+;;