8 lines
185 B
Text
8 lines
185 B
Text
SumSqDigits := proc( n :: posint )
|
|
local s := 0;
|
|
local m := n;
|
|
while m <> 0 do
|
|
s := s + irem( m, 10, 'm' )^2
|
|
end do;
|
|
s
|
|
end proc:
|