/ minimum window substring

s:{,/{(!#x)_\:x}'!:'!1+#x}
f:{r c?&/c:#:'r@:&&/'y _lin/:r:x s x}

"BANC"~f["ADOBECODEBANC"]"ABC"
(,"a")~f[,"a";,"a"]