Haskell: Variable non dans le champ d'application

J'ai un code comme:

main = interact $ show . maxsubseq . map read . words

maxsubseq :: (Ord a,Num a) => [a] -> (a,[a])
maxsubseq = snd . foldl f ((0,[]),(0,[])) where 
f ((h1,h2),sofar) x = (a,b) where
a = max (0,[]) (h1 + x ,h2 ++ [x]) 
b = max sofar a

Mais j'obtiens l'erreur:

maxSub.hs:6:17: error: Variable not in scope: h1

maxSub.hs:6:22: error: Variable not in scope: x

maxSub.hs:6:25: error: Variable not in scope: h2 :: [t1]

maxSub.hs:6:32: error: Variable not in scope: x

maxSub.hs:7:9: error: Variable not in scope: sofar :: (t, [t1])

Pas en mesure de comprendre pourquoi??

Des idées??

Grâce.

OriginalL'auteur Zubin Kadva | 2016-09-09

  1. 14
    main = interact $ show . maxsubseq . map read . words

maxsubseq :: (Ord a,Num a) => [a] -> (a,[a])
maxsubseq = snd . foldl f ((0,[]),(0,[])) where
f ((h1,h2),sofar) x = (a,b) where
    a = max (0,[]) (h1 + x ,h2 ++ [x])
    b = max sofar a

    Formats vraiment d'importance en Haskell...

    Peut-être que c'est déjà mieux:

    main = interact $ show . maxsubseq . map read . words

maxsubseq :: (Ord a,Num a) => [a] -> (a,[a])
maxsubseq = snd . foldl f ((0,[]),(0,[])) where
    f ((h1,h2),sofar) x = (a,b)
        where {
        a = max (0,[]) (h1 + x ,h2 ++ [x]);
        b = max sofar a;
              }

    OriginalL'auteur Frederick Zhang