Haskell zagnieżdżone gdzie klauzule

Question

Jestem koder Początkujący w Haskell, robiąc ćwiczenia z pierwszym rozdziale tej niesamowitej książki: http://book.realworldhaskell.org/read/getting-started.html natknąłem tym numerze:

-- test comment 
main = interact wordCount 
where 
    wordCount input = show (ls ++ " " ++ ws ++ " " ++ cs ++ "\n") 
    where 
     ls = lines input 
     ws = length words input 
     cs = length input 



wonderbox:ch01 manasapte$ runghc WC < quux.txt 
WC.hs:5:9: parse error on input ‘where’ 

Dlaczego nie można zagnieżdżać moi wheres ?

Answer 1

Ponieważ twój drugi where jest dołączony do definicji wordCount, musi być wcięty bardziej niż on. (. Mimo, że będzie jeszcze jakieś inne błędy później)

Answer 2

wcięcie było nieprawidłowe, oto wersja robocza:

-- test comment 
import Data.List 
main = interact wordCount 
    where wordCount input = unlines $ [concat $ intersperse " " (map show [ls, ws, cs])] 
      where ls = length $ lines input 
        ws = length $ words input 
        cs = length input 

Answer 3

Inni już odpowiedział. Dodam tylko trochę wyjaśnienia.

Upraszczając nieco, reguła wcięcie Haskell jest:

• Niektóre słowa kluczowe uruchomić blok rzeczy (where, let, do, case ... of).
• Znajdź pierwsze słowo po takich słowach kluczowych i zanotuj jego wcięcie. Nazwij kolumnę, w której występuje kolumna przestawna.
• Rozpocznij linię dokładnie na osi przestawnej, aby zdefiniować nowy wpis w bloku.
• Rozpocznij linię po osi przestawnej, aby kontynuować wpis rozpoczęty w poprzednich wierszach.
• Rozpocznij linię przed pivotem, aby zakończyć blok.

Stąd

where 
    wordCount input = show (ls ++ " " ++ ws ++ " " ++ cs ++ "\n") 
    where 
     ls = lines input 
     ws = length words input 
     cs = length input 

rzeczywistości oznacza

where { 
    wordCount input = show (ls ++ " " ++ ws ++ " " ++ cs ++ "\n") 
    ; 
    where {  -- same column, new entry 
     ls = lines input 
     ; -- same column, new entry 
     ws = length words input 
     ; -- same column, new entry 
     cs = length input 
     } 
    } 

który traktuje drugą where jako oddzielny określenia niezwiązanego z wordCount. Jeśli przytoczymy więcej:

where { 
    wordCount input = show (ls ++ " " ++ ws ++ " " ++ cs ++ "\n") 
     where {  -- after the pivot, same entry 
     ls = lines input 
     ; 
     ws = length words input 
     ; 
     cs = length input 
     } 
    }