Data commit

Task/Happy-numbers/PILOT/happy-numbers.pilot

@@ -0,0 +1,37 @@
+C :max=8
+  :n=0
+  :i=0
+*test
+U :*happy
+T (a=1):#n
+C (a=1):i=i+1
+C :n=n+1
+J (i<max):*test
+E :
+
+*happy
+C :a=n
+  :x=n
+U :*sumsq
+C :b=s
+*loop
+C :x=a
+U :*sumsq
+C :a=s
+C :x=b
+U :*sumsq
+C :x=s
+U :*sumsq
+C :b=s
+J (a<>b):*loop
+E :
+
+*sumsq
+C :s=0
+*digit
+C :y=x/10
+  :z=x-y*10
+  :s=s+z*#z
+  :x=y
+J (x):*digit
+E :