1

我有一些 OCaml 代码，可以找到给定变化量的所有变化组合。我的大部分代码都在工作，但是我无法弄清楚这个递归函数将如何实际返回可能的更改组合。

let change_combos presidents = 
  let rec change amount coinlist =  match amount with 
    |0 -> [[]] (*exits when nothing*)
    |_ when (amount < 0) -> [] (*exits when less than 0*)
    |_ -> match coinlist with
    |[] -> [] (*Returns empty list, exits program*)

(*h::f -> something, using [25;10;5;1] aka all change combinations...*)
(*using recursion, going through all combinations and joining lists returned together*)

let print_the_coin_matrix_for_all_our_joy enter_the_matrix =
print_endline (join "\n" (List.map array_to_string enter_the_matrix));;

感谢您的帮助，如果我需要澄清一些事情，请告诉我:)

4

1 回答 1

1

您正在寻找的内容有点令人困惑。我相信你想生成一个列表的所有组合的列表？您应该考虑递归以及如何生成各个元素。从输入类型开始，以及如何通过减少问题空间来生成连续元素。

let rec generate lst = match lst with
  | []   -> []
  | h::t -> [h] :: (List.map (fun x -> h::x) (generate t)) @ (generate t)

如果列表是[]没有组合。如果我们有一个元素，我们会生成没有该元素的所有组合，并将我们的构造基于该假设。此时组件就位。将 的 组合列表t与t和h cons'd 的组合连接到每个和一个h.

于 2013-10-02T17:30:53.917 回答