かずきのBlog@hatena

日本マイクロソフトに勤めています。XAML + C#の組み合わせをメインに、たまにASP.NETやJavaなどの.NET系以外のことも書いています。掲載内容は個人の見解であり、所属する企業を代表するものではありません。

とりあえず作ってみよう

前にやった問題

Haskellで考えてみよう。

とりあえず、ほしいのはこんなもの?

module Sort where

recordSort :: [Int] -> [(Int, Int)] -> [Int]
recordSort _ _ = []

ここからスタートだ!

一応mainもつくって期待通りに[]が表示されるのは確認

module Main where

import Sort

record = [(7, 345),
    (8, 678),
    (1, 123),
    (2, 456),
    (5, 567),
    (6, 812),
    (3, 781),
    (4, 234)]

target = [4, 5, 3, 1, 2]

main = print $ recordSort target record

肉付けしなきゃね