Just in time processing on a character stream: Difference between revisions
Just in time processing on a character stream (view source)
Revision as of 16:12, 21 March 2020
, 4 years ago→{{header|Raku}}: Fix Perl 6 -> Raku, regenerate solution as it is keyed off of name
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Fix Perl 6 -> Raku, regenerate solution as it is keyed off of name) |
||
Line 769:
=={{header|Perl}}==
{{trans|
{{libheader|ntheory}}
<lang perl>use strict;
Line 1,022:
Set srand to set the encode / decode "key".
Need to use the same "key" and same implementation
of
exchanging "keys" by a second channel. Default
"key" is "
]
unit sub MAIN ($key = '
srand $key.comb(/<.alnum>/).join.parse-base(36) % 2**63;
Line 1,093:
== Encoded: ==
Qv26e26q1Gi2Ww5SiQr26h3Mk1GbQy52e1Gg6Ib52kQfQk26n26l26cQm26q
2Wk26vwme52qy6Ia1GuQfa3MbQxtd26aa3MvQu2Wuat26p2Wbe2Wc1Ga26g2
6h26pQha26h4Cf26jrz7Yz3MaA4h2WxFWf52zyg2WrQn2Wj26pQyQy78x1Gd
dk4Cu26k26qaaap26j26xqQf7Yr8Op3Me3Me5Sv1Ge1Gt2WxlQz5Si1GeQg4
CjQc5Sb2WbQo1GycQr1Gm1Gy1GsQei3MrQsai1Gq2WnQdt2Wj1Gff1Gg26le
2Wd1Go9Ek1Gm9Eh2Wb1Gd52h2WdQae4Chu3MeQd1Gg1Gw4CqbEGh52u2Wr1G
t52xhvQmx
== Decoded: ==
| |||