diff options
| author | Mart Lubbers | 2015-02-06 08:39:37 +0100 |
|---|---|---|
| committer | Mart Lubbers | 2015-02-06 08:39:37 +0100 |
| commit | 379b6353396ca2401241d714733d570629835ffe (patch) | |
| tree | 26652c854a79c627b5f50bc8ac26f9b84f8e196d /files/practicum/MatchStrings.icl | |
| parent | Merge branch 'master' of https://github.com/dopefishh/fp1 (diff) | |
added practicum files, updated gitignore
Diffstat (limited to 'files/practicum/MatchStrings.icl')
| -rw-r--r-- | files/practicum/MatchStrings.icl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/files/practicum/MatchStrings.icl b/files/practicum/MatchStrings.icl new file mode 100644 index 0000000..3519eb7 --- /dev/null +++ b/files/practicum/MatchStrings.icl @@ -0,0 +1,35 @@ +implementation module MatchStrings
+
+import StdEnv
+
+head :: String -> Char
+head s = abort "head is nog niet geimplementeerd"
+
+tail :: String -> String
+tail s = abort "tail is nog niet geimplementeerd"
+
+is_gelijk :: String String -> Bool
+is_gelijk a b = abort "is_gelijk is nog niet geimplementeerd"
+
+is_deelstring :: String String -> Bool
+is_deelstring a b = abort "is_deelstring is nog niet geimplementeerd"
+
+is_deel :: String String -> Bool
+is_deel a b = abort "is_deel is nog niet geimplementeerd"
+
+is_match :: String String -> Bool
+is_match a b = abort "is_match is nog niet geimplementeerd"
+
+//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"
|