Knapsack problem/Unbounded: Difference between revisions

(added ocaml)
Line 915:
| hd::tl ->
let acc =
List.fold_leftconcat
(fun _ac l ->List.map
List.fold_left (fun _ac vl -> (v::l)::_ac) _ac hd
) [] acc List.map (fun v -> (v::l)) hd
) acc
)
in
aux acc tl
Anonymous user