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/NouEnOf.icl | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 1415/files/practicum/NouEnOf.icl (limited to '1415/files/practicum/NouEnOf.icl') diff --git a/1415/files/practicum/NouEnOf.icl b/1415/files/practicum/NouEnOf.icl new file mode 100644 index 0000000..cd56213 --- /dev/null +++ b/1415/files/practicum/NouEnOf.icl @@ -0,0 +1,16 @@ +module NouEnOf + +import StdEnv + +and` = ... all ... +or` = ... any ... + +all_l p = foldl ... +all_r p = foldr ... +any_l p = foldl ... +any_r p = foldr ... + +Start = all_l id [False:repeat True ] +Start = any_l id [True :repeat False] +Start = all_r id [False:repeat True ] +Start = any_r id [True :repeat False] -- cgit v1.2.3