比赛 20120419x 评测结果 AAWAAEEEEE
题目名称 BOB还是BBO 最终得分 40
用户昵称 wo shi 刘畅 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2012-04-19 16:38:12
显示代码纯文本
var
  t,n,time,i:longint;
  ans,s,now:ansistring;

function min(a,b:ansistring):ansistring;
var
  i:longint;
begin
  for i:=1 to n do
  begin
    if a[i]<b[i] then exit(a);
    if a[i]>b[i] then exit(b);
  end;
end;

begin
  assign(input,'bob.in'); reset(input);
  assign(output,'bob.out'); rewrite(output);
  readln(t);
  for time:=1 to t do
  begin
    readln(s);
    n:=length(s);
    ans:=s;
    for i:=2 to n do
    begin
      now:=copy(s,1,n-i+1);
      now:=copy(s,n-i+2,i-1)+now;
      ans:=min(ans,now);
    end;
    writeln(ans);
  end;
  close(input);
  close(output);
end.