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

March 2014 update

Browse source
This commit is contained in:
Ingy döt Net 2014-04-02 16:56:35 +00:00
parent 09687c4926
commit a25938f123
1846 changed files with 21876 additions and 5203 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Grayscale-image/Perl-6/grayscale-image.pl6
View file

@ -1,11 +1,11 @@
sub MAIN ($filename = 'default.ppm') {
my $in = open( $filename, :r , :bin ) or die "$!\n";
my $in = open($filename, :r, :enc<iso-8859-1>);
my ($type, $dim, $depth) = $in.lines[^3];
my $outfile = $filename.subst('.ppm', '.pgm');
my $out = open( $outfile, :w, :bin ) or die "$!\n";
my $out = open($outfile, :w, :enc<iso-8859-1>);
$out.say("P5\n$dim\n$depth");