10 lines
291 B
Text
10 lines
291 B
Text
DEFINE('even(n)') :(even_end)
|
|
even even = (EQ(REMDR(n, 2), 0) 'even', 'odd') :(RETURN)
|
|
even_end
|
|
|
|
OUTPUT = "-2 is " even(-2)
|
|
OUTPUT = "-1 is " even(-1)
|
|
OUTPUT = "0 is " even(0)
|
|
OUTPUT = "1 is " even(1)
|
|
OUTPUT = "2 is " even(2)
|
|
END
|