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

---
 files/practicum/SubsTest.icl | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100644 files/practicum/SubsTest.icl

(limited to 'files/practicum/SubsTest.icl')

diff --git a/files/practicum/SubsTest.icl b/files/practicum/SubsTest.icl
deleted file mode 100644
index 6092bc0..0000000
--- a/files/practicum/SubsTest.icl
+++ /dev/null
@@ -1,40 +0,0 @@
-module SubsTest
-
-/*	Test module Subs
-	Voor werken met Gast: 
-		(*) gebruik Environment 'Gast'
-		(*) zet Project Options op 'Basic Values Only'
-*/
-
-import StdEnv
-import gast
-import Subs
-
-Start
-							= testn 1000
-							    (\xs -> alle_lengtes_komen_voor xs /\
-							            alle_elementen_zijn_sub xs /\
-							            subs_xs_bevat_xs        xs /\
-							            True
-							    )
-
-alle_lengtes_komen_voor		:: [Int] -> Property
-alle_lengtes_komen_voor xs	= name "alle_lengtes_komen_voor"
-							       (let n = length xs
-							         in sort (removeDup (map length (subs xs))) == [0..n]
-							       )
-
-alle_elementen_zijn_sub		:: [Int] -> Property
-alle_elementen_zijn_sub xs	= name "alle_elementen_zijn_sub" (and [is_sub f xs \\ f <- subs xs])
-
-subs_xs_bevat_xs			:: [Int] -> Property
-subs_xs_bevat_xs xs			= name "subs_xs_bevat_xs" (isMember xs (subs xs))
-
-/*	is_sub sub lijst is True alleen als alle elementen van sub achtereenvolgens voorkomen in lijst.
-*/
-is_sub						:: [a] [a] -> Bool | Eq a
-is_sub [] _					= True
-is_sub _ []					= False
-is_sub [x:xs] [y:ys]
-| x == y					= is_sub xs ys
-| otherwise					= is_sub [x:xs] ys
-- 
cgit v1.2.3