【ﾌﾟﾛｸﾞﾗﾑ ｸｲｽﾞ】JavaScriptによって力任せに解く方法です｡
回答として表示される '*' は '×' に､'/' は '÷' に置き換えて読んでください｡
<html> <head> <html lang="ja"> <head> <body> <script type="text/javascript"> <!-- //正解を表示 var tbl = new Array('+', '-', '*', '/', '=='); function check() { var i, c1, c2; var e = '5'; for (i = 0; i < n; i++) { c1 = tbl[p[i] - 1]; c2 = (n - i - 1); e = e + c1 + c2; } if (eval(e)) { e = e.replace('==', '='); document.write(e + '<br />'); } } //順列の生成 var n = 5; var p = new Array(n); var ok = new Array(n + 1); function perm(pos, k) { var j; p[pos] = k; if (pos == n - 1) { check(); } else { ok[k] = false; for (j = 1; j <= n; j++) { if (ok[j]) perm(pos + 1, j); } ok[k] = true; } } var i; for (i = 1; i <= n; i++) ok[i] = true; for (i = 1; i <= n; i++) perm(0, i); --> </script> </body> </html>
参考｢eval｣
回答ありがとうございます｡ｺﾋﾟﾍﾟして拡張子をjsにしたらｴﾗｰでしたが､拡張子をhtmlにしてIE8で実行したら､うまく動きました｡(^_^;
昔､ｼﾞｬﾏｲｶという玩具の回答を出すﾌﾟﾛｸﾞﾗﾑを問う質問がありました｡
数字は一つ少ないですが､数字の順番はﾊﾞﾗﾊﾞﾗで四則演算を自由に使えｶｯｺも使っていいという
複雑なものでとても苦労して作った記憶があります｡
http://q.hatena.ne.jp/1256711755
最後の演算子は÷にならないとか､小手先的な効率化は図ることはできるでしょうが､
これくらいだと逆にｺｰﾄﾞが長くなって効果も薄いでしょうし｡
凝ったことは何もしてないので回答するのは恥ずかしいですが｡
VBAです｡
Sub macro() Dim str As String Dim str1 As String Dim str2 As String Dim str3 As String Dim str4 As String Dim res As String Dim i1 As Integer Dim i2 As Integer Dim i3 As Integer Dim i4 As Integer Dim h(4) As String str = "+-*/=" For i1 = 1 To 5 h(0) = Mid(str, i1, 1) str1 = Replace(str, h(0), "") For i2 = 1 To 4 h(1) = Mid(str1, i2, 1) str2 = Replace(str1, h(1), "") For i3 = 1 To 3 h(2) = Mid(str2, i3, 1) str3 = Replace(str2, h(2), "") For i4 = 1 To 2 h(3) = Mid(str3, i4, 1) h(4) = Replace(str3, h(3), "") res = "5" & h(0) & "4" & h(1) & "3" & h(2) & "2" & h(3) & "1" & h(4) & "0" If TypeName(Evaluate(res)) <> "Error" Then If Evaluate(res) = "True" Then Debug.Print res End If End If Next i4 Next i3 Next i2 Next i1 End Sub
回答ありがとうございます｡Cですが､私が作ったのもこれに近かったです｡(^_^;
| ▽3
●
garyo ●50ﾎﾟｲﾝﾄ  ﾍﾞｽﾄｱﾝｻｰ |
rubyで書いてみました｡
operator = ["+","-","*","/","=="] operator.permutation(5) {|a,b,c,d,e| s = "5.0#{a}4.0#{b}3.0#{c}2.0#{d}1.0#{e}0.0" begin puts s if eval(s) rescue end }
答えはこちらです｡
5.0-4.0*3.0/2.0+1.0==0.0
5.0==4.0*3.0/2.0-1.0+0.0
Rubyは順列を作る関数や組み合わせを作る関数があるので便利ですね｡
順列
http://ref.xaio.jp/ruby/classes/array/permutation
組み合わせ
回答ありがとうございます｡やはり､ruby 最強ですかね｡(^_^;
ruby でやってみた｡
class Array
def permutations(k=self.size)
return [[]] if k < 1
perm = []
self.each do |e|
x = self.dup
x.delete_at(x.index(e))
x.permutations(k-1).each do |p|
perm << ([e] + p)
end
end
perm
end
end
numbers = [5, 4, 3, 2, 1, 0]
["+", "-", "*", "/", "="].permutations.each { |operators|
exp = ""
operators.each_with_index { |e, i|
exp << numbers[i].to_s + e
}
exp << numbers[5].to_s
if /(.*)=(.*)/ =~ exp then
begin
if eval "#{$1} == #{$2}".gsub(/\d/, "\\&.0") then
puts exp
end
rescue ZeroDivisionError
# NOP
end
end
}
手持ちの ruby が古いんで､Array.product が使えなくって､順列生成もｺｰﾃﾞｨﾝｸﾞした｡
実行結果は､以下の通り｡
5-4*3/2+1=0 5=4*3/2-1+0
回答直前に､式の評価が整数演算になってて､変な答えまで抽出してたので､ちょっとあわてた :-)
回答ありがとうございます｡ｺﾋﾟﾍﾟして拡張子をrbにしてﾌｧｲﾙを作って実行したら､ちゃんと動きました｡こういう方法もあったんですね｡(^_^;
やっつけですが､Perlだとこんな感じになりました｡
※1÷0は計算できないため､1×0に変更してます｡
#!/usr/bin/perl
use strict;
use warnings;
my($left,$right,$kaihi);
my @hoge;
$hoge[1] = '+';
$hoge[2] = '-';
$hoge[3] = '*';
$hoge[4] = '/';
$hoge[5] = '=';
for my $num1(1..5){
for my $num2(1..5){
for my $num3(1..5){
for my $num4(1..5){
for my $num5(1..5){
if($num1==$num2||$num1==$num3||$num1==$num4||$num1==$num5){
}elsif($num2==$num3||$num2==$num4||$num2==$num5){
}elsif($num3==$num4||$num3==$num5){
}elsif($num4==$num5){
}else{
if($hoge[$num5] eq '/'){
$kaihi = '*';
}else{
$kaihi = $hoge[$num5];
}
if($hoge[$num1] eq '='){
$left = 5;
$right= "4 $hoge[$num2] 3 $hoge[$num3] 2 $hoge[$num4] 1 $kaihi 0";
}
if($hoge[$num2] eq '='){
$left = "5 $hoge[$num1] 4";
$right= "3 $hoge[$num3] 2 $hoge[$num4] 1 $kaihi 0";
}
if($hoge[$num3] eq '='){
$left = "5 $hoge[$num1] 4 $hoge[$num2] 3";
$right= "2 $hoge[$num4] 1 $kaihi 0";
}
if($hoge[$num4] eq '='){
$left = "5 $hoge[$num1] 4 $hoge[$num2] 3 $hoge[$num3] 2";
$right= "1 $kaihi 0";
}
if($hoge[$num5] eq '='){
$left = "5 $hoge[$num1] 4 $hoge[$num2] 3 $hoge[$num3] 2 $hoge[$num4] 1";
$right= 0;
}
if(eval($left) == eval($right)){
print "5 $hoge[$num1] 4 $hoge[$num2] 3 $hoge[$num3] 2 $hoge[$num4] 1 $hoge[$num5] 0\n";
}
}
}
}
}
}
}
exit;
実行結果
5 - 4 * 3 / 2 + 1 = 0
5 = 4 * 3 / 2 - 1 + 0
回答ありがとうございます｡perlはまだｲﾝｽﾄｰﾙしていなかったので確認できませんでした｡入手先のURLも付けてくれるとよかったです｡(^_^;
