提出 #2350323

ソースコード 拡げる

import Data.Function
import Data.List

f :: Int -> [Int] -> Int
f x as = (min `on` length) ss ls
  where (ss,ls) = span (< x) as

main = do
  [_,_,x] <- (map read . words) <$> getLine
  as <- (map read . words) <$> getLine
  print $ f x as

提出情報

提出日時
問題 B - Toll Gates
ユーザ wawktk2525
言語 Haskell (GHC 7.10.3)
得点 200
コード長 249 Byte
結果 AC
実行時間 2 ms
メモリ 892 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 200 / 200
結果
AC × 3
AC × 14
セット名 テストケース
Sample sample1.txt, sample2.txt, sample3.txt
All sample1.txt, sample2.txt, sample3.txt, 1.txt, 2.txt, 3.txt, 4.txt, 5.txt, 6.txt, 7.txt, 8.txt, sample1.txt, sample2.txt, sample3.txt
ケース名 結果 実行時間 メモリ
1.txt AC 2 ms 636 KiB
2.txt AC 2 ms 636 KiB
3.txt AC 2 ms 508 KiB
4.txt AC 2 ms 508 KiB
5.txt AC 2 ms 508 KiB
6.txt AC 2 ms 636 KiB
7.txt AC 2 ms 508 KiB
8.txt AC 2 ms 892 KiB
sample1.txt AC 1 ms 508 KiB
sample2.txt AC 1 ms 508 KiB
sample3.txt AC 1 ms 508 KiB