RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/OCaml/create-a-two-dimensional-array-at-runtime-2.ocaml

6 lines
192 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
let nbr1 = read_int ();;
let nbr2 = read_int ();;
let arr = Bigarray.Array2.create Bigarray.float32 Bigarray.c_layout nbr1 nbr2 ;;
arr.{0,0} <- 3.5;;
print_float arr.{0,0}; print_newline ();;