adkpaste

FACTOR for Ti 83–84 family by Aylin Talbot

Dec 7th, 2017
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. Prompt N
  2. {1}→L₁:{N}→L₂
  3. 2→B
  4. Lbl A
  5. If B≥N/B
  6. Then
  7. Goto B
  8. Else
  9. If N/B=int(N/B)
  10. Then
  11. augment(L₁,{B})→L₁
  12. augment({N/B},L₂)→L₂
  13. B+1→B
  14. Goto A
  15. Else
  16. B+1→B
  17. Goto A
  18. Lbl B
  19. If B²=N
  20. Then
  21. augment(L₁,{B})→L₁
  22. augment(L₁,L₂)→L₃
  23. Goto θ
  24. Else
  25. augment(L₁,L₂)→L₃
  26. Lbl θ
  27. L₃
Add Comment
Please, Sign In to add comment