Skip to content

Instantly share code, notes, and snippets.

@jononon
Last active May 19, 2017 16:58
Show Gist options
  • Save jononon/bd4d102084e1f100d36a9098db5ebe4d to your computer and use it in GitHub Desktop.
Save jononon/bd4d102084e1f100d36a9098db5ebe4d to your computer and use it in GitHub Desktop.
Prompt A
ClrList L₆
For(I,1,√(A))
If ((A/I)=round(A/I,0))
I→L₆(dim(L₆)+1)
End
For(I,dim(L₆),1,-1)
If (L₆(dim(L₆))≠(A/L₆(I)))
A/L₆(I)→L₆(dim(L₆)+1)
End
Disp L₆
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment