Submission #4060215

---

Source Code Expand

program main
implicit None
	integer::n,k,i,j,p
	character(len=100)::s,u,w
	character(len=1)::t
	
	read*,n,k
	read*,s
	w = s
	
	do i = 1,n-1
		u = s
		t = s(i:i)
		do j = i+1,n
			if(s(j:j) < t)then
				t = s(j:j)
				p = j
			endif
		enddo
		if(t == s(i:i))cycle
		s(p:p) = s(i:i)
		s(i:i) = t
		
		p = 0
		do j = 1,n
			if(s(j:j) /= w(j:j)) p = p+1
		enddo
		
		if(p > k) s = u
	enddo
	
	print "(a)",trim(s)
end program main

Submission Info

Judge Result