Bacon cipher: Difference between revisions

Bacon cipher (view source)

18 bytes removed , 2 years ago

→‎Raku: .. use bound sub-array instead of addressing list of 1-char lists .[0] hack; and minor changes

Anonymous user

Revision as of 00:15, 30 July 2021 (view source) GordonCharlton (talk \| contribs) (Added Quackery.) ← Older edit		Revision as of 17:11, 30 July 2021 (view source) rosettacode>Mykhal (→‎Raku: .. use bound sub-array instead of addressing list of 1-char lists .[0] hack; and minor changes) Newer edit →
Line 2,310: sub bacon ($s, $msg) { my $@raw = ~~( [$_] for~~ $s.lc.comb ); my $@txt := $@raw[ (^@raw).grep(.{@raw[0$_] (elem) @abc}) ]; for $msg.lc.comb Z $@txt.batch(5) -> ($c-msg, @a) { for @a.kv -> $i, $c-str { (my $x := @a[$i]) = $x.uc if %bacon{$c-msg}.comb[0$i].Int.Bool; ~~$x = $x.uc if %bacon{$c-msg}.comb[$i].Int.Bool;~~ } } $@raw~~.map(.[0])~~.join; }