Check Catalan number
// code
catalan :: Integer -> Integer
catalan n
| n > 0 = sum [(catalan i) * (catalan (n - 1 - i)) | i <- [0 .. (n - 1)]]
| otherwise = 1
Simply :)
Check Catalan number
// code
catalan :: Integer -> Integer
catalan n
| n > 0 = sum [(catalan i) * (catalan (n - 1 - i)) | i <- [0 .. (n - 1)]]
| otherwise = 1
Simply :)
トラックバックURL: http://www.fujlog.net/mt-5/mt-tb.cgi/1050
コメントする