use strict; use prime; my $a = 1; my $b = 1; for (my $i = 10; $i < 100; ++$i) { for (my $j = $i + 1; $j < 100; ++$j) { if (int($j / 10) != 0 && $j % 10 != 0 && ($i % 10) == int($j / 10) && $i / $j == int($i / 10) / ($j % 10)) { $a *= $i; $b *= $j; } } } my $lc = gcd($b, $a); printf("%d %d/%d", $lc, $a / $lc, $b / $lc); sub gcd { my($m, $n) = @_; if ($m > $n) { if ($n == 0) { return $m; } return gcd($m % $n, $n); } else { if ($m == 0) { return $n; } return gcd($n % $m, $m); } }