相关疑难解决方法(0)

let find_free_next heap start = 
  for i = start to ((Array.length heap)-1) do
     match heap.(i) with 
     Hdr (Free (h), g)  ->
        i
  done

一旦找到匹配,我怎样才能将循环的索引作为整数返回？