結果
問題 | No.105 arcの六角ボルト |
ユーザー | ducktail |
提出日時 | 2018-09-06 15:34:01 |
言語 | Haskell (9.8.2) |
結果 |
RE
|
実行時間 | - |
コード長 | 406 bytes |
コンパイル時間 | 5,202 ms |
コンパイル使用メモリ | 162,692 KB |
実行使用メモリ | 69,428 KB |
最終ジャッジ日時 | 2023-08-14 09:03:43 |
合計ジャッジ時間 | 1,835 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge11 |
(要ログイン)
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.6.1/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
import Control.Applicative import Control.Monad main :: IO () main = do n <- readLn solve <$> replicateM n (getLine >> replicateM 6 f) >>= mapM_ print where f = map read <$> words <$> getLine solve :: [[[Double]]] -> [Double] solve = map f where f = minimum . filter (> 0) . map ang . filter (\[x, y] -> x < 0 && y > 0) ang :: [Double] -> Double ang [x, _] = 180.0 * acos x / pi - 120.0