briandfoy · January 9, 2019 21:12
diff --git a/fizzbin-bits.pl b/fizzbin-bits.pl
 use v5.24;

 my $n = $ARGV[0] // 35;
 my $count = 0;

 while($count <= $n) {
    state $a = [ \$count, \'Fizz', \'Bin', \'FizzBin' ];
    say $a->[ (810092048>>((2*(++$count-1))%30)) & 0b11 ]->$*;
 }
	use v5.24;

	my $n = $ARGV[0] // 35;
	my $count = 0;

	while($count <= $n) {
	state $a = [ \$count, \'Fizz', \'Bin', \'FizzBin' ];
	say $a->[ (810092048>>((2(++$count-1))%30)) & 0b11 ]->$;
	}