in reply to HTML RGB hex color
#!/usr/bin/perl -w use strict; my @clrs = ('00','33','66','99','CC','FF'); my $sw; print '#',join('',@$_),(++$sw%6?$":$/) for permute(\@clrs,\@clrs,\@clr +s); sub permute { my $last = pop @_; return map [$_], @$last if(!@_); return map { my $left = $_; map [@$left, $_], @$last } permute(@_); }
--
AltBlue.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Browser safe colors :)
by slloyd (Hermit) on Apr 23, 2005 at 14:39 UTC | |
by AltBlue (Chaplain) on Apr 23, 2005 at 22:54 UTC | |
by slloyd (Hermit) on Apr 24, 2005 at 05:41 UTC | |
by AltBlue (Chaplain) on Apr 24, 2005 at 14:28 UTC | |
by AltBlue (Chaplain) on Apr 24, 2005 at 13:37 UTC |