AP
Ещё свёртка нужна.
f <$> [1,2,3] <*> [1,2,3] <*> [1,2,3] - это только генерация вариантовSize: a a a
2018 June 25
AP
AV
fold Sum $ ..
AP
AP
Но там не просто сумма
AP
сначала будет map
AV
вместо многоточия то, что я выше написал
AP
Ну да
AV
ну просто sum конечно, что выпендриваться..
PM
парни, помедленнее, я записываю 🙂 На самом деле уже немного запутался с учётом всех дополнений, если не сложно, можете написать целиком?
AV
так, давай наиболее просто объясню, есть novice friendly вариант
AP
sum [ let s = x + y + z in s * s
| x <- [1..n]
, y <- [1..n]
, z <- [1..n] ]AV
да, вот вариант выше самый добрый
AV
я бы правда s не вводил через let
PM
так, но где здеcь
m?AV
параметром передать, оно тут n
AP
так, но где здеcь
m?Т.е. вложенность произвольная?
PM
так у меня два параметра должно быть:
n и mPM
да, вложенность произвольная
AP
Тогда генерацию пермутаций можно выразить рекурсивно. А дальше опять же свёртка