Jump to content

Checksumcolor: Difference between revisions

Checksumcolor (view source)

Revision as of 01:54, 21 April 2019

86 bytes added ,  5 years ago
m
→‎{{header|Perl 6}}: Cleanup and comments
m (→‎{{header|Perl 6}}: Cleanup and comments)
Line 221:
<lang perl6>unit sub MAIN ($mode = 'ANSI');
 
if $*OUT.t or $mode eq 'HTML' { # if OUT is a terminal or if in HTML $module
 
say '<div style="background-color:black; font-size:125%; font-family: Monaco, monospace;">' if $mode eq 'HTML';
if $mode eq 'HTML';
 
while my $line = get() {
Line 230 ⟶ 232:
when 'ANSI' {
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~ $cs.comb;
say "\e[0m {$line.words[1..*]}";
}
when 'HTML' {
print "$_\</span>" for $css.comb.rotor(6 => -5)\
.map( { sprintf "<span style=\"color:#%s{.join};\">", $_.join } ) Z~ $cs.comb;
say " <span style=\"color:#ffffff\"> {$line.words[1..*]}</span>";
say '<br>';
}
Line 245 ⟶ 247:
 
say '</div>' if $mode eq 'HTML';
} else { # just pass the unaltered line through
} else {
.say while $_ = get();
}
}</lang>
 
Can't really show the ANSI output directly so show the HTML output. Essentially identical.
Line 256 ⟶ 259:
 
<div style="background-color:black; font-size:125%; font-family: Monaco, monospace;">
<span style="color:#69e7c3f09a3f;">6f</span><span style="color:#9e7c3f09a3fc;">90</span><span style="color:#e7c3fe9a3fc8;">e9</span><span style="color:#7c3fe5a3fc85;">7a</span><span style="color:#c3fe503fc855;">c3</span><span style="color:#3fe504fc8551;">3f</span><span style="color:#fe5043c8551d;">fc</span><span style="color:#e5043c8551d8;">e8</span><span style="color:#5043cc551d8a;">5</span><span style="color:#043cca51d8a7;">05</span><span style="color:#43cca31d8a70;">41</span><span style="color:#3cca31d8a703;">3d</span><span style="color:#cca31e8a703d;">c8</span><span style="color:#ca31eba703d6;">ca</span><span style="color:#a31ebe703d64;">a7</span><span style="color:#31ebec03d64d;">30</span><span style="color:#1ebec43d64d8;">13</span><span style="color:#ebec43d64d8e;">ed</span><span style="color:#bec43f64d8e9;">b6</span><span style="color:#ec43ff4d8e91;">e4</span><span style="color:#c43ffad8e918;">cd</span><span style="color:#43ffa28e918e;">48</span><span style="color:#3ffa21e918ec;">3e</span><span style="color:#ffa214918ece;">f9</span><span style="color:#fa214f18ece2;">f1</span><span style="color:#a214fb8ece23;">a8</span><span style="color:#214fbfece236;">2e</span><span style="color:#14fbf6ce236f;">1c</span><span style="color:#4fbf69e236f0;">4e</span><span style="color:#fbf69e236f09;">f2</span><span style="color:#bf69e736f09a;">b3</span><span style="color:#f69e7c6f09a3;">f6</span> <span style="color:#ffffff"> checksum-color (another copy).p6</span>
<br>
<span style="color:#69e7c3f09a3f;">6f</span><span style="color:#9e7c3f09a3fc;">90</span><span style="color:#e7c3fe9a3fc8;">e9</span><span style="color:#7c3fe5a3fc85;">7a</span><span style="color:#c3fe503fc855;">c3</span><span style="color:#3fe504fc8551;">3f</span><span style="color:#fe5043c8551d;">fc</span><span style="color:#e5043c8551d8;">e8</span><span style="color:#5043cc551d8a;">5</span><span style="color:#043cca51d8a7;">05</span><span style="color:#43cca31d8a70;">41</span><span style="color:#3cca31d8a703;">3d</span><span style="color:#cca31e8a703d;">c8</span><span style="color:#ca31eba703d6;">ca</span><span style="color:#a31ebe703d64;">a7</span><span style="color:#31ebec03d64d;">30</span><span style="color:#1ebec43d64d8;">13</span><span style="color:#ebec43d64d8e;">ed</span><span style="color:#bec43f64d8e9;">b6</span><span style="color:#ec43ff4d8e91;">e4</span><span style="color:#c43ffad8e918;">cd</span><span style="color:#43ffa28e918e;">48</span><span style="color:#3ffa21e918ec;">3e</span><span style="color:#ffa214918ece;">f9</span><span style="color:#fa214f18ece2;">f1</span><span style="color:#a214fb8ece23;">a8</span><span style="color:#214fbfece236;">2e</span><span style="color:#14fbf6ce236f;">1c</span><span style="color:#4fbf69e236f0;">4e</span><span style="color:#fbf69e236f09;">f2</span><span style="color:#bf69e736f09a;">b3</span><span style="color:#f69e7c6f09a3;">f6</span> <span style="color:#ffffff"> checksum-color (copy).p6</span>
<br>
<span style="color:#69e7c3f09a3f;">6f</span><span style="color:#9e7c3f09a3fc;">90</span><span style="color:#e7c3fe9a3fc8;">e9</span><span style="color:#7c3fe5a3fc85;">7a</span><span style="color:#c3fe503fc855;">c3</span><span style="color:#3fe504fc8551;">3f</span><span style="color:#fe5043c8551d;">fc</span><span style="color:#e5043c8551d8;">e8</span><span style="color:#5043cc551d8a;">5</span><span style="color:#043cca51d8a7;">05</span><span style="color:#43cca31d8a70;">41</span><span style="color:#3cca31d8a703;">3d</span><span style="color:#cca31e8a703d;">c8</span><span style="color:#ca31eba703d6;">ca</span><span style="color:#a31ebe703d64;">a7</span><span style="color:#31ebec03d64d;">30</span><span style="color:#1ebec43d64d8;">13</span><span style="color:#ebec43d64d8e;">ed</span><span style="color:#bec43f64d8e9;">b6</span><span style="color:#ec43ff4d8e91;">e4</span><span style="color:#c43ffad8e918;">cd</span><span style="color:#43ffa28e918e;">48</span><span style="color:#3ffa21e918ec;">3e</span><span style="color:#ffa214918ece;">f9</span><span style="color:#fa214f18ece2;">f1</span><span style="color:#a214fb8ece23;">a8</span><span style="color:#214fbfece236;">2e</span><span style="color:#14fbf6ce236f;">1c</span><span style="color:#4fbf69e236f0;">4e</span><span style="color:#fbf69e236f09;">f2</span><span style="color:#bf69e736f09a;">b3</span><span style="color:#f69e7c6f09a3;">f6</span> <span style="color:#ffffff"> checksum-color.p6</span>
<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>
<br>
</div>
Thundergnat
10,333

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/290043"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information