For something i was working on, i needed to print all of the non-dithering web colors. These colors are 6 digit hex strings, prepended with a '#'. each pair of hex digits can either be '00','33','66','99','cc' or 'ff'. This makes 216 combinations (the 'web-safe' palette). First i came up with: my@a=map{$_ x2}split//,'0369cf';my(@b,@c);map{push@b,$_;map{push@c,$_;map{print"#$b[$#b]$c[$#b]$_\n";}@a}@a}@a; at 111 bytes. not too good. so i took another approach and shortened it to 82 bytes: my@a=split//,'0369cf';for my$a(@a){for my$b(@a){for(@a){print"#$a$a$b$b$_$_\n";}}} but this is still pretty big. can anyone do better?

update: and obviously you have to comply with strict and -w.

In reply to Golfing Colors by iamcal

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.