March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Bitmap-Write-a-PPM-file/Perl-6/bitmap-write-a-ppm-file.pl6
+++ b/Task/Bitmap-Write-a-PPM-file/Perl-6/bitmap-write-a-ppm-file.pl6
@ -7,7 +7,7 @@ sub MAIN ($filename = 'default.ppm') {
    $out.say("P6\n$width $height\n255");

    for ^$height X ^$width -> $r, $g {
-        $out.printf("%c%c%c", $r*2, $g*2, 255-$r*2);
+        $out.write(Buf.new($r*2,$g*2,255-$r*2));
    }
    $out.close;
 }