| | | | > checkHTML :: String -> Bool > checkHTML s = isAnf sa && isMetas sm && isEnde se > where sw = words s > anf = ["","","",""] > meta = ["",""] > end = ["","","",""] > sa = take (length anf) sw > soa = drop (length anf) sw > se = drop (length sw - 4) sw > sm = take (length soa - 4) soa > isAnf sa = sa == anf > isMetas [] = True > isMetas sm | sm == [] = True > | take 2 sm /= meta = False > | otherwise = isMetas (drop 2 sm) > isEnde se = se == end So, nun hab ich euch noch schnell eine Primitivstversion von checkHTML geschrieben, weil ich den Fehler in der Funktionsdefinition von isHeadBodyKlassen nicht finden kann. Naja, für genau die vorgegebene Grammatik tut sies ja, aber zu mehr ist die Funktion nicht zu gebrauchen. :-( Fürs Übungsblatt genügt das hoffentlich.
euer amo
|