wvogel00 https://blog.hatena.ne.jp/wvogel00/ wvogel日記 https://wvogel00.hatenadiary.org/ Haskell ttp://poj.org/problem?id=1852 にある、蟻の問題。（POJ,No.1852） どうやるのか思いつかなかったけど、解放読んだら感動したので書いてみた。 datalist :: Int -> String -> [Int] datalist n = map read.take n.words minf :: Int -> [Int] -> Int minf l = foldl max 0.map (\x->min x (l-x)) maxf :: Int -> [Int] -> Int maxf l = foldl max 0.map (\x->min l (l-x))… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwvogel00.hatenadiary.org%2Fentry%2F20110930%2F1317398402" title="ants - wvogel日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-09-30 01:00:02 rich https://wvogel00.hatenadiary.org/entry/20110930/1317398402 1.0 100%