〓 Mathematica 四 〓
レス数が900を超えています。1000を超えると表示できなくなるよ。
0913１３２人目の素数さん
2010/07/01(木) 21:51:04n = 25; lis = {};
While[n > 0, m = Mod[n, 3];
lis = Prepend[lis, If[m != 2, m, -1]];
n = If[m != 2, Quotient[n, 3], Quotient[n, 3] + 1]];
Drop[lis, 1]
でどうですか？n=1000でも試してみて下さい
レス数が900を超えています。1000を超えると表示できなくなるよ。