Skip to content

Instantly share code, notes, and snippets.

@mikamix

mikamix/euler15.hs

Created March 20, 2014 14:22
Download ZIP

Revisions

  1. Ryo Mikami created this gist Mar 20, 2014.
    5 changes: 5 additions & 0 deletions euler15.hs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,5 @@
    combination n r = factorial n `div` (factorial (n - r) * factorial r)
    where factorial 1 = 1
    factorial n = n * factorial (n - 1)

    main = print $ combination 40 20