Data update

Task/Even-or-odd/Ada/even-or-odd.ada

@@ -1,15 +0,0 @@
--- Ada has bitwise operators in package Interfaces,
--- but they work with Interfaces.Unsigned_*** types only.
--- Use rem or mod for Integer types, and let the compiler
--- optimize it.
-declare
-   N : Integer := 5;
-begin
-   if N rem 2 = 0 then
-      Put_Line ("Even number");
-   elseif N rem 2 /= 0 then
-      Put_Line ("Odd number");
-   else
-      Put_Line ("Something went really wrong!");
-   end if;
-end;

Task/Even-or-odd/Arturo/even-or-odd.arturo

@@ -1,4 +1,4 @@
 loop (neg 5)..5 [x][
-	if? even? x -> print [pad to :string x 4 ": even"]
-	else -> print [pad to :string x 4 ": odd"]
+	switch even? x -> print [pad to :string x 4 ": even"]
+				   -> print [pad to :string x 4 ": odd"]
 ]

Task/Even-or-odd/Batch-File/even-or-odd.bat

@@ -1,14 +1,12 @@
 @echo off
+setlocal
 set /p i=Insert number:
 
 ::bitwise and
 set /a "test1=%i%&1"
 
-::divide last character by 2
-set /a test2=%i:~-1%/2
-
 ::modulo
-set /a test3=%i% %% 2
+set /a test2=%i% %% 2
 
 set test
 pause>nul

Task/Even-or-odd/COBOL/even-or-odd.cobol

@@ -1,5 +0,0 @@
-       IF FUNCTION REM(Num, 2) = 0
-           DISPLAY Num " is even."
-       ELSE
-           DISPLAY Num " is odd."
-       END-IF

Task/Even-or-odd/Crystal/even-or-odd.cr

@@ -19,6 +19,13 @@
   def isOdd_bAnd(n)
     (n & 1) != 0
   end
+# Using integer predicates
+  def isEven_even(n)
+    n.even?
+  end
+  def isOdd_odd(n)
+    n.odd?
+  end
 
 puts isEven_bShift(7)
 puts isOdd_bShift(7)
@@ -28,3 +35,6 @@ puts isOdd_mod(12)
 
 puts isEven_bAnd(21)
 puts isOdd_bAnd(21)
+
+puts isEven_even(32)
+puts isOdd_odd(32)

Task/Even-or-odd/Emacs-Lisp/even-or-odd.l

@@ -1,10 +0,0 @@
-(require 'cl-lib)
-
-(defun even-or-odd-p (n)
-  (if (cl-evenp n) 'even 'odd))
-
-(defun even-or-odd-p (n)
- (if (zerop (% n 2)) 'even 'odd))
-
-(message "%d is %s" 3 (even-or-oddp 3))
-(message "%d is %s" 2 (even-or-oddp 2))

Task/Even-or-odd/Euphoria/even-or-odd.ex

@@ -1,5 +0,0 @@
-include std/math.e
-
-for i = 1 to 10 do
-        ? {i, is_even(i)}
-end for

Task/Even-or-odd/Oberon/even-or-odd.oberon

@@ -1,21 +0,0 @@
-MODULE EvenOrOdd;
-IMPORT
-  S := SYSTEM,
-  Out;
-VAR
-  x: INTEGER;
-  s: SET;
-
-BEGIN
-  x := 10;Out.Int(x,0);
-  IF ODD(x) THEN Out.String(" odd") ELSE Out.String(" even") END;
-  Out.Ln;
-
-  x := 11;s := S.VAL(SET,LONG(x));Out.Int(x,0);
-  IF 0 IN s THEN Out.String(" odd") ELSE Out.String(" even") END;
-  Out.Ln;
-
-  x := 12;Out.Int(x,0);
-  IF x MOD 2 # 0 THEN Out.String(" odd") ELSE Out.String(" even") END;
-  Out.Ln
-END EvenOrOdd.

Task/Even-or-odd/PowerShell/even-or-odd-1.psh

@@ -1,2 +0,0 @@
-$IsOdd  = -not ( [bigint]$N ).IsEven
-$IsEven =      ( [bigint]$N ).IsEven

Task/Even-or-odd/PowerShell/even-or-odd-2.psh

@@ -1,2 +0,0 @@
-$IsOdd  = [boolean]( $N -band 1 )
-$IsEven = [boolean]( $N -band 0 )

Task/Even-or-odd/PowerShell/even-or-odd-3.psh

@@ -1,2 +0,0 @@
-$IsOdd  = $N % 2 -ne 0
-$IsEven = $N % 2 -eq 0

Task/Even-or-odd/ReScript/even-or-odd.re

@@ -1,3 +0,0 @@
-let is_even = d => mod(d, 2) == 0
-
-let is_odd = d => mod(d, 2) != 0

Task/Even-or-odd/VBScript/even-or-odd.vb

@@ -1,12 +0,0 @@
-Function odd_or_even(n)
-	If n Mod 2 = 0 Then
-		odd_or_even = "Even"
-	Else
-		odd_or_even = "Odd"
-	End If
-End Function
-
-WScript.StdOut.Write "Please enter a number: "
-n = WScript.StdIn.ReadLine
-WScript.StdOut.Write n & " is " & odd_or_even(CInt(n))
-WScript.StdOut.WriteLine