Post History
#1: Initial revision
# [Haskell], 25 bytes <!-- language-all: lang-hs --> f a=(>>= \c->map(min c)a) [Try it online!][TIO-kssu0zqm] [Haskell]: https://www.haskell.org/ [TIO-kssu0zqm]: https://tio.run/##XY5bCoMwEEX/u4qLXwa0ksR@6g66graUKEqlKuID7OrtxCZqegl5zDkZ5qWGd1HXy1JCJX6aJrjnYdqozm@qFjlTbGkU3RJQ7foE/K6v2hFnTG0@9f0HJcNYDONwWnckJ@AG3/MCeB6DSRiCnoQCg7iQhjqIi@M/B61EOkhYdtEsdlhsWRRpGNHBLIvWWGGmaIV2ZoTZxB3LzrwqnHPBxS5Ibags33pQ6beso@HeZWsihJT/zrGPomSZrpDzWL4 "Haskell – Try It Online"