Ортогональность векторов, заданных списками (Scheme) - Lisp

Формулировка задачи:

Координаты двух векторов заданы в виде списка. Определить являются ли эти векторы ортогональными. Элементами списков являются только числа, длина списков одинаковая

условие ортогональности x1*x2+y1*y2=0

Решение задачи: «Ортогональность векторов, заданных списками (Scheme)»

textual
                            Листинг программы 
                        

                            isOrt :: [Double] -> [Double] -> Bool
isOrt v1 v2 = (abs sc) <= 1.0e-15
              where sc = sum $ map (\ (a,b) -> a*b) $ zip v1 v2
                        