Data update

Task/Integer-comparison/DuckDB/integer-comparison.duckdb

@@ -0,0 +1,8 @@
+select a
+  || if ( a < b, ' is less than ',
+     if ( a = b, ' is equal to ',
+     if ( a > b, ' is greater than ',
+                 ' is incomparable to ')))
+  || b as comparison
+from read_csv_auto('/dev/stdin', header=false, sep=' ',
+   columns= {'a': 'INTEGER', 'b': 'INTEGER'});

Task/Integer-comparison/Prolog/integer-comparison-1.pro

@@ -0,0 +1,14 @@
+:- set_prolog_flag(double_quotes, chars).
+
+println([]) :- write('\n').
+println([Char | Chars]) :- write(Char), println(Chars).
+
+my_compare(A, B) :-
+    (   A < B
+    ->  println("A is less than B")
+    ;   A > B
+    ->  println("A is greater than B")
+    ;   % double equals is necessary if we want the predicate to fail if A or B is unbound
+        A == B
+    ->  println("A is equal to B")
+    ).

Task/Integer-comparison/Prolog/integer-comparison-2.pro

@@ -0,0 +1,7 @@
+my_compare2(A, B) :-
+    compare(Order, A, B),
+    my_compare2_(Order).
+
+my_compare2_(<) :- println("A is less than B.").
+my_compare2_(=) :- println("A is equal to B.").
+my_compare2_(>) :- println("A is greater than B.").

Task/Integer-comparison/YAMLScript/integer-comparison.ys

@@ -0,0 +1,8 @@
+!YS-v0
+
+defn main(x y):
+  say:
+    cond:
+      x < y: "$x is less than $y"
+      x > y: "$x is greater than $y"
+      else : "$x is equal to $y"