home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
lifeos2.zip
/
LIFE-1.02
/
TESTS
/
LF
/
FACTORIZ.LF
< prev
next >
Wrap
Text File
|
1996-06-04
|
338b
|
12 lines
prime := I:int | length(factors(I))=1.
factors(N:int) -> cond(N<0,
{},
factorize(N,2)).
factorize(N,P) -> cond(P*P>N,
[N],
cond(R:(N/P)=:=floor(R),
[P|factorize(R,P)],
factorize(N,P+1))).