SHARE
TWEET

Parfactor

science_man_88 Oct 17th, 2015 195 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. parfactor(Y,{lim=Y})=a=[];parforprime(x=1,lim,if(!(Y%x),x,1),y,if(y==1,,D=Y;z=0;until((D%y)!=0,D=D/y;z+=1);a=concat(a,[[y,z]])));Mat(Col(a))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top