App-denomfind
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
bin/denomfind view on Meta::CPAN
#
use 5.024 ; use strict ; use warnings ; # s/ã®r修飾å㯠v5.14ãè¦æ±
use Getopt::Std ; getopts 'a:cD:fg:IL:M:QT:y:%2:5:' , \my%o ;
use POSIX qw[ ceil floor ] ;
use Term::ANSIColor qw[ :constants color ] ; $Term::ANSIColor::AUTORESET = 1 ;
use Math::BigInt qw[ bgcd ] ; # -Qã®æå®æã«å¿
è¦ã¨ãªãã
use List::Util qw [ reduce min max ] ;
use FindBin qw[ $Script ] ;
my $mpu ; # Math::Prime::Util ã®ã¢ã¸ã¥ã¼ã«ãã¤ã³ã¹ãã¼ã«ããã¦ãããç¹æ¤ã
CHECK {$mpu = eval 'use Math::Prime::Util qw[ factor factor_exp ]; 1 ' || 0 } # ä»ã«BEGIN INIT UNITCHECK ã使ããã
& test if exists $o{T} ;
HELP_MESSAGE () unless @ARGV ;
### ãã¹ããã¿ã¼ã³
sub test () {
my $cmd ;
do {
no warnings qw [experimental::smartmatch];
$cmd = "$0 -D0 -M0 -y-2.. -52 -Q -% 4.76 3.94 3.50 26.37 3.58 2.72" when '1' ;
$cmd = "$0 -g8 -D-6%% -a5e-5 -y, 3.14159265358979323" when '2' ;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.440 second using v1.00-cache-2.02-grep-82fe00e-cpan-c30982ac1bc3 )