Substitution cipher: Difference between revisions

Line 1,017:
"A simple example"
 
:Encode %mode >!mode
%i %t
<$mode not [rot rot swap rot] if
len [
>!i
<$i get swap >!t
rot swap find
rot swap get
<$t swap <$i set
] for
<$mode not [rot rot swap rot] if
;
 
672

edits