morning_reading https://blog.hatena.ne.jp/morning_reading/ 毎朝30分読書会 https://morning-reading.hatenadiary.org/ またずいぶん間が開いてしまいました。第9章の練習問題を解いていきます。 1. 問題文から察するに現在の文字数分 \DEL で文字を消すような方法が想定されているようでしたが、このエスケープシーケンスではわたしの端末でうまく文字を消してくれなかったので、'\r' で行頭に戻って空白でクリアする方法にしました。 redrawLine :: String -> IO () redrawLine s = do putChar '\r' putStr (take ((length s)+2) (repeat ' ')) putChar '\r' if s /= "" then putStr (init … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmorning-reading.hatenadiary.org%2Fentry%2F20110411%2Fp1" title="プログラミング Haskell 第9章 対話プログラム 練習問題その1 - 毎朝30分読書会" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-04-11 00:00:00 rich https://morning-reading.hatenadiary.org/entry/20110411/p1 1.0 100%