8時過ぎに起床。 今日は9時出発なのでいそいで準備して出発 図書館でようやく時間割と教室一覧を印刷 これで毎日夜に次の日の教室を調べる必要がなくなった！！ ついでに二十四孝すこし練習まず授業 情報。 うーん、情報技術者試験でやるような内容なので、…

main = putStrLn $ unlines $ map fizzbuzz [1..30] fizzbuzz :: Int -> String fizzbuzz x | x`mod`15 == 0 = "fizzbuzz" | x`mod` 3 == 0 = "fizz" | x`mod` 5 == 0 = "buzz" | otherwise = show x Mが書いているのを見てやってみた。 ...........何が面白…

import Data.List data Line = L {number::Int, name:: String} deriving Show myline::Line myline = L 17 "w-Vogel" mylist::[Line] mylist = [(L 1 "dora-yaki"),(L 3 "cake"),(L 2 "imo-kenpi")] sortLines::[Line] -> [Line] sortLines = sortBy (\x y …