koguro #4685(2007/12/08 13:07 GMT) [ Mathematica ] Rating3/3=1.00
この手の問題はMathematicaだと簡単に書けますね。
1
goedel[n_] := Times @@ MapIndexed[Prime[#2[[1]]]^#1 &, IntegerDigits[n]]
Rating3/3=1.00-0+
[ reply ]
koguro #4685() [ Mathematica ] Rating3/3=1.00
この手の問題はMathematicaだと簡単に書けますね。
Rating3/3=1.00-0+
[ reply ]