Тогда уж такой поход более близок к задаче

Ivan Sergeev 01.03.2021 19:11

$result(5)

$x[*2]
$n(^x.match[\D*][g]{})

^switch(true){
	^case(^x.match[(\+)][n]){
		^result.inc($n)
	}
	^case(^x.match[(\-)][n]){
		^result.dec($n)
	}
	^case(^x.match[(\*)][n]){
		^result.mul($n)
	}
	^case(^x.match[(\/)][n]){
		^result.div($n)
	}
}

# 5*2=10
$result