Submission #8398524

---

Source Code Expand

(define(xs x)(x->string x))
(define(sr s i)(string-ref s i))
(define(sl s)(string-length s))
(define s(x->string(read)))
(define k(-(read)1))
(define tm(make-tree-map string=? string<?))
(define n(string-size s))
(define j 0)
(dotimes(i n)
	(set! j 1)
	(while(and(< j 6)(<=(+ i j)n))
		(tree-map-put! tm(substring s i(+ i j))0)
		(when(=(tree-map-num-entries tm)6)(tree-map-pop-max! tm))
        (inc! j)
	)
)
(dotimes(i k)(tree-map-pop-min! tm))
(print(car(tree-map-pop-min! tm)))

Submission Info

Judge Result