ロコリンの雑記

アニメ大好き社会人のロコリンのブログ。2015年卒(修士)の社会人。学生時代(2010年)から続けてるブログなのでエントリによっては学生ブログと社会人ブログになっています。時系列から察して。
 
 
このブログについて
ブログ内検索
カテゴリ
プロフィール

ロコリン

Author:ロコリン
2018年6月から会社員。2015年3月まで大学院生でした。
趣味:アニメ/Twitter/ゲーム/ニコ動
今(2015年2月更新):プリキュア/プリパラ/アイカツ/ごちうさ/艦これ

外部リンク
Twitter

スポンサーサイト 

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

AOJ 問題番号 0000 と 0001 を Haskell で 

どうでもいいことでも記事にしていいと思いました。このブログを長文 Twitter 的なものとして使おうかなと。

最近 Haskell を始めました。いい言語ですね。

去年プログラミング修行サイト AIZU ONLINE JUDGE (AOJ) に登録しました。問題 0000 ~ 0030 をやって、それからずっと放置していました。

AOJ の問題番号 0000 を Haskell で書いてみました。なお、AOJ では Haskell は使えません。

main = putStr $ unlines [show m ++ "x" ++ show n ++ "=" ++ show (m * n) | m <- [1..9], n <- [1..9]]
これだけです。

問題番号 0001 も Haskell で書いてみました。

import Data.List (sortBy)

main :: IO ()
main = interact $ unlines . map show . top 3 . map (read :: String -> Int) . lines

top :: Ord a => Int -> [a] -> [a]
top n = take n . sortBy (flip compare)
これだけです。

スポンサーサイト
コメント















 管理者にだけ表示を許可する

トラックバック
 
http://rexpit.blog29.fc2.com/tb.php/57-7a5e7a0e
最新記事
最新コメント
FC2カウンタ
欲しい
最近買ったもの
Amazon 検索
 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。