aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Pick-random-element/Perl-6/pick-random-element-1.pl6 Normal file
View file

@ -0,0 +1,3 @@
(1..6).roll; # return 1 random value in the range 1 through 6
(1..6).roll(3); # return a list of 3 random values in the range 1 through 6
(1..6).roll(*); # return a lazy infinite list of random values in the range 1 through 6

5
Task/Pick-random-element/Perl-6/pick-random-element-2.pl6 Normal file
View file

@ -0,0 +1,5 @@
# define the deck
constant deck = 2..9, <J Q K A> X~ <♠ ♣ ♥ ♦>;
deck.pick; # Pick a card
deck.pick(5); # Draw 5
deck.pick(*); # Get a shuffled deck

1
Task/Pick-random-element/Perl-6/pick-random-element-3.pl6 Normal file
View file

@ -0,0 +1 @@
@array[@array * rand]

1
Task/Pick-random-element/Perl-6/pick-random-element-4.pl6 Normal file
View file

@ -0,0 +1 @@
say Bool.pick; # returns either True or False