Leonidas-from-XIV · February 21, 2014 00:46
diff --git a/PascalsTriangle.hs b/PascalsTriangle.hs
 slidingWindow :: [Int] -> [[Int]]
 slidingWindow [] = []
 slidingWindow [a] = []
 slidingWindow (a:b:xs) = [a,b]:(slidingWindow (b:xs))

 pascalTriangle :: Int -> [Int]
 pascalTriangle 0 = []
 pascalTriangle 1 = [1]
 pascalTriangle n = 1:(map sum $ slidingWindow $ pascalTriangle $ n-1) ++ [1]
	slidingWindow :: [Int] -> [[Int]]
	slidingWindow [] = []
	slidingWindow [a] = []
	slidingWindow (a:b:xs) = [a,b]:(slidingWindow (b:xs))

	pascalTriangle :: Int -> [Int]
	pascalTriangle 0 = []
	pascalTriangle 1 = [1]
	pascalTriangle n = 1:(map sum $ slidingWindow $ pascalTriangle $ n-1) ++ [1]
No results found