17 lines
237 B
Text
17 lines
237 B
Text
long c = 0, n = 0, t, i
|
|
CFStringRef s
|
|
|
|
while ( c < 18 )
|
|
s = fn StringWithFormat(@"%ld",n)
|
|
t = 0
|
|
for i = 0 to len(s) - 1
|
|
t += intVal(mid(s,i,1))^(i+1)
|
|
next
|
|
if ( t == n )
|
|
print n
|
|
c++
|
|
end if
|
|
n++
|
|
wend
|
|
|
|
HandleEvents
|