freedomain/sorti.hs


1
2
3
4
5
6
7

#!/usr/bin/env stack
-- stack --resolver lts-12.5 script

import Data.List
import Data.Function

main = interact $ unlines . sortBy (compare `on` length) . lines