という進行があります(ひとつのコードは2拍です)。「たまにはハイコードを」と思って と弾いてみるとといい感じ。特にEm→Am(というかAm7)→Emのあたりが。

18:00ごろ帰りました。

Problem A: Keitai Messageより。Stateモナドを使って、こんな感じかな。今ひとつ美しさにかける気がします。 module Main (main) where import Control.Monad.State (State, execState, get, put) import Data.List (group, (!!)) key :: (Char, Int) -> St…