1234567891011121314151617181920212223242526 |
- #!/usr/bin/perl
- # Daniel "Trizen" Șuteu
- # License: GPLv3
- # Date: 25 December 2012
- # https://github.com/trizen
- # Checks if 1/n is finite or infinite.
- # See also: https://perlmonks.org/index.pl?node_id=1006283
- use 5.010;
- use strict;
- use warnings;
- sub is_finite {
- my ($x) = @_;
- $x || return;
- $x /= 5 while $x % 5 == 0;
- return !($x & $x - 1);
- }
- foreach my $i (1 .. 20) {
- printf "%-4s is finite: %d\n", "1/$i", is_finite($i);
- }
|