1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12

-- ファーストクラス関数
ifEven myFunction x = if even x
    then myFunction x
    else x
 
inc n = n + 1
double n = n * 2
square n = n ^ 2
 
ifEvenInc n = ifEven inc n
ifEvenDouble n = ifEven double n
ifEvenSquare n = ifEven square n

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21

import Data.List
 
names = [
    ("Ian", "Curtis"),
    ("Bernard", "Sumer"),
    ("Peter", "Hook"),
    ("Stephen", "Morris")
    ]
 
-- sort names
 
compareLastNames name1 name2 = if lastName1 > lastName2
        then GT
        else if lastName1 < lastName2
            then LT
            else EQ
    where
        lastName1 = snd name1
        lastName2 = snd name2
 
--sortBy compareLastNames names