Bitwise IO: Difference between revisions
→Perl 6: shortening
(→{{header|Perl}}: adding Perl6 section) |
(→Perl 6: shortening) |
||
Line 769:
<lang Perl 6>
sub encode-ascii(Str $s) {
my @b =
@b.push(0) until @b %% 8; # padding
Buf.new: gather while @b { take reduce * *2+*, (@b.pop for ^8) }
Line 775:
sub decode-ascii(Buf $b) {
my @b =
@b.shift until @b %% 7; # remove padding
@b = gather while @b { take reduce * *2+*, (@b.pop for ^7) }
| |||