Skip to content

Instantly share code, notes, and snippets.

@oskimura

oskimura/Euler15.hs

Created September 30, 2010 04:31
Show Gist options
  • Save oskimura/604022 to your computer and use it in GitHub Desktop.
Save oskimura/604022 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Euler15.hs
-- http://www.itmedia.co.jp/enterprise/articles/1003/06/news002.html
-- http://haskell.g.hatena.ne.jp/hyuki/20060612/combination
module Euler15 where
euler15 = c 40 20
c n k = n^>k `div` k^>k
where
n^>k = foldr (*) 1 [n-k+1..n]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment