[Haskell] CodeWars|Your order, please

https://www.codewars.com/kata/55c45be3b2079eccff00010f/haskell

题目翻译

你的任务是排序给定的一个句子。句子里每个单词会包含一个一位的数字(1-9，1表示第一个单词)，这个数字表示这个单词最后在句子里的位置。

如果输入的句子空，那么返回一个空的字符串。

样例

输入”is2 Thi1s T4est 3a”
返回”Thi1s is2 3a T4est”

题解

显然，我们先分解字符串，然后按照单词内的数字排序，再合成句子就可以了。

但是这也能写的很高端。。

以下是我的垃圾代码。。

import Data.List
import Data.Char

getOrder :: String -> Char
myzip :: [String] -> [(Char, String)]
yourOrderPlease :: String -> String


getOrder = head . filter isDigit
myzip = map (\x -> (getOrder x, x))
yourOrderPlease s = unwords (map snd (sort (myzip (words s))))

了解了sortBy，compare和comparing后。。。

import Data.Char
import Data.List

yourOrderPlease :: String -> String
yourOrderPlease = unwords . sortBy (comparing $ find isNumber) . words