Skip to content

Instantly share code, notes, and snippets.

@jloy

jloy/lex-gen-fixed.hs

Created June 20, 2011 05:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jloy/1035161 to your computer and use it in GitHub Desktop.
Save jloy/1035161 to your computer and use it in GitHub Desktop.
Download ZIP
Spoilers!
Raw
lex-gen-fixed.hs
-- http://codegolf.stackexchange.com/questions/2862/shortest-lexicographically-smallest-generating-string/2868#2868
import Data.List
f z q=concat$replicate(length z)q
main=interact(\z->minimum$filter(\q->isInfixOf z$f z q)$sort$filter(not.null)$inits=<<tails z)
Raw
lex-gen-orig.hs
-- Original version in 91 chars.
import Data.List
main=interact(\z->minimum$filter(\q->isInfixOf z$q++q++q)$inits=<<tails z)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment