diff options
Diffstat (limited to 'ipl/progs/pdecomp.icn')
| -rw-r--r-- | ipl/progs/pdecomp.icn | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/ipl/progs/pdecomp.icn b/ipl/progs/pdecomp.icn new file mode 100644 index 0000000..0247772 --- /dev/null +++ b/ipl/progs/pdecomp.icn @@ -0,0 +1,34 @@ +############################################################################ +# +# File: pdecomp.icn +# +# Subject: Program to list primes factors of an integer +# +# Author: Ralph E. Griswold +# +# Date: December 12, 1995 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# This program lists the prime factors of integers given in +# standard input. +# +############################################################################ +# +# Links: factors +# +############################################################################ + +link factors + +procedure main() + local i + + while i := factors(read()) do + every write(!i) + +end |