Submission #966942
Source Code Expand
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE BangPatterns #-} import Control.Applicative import Control.Monad import Control.Arrow import Data.List import Data.Maybe import Data.Char import qualified Data.ByteString.Char8 as B import Text.Printf readInt = ( readLn :: IO Int ) readInts = map ( read :: String -> Int ) . words <$> getLine getList = map ( fst . fromJust . B.readInt ) . B.words <$> B.getLine which a b f = if f then a else b mp [ a, b ] = ( a, b ) main = do [ a, b, c ] :: [Double] <- map read . words <$> getLine printf "%.20f\n" $ ( b / a ) * c
Submission Info
Submission Time | |
---|---|
Task | A - SDカード |
User | torus711 |
Language | Haskell (GHC 7.10.3) |
Score | 100 |
Code Size | 597 Byte |
Status | AC |
Exec Time | 3 ms |
Memory | 508 KB |
Judge Result
Set Name | Sample | All | ||||
---|---|---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||||
Status |
|
|
Set Name | Test Cases |
---|---|
Sample | 00_example_01.txt, 00_example_02.txt |
All | 00_example_01.txt, 00_example_02.txt, 10_rand_01.txt, 10_rand_02.txt, 10_rand_03.txt, 10_rand_04.txt, 10_rand_05.txt, 10_rand_06.txt, 20_hand_01.txt, 20_hand_02.txt |
Case Name | Status | Exec Time | Memory |
---|---|---|---|
00_example_01.txt | AC | 3 ms | 508 KB |
00_example_02.txt | AC | 3 ms | 508 KB |
10_rand_01.txt | AC | 3 ms | 508 KB |
10_rand_02.txt | AC | 3 ms | 508 KB |
10_rand_03.txt | AC | 3 ms | 508 KB |
10_rand_04.txt | AC | 3 ms | 508 KB |
10_rand_05.txt | AC | 3 ms | 508 KB |
10_rand_06.txt | AC | 3 ms | 508 KB |
20_hand_01.txt | AC | 3 ms | 508 KB |
20_hand_02.txt | AC | 3 ms | 508 KB |