Skip to content

Instantly share code, notes, and snippets.

@freeman42x

freeman42x/main.hs

Created June 24, 2020 19:10
Show Gist options
  • Save freeman42x/2d5bdd346a1e82a49a5c6ba02925829f to your computer and use it in GitHub Desktop.
Save freeman42x/2d5bdd346a1e82a49a5c6ba02925829f to your computer and use it in GitHub Desktop.
Download ZIP
Clash of Code shortest mode
Raw
main.hs
import Data.Char
import Data.Function
import Data.List
import Data.Maybe
main=interact$p
p s=fromJust$find(\z->((==)`on`(sort.map toLower)) z w)l
where(_:w:l)=lines s
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment