〓 Mathematica 3 〓
レス数が950を超えています。1000を超えると書き込みができなくなります。
0977１３２人目の素数さん
2007/12/08(土) 04:51:48符号の切り替わる場所のリスト、でいいんだよね？
短くなったけどどうだろうこれ
cc = Join @@ Position[Sign /@ Times @@@ Transpose[{Drop[aa, -1], Drop[aa, 1]}], -1]
レス数が950を超えています。1000を超えると書き込みができなくなります。