Re: Random Color Generator

Greetings, esteemed monks!

Pretty sweet. For generating just one random color, I used

my @ca=('0','3','6','9','C','E');
my @bgc=('','','');
foreach my $c (@bgc){
  $r=int(rand(6));
  $c=$ca[$r].$ca[$r];
}
my $bgc=join("",@bgc);
[download]

_________________________________________________________________________________

I like computer programming because it's like Legos for the mind.

Comment on Re: Random Color Generator Download Code

Replies are listed 'Best First'.
Re^2: Random Color Generator by shibu_pu (Acolyte) on Jun 06, 2013 at 11:17 UTC
`my ($red, $green, $blue) = (int(rand(255)), int(rand(255)), int(rand(2 +55))); print qq{<div style="background-color: rgb($red, $green, $blue);"></di +v>};` [download]	[reply] [d/l]
Re^3: Random Color Generator by choroba (Cardinal) on Jun 06, 2013 at 12:06 UTC
Or, if you do not want to repeat yourself: `my ($red, $green, $blue) = map int rand 255, 1 .. 3;` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^4: Random Color Generator by OfficeLinebacker (Chaplain) on Jun 13, 2013 at 16:38 UTC
A golfer, I see.	[reply]