のびのびなHaskell日記

■ 昇順ソートと降順ソート

import List

list = [2,9,8,49,299,34,99,103,3]

main = do putStr "Orginal "
          print list
          putStr "ASC "
          print $ sortBy(\x y -> compare x y )list -- 昇順ソート
          putStr "DESC "
          print $ sortBy(\x y -> compare y x )list -- 降順ソート

• 実行結果

D:\Development\PracticeHaskell\work20060715>runghc sample05.hs
Orginal [2,9,8,49,299,34,99,103,3]
ASC [2,3,8,9,34,49,99,103,299]
DESC [299,103,99,49,34,9,8,3,2]

■ 6文字以上の文字列はどれとどれ？

リストの中に入っている文字列で、文字列の長さが6文字以上のものをリストに入れて返してもらう処理を書いてみました。

• パターン1

import List

list = ["Oasis","THE CRANBERRIES","Keane","Maroon 5","DEF LEPPARD"]

main = print $ filter isGreaterThan6Characters list

isGreaterThan6Characters x = (length x) >= 6 

• パターン2(パターン1を無名関数を使用して書き換える)

import List

list = ["Oasis","THE CRANBERRIES","Keane","Maroon 5","DEF LEPPARD"]

main = print $ filter (\x -> (length x) >= 6) list

• パターン3(パターン1を関数合成で書き換える)

import List

list = ["Oasis","THE CRANBERRIES","Keane","Maroon 5","DEF LEPPARD"]

main = print $ filter ( ( >=6 ) . length) list

• パターン1から3の実行結果

["THE CRANBERRIES","Maroon 5","DEF LEPPARD"]