dotproduct :: [Float] -> [Float] -> Float
dotproduct [] l = 0
dotproduct l [] = 0
dotproduct (a:x) (b:y) = a * b + dotproduct x y