Commits

Shlomi Fish  committed 5cf905e

Reduced the number of prints.

Now it yields a solution sooner.

  • Participants
  • Parent commits b84490c

Comments (0)

Files changed (1)

File project-euler/136/euler-136.pl

 
 use integer;
 
+use IO::Handle;
+
+STDOUT->autoflush(1);
+
 =head1 DESCRIPTION
 
 The positive integers, x, y, and z, are consecutive terms of an arithmetic
 
 foreach my $z (1 .. ($LIMIT-1))
 {
-    print "Z = $z ; Ten Counts = $ten_counts\n"; # if ($z % 10_000 == 0);
+    print "Z = $z ; Ten Counts = $ten_counts\n" if ($z % 10_000 == 0);
     my $d = (int($z/3)+1);
 
     D_LOOP: