aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Rock-paper-scissors/Perl/rock-paper-scissors-2.pl
Ingy döt Net f23f22d71c Initial data commit
2023-07-01 13:44:08 -04:00

1 line
117 B
Perl
Raw Permalink Blame History

perl -e '@c=qw(r p s); for(1..10000){ print $c[ rand() < 0.75 ? 0 : int rand(2) + 1 ], "\n" }' | perl rps.pl --quiet
Reference in a new issue View git blame Copy permalink