式を成り立たせる問題

式を成り立たせる問題。簡単すぎる。×を*，÷を/，=を==とする。

> library(e1071)
> op <- c("+", "-", "*", "/", "==")
> invisible(apply(permutations(5), 1, function(i) {
+     st <- paste(paste(5:1, op[i], collapse="", sep=""), "0", sep="")
+     if (eval(parse(text=st))) cat(st, "\n")
+ }))
5-4*3/2+1==0
5==4*3/2-1+0