Select Code to Download

Select or download this

#!/usr/bin/perl

...
        print "\n\n";
}
print "All the fours of a suit - @allfours\n";

Select or download this

clubs
ace 2 3 4 5 6 7 8 9 10 jack queen king
...
ace 2 3 4 5 6 7 8 9 10 jack queen king

All the fours of a suit - 4 4 4 4

Select or download this
```
print "@cards[0 .. 12]";
```

Select or download this

spades
ace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack quee
+n kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 ja
+ck queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 
+9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5
+ 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen kingace 
+2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack queen k
+ingace 2 3 4 5 6 7 8 9 10 jack queen kingace 2 3 4 5 6 7 8 9 10 jack 
+queen king