|
|
1.1 ! root 1: .th FACTOR VI 1/15/73 ! 2: .sh NAME ! 3: factor \*- discover prime factors of a number ! 4: .sh SYNOPSIS ! 5: .bd factor ! 6: .sh DESCRIPTION ! 7: When ! 8: .it factor ! 9: is invoked, it types ! 10: out `Enter:' at you. If you type in a positive ! 11: number less than 2\u\s756\s0\d (about ! 12: .if n 7.2e16) ! 13: .if t 7.2\(mu10\u\s716\s0\d\|) ! 14: it will repeat the number ! 15: back at you and then its prime factors each one printed ! 16: the proper number of times. Then it says `Enter:' again. ! 17: To exit, feed it an EOT or a delete. ! 18: .s3 ! 19: Maximum time to factor is proportional to ! 20: .if n sqrt(n) ! 21: .if t \(sr\o'\fIn\fR\(rn' ! 22: and occurs when ! 23: .it n ! 24: is prime. ! 25: It takes 1 minute to factor a prime ! 26: near ! 27: 10\u\s713\s0\d. ! 28: .sh DIAGNOSTICS ! 29: `Ouch.' for input out of range or for garbage input. ! 30: .sh BUGS
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.