Revision as of 20:01, 11 August 2014 (view source) rosettacode>Zam (→‎{{header\|Common Lisp}}) ← Older edit		Revision as of 20:09, 11 August 2014 (view source) rosettacode>Zam (→‎{{header\|Common Lisp}}) Newer edit →
Line 143: ((zerop (rem n a)) nil) (t (primep n (+ a 1)))))</lang> Example Usage: <pre>CL-USER> (semiprimep 1234567) T CL-USER> (semiprimep 9876543) NIL</pre> =={{header\|D}}==

Semiprime: Difference between revisions

Semiprime (view source)