mshock · April 27, 2015 00:14
diff --git a/fizzbuzz.pl b/fizzbuzz.pl
 #! perl -w

 use strict;
 use List::Gen;

 my $range;
 $range = cache gen {$_} range 1, 100;

 sub fizzbuzz {
  my ($range, $triggers) = @_;
  while (my $num = $range->next) {
    my $res;
    foreach my $trigger (@$triggers) {
      my ($text, $divisor) = @$trigger;
      $res = $text if $num % $divisor == 0;
    }
    print $res ? $res : $num, "\n";
  }
 }

 fizzbuzz($range, [['fizz', 3], ['buzz', 5]]);
	#! perl -w

	use strict;
	use List::Gen;

	my $range;
	$range = cache gen {$_} range 1, 100;

	sub fizzbuzz {
	my ($range, $triggers) = @_;
	while (my $num = $range->next) {
	my $res;
	foreach my $trigger (@$triggers) {
	my ($text, $divisor) = @$trigger;
	$res = $text if $num % $divisor == 0;
	}
	print $res ? $res : $num, "\n";
	}
	}

	fizzbuzz($range, [['fizz', 3], ['buzz', 5]]);