Checksumcolor: Difference between revisions
m
→{{header|Perl 6}}: minor tweaks
(→{{header|zkl}}: added code) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: minor tweaks) |
||
Line 222:
if $*OUT.t or $mode eq 'HTML' {
say '<div style="background-color:black; font-size:125%; font-family: Monaco, monospace;">' if $mode eq 'HTML';
while my $line = get() {
Line 231:
print "\e[48;5;232m";
.print for $css.comb.rotor(6 => -5)>>.map({ ($^a, $^b).join })\
.map( { sprintf "\e[38;2;%d;%d;%dm", |$_».parse-base(16) } ) Z~ $
say "\e[0m {$line.words[1..*]}";
}
when 'HTML' {
print "$_\</span>" for $css.comb.rotor(6 => -5)\
.map( { sprintf "<span style=\"color:#%s;\">", $_.join } ) Z~ $
say " <span style=\"color:#ffffff\">{$line.words[1..*]}</span>";
say '<
}
default { say $line; }
Line 256:
<div style="background-color:black; font-size:125%; font-family: Monaco, monospace;">
<span style="color:#
<br>
<span style="color:#
<br>
<span style="color:#
<br>
<span style="color:#bbd8a9;">b</span><span style="color:#bd8a92;">b</span><span style="color:#d8a92c;">d</span><span style="color:#8a92c3;">8</span><span style="color:#a92c32;">a</span><span style="color:#92c326;">9</span><span style="color:#2c326c;">2</span><span style="color:#c326c8;">c</span><span style="color:#326c8a;">3</span><span style="color:#26c8a3;">2</span><span style="color:#6c8a35;">6</span><span style="color:#c8a35e;">c</span><span style="color:#8a35e8;">8</span><span style="color:#a35e80;">a</span><span style="color:#35e80d;">3</span><span style="color:#5e80d2;">5</span><span style="color:#e80d2d;">e</span><span style="color:#80d2d7;">8</span><span style="color:#0d2d71;">0</span><span style="color:#d2d71a;">d</span><span style="color:#2d71ab;">2</span><span style="color:#d71ab8;">d</span><span style="color:#71ab89;">7</span><span style="color:#1ab890;">1</span><span style="color:#ab8902;">a</span><span style="color:#b8902c;">b</span><span style="color:#8902cd;">8</span><span style="color:#902cdb;">9</span><span style="color:#02cdbb;">0</span><span style="color:#2cdbbd;">2</span><span style="color:#cdbbd8;">c</span><span style="color:#dbbd8a;">d</span> <span style="color:#ffffff">something-competely-different.p6</span>
|