プログラミングのお題スレ Part9at TECH

---

243:デフォルトの名無しさん
17/05/25 21:35:24.87 Z+pf95Ly.net
>>227
@Mathematica
In[1]:=142857//
　　IntegerDigits//
　　NestList[RotateLeft,#,Length[#]-1]&//
　　Map[FromDigits,#]&//
　　Sort//
　　Reverse//
　　Map[{#}&,#]&//
　　Grid
Out[1] = 857142
　　　　 714285
　　　　 571428
　　　　 428571
　　　　 285714
　　　　 142857

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch