4
Добавление кортежей в pointfree
Какой самый короткий способ выразить функцию f(a,b)(c,d)=(a+c,b+d) в бессмысленной нотации? pointfree.io дает нам uncurry (flip flip snd . (ap .) . flip flip fst . ((.) .) . (. (+)) . flip . (((.) . (,)) .) . (+)) который с небольшим трудом может быть сокращен до uncurry$(`flip`snd).((<*>).).(`flip`fst).((.).).(.(+)).flip.(((.).(,)).).(+) для 76 …