RosettaCodeData/Task/Even-or-odd/M2000-Interpreter/even-or-odd.m2000
2023-07-01 13:44:08 -04:00

9 lines
268 B
Text

Module CheckOdd {
Def Odd(a)= binary.and(Abs(a), 1)=1
Print Odd(-5), Odd(6), Odd(11)
Print Odd(21212121212122122122121@)
def Odd(a)= Int(Abs(a)) mod 2 =1
Print Odd(21212121212122122122121@)
Print Odd(-5), Odd(6), Odd(11)
}
CheckOdd