エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
今年の素数日を計算してみる - Qiita
2012年の素数日は以前計算したのだが、今年2013年の素数日も計算してみる。 前のコード、コマンドライン... 2012年の素数日は以前計算したのだが、今年2013年の素数日も計算してみる。 前のコード、コマンドライン第1引数を年と解釈して計算するように仕様を変えた。 import Data.Time.Calendar import System (getArgs) isPrime n=not $ or $ map (\a->n `mod` a==0) $ takeWhile (\i->i*i<=n) [2..] primeDays y=map (\a->filter (/= '-') $ show a) $ takeWhile (< fromGregorian (y+1) 1 1) $ iterate (\d->addDays 1 d) $ fromGregorian y 1 1 main=do args<-getArgs case args of y:_ ->mapM_ (\a->putStrL