Closes #64

categories/99-problems/P46-vaibhav.pl

@@ -0,0 +1,77 @@
+use v6;
+
+=begin pod
+
+= TITLE P46 - Truth tables for logical expressions
+
+= AUTHOR Vaibhav Mehra
+
+=head1 Example:
+
+    > my $result = and($A, or($A, not($B)));
+    true true true
+    true fail true
+    fail true fail
+    fail fail fail
+
+=end pod
+
+# we'll define subroutines
+# for all the basic logic gates.
+
+multi and ($input1, $input2) {
+  if $input1 eq 'true' && $input2 eq 'true' {
+    return 'true';
+  }
+  else {
+    return 'fail';
+  }
+}
+
+multi or ($input1, $input2) {
+  if $input1 eq 'fail' && $input2 eq 'fail' {
+    return 'fail';
+  }
+  else {
+    return 'true';
+  }
+}
+
+sub not ($input) {
+  if $input eq 'true' {
+    return 'fail';
+  }
+  else {
+    return 'true';
+  }
+}
+
+multi nor ($input1, $input2) {
+  return not(or($input1, $input2));
+}
+
+multi nand ($input1, $input2) {
+  return not(and($input1, $input2));
+}
+
+multi xor ($input1, $input2) {
+  return or(and($input1, not($input2)), and(not($input1), $input2));
+}
+
+multi xnor ($input1, $input2) {
+  return and(or($input1, not($input2)), or(not($input1), $input2));
+}
+
+#Next we define a function which will provide us the truth table
+#for any logical expression made from logic gates
+#given above.
+
+sub table(&callable) {
+    say "{$_.join("\t")}\t{&callable(|$_)}" for [X] [True, False] xx &callable.arity;
+}
+
+# Below here is an example to understand the working of above script.
+
+table(-> $a, $b { and($a, or($a, not($b))) });
+
+# vim: expandtab shiftwidth=4 ft=perl6