Skip to content

U
uva
Commit 453ffb68 authored by Taddeüs Kroes's avatar Taddeüs Kroes
Browse files
Options

Adjusted a function comment.

parent 35c64294
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
funclang-taddeus/series3/ass7.ml
View file @ 453ffb68
...@@ -66,7 +66,7 @@ let rec lookup l key = ...@@ -66,7 +66,7 @@ let rec lookup l key =
let rec coin_permutation l n = let rec coin_permutation l n =
(* Reduce the list using the fact that the the total number of coin (* Reduce the list using the fact that the the total number of coin
* permutations is equal to the number of permutations given a single coin, * permutations is equal to the number of permutations given a single coin,
* added to the number of permutations without that coin *) * combined with the number of permutations without that coin *)
match l with match l with
| [] -> 0 | [] -> 0
| h::t -> (if h > n then 0 else 1 + (coin_permutation t (n - h))) | h::t -> (if h > n then 0 else 1 + (coin_permutation t (n - h)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment