jloy

## 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)
	-- 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)