Happy numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,937: / Line 4,937: @@
 Output:
 <pre>1 7 10 13 19 23 28 31</pre>
+=={{header|PILOT}}==
+<lang pilot>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 :</lang>
+{{out}}
+<pre>1
+</pre>
 =={{header|PL/I}}==