[clean-list] stupid question

[TK]

He wants to repeatedly sum digits until ( number < 10 ) in order to check
divisibility by 9 like


digitalRoot    x = limit ( iterate digitSum x )

digitSum 0    = 0
digitSum x    = ones x + digitSum ( x / 10 )
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.science.ru.nl/pipermail/clean-list/attachments/20071211/c8e8add3/attachment.html