Haskell verschachtelt, wo Klauseln

Question

ich ein Anfänger-Coder in Haskell bin, während eine Übung aus dem ersten Kapitel dieses erstaunliche Buch tun: http://book.realworldhaskell.org/read/getting-started.html ich auf diese Frage kam:

-- 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’ 

Warum kann ich nicht verschachtelt meine wheres ?

Answer 1

Da Ihre zweite where an die wordCount Definition angehängt ist, muss sie mehr eingerückt werden. (. Auch wenn Sie noch später einige andere Fehler haben)

Answer 2

die Einbuchtung war falsch, hier ist die Arbeitsversion:

-- 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

Andere haben bereits beantwortet. Ich werde nur etwas mehr Erklärung hinzufügen.

Vereinfachen ein wenig, die Haskell Einbuchtung Regel lautet:

• Einige Schlüsselwörter beginnen einen Block von Dingen (where, let, do, case ... of).
• Suchen Sie das erste Wort nach solchen Schlüsselwörtern und notieren Sie den Einzug. Benennen Sie die Spalte, in der die Pivot-Spalte auftritt.
• Starten Sie eine Linie genau auf dem Drehpunkt, um einen neuen Eintrag im Block zu definieren.
• Starten Sie eine Linie nach dem Drehpunkt, um den in den vorherigen Zeilen begonnenen Eintrag fortzusetzen.
• Eine Zeile vor dem Drehpunkt beginnen, um den Block zu beenden. Daher

,

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

bedeutet eigentlich

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 
     } 
    } 

die den zweiten where als separate Definition in keinem Zusammenhang mit wordCount behandelt. Wenn wir es mehr einrücken:

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