Submission #1817966

Source Code Expand

main = do
  input <- getContents
  let points = map (read :: String -> Double) . words $ input
  putStrLn $ show . solve . move $ points

move :: [Double] -> [Double]
move x = 0:0:[(x!!2) - (x!!0), (x!!3) - (x!!1), (x!!4) - (x!!0), (x!!5) - (x!!1)]

solve :: [Double] -> Double
solve x = (flip (/)) 2.0 . abs $ (x!!2) * (x!!5) - (x!!3) * (x!!4)

Submission Info

Submission Time
Task A - 正直者
User amanuko
Language Haskell (GHC 7.10.3)
Score 0
Code Size 355 Byte
Status RE
Exec Time 1 ms
Memory 508 KB

Judge Result

Set Name all
Score / Max Score 0 / 100
Status
RE × 27
Set Name Test Cases
all 00_sample_01.txt, 00_sample_02.txt, kensho_diff01, kensho_diff02, kensho_diff03, kensho_diff04, kensho_diff05, kensho_min-max01, kensho_min-max02, kensho_min-max03, kensho_min-max04, kensho_min-max05, kensho_min-max06, kensho_min-max07, kensho_min-max08, kensho_min-max09, kensho_min-max10, kensho_rand01, kensho_rand02, kensho_rand03, kensho_rand04, kensho_rand05, kensho_rand06, kensho_rand07, kensho_rand08, kensho_rand09, kensho_rand10
Case Name Status Exec Time Memory
00_sample_01.txt RE 1 ms 508 KB
00_sample_02.txt RE 1 ms 508 KB
kensho_diff01 RE 1 ms 508 KB
kensho_diff02 RE 1 ms 508 KB
kensho_diff03 RE 1 ms 508 KB
kensho_diff04 RE 1 ms 508 KB
kensho_diff05 RE 1 ms 508 KB
kensho_min-max01 RE 1 ms 508 KB
kensho_min-max02 RE 1 ms 508 KB
kensho_min-max03 RE 1 ms 508 KB
kensho_min-max04 RE 1 ms 508 KB
kensho_min-max05 RE 1 ms 508 KB
kensho_min-max06 RE 1 ms 508 KB
kensho_min-max07 RE 1 ms 508 KB
kensho_min-max08 RE 1 ms 508 KB
kensho_min-max09 RE 1 ms 508 KB
kensho_min-max10 RE 1 ms 508 KB
kensho_rand01 RE 1 ms 508 KB
kensho_rand02 RE 1 ms 508 KB
kensho_rand03 RE 1 ms 508 KB
kensho_rand04 RE 1 ms 508 KB
kensho_rand05 RE 1 ms 508 KB
kensho_rand06 RE 1 ms 508 KB
kensho_rand07 RE 1 ms 508 KB
kensho_rand08 RE 1 ms 508 KB
kensho_rand09 RE 1 ms 508 KB
kensho_rand10 RE 1 ms 508 KB