未完成

原创

bruteforce_ 2021-07-12 17:21:50 ©著作权

©著作权归作者所有：来自51CTO博客作者bruteforce_的原创作品，请联系作者获取转载授权，否则将追究法律责任

第一题：楼层（floor）
暴力，把楼层数字拆分，如果与t相等，则ans– continue。水题来的。

代码：

var m,t,ans,s,i,fuck:longint;
    f:boolean;
begin
  assign(input,'floor.in');
  assign(output,'floor.out');
  reset(input);
  rewrite(output);
  read(m,t);
  for i:=1 to m do
  begin
    s:=i; f:=false;
    while s>0 do
    begin
      fuck:=s mod 10;
      if fuck=t then break;
      s:=s div 10;
      if s=0 then f:=true;
    end;
    if f then inc(ans);
  end;
  write(ans);
  close(input);
  close(output);
end.

第二题：朋友（friend）
将其中一种人排个序，枚举另一种人，对后者二分查找能力值恰好小于他的。

代码：

var a,b:array[-10..20011] of longint;
    i,ans,n,m,t:longint;
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 i:=i+1;
    while x<a[j] do j:=j-1;
    if not(i>j) then
    begin
      y:=a[i]; a[i]:=a[j]; a[j]:=y;
      i:=i+1; j:=j-1;
    end;
    until i>j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;
function f(x,l,r:longint):longint;
var s,mid:longint;
begin
  s:=0;
  while l<=r do
  begin
    mid:=(l+r) div 2;
    if x>a[mid] then begin s:=mid; l:=mid+1; end else r:=mid-1;
  end;
  exit(s);
end;
begin
  assign(input,'friend.in');
  assign(output,'friend.out');
  reset(input);
  rewrite(output);
  read(m,n);
  for i:=1 to m do read(b[i]); for i:=1 to n do read(a[i]); sort(1,n);
  ans:=0    ;
  for i:=1 to m do  ans:=ans+f(b[i],1,n);
  write(ans);
  close(input);
  close(output);
end.