Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- |(length xs ==length ys) =x * y + scalarNew xs ys
- |otherwise =error "error"
- scalarNew :: [Integer] -> [Integer] -> Integer
- scalarNew [] [] = 0
- scalarNew (x:xs) (y:ys)
- | length xs == length ys = x * y + scalarNew xs ys
- | otherwise = error "error"
Add Comment
Please, Sign In to add comment