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/ZFRemoveAtTest.icl | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 files/practicum/ZFRemoveAtTest.icl (limited to 'files/practicum/ZFRemoveAtTest.icl') diff --git a/files/practicum/ZFRemoveAtTest.icl b/files/practicum/ZFRemoveAtTest.icl deleted file mode 100644 index 1eca25d..0000000 --- a/files/practicum/ZFRemoveAtTest.icl +++ /dev/null @@ -1,23 +0,0 @@ -module ZFRemoveAtTest - -/* Test module ZFRemoveAt - Voor werken met Gast: - (*) gebruik Environment 'Gast' - (*) zet Project Options op 'Basic Values Only' -*/ -import gast -import ZFRemoveAt - -Start - = testn 1000 - (\m n -> - let l = [1 .. (n>>20)] in - identiek_aan_removeAt m l /\ - True - ) - -identiek_aan_removeAt :: Int [Int] -> Property -identiek_aan_removeAt m l = name "identiek aan removeAt" - (removeAt m l == removeAt2 m l) - /\ - (ForEach [1..length l] (\i -> removeAt i l == removeAt2 i l)) -- cgit v1.2.3