perl -le'$#a=$d=pop;sub r{int rand 9}while($c<$d){$c++if$a[$c]==r;@a[$
+c..$d]=(r)x$d;print@a}' 10
[download]

Well, that displays each "guess" on a line. Making that into one line adds some chars - 97:

perl -e'$#a=$d=pop;sub r{int rand 9}while($c<$d){$c++if$a[$c]==r;@a[$c
+..$d]=(r)x$d;print@a,"\r"}print$/' 10
[download]

But then, it's so fast you won't see the iterations... slowing down takes more chars (often seen in perl ;-)

perl -e'$#a=$d=pop;sub r{int rand 9}while($c<$d){$c++if$a[$c]==r;for(0
+..1e4){@a[$c..$d]=(r)x$d;print@a,"\r"}}print$/' 10
[download]

110 chars... I'm sure that can be reduced.