31 lines
625 B
Plaintext
31 lines
625 B
Plaintext
include "NSLog.incl"
|
|
|
|
local fn IsHappy( num as NSUInteger ) as NSUInteger
|
|
NSUInteger i, happy = 0, count = 0
|
|
|
|
while ( count < 50 ) and ( happy != 1 )
|
|
CFStringRef numStr = str( num )
|
|
count++ : happy = 0
|
|
for i = 1 to len( numStr )
|
|
happy = happy + fn StringIntegerValue( mid( numStr, i, 1 ) ) ^ 2
|
|
next
|
|
num = happy
|
|
wend
|
|
end fn = num
|
|
|
|
void local fn HappyNumbers
|
|
NSUInteger i, count = 0
|
|
|
|
for i = 1 to 100
|
|
if ( fn IsHappy(i) == 1 )
|
|
count++
|
|
NSLog( @"%2lu. %2lu is a happy number", count, i )
|
|
if count == 8 then exit fn
|
|
end if
|
|
next
|
|
end fn
|
|
|
|
fn HappyNumbers
|
|
|
|
HandleEvents
|