Perlで計算機を作る際の括弧計算の追加

Question

現在Perlで計算機を作っています。
簡単な四則演算は理解しましたが、（）付きの計算がいまいちうまく作れません。
（）の計算をできるようなプログラム作りに力をお貸ししていただきたいです。
始めの配列 @stack には、字句解析が終了し、数字、符号、括弧がそれぞれ入っている前提でお願いします。

例えば
2+3*(5+7)
は、
@stack={2,+,3,*,(,5,+,7,)}
のような感じです

@stack=();
$ind = 0;
@tok=();

#因子
sub fact{
	push(@stack,$tok[$ind]);
	return $tok[$ind++];

#項
sub term{
	my $val = fact();
	while($ind < $#tok+1 && ($tok[$ind] eq "*" || $tok[$ind] eq "/")){
		if($tok[$ind++] eq "*"){
			$val = $val * fact();
			push(@stack,"*");
		}
		else{
			$val = $val / fact();
			push(@stack,"/");
		}
	}
	return $val;
}

#式
sub expr{
	my $val = term();
	while($ind < $#tok+1 && ($tok[$ind] eq "+" || $tok[$ind] eq "-")){
		if($tok[$ind++] eq "+"){
			$val = $val + term();
			push(@stack,"+");
		}
		else{
			$val = $val - term();
			push(@stack,"-");
		}
	}
	return $val;
}

Answer 1

括弧を含む式の評価は、小さなインタープリターをつくることと同じです。
コンパイラーやインタープリターを作るための入門書をよんでみることをお勧めします。

• 日曜プログラミングで電卓を作ってみる

https://knowledge.sakura.ad.jp/220/

• パーサーに関する良本

https://oshiete.goo.ne.jp/qa/3570741.html

Comments

[AnMoreNight]

数式を字句解析し、スタックに積んで演算するというのでしたら、回答の最初のリンクにある「逆ポーランド記法」で数式を置き換えて演算する方法が無難かもしれません。括弧も扱えますし。

サンプルでは、一般的な「中置記法」での数式を逆ポーランド記法に変換するサンプルと、逆ポーランド記法で書かれた数式を演算するサンプル(値と演算子の計算部分が手抜きでeval使ってますので、そこを演算子の種類でswitch～caseなどで場合分けして演算するといいでしょう)が記載されていますから、組み合わせればいいかと思います。

[ain4425]

ありがとうございます。少し考えてみます

Answer 2

恐らく一番簡単に実現出来る方法は、以下の様に eval する方法です。

my @stack = qw( 2 + 3 * ( 5 + 7 ) ) ;
printf "%s\n", eval "@stack" ;