Submission #8398480

---

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(+ i 1))
	(while(and(<= j n)(< j 6))
		(tree-map-put! tm(substring s 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