regex匹配不可约分数
|
如何将正则表达式与不可约分数匹配？
例如23 / 25、3 / 4、5 / 2、100 / 101等。
首先，我不了解正则表达式中的gcd-算法实现。
为所有回答“例如您使用的工具错误”的人更新：
是的，伙计们，我正在意识到正则表达式通常用于什么目的。没关系。但是这个问题很奇怪，这是它的全部要点。
更新2：的想法是找到一个正则表达式，可以在以下情况下有所帮助：
$> echo \"1/2\" | grep -P regex
1/2
$> echo \"2/4\" | grep -P regex
$> echo \"11/1111\" | grep -P \'^1/1+$|(11+)+\\1+/\\1+$\'
11/1111
没有找到相关结果
已邀请:
1 个回复
babsoft
my $reducible_rx = qr{^(\\d+)/(\\d+)$(?(?{(1x$1.\"/\".1x$2)=~m{^(?|1+/(1)|(11+)\\1*/\\1+)$}})|^)};my $reducible_rx = qr{ # first match a fraction: ^ ( \\d+ ) / ( \\d+ ) $ # now for the hard part: (?(?{ ( 1 x $1 . \"/\" . 1 x $2 ) =~ m{ ^ (?| 1+ / (1) # trivial case: GCD=1 | (11+) \\1* / \\1+ # find the GCD ) $ }x }) # more portable version of (*PASS) | ^ # more portable version of (*FAIL) ) }x;# this one assumes unary notation my $unary_rx = qr{ ^ (?| 1+ / (1) | (11+) \\1* / \\1+ ) $ }x; # this one assumes decimal notation and converts internally my $decimal_rx = qr{ # first match a fraction: ^ ( \\d+ ) / ( \\d+ ) $ # now for the hard part: (?(?{( 1 x $1 . \"/\" . 1 x $2 ) =~ $unary_rx}) # more portable version of (*PASS) | ^ # more portable version of (*FAIL) ) }x;if ($frac =~ $reducible_rx) { cmp_ok($frac, \"ne\", reduce($i, $j), \"$i/$j is $test\"); } else { cmp_ok($frac, \"eq\", reduce($i, $j), \"$i/$j is $test\"); }