June 2018 Update

Task/Even-or-odd/Common-Lisp/even-or-odd-2.lisp

@@ -0,0 +1,13 @@
+;; Project : Even or odd
+;; Date    : 2018/03/05
+;; Author : Gal Zsolt [~ CalmoSoft ~]
+;; Email   : <calmosoft@gmail.com>
+
+(defun evenodd (nr)
+          (cond ((evenp nr) "even")
+          ((oddp nr) "odd")))
+(dotimes (n 10)
+(if (< n 1) (terpri))
+(if (< n 9) (format t "~a" " "))
+(write(+ n 1)) (format t "~a" ": ")
+(format t "~a" (evenodd (+ n 1))) (terpri))

Task/Even-or-odd/Modula-2/even-or-odd.mod2

@@ -0,0 +1,15 @@
+MODULE EvenOrOdd;
+FROM FormatString IMPORT FormatString;
+FROM Terminal IMPORT WriteString,ReadChar;
+
+VAR
+    buf : ARRAY[0..63] OF CHAR;
+    i : INTEGER;
+BEGIN
+    FOR i:=-5 TO 5 DO
+        FormatString("%i is even: %b\n", buf, i, i MOD 2 = 0);
+        WriteString(buf)
+    END;
+
+    ReadChar
+END EvenOrOdd.

Task/Even-or-odd/Stata/even-or-odd.stata

@@ -0,0 +1,9 @@
+mata
+function iseven(n) {
+	return(mod(n,2)==0)
+}
+
+function isodd(n) {
+	return(mod(n,2)==1)
+}
+end

Task/Even-or-odd/UNIX-Shell/even-or-odd.sh

@@ -0,0 +1,4 @@
+iseven() {
+    [[ $(($1%2)) -eq 0 ]] && return 0
+    return 1
+}

Task/Even-or-odd/VBA/even-or-odd.vba

@@ -0,0 +1,38 @@
+Option Explicit
+
+Sub Main_Even_Odd()
+Dim i As Long
+
+    For i = -50 To 48 Step 7
+        Debug.Print i & " : IsEven ==> " & IIf(IsEven(i), "is even", "is odd") _
+         & " " & Chr(124) & " IsEven2 ==> " & IIf(IsEven2(i), "is even", "is odd") _
+         & " " & Chr(124) & " IsEven3 ==> " & IIf(IsEven3(i), "is even", "is odd") _
+         & " " & Chr(124) & " IsEven4 ==> " & IIf(IsEven4(i), "is even", "is odd")
+    Next
+End Sub
+
+Function IsEven(Number As Long) As Boolean
+'Use the even and odd predicates
+    IsEven = (WorksheetFunction.Even(Number) = Number)
+End Function
+
+Function IsEven2(Number As Long) As Boolean
+'Check the least significant digit.
+'With binary integers, i bitwise-and 1 equals 0 iff i is even, or equals 1 iff i is odd.
+Dim lngTemp As Long
+    lngTemp = CLng(Right(CStr(Number), 1))
+    If (lngTemp And 1) = 0 Then IsEven2 = True
+End Function
+
+Function IsEven3(Number As Long) As Boolean
+'Divide i by 2.
+'The remainder equals 0 if i is even.
+Dim sngTemp As Single
+    sngTemp = Number / 2
+    IsEven3 = ((Int(sngTemp) - sngTemp) = 0)
+End Function
+
+Function IsEven4(Number As Long) As Boolean
+'Use modular congruences
+    IsEven4 = (Number Mod 2 = 0)
+End Function