MRAVI

最新推荐文章于 2020-11-28 22:46:30 发布

转载最新推荐文章于 2020-11-28 22:46:30 发布 · 80 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/godrose/p/9742161.html

本文介绍了一种模拟蚂蚁在特定路径上赛跑的算法。通过忽略蚂蚁转头的影响，简化了问题复杂度。代码中使用了长整型数组来记录蚂蚁的位置，并通过排序算法整理蚂蚁的最终位置。此算法适用于解决类似赛跑问题，特别是在路径长度有限制的情况下。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题面：

思路：

蚂蚁问题，转头可以忽略不计。模拟。

注意L从0开始计算。

代码：

var t,n,len,i:longint;
 a:array[0..100005] of longint;
  ch,rrr:char;

    procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;

begin

assign(input,'mravi.in');
reset(input);
assign(output,'mravi.out');
rewrite(output);

read(len,t,n);
t:=t mod (2*len);
for i:=1 to n do
 begin
  read(a[i]);
  read(rrr,ch);
  if ch='L' then
   begin
    if a[i]<t then
     begin
      a[i]:=t-a[i];
      if a[i]>len then a[i]:=len-(a[i]-len);
     end else a[i]:=a[i]-t;
   end;
  if ch='D' then
   begin
    if a[i]+t>len then
     begin
      a[i]:=len-(t-(len-a[i]));
      if a[i]<0 then a[i]:=a[i]*(-1);
     end else a[i]:=a[i]+t;
   end;
 end;

sort(1,n);

for i:=1 to n do write(a[i],' ');


close(input);close(output);
end.