diff options
author | Camil Staps | 2016-02-02 19:24:50 +0100 |
---|---|---|
committer | Camil Staps | 2016-02-02 19:24:50 +0100 |
commit | a7d7542dc646a5fd124ef71e71ce260889f1701b (patch) | |
tree | 04ed89503bbb3cc9933273a1326a53ca724c3492 /fp1/week1/camil/2.3/MatchStrings.icl | |
parent | week6 camil: working positioning of lines by putting empties at left and righ... (diff) |
Diffstat (limited to 'fp1/week1/camil/2.3/MatchStrings.icl')
-rw-r--r-- | fp1/week1/camil/2.3/MatchStrings.icl | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/fp1/week1/camil/2.3/MatchStrings.icl b/fp1/week1/camil/2.3/MatchStrings.icl deleted file mode 100644 index 17859ae..0000000 --- a/fp1/week1/camil/2.3/MatchStrings.icl +++ /dev/null @@ -1,48 +0,0 @@ -implementation module MatchStrings
-
-import StdEnv
-
-head :: String -> Char
-head "" = abort "head uitgevoerd op lege string"
-head s = s.[0]
-
-tail :: String -> String
-tail "" = abort "tail uitgevoerd op lege string"
-tail s = s % (1, size s - 1)
-
-is_gelijk :: String String -> Bool
-is_gelijk "" "" = True
-is_gelijk a "" = False
-is_gelijk "" b = False
-is_gelijk a b = (head a == head b) && (is_gelijk (tail a) (tail b))
-
-is_deelstring :: String String -> Bool
-is_deelstring "" b = True
-is_deelstring a "" = False
-is_deelstring a b = is_gelijk a (b % (0, size a - 1)) || is_deelstring a (tail b)
-
-is_deel :: String String -> Bool
-is_deel "" b = True
-is_deel a "" = False
-is_deel a b = head a == head b && is_deel (tail a) (tail b) || is_deel a (tail b)
-
-is_match :: String String -> Bool
-is_match "" "" = True
-is_match "" b = False
-is_match "*" "" = True
-is_match a "" = False
-is_match a b = (head a == '.' || head a == head b) && is_match (tail a) (tail b) || head a == '*' && (is_match a (tail b) || is_match (tail a) b)
-
-//Start = (head pink_floyd, tail pink_floyd)
-//Start = is_gelijk "" " "
-//Start = is_deelstring "there" pink_floyd
-//Start = is_deelstring "there" marillion
-//Start = is_deel "there" marillion
-//Start = is_deel "she and her" pink_floyd
-//Start = is_deel radiohead pink_floyd
-//Start = is_match "*.here*.here*." pink_floyd
-//Start = is_match ".here.here." pink_floyd
-
-pink_floyd = "Is there anybody in there?"
-marillion = "Just for the record"
-radiohead = "There there"
|