Munching squares: Difference between revisions

Content added Content deleted

Inline

@@ Line 902: / Line 902: @@
 Here's one simple way:
-<lang perl6>my $ppm = open("munching0.ppm", :w) or
+<lang perl6>my $ppm = open("munching0.ppm", :w) orelse .die;
-  die "Can't create munching.ppm: $!";
 $ppm.print(q :to 'EOT');
@@ Line 931: / Line 930: @@
-my $PPM = open "munching1.ppm", :w or die "Can't create munching.ppm: $!";
+my $PPM = open "munching1.ppm", :w orelse .die;
 $PPM.print: qq:to/EOH/;