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

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Hello-world-Line-printer/Perl-6/hello-world-line-printer-1.pl6 Normal file
View file

@ -0,0 +1,3 @@
my $lp = open '/dev/lp0', :w;
$lp.say: 'Hello World!';
$lp.close;

4
Task/Hello-world-Line-printer/Perl-6/hello-world-line-printer-2.pl6 Normal file
View file

@ -0,0 +1,4 @@
given open '/dev/lp0', :w {
.say: 'Hello World!';
.close;
}

5
Task/Hello-world-Line-printer/Perl-6/hello-world-line-printer.pl6
View file

@ -1,5 +0,0 @@
given open '/dev/lp0', :w { # Open the device for writing as the default
.say('Hello World!'); # Send it the string
.close;
# ^ The prefix "." says "use the default device here"
}