12 lines
485 B
Plaintext
12 lines
485 B
Plaintext
IF FNisodd%(14) PRINT "14 is odd" ELSE PRINT "14 is even"
|
|
IF FNisodd%(15) PRINT "15 is odd" ELSE PRINT "15 is even"
|
|
IF FNisodd#(9876543210#) PRINT "9876543210 is odd" ELSE PRINT "9876543210 is even"
|
|
IF FNisodd#(9876543211#) PRINT "9876543211 is odd" ELSE PRINT "9876543211 is even"
|
|
END
|
|
|
|
REM Works for -2^31 <= n% < 2^31
|
|
DEF FNisodd%(n%) = (n% AND 1) <> 0
|
|
|
|
REM Works for -2^53 <= n# <= 2^53
|
|
DEF FNisodd#(n#) = n# <> 2 * INT(n# / 2)
|