Source

OCaml Map Reduce Project / apps / page_rank / page_rank.ml

Full commit
open Util

let main (args : string array) : unit = 
  if Array.length args < 3 then
    Printf.printf "Usage: page_rank <num_iterations> <filename>"
  else begin
    let filename = args.(3) in
    let (_, results) = 
      Map_reduce.map_reduce "page_rank" "mapper" "reducer" filename in
    print_reduce_results results end