11_decl_cut

cut.ml

let cut l n =
  List.fold_left (
    fun prev next ->
      if (List.fold_left (fun prev next -> prev + next) 0 prev) + next > n
      then prev
      else prev @ [next]
  ) [] l;;

cut [1;2;3;4;5;6;7;8;9] 18;;