Data update

Task/Ternary-logic/Ada/ternary-logic-1.ada

@@ -1,15 +0,0 @@
-package Logic is
-   type Ternary is (True, Unknown, False);
-
-   -- logic functions
-   function "and"(Left, Right: Ternary) return Ternary;
-   function "or"(Left, Right: Ternary) return Ternary;
-   function "not"(T: Ternary) return Ternary;
-   function Equivalent(Left, Right: Ternary) return Ternary;
-   function Implies(Condition, Conclusion: Ternary) return Ternary;
-
-   -- conversion functions
-   function To_Bool(X: Ternary) return Boolean;
-   function To_Ternary(B: Boolean) return Ternary;
-   function Image(Value: Ternary) return Character;
-end Logic;

Task/Ternary-logic/Ada/ternary-logic-2.ada

@@ -1,62 +0,0 @@
-package body Logic is
-   -- type Ternary is (True, Unknown, False);
-
-   function Image(Value: Ternary) return Character is
-   begin
-      case Value is
-         when True    => return 'T';
-         when False   => return 'F';
-         when Unknown => return '?';
-      end case;
-   end Image;
-
-   function "and"(Left, Right: Ternary) return Ternary is
-   begin
-      return Ternary'max(Left, Right);
-   end "and";
-
-   function "or"(Left, Right: Ternary) return Ternary is
-   begin
-      return Ternary'min(Left, Right);
-   end "or";
-
-   function "not"(T: Ternary) return Ternary is
-   begin
-      case T is
-         when False   => return True;
-         when Unknown => return Unknown;
-         when True    => return False;
-      end case;
-   end "not";
-
-   function To_Bool(X: Ternary) return Boolean is
-   begin
-      case X is
-         when True  => return True;
-         when False => return False;
-         when Unknown => raise Constraint_Error;
-      end case;
-   end To_Bool;
-
-   function To_Ternary(B: Boolean) return Ternary is
-   begin
-      if B then
-         return True;
-      else
-         return False;
-      end if;
-   end To_Ternary;
-
-   function Equivalent(Left, Right: Ternary) return Ternary is
-   begin
-      return To_Ternary(To_Bool(Left) = To_Bool(Right));
-   exception
-      when Constraint_Error => return Unknown;
-   end Equivalent;
-
-   function Implies(Condition, Conclusion: Ternary) return Ternary is
-   begin
-      return (not Condition) or Conclusion;
-   end Implies;
-
-end Logic;

Task/Ternary-logic/Ada/ternary-logic-3.ada

@@ -1,35 +0,0 @@
-with Ada.Text_IO, Logic;
-
-procedure Test_Tri_Logic is
-
-   use Logic;
-
-   type F2 is access function(Left, Right: Ternary) return Ternary;
-   type F1 is access function(Trit: Ternary) return Ternary;
-
-   procedure Truth_Table(F: F1; Name: String) is
-   begin
-      Ada.Text_IO.Put_Line("X | " & Name & "(X)");
-      for T in Ternary loop
-         Ada.Text_IO.Put_Line(Image(T) & " |  " & Image(F(T)));
-      end loop;
-   end Truth_Table;
-
-   procedure Truth_Table(F: F2; Name: String) is
-   begin
-      Ada.Text_IO.New_Line;
-      Ada.Text_IO.Put_Line("X | Y | " & Name & "(X,Y)");
-      for X in Ternary loop
-         for Y in Ternary loop
-            Ada.Text_IO.Put_Line(Image(X) & " | " & Image(Y) & " |  " & Image(F(X,Y)));
-         end loop;
-      end loop;
-   end Truth_Table;
-
-begin
-   Truth_Table(F => "not"'Access, Name => "Not");
-   Truth_Table(F => "and"'Access, Name => "And");
-   Truth_Table(F => "or"'Access, Name => "Or");
-   Truth_Table(F => Equivalent'Access, Name => "Eq");
-   Truth_Table(F => Implies'Access, Name => "Implies");
-end Test_Tri_Logic;

Task/Ternary-logic/Elena/ternary-logic.elena

@@ -61,18 +61,18 @@ sealed class Trit
    string toPrintable() = _value.toPrintable() \ back("maybe");
 }
 
-public program()
+public Program()
 {
     List<Trit> values := new Trit[]{true, nilValue, false};
     values.forEach::(left)
     {
-        console.printLine("¬",left," = ", left.Inverted);
+        Console.printLine("¬",left," = ", left.Inverted);
         values.forEach::(right)
         {
-            console.printLine(left, " & ", right, " = ", left && right);
-            console.printLine(left, " | ", right, " = ", left || right);
-            console.printLine(left, " → ", right, " = ", left.implies(right));
-            console.printLine(left, " ≡ ", right, " = ", left.equivalent(right))
+            Console.printLine(left, " & ", right, " = ", left && right);
+            Console.printLine(left, " | ", right, " = ", left || right);
+            Console.printLine(left, " → ", right, " = ", left.implies(right));
+            Console.printLine(left, " ≡ ", right, " = ", left.equivalent(right))
         }
     }
 }