summaryrefslogtreecommitdiff
path: root/files/practicum/MatchStrings.icl
diff options
context:
space:
mode:
authorMart Lubbers2015-02-06 08:39:37 +0100
committerMart Lubbers2015-02-06 08:39:37 +0100
commit379b6353396ca2401241d714733d570629835ffe (patch)
tree26652c854a79c627b5f50bc8ac26f9b84f8e196d /files/practicum/MatchStrings.icl
parentMerge 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.icl35
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"