From 132b9b61ec36ff4ee2a16d7f42d7994850dc2de1 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Fri, 3 Jul 2015 13:49:53 +0200 Subject: Cleanup; simple truthtable; license; readme --- Logic.dcl | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'Logic.dcl') diff --git a/Logic.dcl b/Logic.dcl index bf76859..b6f3705 100644 --- a/Logic.dcl +++ b/Logic.dcl @@ -1,3 +1,26 @@ +/** + * The MIT License (MIT) + * + * Copyright (c) 2015 Camil Staps + * + * Permission is hereby granted, free of charge, to any person obtaining a copy + * of this software and associated documentation files (the "Software"), to deal + * in the Software without restriction, including without limitation the rights + * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell + * copies of the Software, and to permit persons to whom the Software is + * furnished to do so, subject to the following conditions: + * + * The above copyright notice and this permission notice shall be included in all + * copies or substantial portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE + * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE + * SOFTWARE. + */ definition module Logic import StdEnv @@ -60,5 +83,7 @@ eval :: Expr -> [Bool] // Evaluate to a simpler form subexprs :: Expr -> [Expr] // Subexpressions of an expression sorted_subexprs :: (Expr -> [Expr]) // Similar, but roughly sorted by complexity + +simple_truthtable :: Expr -> TruthTable // Simple truthtable: only the atomic expression and the expression itself truthtable :: Expr -> TruthTable // Truthtable from an expression -- cgit v1.2.3