結果
問題 | No.105 arcの六角ボルト |
ユーザー | はむ吉🐹 |
提出日時 | 2016-02-28 19:52:57 |
言語 | Haskell (9.8.2) |
結果 |
AC
|
実行時間 | 312 ms / 5,000 ms |
コード長 | 604 bytes |
コンパイル時間 | 5,630 ms |
コンパイル使用メモリ | 168,552 KB |
実行使用メモリ | 9,836 KB |
最終ジャッジ日時 | 2023-10-24 18:47:31 |
合計ジャッジ時間 | 6,107 ms |
ジャッジサーバーID (参考情報) |
judge13 / judge12 |
(要ログイン)
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.6.2/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
import Control.Applicative ((<$>)) import Control.Monad (replicateM, replicateM_) import Data.Complex (Complex(..), phase) import Data.List (sort) import Text.Printf (printf) toDeg :: Double -> Double toDeg = (/ pi) . (* 180) computeAngle :: [Complex Double] -> Double computeAngle = f . toDeg . (+ pi) . head . sort . map phase where f x = if x > 55.0 then 0.0 else x main :: IO () main = do t <- readLn replicateM_ t $ do _ <- getLine ps <- map ((\(x : y : _) -> x :+ y) . map read . words) <$> replicateM 6 getLine printf "%.16f\n" (computeAngle ps)