je pars d'une liste de liste : l1=[[1,2,3],[4,5,6],[7,8,9]] :: Int
et je voudrais faire la somme des 2 diagonales. Par exemple dans ce cas là : 1+5+9 grâce à une fonction sommeDiag1 et faire 3+5+7 avec sommeDiag2.
Je ne vois pas bien comment faire.
Si quelqu'un a une idée.
Voici ce que j'ai commencé :
sommeDiag1 :: Int -> Int
sommeDiag1 [] = 0
sommeDiag1 (x:xs) = let i = 1
in (head x)!!i + sommeDiag1 xs
Merci