14 lines
281 B
Text
14 lines
281 B
Text
long local fn SumDigits( n as long, base as long )
|
|
long sum = 0
|
|
while ( n > 0 )
|
|
sum += n % base
|
|
n = fix(n/base)
|
|
wend
|
|
end fn = sum
|
|
|
|
print fn SumDigits( 1, 10 )
|
|
print fn SumDigits( 1234, 10 )
|
|
print fn SumDigits( 0xfe, 16 )
|
|
print fn SumDigits( 0xf0e, 16 )
|
|
|
|
HandleEvents
|