洛谷 P2104 二进制

洛谷 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 10
1101
*/-*-*-/*/

输出样例#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
:=chr(ord(s
)+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
:=chr(ord(s
)-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.