Substitution cipher: Difference between revisions
→{{header|Phix}}
m (→{{header|Haskell}}: simplified convert, and generified types) |
|||
Line 1,278:
decoded: A simple example.
</pre>
=={{header|Phixmonti}}==
<lang Phixmonti>include ..\Utilitys.pmt
" ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
" VsciBjedgrzyHalvXZKtUPumGfIwJxqOCFRApnDhQWobLkESYMTN"
"A simple example"
def Encode
>ps
tps not if >ps swap ps> endif
len for
>ps
tps get swap >ps
rot swap find
rot swap get
ps> swap ps> set
endfor
ps> not if >ps swap ps> endif
enddef
dup ?
true Encode dup ?
false Encode ?</lang>
{{out}}
<pre>A simple example
V LRDWnq qMIDWnq
A simple example
=== Press any key to exit ===</pre>
=={{header|PHP}}==
|