Skip to content

Instantly share code, notes, and snippets.

@dahlbyk
Forked from bennage/count_change.fs
Created September 19, 2013 02:11
Show Gist options
  • Save dahlbyk/6618291 to your computer and use it in GitHub Desktop.
Save dahlbyk/6618291 to your computer and use it in GitHub Desktop.
open System;
open System.Diagnostics;
[<EntryPoint>]
let main argv =
let rec cc amount coins =
match (amount, coins) with
| (0,_) -> 1
| (_,[]) -> 0
| (amount,_) when amount < 0 -> 0
| _ -> cc amount coins.Tail + cc (amount-coins.Head) coins
let stopWatch = Stopwatch.StartNew()
let x = cc 100 [1;2;3;4;5;6;7]
stopWatch.Stop();
printfn "elapsed: %f" stopWatch.Elapsed.TotalMilliseconds
Console.ReadLine() |> ignore
0
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment