2017-01-19

Haskellのレコード練習:Personのリストから20歳以上の値を取り出す

Qiitaの記事で以下Haskellの入門記事があって

Haskell入門。関数からモナドまで

すごく丁寧に書かれてるので今始めるなら上記記事が良さそう

で、その中で下記レコードのとこで演習問題的なのがあったのでメモがてら記述

レコード

とりあえずmapを使う方法と使わない方法がある

ので両方合わせたのが下記

adults :: [Person] -> [String]
adults [] = []
adults (Person name age : xs)
  | age > 19 = [name] ++ adults xs
  | otherwise = [] ++ adults xs
adults' :: [Person] -> [Person]
adults' [] = []
adults' (Person name age : xs)
  | age > 19 = [Person name age] ++ adults' xs
  | otherwise = [] ++ adults' xs
main :: IO ()
main = do
  print $ adults [Person "alice" 19, Person "bob" 20]
  print $ map name $ adults' [Person "alice" 18, Person "bob" 20]

qiita内の記事だとmap name $ adults [Person "alice" 18, Person "bob" 20]で出力されるようにしていたので

adults'関数のほうだとそのようにできるはず

これが綺麗なコードかと言われるとわからないが練習がてらでメモとして残しておく

余談

最近関数型の練習でHaskell, Scala, Elm, Elixirあたりをうろちょろしてて全部中途半端だなぁと思ってもいるが

他の言語だとわかりやすく説明されてるところとかもあるので

ちょっとずつ色々なものを触ってみてると、立ち戻ってきた時に以外と書けるようになってたりして面白い

(例えばElm触ってるとなんかHaskellの書き方がぼんやりとわかってくるし、そもそもElmはHaskell触ってたから導入自体はそんなに苦じゃなかった)

相互補完してちょっとずつ進んでいこうと思う