<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<tt>TK schreef:</tt>
<blockquote
cite="mid:a7f0dfa80712110745n2bca1874te2686c177168c3ea@mail.gmail.com"
type="cite"><tt>He wants to repeatedly sum digits until ( number <
10 ) in order to check divisibility by 9 like<br>
<br>
<br>
digitalRoot x = limit ( iterate digitSum x )<br>
<br>
digitSum 0 = 0<br>
digitSum x = ones x + digitSum ( x / 10 )
<br>
<br>
</tt></blockquote>
<tt>If the problem is checking divisibility by 9,<br>
then I suggest to use what the language offers you:<br>
<br>
</tt>
<p class="MsoNormal" dir="ltr"
style="text-align: left; direction: ltr; unicode-bidi: embed;"><tt><font
size="2"><span style="font-size: 10pt; font-family: Arial;">div9
:: Int -> Bool</span></font><font size="2"><span dir="rtl"
style="font-size: 10pt; font-family: Arial;" lang="HE"><o:p></o:p></span></font></tt></p>
<p class="MsoNormal" dir="ltr"
style="text-align: left; direction: ltr; unicode-bidi: embed;"><tt><font
size="2"><span style="font-size: 10pt; font-family: Arial;">div9
x</span></font><font size="2"><span dir="rtl"
style="font-size: 10pt; font-family: Arial;" lang="HE"><o:p></o:p></span></font></tt></p>
<p class="MsoNormal" dir="ltr"
style="text-align: left; direction: ltr; unicode-bidi: embed;"><tt><font
size="2"><span style="font-size: 10pt; font-family: Arial;">
| x mod 9 == 0 = True</span></font><font size="2"><span dir="rtl"
style="font-size: 10pt; font-family: Arial;" lang="HE"><o:p></o:p></span></font></tt></p>
<p class="MsoNormal" dir="ltr"
style="text-align: left; direction: ltr; unicode-bidi: embed;"><tt><font
size="2"><span style="font-size: 10pt; font-family: Arial;">
|
otherwise = False</span></font><font size="2"><span dir="rtl"
style="font-size: 10pt; font-family: Arial;" lang="HE"><o:p></o:p></span></font></tt></p>
<tt><font size="2"><span style="font-size: 10pt; font-family: Arial;"></span></font><br>
But may be that's not the intention of the exercise<br>
So David will have to give a decisive answer to that.<br>
<br>
<br>
Thanks<br>
<br>
<br>
=@@i<br>
</tt><br>
</body>
</html>