Semiprime: Difference between revisions
→version 1: better mention of original algorithm courtesy GS
m (→version 2: added/changed comments, optimized a DO loop. -- ~~~~) |
Walterpachl (talk | contribs) (→version 1: better mention of original algorithm courtesy GS) |
||
Line 110:
===version 1===
<lang rexx>/* REXX ---------------------------------------------------------------
* 20.02.2014 Walter Pachl relying on 'prime decomposition'
* 21.02.2014 WP Clarification: I copied the algorithm created by
* Gerard Schildberger under the task referred to above
*--------------------------------------------------------------------*/
Call test 4
Line 121 ⟶ 123:
test:
Parse Arg z
If
Else Say z 'is NOT semiprime' fl
Return
is_semiprime:
Parse Arg z
fl=factr(z)
| |||