Sneaker In Perl

To aid in this sneaker wearing, I've written a little program to do the decision for me.


How does it work?

Quite well, thank you...

If it is fed the date in the form of YYYYMMDD, it uses that as the seed to the randomizer. Otherwise, it uses today's date (also in the form of YYYYMMDD). Then, it generates a seperate number for left and right within the number of colors (seven, in my case). It cuts down on the chance of the left and right sneaker being the same by re-randomizing if the left and right numbers match. Then, it uses the left and right numbers as indices to the colors array and prints that.


This was copied to the new site.

Navigate this Web site.