to sumnumberstest3
;by Mike Sandy (adapted to aUCBLogo for speed and brevity by AM)
local [start t v]
make "start timemilli
make "v sum_num 10 1 1E7
make "t (timemilli-:start)
print (list "sum\ of\ digits\ = :v
"time\ = int :t/60000 "min
60 * (:t/60000-int :t/60000) "sec )
end
to sum_num b n1 n2 [s 0]
for [i n1 n2]
[ s=s+tolist intform i 0 b
]
output s
end