RosettaCodeData/Task/Parallel-calculations/Common-Lisp/parallel-calculations-2.lisp

3 lines
159 B
Common Lisp

CL-USER> (print-max-factor (max-minimum-factor '(12757923 12878611 12878893 12757923 15808973 15780709 197622519)))
12878893 has the largest minimum factor 47