spacepaste

Paste details

reply | raw

  1.  
  2. class type num =
  3. object
  4. method get_val : float
  5. method add : num -> unit
  6. method parse : string -> unit
  7. end
  9. class int =
  10. object
  11. val mutable x = 1
  12. method get_val = float x
  13. method add : num -> unit = fun o -> x <- (int_of_float o#get_val) + x
  14. method parse s = x <- int_of_string s
  15. end
  17. class float =
  18. object
  19. val mutable x = 1.
  20. method get_val = x
  21. method add : num -> unit = fun o -> x <- o#get_val +. x
  22. method parse s = x <- float_of_string s
  23. end
  25. let make_obj = function
  26. | "float" -> (new float :> num)
  27. | "int" -> (new int :> num)
  28. | _ -> invalid_arg "which module"
  30. let parse s = make_obj s
  32. let do_repetitive_work x =
  33. let y = Oo.copy x in
  34. y#add x;
  35. y#add (Oo.copy x);
  36. y
  38. let () =
  39. let x = parse Sys.argv.(1) in
  40. Printf.printf "%g\n" (do_repetitive_work x)#get_val
  41.  
Powered by spacepaste. Paste removal.