結果
問題 |
No.394 ハーフパイプ(1)
|
ユーザー |
|
提出日時 | 2025-09-28 00:41:30 |
言語 | Standard ML (MLton 20210117) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 523 bytes |
コンパイル時間 | 3,202 ms |
コンパイル使用メモリ | 689,788 KB |
実行使用メモリ | 7,720 KB |
最終ジャッジ日時 | 2025-09-28 00:41:35 |
合計ジャッジ時間 | 4,242 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 11 |
ソースコード
fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val s_s = List.tabulate (6, fn _ => readInt ()) val (sum, min, max) = List.foldl (fn (s, (sumAcc, minAcc, maxAcc)) => (sumAcc + s, Int.min (s, minAcc), Int.max (s, maxAcc))) (0, 100, 0) s_s val ans = Real.fromInt (sum - min - max) / 4.0 in print ((Real.fmt (StringCvt.FIX (SOME 2)) ans) ^ "\n") end