Factors of an integer: Difference between revisions

Content added Content deleted

Inline

@@ Line 231: / Line 231: @@
           mapM (uncurry((. enumFromTo 0) . map .(^) )) . primePowerFactors
 </lang>
+=={{header|HicEst}}==
+<lang hicest> DLG(NameEdit=N, TItle='Enter an integer')
+ DO i = 1, N^0.5
+   IF( MOD(N,i) == 0) WRITE() i, N/i
+ ENDDO
+END</lang>
 =={{header|J}}==