↑↑↓↓←→←→ⒷⒶ Войти !bnw Сегодня Клубы
Собираем сбалансированную 3S3P батарею из имеющихся банок: import Data.Function import Data.List import Data.List.Split main = interact $ show . doit . map (read :: String -> Double) . lines doit list = minimumBy (compare `on` snd) $ map (\x -> (x, eval3s x)) $ mk3s list mk3s :: [Double] -> [[[Double]]] mk3s list = map (chunksOf 3) $ permutations list eval3s :: [[Double]] -> Double eval3s list = let sums = map sum list in (maximum sums) - (minimum sums)
Рекомендовали: @l29ah_eto_pedikulez_bnwacha
#KWQD1J / @l29ah / 1018 дней назад

ipv6 ready BnW для ведрофона BnW на Реформале Викивач Котятки

Цоперайт © 2010-2016 @stiletto.