Parallel calculations: Difference between revisions

m
Line 359:
 
(defun print-max-factor (pair)
(format t "~a has the largest miniumumminimum factor ~a~%" (car pair) (cdr pair)))</lang>
<lang lisp>CL-USER> (print-max-factor (max-minimum-factor '(12757923 12878611 12878893 12757923 15808973 15780709 197622519)))
12878893 has the largest minimum factor 47</lang>
47

edits