plaudern.de

Forumsharing?
Forum suchen
Forum erstellen
Impressum/Kontakt
Datenschutz
AGB
Hilfe

43 User im System
Rekord: 144
(11.09.2023, 16:48 Uhr)

 
 
 Haskell :: Sprache
  Suche:
 Blatt 6 [ohne Text] 27.11.2002 (22:51 Uhr) amo
 Aufgabe 1 27.11.2002 (22:53 Uhr) amo
 Aufgabe 2 27.11.2002 (22:57 Uhr) amo
 Mehrfachtests 29.11.2002 (05:03 Uhr) amo
 Re: Aufgabe 2 - allDifferent 29.11.2002 (05:12 Uhr) amo
 allDifferent2 01.12.2002 (19:39 Uhr) amo
 allDifferent3 01.12.2002 (19:41 Uhr) amo
 allDifferent -> allDifferent3 01.12.2002 (19:57 Uhr) amo
 allDifferent -> allDifferent3 29.11.2002 (04:56 Uhr) amo
 allDifferent4 01.12.2002 (20:08 Uhr) amo
 allDifferent5 01.12.2002 (20:16 Uhr) amo
 allDifferents 01.12.2002 (20:24 Uhr) amo
 Aufgabe 3 - substring 27.11.2002 (22:59 Uhr) amo
 Aufgabe 4 27.11.2002 (23:47 Uhr) amo
 checkHTML 02.12.2002 (07:34 Uhr) amo
 checkHTML 03.12.2002 (19:23 Uhr) amo
 checkHTML - Primitivversion 04.12.2002 (05:03 Uhr) amo
checkHTML :: String -> Bool
checkHTML s = isAnf sa && isMetas sm && isEnde se
   where sw = words s
         anf = ["<html>","<head>","<title>","</title>"]
         meta = ["<meta>","</meta>"]
         end = ["</head>","<body>","</body>","</html>"]
         sa = take (length anf) sw
         soa = drop (length anf) sw
         se = drop (length sw - length end) sw
         sm = take (length soa - length end) 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
Zuletzt geändert von amo am 04.12.2002 um 05:15 Uhr.
 Re: checkHTML - Primitivversion 04.12.2002 (05:09 Uhr) amo
 ganze Datei für Blatt 6 04.12.2002 (12:52 Uhr) amo
0 User im Forum. Kostenloses Forumhosting von plaudern.de. Dieses Forum im eigenen Design entführen. Impressum
Papier sparen durch druckoptimierte Webseiten. Wie es geht erfahren Sie unter www.baummord.de.