spacepaste

  1.  
  2. let rev_enumerate l =
  3. let _, l' = List.fold_left
  4. (fun (e, accum) x -> e + 1, (e, x) :: accum)
  5. (0, [])
  6. l
  7. in
  8. l'
  9.