トップページ
⇒
math
1001コメント
517KB
〓 Mathematica 伍 〓
全部
前100
次100
最新50
■ このスレッドは過去ログ倉庫に格納されています
0061
132人目の素数さん
2011/12/19(月) 22:25:37.38
別解
{0, 1, 1, 3, 2, 4, 2, 2, 1} //
RotateRight[#, (Length[#] - Max[Position[#, Max[#]]])] &
まぁ、Maxが複数ある場合の多様性は、お題にないからパスです。
全部
前100
次100
最新50
■ このスレッドは過去ログ倉庫に格納されています