Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Prompt N
- {1}→L₁:{N}→L₂
- 2→B
- Lbl A
- If B≥N/B
- Then
- Goto B
- Else
- If N/B=int(N/B)
- Then
- augment(L₁,{B})→L₁
- augment({N/B},L₂)→L₂
- B+1→B
- Goto A
- Else
- B+1→B
- Goto A
- Lbl B
- If B²=N
- Then
- augment(L₁,{B})→L₁
- augment(L₁,L₂)→L₃
- Goto θ
- Else
- augment(L₁,L₂)→L₃
- Lbl θ
- L₃
Add Comment
Please, Sign In to add comment