結果

問題 No.944 煎っぞ!
ユーザー LeonardoneLeonardone
提出日時 2019-12-07 09:33:36
言語 Haskell
(9.8.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 406 bytes
コンパイル時間 5,046 ms
コンパイル使用メモリ 148,608 KB
最終ジャッジ日時 2024-06-06 21:09:40
合計ジャッジ時間 5,543 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default
[1 of 2] Compiling Main             ( Main.hs, Main.o )

Main.hs:5:1: error: [GHC-87110]
    Could not load module ‘Data.Set’.
    It is a member of the hidden package ‘containers-0.6.8’.
    Use -v to see a list of the files searched for.
  |
5 | import qualified Data.Set as S
  | ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ソースコード

diff # 

-- Try yukicoder 
-- author: Leonardone @ NEETSDKASU

import Data.List (find)
import qualified Data.Set as S

main = interact $ show . solve . map read . tail . words

solve xs = maybe 1 (div a) $ find f ys
    where
        a = sum xs
        ys = scanl1 (+) xs
        s = S.fromList ys
        f e = m == 0 && (all (flip S.member s) $ map (* e) [1..d])
            where (d, m) = divMod a e
0