13 lines
247 B
Text
13 lines
247 B
Text
|
local fn OddOrEven( i as NSInteger ) as CFStringRef
|
||
|
|
CFStringRef result
|
||
|
|
if ( i mod 2 ) == 0 then result = @"Even" else result = @"Odd"
|
||
|
|
end fn = result
|
||
|
|
|
||
|
|
NSUInteger i
|
||
|
|
|
||
|
|
for i = 1 to 10
|
||
|
|
printf @"%d is %@", i, fn OddOrEven( i )
|
||
|
|
next
|
||
|
|
|
||
|
|
HandleEvents
|