2009-11-14から1日間の記事一覧
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 w…
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 w…