9 lines
185 B
Text
9 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:
|