**TI92P*mainFunction file 06/10/04, 21:03RdivisorsZb(n) Func Finds the whole divisors (factors) of n. www.tedfelix.com/ti If mod(n,1)0 Return {} abs(n)n Local i,l,s,m {}l {}m int((n))s For i,1,s If mod(n,i)=0 Then augment(l,{i})l augment({n/i},m)m EndIf EndFor if there's a duplicate, remove it If m[1]=s right(m,dim(m)-1)m Return augment(l,m) EndFuncO)n