All pastes #946746 Raw Edit

Unnamed

public text v1 · immutable
·published 2008-03-17 22:28 UTC
rendered paste body

external get_bigarray :    unit -> (int, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array2.t = "get_c_array";;

let affich tab =
  for i = 0 to Bigarray.Array2.dim1 tab - 1 do
    for j = 0 to Bigarray.Array2.dim2 tab - 1 do
	print_int mat.{i,j}
    done;
  done;

let m = get_bigarray in 
	affich m;