Entries from 2013-12-04 to 1 day
--指定文字の個数を数える関数 count :: Char -> String -> Int count c xs = length [c'| c' <- xs, c' == c] --小文字を整数に変換する関数 let2int :: Char -> Int let2int c = ord c - ord 'a' --整数を小文字に変換する関数 int2let :: Int -> Char int…
--指定文字の個数を数える関数 count :: Char -> String -> Int count c xs = length [c'| c' <- xs, c' == c] --小文字を整数に変換する関数 let2int :: Char -> Int let2int c = ord c - ord 'a' --整数を小文字に変換する関数 int2let :: Int -> Char int…