Data commit

Task/Happy-numbers/Relation/happy-numbers.relation

@@ -0,0 +1,31 @@
+function happy(x)
+set y = x
+set lasty = 0
+set found = " "
+while y !=  1 and not (found regex "\s".y."\s")
+set found = found . y . " "
+set m = 0
+while y  > 0
+set digit = y mod 10
+set m = m + digit * digit
+set y = (y - digit) / 10
+end while
+set y = format(m,"%1d")
+end while
+set found = found . y . " "
+if y = 1
+set result = 1
+else
+set result = 0
+end if
+end function
+
+set c = 0
+set i = 1
+while c < 8 and i < 100
+if happy(i)
+echo i
+set c = c + 1
+end if
+set i = i + 1
+end while