So I tried making my very own factoring program, and it truly failed miserably. This is my code:
PROGRAM:A :ClrHome :Prompt A :For(X,1,A :A/X→Y :If fPart(Y)=0 :Then :For(M,1,(A/2 :For(N,1,(A/2 :Y→L₁(M) :A/Y→L₁(N) :End:End:End :Disp L₁
First off, it took a super long time, like ten seconds. Then it displayed an infinite list of 1s. My testing number for A was 49… My guess is that it displayed 49 1s. I think I can edit my For loop to better complement larger numbers, and I know for a fact that my List has a huge problem. Any help, guys? Or do any of you have your own, working code?
the whisper guy
The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"