エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
Turing Machine - Life Goes On
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Turing Machine - Life Goes On
anarchy golf - Turing Machine にハマりました。 最終的に通したコードはこんな感じ。空白を削って 168... anarchy golf - Turing Machine にハマりました。 最終的に通したコードはこんな感じ。空白を削って 168B です。 main = interact $ f "" 0 2 . map words . lines f s i j m | j<2 = s | 0<1 = f (take i s ++ a : drop(i+1)s) (max i 0 + b%61) (c%63) m where [a,b,c] = m!!k!!j k | i<0 = 1 | 0<1 = (s++"0")!!i%47 n%i = fromEnum n - i このコードは、簡単に短くすることができます。 7 行目以降、k を求めるところで、リストの範囲を超えたインデックスが渡されるのを防ぐために場合分けをしてますが、リストの前にも要素を足してしまえば、場合分けは不要。 こんな感じで、16