Data commit

Task/Attractive-numbers/Comal/attractive-numbers.comal

@@ -0,0 +1,22 @@
+0010 FUNC factors#(n#) CLOSED
+0020   count#:=0
+0030   WHILE n# MOD 2=0 DO n#:=n# DIV 2;count#:+1
+0040   fac#:=3
+0050   WHILE fac#<=n# DO
+0060     WHILE n# MOD fac#=0 DO n#:=n# DIV fac#;count#:+1
+0070     fac#:+2
+0080   ENDWHILE
+0090   RETURN count#
+0100 ENDFUNC factors#
+0110 //
+0120 ZONE 4
+0130 seen#:=0
+0140 FOR i#:=2 TO 120 DO
+0150   IF factors#(factors#(i#))=1 THEN
+0160     PRINT i#,
+0170     seen#:+1
+0180     IF seen# MOD 18=0 THEN PRINT
+0190   ENDIF
+0200 ENDFOR i#
+0210 PRINT
+0220 END