perl进行数学计算求教

laputa73

回复 10# sosflyer
提供一个简单思路，就是用正则
先识别出变量(比如字母)和运算符
把变量移到左边，常数移到右边
进行符号变换
然后用eval进行计算
最后可能还要/变量的系数


   

jason680

回复 1# sosflyer

How about this way, change $x to i, and equal "=" to subtraction "-"

$ perl -e 'use Math::Complex; $math=1+2+i-10;;print "Ans=" . -Re($math)/Im($math)'
Ans=7

$ perl -e 'use Math::Complex; $math=1+2+(2+3*i)*5-10;;print "Ans=" . -Re($math)/Im($math)'
Ans=-0.2

$ cat function.pl

use strict;
use warnings;

use Math::Complex;

while(<DATA>){
  my $sAns = get_answer($_);
  print "\$x = $sAns\n";
}
sub get_answer{
  s/\$x/i/g;
  s/=/-(/;
  $_ = 'my $x=' . $_ . ');return -Re($x)/Im($x);';
  eval "$_";
}

__DATA__
1 + 2 + $x = 10
1 + 2 + $x = 1+ 2* $x
1+2+(2+3*$x)*5 = 10

$ perl function.pl
$x = 7
$x = 2
$x = -0.2

laputa73

回复 12# jason680
利用复数的计算
真是巧妙啊。
学习了。
是不是某本算法书里面提过?



   

sosflyer

回复 12# jason680


    厉害，膜拜{:3_190:}

kk861123

回复 12# jason680


     非常巧妙啊！

张不凡

哇靠。12楼那个真是厉害。