Quote:
Originariamente inviato da AnonimoVeneziano
Usando le list comprhension:
Codice:
scalar_product xs ys = sum $ [ x*y | x <- xs, y <- ys ]
Non posso testare il codice perchè in questo momento non ho il ghc installato , ma dovrebbe essere corretto |
Mi sa di no, perchè per le liste:
[1, 2, 3] e [1, 2, 3]
Il risultato di [ x*y | x <- xs, y <- ys ] dovrebbe essere:
[1, 2, 3, 2, 4, 6, 3, 6, 9]
Invece il risultato corretto dovrebbe essere:
[1, 4, 9]