science_man_88

Parfactor

Oct 17th, 2015
830
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