結果
| 問題 | No.67 よくある棒を切る問題 (1) |
| ユーザー |
 aimy
|
| 提出日時 | 2017-05-17 15:11:20 |
| 言語 | Haskell (9.8.2) |
| 結果 |
TLE
|
| 実行時間 | - |
| コード長 | 587 bytes |
| コンパイル時間 | 8,943 ms |
| コンパイル使用メモリ | 181,144 KB |
| 実行使用メモリ | 43,904 KB |
| 最終ジャッジ日時 | 2024-09-17 12:48:33 |
| 合計ジャッジ時間 | 20,614 ms |
|
ジャッジサーバーID （参考情報） |
judge5 / judge1 |
（要ログイン）
テストケース
テストケース表示| 入力 | 結果 | 実行時間 実行使用メモリ |
|---|---|---|
| testcase_00 | TLE | - |
| testcase_01 | -- | - |
| testcase_02 | -- | - |
| testcase_03 | -- | - |
| testcase_04 | -- | - |
| testcase_05 | -- | - |
| testcase_06 | -- | - |
| testcase_07 | -- | - |
| testcase_08 | -- | - |
| testcase_09 | -- | - |
| testcase_10 | -- | - |
| testcase_11 | -- | - |
| testcase_12 | -- | - |
| testcase_13 | -- | - |
| testcase_14 | -- | - |
| testcase_15 | -- | - |
| testcase_16 | -- | - |
| testcase_17 | -- | - |
| testcase_18 | -- | - |
| testcase_19 | -- | - |
| testcase_20 | -- | - |
| testcase_21 | -- | - |
| testcase_22 | -- | - |
| testcase_23 | -- | - |
| testcase_24 | -- | - |
| testcase_25 | -- | - |
| testcase_26 | -- | - |
| testcase_27 | -- | - |
| testcase_28 | -- | - |
| testcase_29 | -- | - |
| testcase_30 | -- | - |
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) [2 of 2] Linking a.out
ソースコード
import Data.Ratio import Text.Printf import Data.Maybe import qualified Data.ByteString.Char8 as B apply n f x = foldr ($) x (replicate n f) lmin = 0 lmax = 10e9 nbs = 100 main = do getLine ls <- map (fromIntegral . fst . fromJust . B.readInt) . B.words <$> B.getLine k <- readLn printf "%.12f" (yokuaru k ls) yokuaru :: Integer -> [Ratio Integer] -> Double yokuaru k ls = fromRational (fst (apply nbs (bsearch k ls) (1,(lmin,lmax)))) bsearch k ls (x,(xn,xx)) | cuts x ls < k = (x - (x-xn) / 2, (xn,x)) | otherwise = (x + (xx-x) / 2, (x,xx)) cuts x = sum . map (floor . (/x))