diff options
| -rw-r--r-- | challenge-145/steven-wilson/haskell/ch-1.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-145/steven-wilson/haskell/ch-1.hs b/challenge-145/steven-wilson/haskell/ch-1.hs index 07c9912f18..5c340c09b2 100644 --- a/challenge-145/steven-wilson/haskell/ch-1.hs +++ b/challenge-145/steven-wilson/haskell/ch-1.hs @@ -1,3 +1,3 @@ -dot_product :: [Int] -> [Int] -> Int -dot_product [x] [y] = x * y +dot_product :: Num a => [a] -> [a] -> a +dot_product [] [] = 0 dot_product (x:xs) (y:ys) = (x * y) + dot_product (xs) (ys) |