Data update

Task/Happy-numbers/ABC/happy-numbers.abc

@@ -0,0 +1,24 @@
+HOW TO RETURN square.digit.sum n:
+    PUT 0 IN sum
+    WHILE n>0:
+        PUT n mod 10 IN digit
+        PUT sum + digit ** 2 IN sum
+        PUT floor (n/10) IN n
+    RETURN sum
+
+HOW TO REPORT happy n:
+    PUT {} IN seen
+    WHILE n not.in seen:
+        INSERT n IN seen
+        PUT square.digit.sum n IN n
+    REPORT n=1
+
+HOW TO RETURN next.happy n:
+    PUT n+1 IN n
+    WHILE NOT happy n: PUT n+1 IN n
+    RETURN n
+
+PUT 0 IN n
+FOR i IN {1..8}:
+    PUT next.happy n IN n
+    WRITE n/