Haskell Quiz No.14 shift-jis ファイルの読み込み

Haskell Quiz No.14

難易度: λ

utf8.txt と shift-jis.txt はそれぞれ utf8 と shift-jis で保存されたテキストファイルです。

bad :: IO ()
bad = readFile "./shift-jis.txt" >>= putStrLn

good :: IO ()
good = readFile "./utf8.txt" >>= putStrLn

上記のプログラムを実行すると、こんな感じでエラーになってしまいます。

*Main> good
はすける

*Main> bad
*** Exception: ./shift-jis.txt: hGetContents: invalid argument (invalid byte sequence)

shift-jis で保存されたテキストファイルを読むにはどうしたら良いでしょうか？

答えは次回。

Haskell Quiz No.13 Conduit Part.8

Haskell Quiz No.13

難易度: λλ

以下のプログラムの実行結果はどうなるでしょうか？

#!/usr/bin/env stack
-- stack script --resolver lts-12.0
import Conduit

main :: IO ()
main = runConduit $ yieldMany [1..10] .| iterMC print .| return () .| sinkNull

答えは次回。

Haskell Quiz No.12 Conduit Part.7

Haskell Quiz No.12

難易度: λ

以下のプログラムの実行結果はどうなるでしょうか？

#!/usr/bin/env stack
-- stack script --resolver lts-11.17
import Conduit

main :: IO ()
main = runConduit $ yieldMany [1..10] .| iterMC print .| sinkNull

答えは次回。

Haskell Quiz No.11 isUpper と isAsciiUpper

Haskell Quiz No.11

難易度: λ

以下のプログラムの実行結果はどうなるでしょうか？

#!/usr/bin/env stack
-- stack script --resolver lts-11.17
import Data.Char

main :: IO ()
main = do
  print $ isUpper 'あ'
  print $ isAsciiUpper 'あ'

答えは次回。

Haskell Quiz No.10 Conduit Part.6

Haskell Quiz No.10

難易度: λ

以下の実行結果はどうなるでしょう！

#!/usr/bin/env stack
-- stack script --resolver lts-11.17
import Conduit

main :: IO ()
main = runConduit $ yieldMany [1..10] .| iterMC print .| return ()

答えは次回。

Haskell Quiz No.9 Conduit Part.5

Haskell Quiz No.9

難易度: λλ

以下の2つのコードのうち、1つめはコンパイルできますが、2つめはコンパイルできません。

なぜでしょう！

#!/usr/bin/env stack
-- stack script --resolver lts-11.16
import Conduit

main :: IO ()
main = print $ runConduitPure $ return () .| do
  mapM_ leftover [1..10]
  sinkList

#!/usr/bin/env stack
-- stack script --resolver lts-11.16
import Conduit

main :: IO ()
main = print $ runConduitPure $ do
  mapM_ leftover [1..10]
  sinkList

エラーメッセージ

error:
    • No instance for (Num ()) arising from the literal ‘1’
    • In the expression: 1
      In the second argument of ‘mapM_’, namely ‘[1 .. 10]’
      In a stmt of a 'do' block: mapM_ leftover [1 .. 10]

    mapM_ leftover [1..10]

答えは次回。

namespaced templates

はじめに

