如何用点自由的方式来写这个函数呢?

I'm just looking to make general improvements to my Haskell code, and was wondering if the following function could be made point-free? Mostly for curiosity's sake.I'm just looking to make general improvements t