ROT 13 algorithm

Forum Attachments

Summary:

Yet again, another one

ROT 13 algorithm

(account deleted) 10 Sep 2018 19:00

Create a program with the following constraints:

• Text input
• Smallest program size
• ROT 13 string output from text
• Allow the user to decide which ROT algorithm they want to use. (1-25)

ROT 13 link

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: ROT 13 algorithm

kg583 10 Sep 2018 19:28

A full compatibility version with all the bells and whistles:

:Input Str1
:length(Str1→L
:Input "ROT",R
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ→Str2
:"θ→Str3
:For(X,1,L
:R-1+inString(Str2,sub(Str1,X,1
:round(1+26fPart(Ans/26),0
:Str3+sub(Str2,Ans,1→Str3
:End
:sub(Str3,2,L→Str3

Using remainder( can save a few of bytes, for compatible OS's:

:Input Str1
:length(Str1→L
:Input "ROT",R
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ→Str2
:"θ→Str3
:For(X,1,L
:R-1+inString(Str2,sub(Str1,X,1
:1+remainder(Ans,26
:Str3+sub(Str2,Ans,1→Str3
:End
:sub(Str3,2,L→Str3

---

The solution to a complex problem is often a simple answer.

Re: ROT 13 algorithm

(account deleted) 10 Sep 2018 21:32

A full compatibility version with all the bells and whistles:

xDDDDDDDDDDDDD

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: ROT 13 algorithm

lirtosiast 11 Sep 2018 17:25

It's possible to use a double copy of the alphabet as the starting string, saving the remainder( and the need to use string variables. This saves quite a few bytes.

Input Str1
Prompt R
"ABCDEFGHIJKLMNOPQRSTUVWXYZ
Ans+Ans
For(X,1,length(Str1
Ans+sub(Ans,R+inString(Ans,sub(Str1,X,1)),1
End
sub(Ans,53,X-1

Or to support spaces and other non-alphabetic characters, returning them unchanged:

Input Str1
Prompt R
"ABCDEFGHIJKLMNOPQRSTUVWXYZ
Ans+Ans+Str1→Str2
For(X,1,length(Str1
inString(Str2,sub(Str1,X,1
Str1+sub(Str2,R(Ans<27)+Ans,1→Str1
End
End
sub(Ans,X,X-1

Last edited on 11 Sep 2018 17:25 by lirtosiast Show more