OpenEuphoria

Re: math Question.... how to do a check sum?

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Dec 11, 2003
• 479 views

On Thu, 11 Dec 2003 12:40:57 +0000, shepardmar at yahoo.com wrote:

>the idea is to reduce the sum from the variables so they
>are under 22
>
>ex.
>
>if total is 599  then
>5+9+9 =23 is over 22 so reduce futher  2+3 = 5
>
This will do the trick:

function checksum(integer c)
sequence s
	while c>22 do
		s=sprintf("%d",{c})
		c=0
		for i=1 to length(s) do
			c+=s[i]-'0'
		end for
	end while
	return c
end function
?checksum(170)	-- prints 8
?checksum(599)	-- prints 5

Regards,
Pete
http://palacebuilders.pwp.blueyonder.co.uk/euphoria.html