つい先日 namespaced templates という、PRが master にマージされました。(Namespaced templates #4039 が該当する isssue です)

通常、stack new コマンドを実行すると、ローカルに保存されている new-template の内容に基づいてプロジェクトの雛形が作成されます。

もし、ローカルに保存されているテンプレートの内容を確認したい場合は以下のようなコマンドを実行すれば良いでしょう。

$ cat $(stack path --stack-root)/templates/new-template.hsfiles

config.yaml を変更すれば、このデフォルトテンプレートを変更することもできます。(詳しくは config.yaml のよくある設定 をご確認ください)

今回新たに実装された namespaced templates 機能は、これらのテンプレート機能をより強化するものとなっています。

具体的には username/foo という形式でリモートリポジトリから自分のプロジェクトテンプレートをダウンロードし、それをもとにプロジェクトを作成できるようになります。

それでは使い方を見ていきたいと思います。

$ stack --version
Version 1.8.0, Git revision 466da22ce21cddc20323fc2611cd2a2d3cc56ec6 (dirty) (5998 commits) x86_64 hpack-0.28.2

ContT を使ってコードを綺麗にしよう！

はじめに

Continuation (継続) について全く勉強したことが無いので Control.Monad.Cont で定義されている ContT とかいつ使うんだろうなーと思っていましたが、ついに利用機会がありました！！！

僕が考えたんじゃなくて fumieval さんに相談して、教えてもらったんですけどね。

stack run コマンド

はじめに

先日 stack の master ブランチに Introduce stack run command line option #3952 がマージされました。とても便利なので紹介したいと思います。

stack run コマンドについて簡単に説明するとこんな感じです。

• cabal run の stack バージョンです。
• stack build && stack exec foo の短縮形です。

$ stack --version
Version 1.8.0, Git revision 466da22ce21cddc20323fc2611cd2a2d3cc56ec6 (dirty) (5998 commits) x86_64 hpack-0.28.2

現在の stack の最新バージョンは 1.7.1 です。

Prelude を カスタムPrelude で置き換える

はじめに

つい最近 haskell-jp で 皆さんPreludeは何を使っていますか？ という話がありました。

まとめるとだいたこんな感じです。

カスタム Prelude を使うモチベーションは、自分のよく使う関数を Prelude に入れたいとか、fromJust みたいな部分関数を排除したいなど、色々あります。

実際にカスタム Prelude を使うためにはファイルの先頭に NoImplicitPrelude 言語拡張とカスタムPreludeの import 宣言を追加する必要があります。(具体例として rio パッケージを利用します)

{-# LANGUAGE NoImplicitPrelude #-}
module Main where

import RIO

...

新しいファイルを作るたびに、ファイルの先頭に上記の宣言を書いても良いのですが、今回はこの作業なしにカスタム Prelude を使う方法をご紹介したいと思います。

extensible-0.4.9 がリリースされました。

はじめに

BIG MOON では、業務に必要なツールを自社開発しており、プログラミング言語に Haskell を採用しています。実用的に利用し始めて3年ぐらい？です。

僕らが Haskell を利用していて一番困った点はレコードの取り扱いです。

• 異なる型のフィールドラベルに同じ名前を付けたい
• フィールド全体対して関数を適用したい
• フィールド多相な関数を定義したい

このような問題に対して extensible という、(当初は謎に包まれていた) パッケージの利用を検討し、実際に既存のシステムを extensible で置き換えました。(当時アルバイトしていた matsubara0507 さんが居なければ実現不可能だったと思います)

今回、縁あって作者の fumieval さんと一緒に仕事できる機会に恵まれました。fumieval さんは簡単な質問でも、とても気さくに答えてくれます。

僕達のノウハウはまだまだとても少ないですが、この素晴らしいパッケージを広く知って欲しいと思い、まだまだ作成途中ではありますが extensible 攻略Wiki という親しみやすい雰囲気で情報を発信していくことになりました。

この wiki もまた Haskell で作られており apus という名前で公開されています。

今回の extensible-0.4.9 のアップデートは、攻略wiki のコンテンツを拡充していく中で出てきたアイデアや、関数などがいくつか追加されました。(matsubara0507 さんと弊社も色々と貢献できているはずです！)

今回はその内容について簡単な例とともに解説を行いたいと思います。

• Hackage extensible-0.4.9

Stack 1.7.1 がリリースされました。

はじめに

4月28日に Stack version 1.7.1 がリリースされました。

更新は以下のコマンドですぐに終わります。

$ stack upgrade
...

$ stack --version
Version 1.7.1, Git revision 681c800873816c022739ca7ed14755e85a579565 (5807 commits) x86_64 hpack-0.28.2

HIE でコード整形時に改行が追加されてしまうバグが直りました

はじめに

vscode + Haskell IDE Engine の組み合わせで Haskell を書き続けて半年ぐらいになります。

hie が採用している整形ツールは brittany なのですが、個人的には hindent よりも気に入っています。(最近 Add import and module support #124 が実装されたんですけど、この部分は正直気に入っていない・・・。stylish-haskell の結果の方が好きです。)

今回のバグはコード整形時にファイルの最後に空行が追加されてしまうというものでした・・・。(100回実行すると100行追加されます・・・)

• Newline added on every save #289
• Formatting code adds newline at the end of the file #521

上記の issue が Fix extra newline being added when formatting document #525 で修正されました。

手作業で毎回削除してて、絶対何かおかしいと思ってましたが、ちゃんと直りました！！！やったね！

以上です。

LiquidHaskell の --prune-unsorted フラグ

はじめに

LiquidHaskell では measure という仕組みを使って Haskell の関数を LH の述語に持ち上げることができます。

しかし、以下の nLen 関数は measure によって持ち上げることができません。

{-@ measure nLen @-}
nLen :: [Int] -> Int
nLen [] = 0
nLen (n:ns) = n + nLen ns

結論から言えば、これを解決するためには --prune-unsorted フラグを利用します。

以下は measure の基本的な使い方等についての説明です。

Haskell Quiz No.8 Conduit Part.4

Haskell Quiz No.8

難易度: λλλ

以下の Conduit を使ったコードの実行結果を予想してみてください！

#!/usr/bin/env stack
-- stack script --resolver lts-11.3
import Conduit

main :: IO ()
main = print $ runConduitPure $ return () .| do
  mapM_ leftover [1..10]
  sinkList

答えは次回。

Haskell Quiz No.7 Conduit Part.3

Haskell Quiz No.7

難易度: λλ

以下の Conduit を使ったコードの実行結果を予想してみてください！

#!/usr/bin/env stack
-- stack script --resolver lts-11.3
import Conduit

myTakeWhileC :: Monad m => (i -> Bool) -> ConduitM i i m ()
myTakeWhileC f = loop
  where
    loop = do
      mx <- await
      case mx of
        Nothing -> return ()
        Just x
          | f x       -> yield x >> loop
          | otherwise -> return ()

main :: IO ()
main = print $ runConduitPure $ yieldMany [1..10] .| do
  x <- myTakeWhileC (<= 5) .| sinkList
  y <- sinkList
  return (x, y)

答えは次回。

Haskell Quiz No.6 Conduit Part.2

Haskell Quiz No.6

難易度: λλ

以下の Conduit を使ったコードの実行結果を予想してみてください！

#!/usr/bin/env stack
-- stack script --resolver lts-11.2
import Conduit

trans :: Monad m => ConduitM Int Int m ()
trans = do
  takeC 5 .| mapC (+ 1)
  mapC (* 2)

main :: IO ()
main = runConduit $ yieldMany [1..10] .| trans .| mapM_C print

答えは次回。

最近は Conduit にはまっているので、クイズも Conduit が続きます。

Haskell Quiz No.5 Conduit Part.1

Haskell Quiz No.5

難易度: λλ

以下の Conduit を使ったコードの実行結果を予想してみてください！

#!/usr/bin/env stack
-- stack script --resolver lts-11.0
import Conduit

sink :: Monad m => ConduitM Int o m (String, Int)
sink = do
  x <- takeC 5 .| mapC show .| foldC
  y <- sumC
  return (x, y)

main :: IO ()
main = do
  let res = runConduitPure $ yieldMany [1..10] .| sink
  print res

答えは次回。

prettyprinter パッケージ

はじめに

今回は prettyprinter を使ってみました。

使おうと思ったモチベーションとしては、以下のようなデータ型をデバッグ表示させる際に prettyprinter 系パッケージを使って良い感じに表示してみようかな？という感じです。

data Person = Person Text String

表示をカスタマイズするために Show クラスのインスタンスを書き換えることは、経験上嫌なことしか起きないです・・。

自分でそれっぽい型クラスを作っても良いのですが、普通は素直に prettyprinter 系のパッケージを使った方が良いと思います！

$ stack repl --package text
Prelude> import Data.Text
Prelude Data.Text> data Person = Person Text String deriving Show
Prelude Data.Text> :set -XOverloadedStrings
Prelude Data.Text> Person "はすける" "らむだ"
Person "\12399\12377\12369\12427" "\12425\12416\12384"

Haskell Quiz No.4 幅優先探索と深さ優先探索

Haskell Quiz No.4

難易度: λ

今回は、与えられた値がリストのリストに含まれているかどうかを判定する問題です。

幅優先で探索する関数 bfs と深さ優先で探索する関数 dfs をそれぞれ定義してみましょう。

bfs :: Int -> [[Int]] -> Bool
bfs = undefined

dfs :: Int -> [[Int]] -> Bool
dfs = undefined

実行結果はだいたいこんな感じです。

$ stack repl -- Quiz4.hs
*Quiz4> xs = [[10..],[4,5,6],[7,8,9]]
*Quiz4> bfs 9 xs
True
*Quiz4> dfs 9 xs
.....

答えは次回。

Haskell Quiz No.3 QuickCheck の Arbitrary 型クラス

Haskell Quiz No.3

難易度: λ

propIsDigit テストをパスするように Digit 型の Arbitrary インスタンスを定義してみましょう。

module Quiz3 where

import Test.QuickCheck
import Data.Char (isDigit)

newtype Digit = Digit Char
  deriving Show

propIsDigit :: Digit -> Bool
propIsDigit (Digit c) = isDigit c

instance Arbitrary Digit where
  arbitrary = undefined

テストは以下のように実行します。

$ stack repl --package QuickCheck -- Quiz3.hs
*Quiz3> quickCheck propIsDigit
+++ OK, passed 100 tests.

上記のように OK になれば (たぶん) 正解です！

ヒント: 生成される値をデバッグしたい場合は sample' 関数が便利です。

*Quiz3> sample' (arbitrary :: Gen Digit)

答えは次回。

Haskell IDE Engine を Emacs で使う

はじめに

HIE (Haskell IDE Engine) を Emacs に導入する方法が HIE の README.md に追記されたので、それに従いインストールしてみました。

本記事では、導入手順を紹介します。

Haskell Quiz No.2 foldl と foldr

Haskell Quiz No.2

難易度: λλ

foldr (&&) True $ cycle [True, False]
foldl (&&) True $ cycle [True, False]

上記の2つの式の挙動の違いを説明してください。

また、なぜそうなるのか考えてみましょう！

答えは次回。

Haskell Quiz はじめました。 No.1 type, newtype, data

はじめに

何となくクイズはじめました！(頑張って続けます・・・)

間違ってたら twitter や github の issue で教えてください！

アプリケーションのバージョンに Git の情報を出してみよう！

はじめに

今回は gitrev パッケージと optparse-simple パッケージを使ってアプリケーションに Git の情報を含めてみようと思います！

利用者の多いアプリケーションだと、バグ報告時にどのコミットでビルドしたものなのか知りたい場合に便利です。

表示されるバージョン情報はこんな感じになります。

# gitrev の例
$ ./Main.hs
Main.hs: [panic master@3a0bd17fdfb8a3e334292a560280e8e0791e941c (Tue Mar 20 02:00:17 2018 +0900) (1 commits in HEAD)]

# optparse-simple の例
$ stack exec -- example-version-exe
Version 0.1.0.0, Git revision 341e785b02c4c599f64b922b4aa9cfff3c006945

以下のアプリケーション等でも利用されているように、実用度はとても高めです。

• stack
• hie
• liquidhaskell

また、実装コストもそれほどかからないため、オススメです！

Yesod v1.6 のサブサイト

はじめに

今回は Yesod を使っているマニア向け情報です。

Yesod にはサブサイトという機能があり、Yesod Book の Creating a Subsite で一通りの使い方が説明されています。

簡単に言えば、異なる Yesod アプリケーションで共通のコンポーネント (認証システム等) を利用するために使えるようです。

scaffolded site を使っている人は yesod-static パッケージで提供されている Static 型をサブサイトとして利用していることでしょう。

Yesod のバージョンが 1.6 に上がった影響により Yesod Book の内容がそのままでは動かなくなっていたため、コードを修正して実際に動かしてみたいと思います。

extra-deps に github の短縮形が指定できるようになります

はじめに

今日マージされた Allow ‘github’ shorthand for extra-deps (fixes #3873) #3890 がとても便利だと思いますのでご紹介します。

$ stack --version
Version 1.7.0, Git revision 4a140342f9b28005bf2fdd5335bdcd32c9370265 (5702 commits) x86_64 hpack-0.21.2

Liquid Haskell のインストールと学習方法

はじめに

Liquid Haskell を半年ほど勉強した結果、色々と出来ることが増えて楽しくなってきました。

現状、日本語で詳しく説明しているブログ記事や Qiita 記事はほとんどありません。

とても面白いツールだと思いますので、色々と紹介していけたらと思います。

今回は Liquid Haskell の導入方法について簡単に説明したいと思います。

Liquid Haskell

はじめに

Liquid Haskell で少しハマったのでメモとして残しておきます。

本来なら先に仕様を書いて実装を書くべきだと思いますが、今回の例は既存のコードにリファインメント型をつけるような場合を想定しています。

$ liquid
LiquidHaskell Version 0.8.2.4, Git revision d641244775cd842776cecf2c5d3e9afa01549e76 (dirty)
Copyright 2013-18 Regents of the University of California. All Rights Reserved.

Liquid Haskell を気になってる人向けの記事です。

stack でどうしてもビルドできないとき

はじめに

僕は stack, hlint, liquidhaskell などのパッケージを毎日なんとなくビルドしてインストールしているのですが、ある時 stack のビルドで GHC panic が発生し、ビルドができなくなってしまいました。

数日放置していたのですが、直らず・・・。そればかりか別のPCでは問題なくビルドができているため stack の問題だな！と意気揚々と issue を作ったのですが、結局は自分の環境の問題でした・・・。

僕は英語が得意ではありませんが、こういった時に批判だけするのは良くないと思っているので、頑張って issue や PR を投げるようにしています。Google 翻訳とかもありますし、誰か助けてくれますよ、きっと。 (放置されたり却下されることもありますが、気にせずコツコツ続けると楽しいです)

stack 1.6.5 がリリースされました。

はじめに

先日 Stack version 1.6.5 がリリースされました。

バグフィックスのみです。

いくつか前回の 1.6.3 に含まれていた内容が 1.6.5 に移動してますね。

Pattern Synonyms で DEPRECATED

はじめに

persistent ライブラリで SomeField を CopyField に置き換える際のPRで、パターンシノニム (Pattern Synonyms) の面白い使い方を見つけました。

もしかしたら良く知られた技なのかもしれませんが、ご紹介したいと思います。

パターンシノニムが何かについての説明は、今回全くしていませんのでわかる人向けです。

素晴らしき HLint を使いこなす

はじめに

HLint は haskell-src-exts を使って実装されている静的解析ツールです。

HLint を使えば github などを使って PR ベースで開発する場合のコードレビューでこんな事を言わなくて済みます。

• fromJust とかの部分関数は使わないで！
• maybe 関数って知ってる？
• この言語拡張って本当に使ってるの？
• undefined まだ残ってるじゃん！

嬉しいことに Travis CI や CircleCI などで一度設定するだけなので導入もお手軽です！ また、最近知ったのですが、プロジェクト内で使って欲しくない関数なども HLint によって検出可能です。

さらに、独学で Haskell の学習を進めている人は HLint が素晴らしい教師役となってくれるでしょう。

• 利用したコード

最近遭遇した stack build 時の ld (pthread, -fPIC) エラー

はじめに

ここ最近、プロジェクトのビルド時に謎のエラーが発生するようになりました。

以下の2種類のエラーに遭遇したので、今後のために記録しておきます。

• pthread link error
• -fPIC error

$ stack --version
Version 1.7.0, Git revision 19e3460496f8fd2c462fb35a5825301e5c3c4eb0 (5527 commits) x86_64 hpack-0.20.0

travis-ci の初回ビルドで OUT OF MEMORY が出た時の対処法

はじめに

travis-ci の初回ビルド時に以下のようなエラーメッセージが表示されてビルドに失敗してしまうことがあります。

The command "stack --no-terminal test --only-dependencies" failed and exited with 1 during .

Your build has been stopped.

結論から言えば、初回ビルド時はキャッシュが働かないため、多くの依存関係をビルドする必要があり、その過程でメモリ不足になってしまっていました。

この問題をどうすれば解決できるか、メモ程度に残しておこうと思います。

Literate Markdown (markdown-unlit の使い方) について

はじめに

今回は Literate Markdown をご紹介します。(最近見つけて面白そうだったので使ってみました。)

モチベーションとしては Bird 記法や TeX 記法だけではなく、Markdown 記法も使いたいよね！という感じです。

また、HaskelL の文学的 (Literate) プログラミングについては、すでに多くのWeb・書籍等で言及されているため、必要最低限の説明に留めたいと思います。

本記事の内容は以下を参考としています。

• Haskell 2010 Language Report
• Literate Markdown
• Flexible Literate Haskell File Extensions
• sol/markdown-unlit

haddock に Grid Table 記法が追加されました

stack v1.6.3 がリリースされました。

はじめに

以下のコマンドで stack v1.6.3 のバイナリが落ちてきます。

$ stack upgrade

リリースノート

• Changelog.md

機能追加は無く、改良とバグフィックスのみです。

stack ls コマンドは今回に含まれていないので v1.7.0 で追加されそうな感じですね。

カスタムスナップショットの紹介

ちょっと前に version 1.6.1 がリリースされたので、その中の目玉機能でもある カスタムスナップショット を紹介したいと思います。

stack ls コマンドが追加されます

Stack の master に stack ls コマンドがマージされました。

• Add stack ls snapshots documentation to the user guide #3672

今後、このコマンドのサブコマンドに list-dependencies などを順次追加していく方針?のようです。

• Stack list-dependencies : Bring it under the new ls umbrella command #3669