к
Size: a a a
[
[
[
[
O

let sq = join (*); l = [1..100]; ms = sq . sum; sm = sum . map sq; taskSix = ms l - sm l(что проще - шутка)
c
[
let sq = join (*); l = [1..100]; ms = sq . sum; sm = sum . map sq; taskSix = ms l - sm l(что проще - шутка)

[

IR
c
sum . map это foldMapc
via так и не доработали расширение. Тогда бы вообще красиво было!0
0
0
Ty, который можно было бы использовать как Ty '[ 1, 2, 3]