gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-22 23:26:40 -08:00
Code Issues Packages Projects Releases Wiki Activity

Removing unused first() from List::Util import

Browse Source
This commit is contained in:
Mark Yocom
2021-03-20 12:11:11 -07:00
parent 50ac7e5c6e
commit e596c041c3
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
01 Acey Ducey/perl/aceyducey.pl
View File

@@ -3,7 +3,10 @@
use strict; use strict;
use warnings; use warnings;
use List::Util qw(shuffle first); # The List::Util module is part of the core Perl distribution. Using this
# means we don't need to re-invent the wheel and create a way to shuffle
# a list.
use List::Util qw(shuffle);
# Rather than put in a number of print (or say) statements here, we use a # Rather than put in a number of print (or say) statements here, we use a
# "here document". This is very useful for long strings of text. In this # "here document". This is very useful for long strings of text. In this
@@ -25,7 +28,7 @@ If you do not want to bet, input a 0. If you want to quit, input a -1.
END_INSTRUCTIONS END_INSTRUCTIONS
my @cards = (1 .. 13); # That is, ace through king. my @cards = (1 .. 13); # That is, Ace through King.
my $keepPlaying = 1; my $keepPlaying = 1;
GAME: GAME: