22 lines
316 B
Text
22 lines
316 B
Text
define is_disarium (num) {
|
|
n = num
|
|
sum = 0
|
|
len = length(n)
|
|
while (n > 0) {
|
|
sum += (n % 10) ^ len
|
|
n = n/10
|
|
len -= 1
|
|
}
|
|
return (sum == num)
|
|
}
|
|
|
|
count = 0
|
|
i = 0
|
|
while (count < 19) {
|
|
if (is_disarium(i)) {
|
|
print i, "\n"
|
|
count += 1
|
|
}
|
|
i += 1
|
|
}
|
|
quit
|