From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 2 Feb 2016 19:24:50 +0100
Subject: Moved to 1415 directory

---
 1415/files/practicum/MatchStrings.icl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 1415/files/practicum/MatchStrings.icl

(limited to '1415/files/practicum/MatchStrings.icl')

diff --git a/1415/files/practicum/MatchStrings.icl b/1415/files/practicum/MatchStrings.icl
new file mode 100644
index 0000000..3519eb7
--- /dev/null
+++ b/1415/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"
-- 
cgit v1.2.3