用一行代码把0变1，把1变0

lanfengc · 发表于 2010-7-8 13:57:41

$Input=Int(InputBox("",""))
MsgBox(0,"一行",Number(Binary(Not($Input))))

shypro2009 · 发表于 2010-7-8 21:40:56

msgbox(0,"flip",mod(10^InputBox("input here","1 or 0"),10))

pusofalse · 发表于 2010-7-8 21:54:59

题意没说清楚啊，到底是将字符串中的0、1互换，还是将数字按照比特位互换啊？

shypro2009 · 发表于 2010-7-8 22:00:43

回复 18# pusofalse

个人理解就是 input=1, output=0; output=0, input=1
y=kx+b 带入（0，1）和（1，0）=> y=-x+1

即：
msgbox(0,"flip",-InputBox("input here","1 or 0")+1)

风行者 · 发表于 2010-7-8 23:28:04

没事来看看

风行者 · 发表于 2010-7-8 23:40:23

本帖最后由风行者于 2010-7-9 00:02 编辑

直接计算

$a = 1-$a

再来一个

$a = BitOR($a,1)*(1-$a)

seniors · 发表于 2010-7-10 07:58:15

我看看题目清楚先，不过不管是数字还是字符串
看到前面几位把0变为2,1变为3等方法肯定不行
这里没说本来的数字只有0和1啊

3mile · 发表于 2010-7-10 09:18:51

我看看题目清楚先，不过不管是数字还是字符串
看到前面几位把0变为2,1变为3等方法肯定不行
这里没说本来的 ...
seniors 发表于 2010-7-10 07:58

$number="sf10ty1assefd011ffdfdssdew0iier1"
MsgBox(0,'一行完成',StringReplace(StringReplace(StringReplace($number,'0','为什么字符串不能变成2'),'1','0'),'为什么字符串不能变成2','1'))

seniors · 发表于 2010-7-10 19:57:04

3mile 发表于 2010-7-10 09:18

假如字符串中本来有2的话呢？
那不是也会把本来的2改成1

3mile · 发表于 2010-7-10 22:17:15

回复 25# seniors
难道你不会变通，24楼的代码你没看？

seniors · 发表于 2010-7-10 22:22:58

看了，这种字符替换的方法反正我不喜欢，用这方法必须事先知道字符串是什么样的，
你的24楼，如果事先不知道字符串，而字符串中刚好有“为什么字符串不能变成2'”，嘿

sxd · 发表于 2010-7-10 22:24:32

哥哥们 xxx(yyy(zzz())) 这也能算一行?

3mile · 发表于 2010-7-10 22:34:51

那应该算几行？

pheonix7276 · 发表于 2010-7-12 08:34:55

BitXOR($number,1)
辣椒龙发表于 2010-7-6 17:27

好代码

rikthhpgf2005 · 发表于 2010-7-12 09:04:48

帮助有字符串类

		自动登录	找回密码
密码			加入

[效率算法] 用一行代码把0变1，把1变0

浏览过的版块