LO
Там компрехеншоны быстрее работают
Size: a a a
2020 May 23
MK
офигеть сколько servant-swagger тянет
YS
Может кто подскажет как такое решать: Дан список чисел и функция
f :: Int -> Int -> Int. Необходимо найти такую пару чисел (a,b) в списке, что f a b максимально.R
Делаешь пандорический захват, лифтишь в монаду, потом строишь рекурсивную схему (здесь подойдёт зигохистоморфный препроморфизм) как монадический трансформер из категории эндофункторов, и метациклически вычисляешь результат. Любой второкурсник справится. А если делать на анафорических лямбдах — так задачка вообще на пять минут.
YS
Хм... 🧐
M
Yaroslav Seliverstov
Может кто подскажет как такое решать: Дан список чисел и функция
f :: Int -> Int -> Int. Необходимо найти такую пару чисел (a,b) в списке, что f a b максимально.Как вариант : [(y, x) | a <- as, b <- bs, let y = f a b, let x= (a,b)]. Дальше maximumBy (\(q,_) (w,_) -> compare q w) от полученного листа.
JS
Yaroslav Seliverstov
Может кто подскажет как такое решать: Дан список чисел и функция
f :: Int -> Int -> Int. Необходимо найти такую пару чисел (a,b) в списке, что f a b максимально.готовыми функциями можно пользоваться?
JS
а, все ответы уже написали
JS
Maxim
Как вариант : [(y, x) | a <- as, b <- bs, let y = f a b, let x= (a,b)]. Дальше maximumBy (\(q,_) (w,_) -> compare q w) от полученного листа.
не даёте человеку возможность научиться
JS
тогда пошли гольфить:
maximumOn (uncurry f) $ zip as bs
А
что за as, bs? исходный список в задаче один, вроде
JS
тогда
maximumOn (uncurry f)
YS
Maxim
Как вариант : [(y, x) | a <- as, b <- bs, let y = f a b, let x= (a,b)]. Дальше maximumBy (\(q,_) (w,_) -> compare q w) от полученного листа.
Спасибо! Первую часть я также сделал, а максимум не додумался как взять.
YS
С решением через монады ещё разбираюсь, я недавно Хаскелл изучаю. Не скажу, что он легко даётся)
