Skip to content

Instantly share code, notes, and snippets.

@t-sin

t-sin/euphonium.hs

Created November 24, 2016 08:26
Show Gist options
  • Save t-sin/6e9c85e3c8323ca8d7e1ea25a5b7a390 to your computer and use it in GitHub Desktop.
Save t-sin/6e9c85e3c8323ca8d7e1ea25a5b7a390 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
euphonium.hs
main :: IO ()
main = mapM_ putStrLn [take l $ drop n $ cycle s | n <- [0..l]]
where s = "響け！ユーフォニアム"
l = length s
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment