Prolog-Regel Squaring in Haskell

Question

Ich muss diese Datei ändern, um die "Quadrat/2 'Prolog-Regel arbeiten in Haskell mit zwei Argumenten" A, B ". Beide Argumente sind Listen von Zahlen. Die beiden Liste sollte die gleiche Anzahl von Elementen.Es ist nur wahr, wenn alle Elemente B das Quadrat der Elemente von A und in der gleichen Reihenfolge sind.Der folgende Code ist der Basisfall für die Prolog-Regel.

square ([], [ ]).

Answer 1

kann es einfach geschrieben werden

isSquare [] [] = True 
isSquare (x:xs) (y:ys) = x*x==y && isSquare xs ys 

Vielleicht möchten Sie auch Längen hinzufügen, die gleich sind.

auch

geschrieben werden können

and $ zipWith (\x y -> x*x==y) 

oder vielleicht kürzeste

(==) . map (^2)