結果

問題 No.35 タイパー高橋
コンテスト
ユーザー highd
提出日時 2016-08-21 12:06:19
言語 Haskell
(9.10.1)
結果
AC  
実行時間 9 ms / 5,000 ms
コード長 634 bytes
コンパイル時間 8,102 ms
コンパイル使用メモリ 224,692 KB
実行使用メモリ 8,576 KB
最終ジャッジ日時 2024-11-07 22:24:31
合計ジャッジ時間 8,597 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 4
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )

Main.hs:14:1: warning: [GHC-94817] [-Wtabs]
    Tab character found here, and in 15 further locations.
    Suggested fix: Please use spaces instead.
   |
14 |         let 
   | ^^^^^^^^

Main.hs:24:66: warning: [GHC-47082] [-Woperator-whitespace-ext-conflict]
    The prefix use of a ‘$’ would denote an untyped splice
      were the TemplateHaskell extension enabled.
    Suggested fix: Add whitespace after the ‘$’.
   |
24 |         let (good,miss) =(getSum***getSum) $ foldMap (Sum***Sum) $fmap parse list
   |                                                                  ^
[2 of 2] Linking a.out

ソースコード

diff # 

import qualified Data.Text as T
import qualified Data.Text.IO as TI
import Control.Applicative hiding (empty)
import Control.Arrow
import Data.Monoid
import Data.Foldable

readLines = sequence.flip replicate TI.getLine

readInt::String->Int
readInt=read

parse (x:y:[]) = 
	let 
		len=length y
		time=readInt x
		num=12*time `div` 1000
		miss=if num < len then len-num else 0
		num_=if num < len then num else len
	in (num_,miss)
main = do
	m <- readInt<$>getLine
	list <-fmap (fmap (T.unpack).T.split(==' '))<$>readLines m
	let (good,miss) =(getSum***getSum) $ foldMap (Sum***Sum) $fmap parse list
	putStrLn$show good++" "++show miss
0