Submission #9628302

Source Code Expand

import           Control.Monad
import qualified Data.ByteString.Char8 as BS
import           Data.Char
import           Data.Maybe
import qualified Data.Vector           as V

readInt = fst . fromJust . BS.readInt
readIntList = map readInt . BS.words
getInt = readInt <$> BS.getLine
getIntList = readIntList <$> BS.getLine

getIntVec n = V.unfoldrN n (BS.readInteger . BS.dropWhile isSpace) <$> BS.getLine

main = do
  n <- getInt
  as <- getIntVec n
  let m = V.foldr lcm 1 as
      as' = V.map (\i -> m `div` i) as
  print $ (sum as') `mod` 1000000007

Submission Info

Submission Time
Task E - Flatten
User unnohideyuki
Language Haskell (GHC 7.10.3)
Score 500
Code Size 571 Byte
Status AC
Exec Time 380 ms
Memory 8572 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 500 / 500
Status
AC × 3
AC × 18
Set Name Test Cases
Sample sample_01, sample_02, sample_03
All hand_01, hand_02, hand_03, max_01, max_02, max_03, max_04, random_01, random_02, random_03, random_04, random_05, random_06, random_07, random_08, sample_01, sample_02, sample_03
Case Name Status Exec Time Memory
hand_01 AC 2 ms 380 KiB
hand_02 AC 2 ms 380 KiB
hand_03 AC 2 ms 380 KiB
max_01 AC 164 ms 8572 KiB
max_02 AC 380 ms 7548 KiB
max_03 AC 9 ms 3452 KiB
max_04 AC 8 ms 3452 KiB
random_01 AC 3 ms 1020 KiB
random_02 AC 51 ms 6524 KiB
random_03 AC 54 ms 6524 KiB
random_04 AC 7 ms 2428 KiB
random_05 AC 91 ms 7548 KiB
random_06 AC 24 ms 4988 KiB
random_07 AC 6 ms 3324 KiB
random_08 AC 3 ms 1020 KiB
sample_01 AC 2 ms 380 KiB
sample_02 AC 2 ms 380 KiB
sample_03 AC 2 ms 380 KiB