Data commit

Task/Happy-numbers/Ring/happy-numbers.ring

@@ -0,0 +1,24 @@
+n = 1
+found = 0
+
+While found < 8
+    If IsHappy(n)
+          found += 1
+          see string(found) + " : " + string(n) + nl
+    ok
+    n += 1
+End
+
+Func IsHappy n
+    cache = []
+    While n != 1
+        Add(cache,n)
+        t = 0
+        strn = string(n)
+        for e in strn
+            t += pow(number(e),2)
+        next
+        n = t
+        If find(cache,n) Return False ok
+    End
+    Return True