Untitled

# let print_one_entry (count, w_current) =
  Printf.printf "at At iter: %d current weights are: " count;
  List.iter (Printf.printf "%f ") w_current;
  Printf.printf "\n"

let print_it_delayed =
  make_delayed_printer print_one_entry            ;;
val print_one_entry : int * float list -> unit = <fun>
val print_it_delayed : int * float list -> unit = <fun>
# print_it_delayed(10, [1.; 2.; 3.]);;
- : unit = ()
# print_it_delayed(11, [2.; 5.]);;
at At iter: 10 current weights are: 1.000000 2.000000 3.000000
- : unit = ()