Simplify/refactor day 1 code
This commit is contained in:
@@ -0,0 +1,6 @@
|
||||
let read_file filename =
|
||||
let ch = open_in filename in
|
||||
let s = really_input_string ch (in_channel_length ch) in
|
||||
close_in ch;
|
||||
s
|
||||
;;
|
||||
Reference in New Issue
Block a user