Skip to content

Instantly share code, notes, and snippets.

@lumie1337

lumie1337/better.hs

Created June 23, 2020 18:55
Show Gist options
  • Save lumie1337/a1b7cb392ace427c6756dbcf5c5eb2ff to your computer and use it in GitHub Desktop.
Save lumie1337/a1b7cb392ace427c6756dbcf5c5eb2ff to your computer and use it in GitHub Desktop.
Download ZIP
Raw
better.hs
import Data.List
import Data.Char
main=interact$unlines.map(\x->case x of[]->"NONE";(x:_)->[x]).sortOn toLower.filter(`elem`"aeiouAEIOU")).tail.lines
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment