Hacker Rank Prologue

hacker-rank.ml

let (|>) v f = f v;;
let comp f g = (fun x -> f (g x));;

let read_ints () : int list =
    let rec aux nums =
        try let i = read_int () in aux (i :: nums)
        with End_of_file -> nums
    in
    List.rev (aux [])
;;

let () =
    read_ints ()
    |> List.map (fun i -> i * i)
    |> List.iter (fun i -> (print_endline (string_of_int i)))
;;