blob: 4707fbb6c5ccb5bec46b1c93f766fe9f634d8af4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/env perl
use feature qw{say state signatures};
use strict;
use warnings;
use utf8;
no warnings qw{ experimental };
use Carp;
use Getopt::Long;
my $n = 8;
GetOptions( 'n=i' => \$n, );
carp 'Bad Input' unless $n > 0;
my $u = get_ugly($n);
say "Input: \$n = $n Output: $u";
sub get_ugly ( $n ) {
my $c = 0;
my $u = 0;
while (1) {
$u++;
my $f = is_ugly($u) ? 1 : 0;
$c++ if $f;
return $u if $n == $c;
}
}
sub is_ugly( $n ) {
for my $i ( 2, 3, 5 ) {
while ( $n % $i == 0 ) {
$n /= $i;
}
}
return $n == 1 ? 1 : 0;
}
|
