洛谷 P2104 二进制

---

题目

题目描述

小Z最近学会了二进制数，他觉得太小的二进制数太没意思，于是他想对一个巨大二进制数做以下 4 种基础运算：

运算 1：将整个二进制数加 1

运算 2：将整个二进制数减 1

运算 3：将整个二进制数乘 2

运算 4：将整个二进制数整除 2

小Z很想知道运算后的结果，他只好向你求助。

（Ps：为了简化问题，数据保证+，-操作不会导致最高位的进位与退位）

输入输出格式

输入格式：
第一行两个正整数 n，m，表示原二进制数的长度以及运算数。

接下来一行 n 个字符，分别为‘0’或‘1’表示这个二进制数。

第三行 m 个字符，分别为‘+’，‘-’，‘*’，‘/’，对应运算 1，2，3，4。

输出格式：
一行若干个字符，表示经过运算后的二进制数。

输入输出样例

输入样例#1：

4 101101*/-*-*-/*/

输出样例#1：

10110

说明

【数据规模和约定】

对于 30%的数据，1 ≤ n，m ≤ 1000。

对于 60%的数据，1 ≤ n，m ≤ 10^5。

对于 100%的数据，1 ≤ n，m ≤ 5*10^6。

---

题解

分治+字符串

‘+’:就把最后一个数+1，若变成了’2’那么就把它变成’0’并往前进位

‘-‘:就从最后一个数开始数起，直到遇到’1’为止，中途所遇的每个数都变成’1’

‘*’:在字符串末尾增加一个’0’

‘/’:将字符串最后一位删除

---

代码（Pascal）

var n,m:longint;    s,s1:ansistring; procedure init;  begin    readln(n,m);    readln(s);    readln(s1);   end; procedure main;  var i,t:longint;   begin     for i:=1 to m do      begin        if s1[i]='+' then         begin           s[n]:=chr(ord(s[n])+1);           t:=n;           while s[t]='2' do            begin              if t=0 then               begin                 if s[t]='2' then s[t]:='0';                 s:='1'+s;                 break;                end;              s[t]:='0';              s[t-1]:=chr(ord(s[t-1])+1);              dec(t);             end;          end else        if s1[i]='-' then         begin           s[n]:=chr(ord(s[n])-1);           t:=n;           while s[t]='/' do            begin              s[t]:='1';              s[t-1]:=chr(ord(s[t-1])-1);              dec(t);             end;          end else        if s1[i]='*' then s:=s+'0' else        if s1[i]='/' then delete(s,length(s),1);        n:=length(s);       end;    end; procedure print;  begin    writeln(s);   end; begin   init;   main;   print;  end.