14 lines
255 B
Text
14 lines
255 B
Text
|
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ→Str0
|
||
|
|
:".→Str2
|
||
|
|
:For(N,1,length(Str1
|
||
|
|
:If inString(Str0,sub(Str1,N,1
|
||
|
|
:Then
|
||
|
|
:inString(Str0,sub(Str1,N,1
|
||
|
|
:Ans+13-26(Ans>13
|
||
|
|
:Str2+sub(Str0,Ans,1→Str2
|
||
|
|
:Else
|
||
|
|
:Str2+sub(Str1,N,1→Str2
|
||
|
|
:End
|
||
|
|
:End
|
||
|
|
:sub(Str2,2,length(Str2)-1→Str1
|