Wild Number (Standard IO)

最新推荐文章于 2024-08-22 11:08:29 发布

原创最新推荐文章于 2024-08-22 11:08:29 发布 · 229 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一种算法，用于计算大于给定整数X且符合特定模式WildNumber的数的数量。WildNumber是一种包含数字和问号的字符串，通过匹配过程找到符合条件的数。

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

题意/Description:

Wild Number是一个有数字和问号组成的字符串（例如36?1?8）。一个数字与一个Wild Number匹配，当且仅当它们长度相等且不是问号的位置上对应相等。例如365198匹配36?1?8，但360199,361028,36128都不匹配。

读入/Input：

输入有相同长度的两行，第一行表示Wild Number，第二行一个整数X，X无前导零。数字长度在1-10之间。

输出/Output：

输出大于X且匹配Wild Number的n位数有多少个。（n是Wild Number的长度.）

题解/solution：

第一，这是一个数，只要第一位数大（题目说位数相同），这个数肯定大，即后面的“？”随便取。第一位数相同，后面的数字大，这数大。......然后看程序吧。

点赞，点赞，点赞，点赞，点赞，点赞，点赞。

代码/Code：

var
  s1,s2:string;
  l,ans:longint;
  b:boolean;
procedure main;
var
  i,j,sum,k:longint;
begin
  l:=length(s1);
  k:=0; ans:=0;
  for i:=1 to l do
    if s1[i]='?' then inc(k);
  b:=true;
  for i:=1 to l do
    if s1[i]='?' then
      begin
        sum:=1;
        for j:=1 to k-1 do
          sum:=sum*10;
        if b then sum:=sum*(9-(ord(s2[i])-48)) else
          begin
            sum:=sum*10;
            write(ans+sum);
            halt;
          end;
        ans:=ans+sum;
        dec(k);
      end else
      begin
        if (s2[i]>s1[i]) and b then
          begin
            writeln(ans);
            halt;
          end;
        if s2[i]<s1[i] then b:=false;
      end;
end;

begin
  readln(s1);
  readln(s2);
  main;
  if not b then writeln(ans+1)
           else writeln(ans);
end.