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

foboy · 发表于 2010-7-6 17:03:57

本帖最后由 foboy 于 2010-7-11 01:48 编辑

没事无聊了来凑凑热闹。
请问如何用一行代码改变一个1位数，如果是1就变成0，如果是0就变成1。
不能用条件、选择等语句。

xsjtxy · 发表于 2010-7-6 17:12:30

$i = "a0a0a0a0a0a0a0a0"
$i = StringReplace($i, "0","1")
msgbox(0,"",$i)
$i = StringReplace($i, "1","2")
msgbox(0,"",$i)
$i = StringReplace($i, "2","3")
msgbox(0,"",$i)

辣椒龙 · 发表于 2010-7-6 17:27:46

BitXOR($number,1)

没有知道 · 发表于 2010-7-6 17:34:22

看下

kk_lee69 · 发表于 2010-7-6 17:35:47

學習學習看看高手的代碼

没有知道 · 发表于 2010-7-6 17:47:58

我能想到就是这个不过不是一行

$a = "1010101010101010101"
$a = StringReplace($a,"0" , "3")
MsgBox(0,"",$a)
$a = StringReplace($a,"1" , "4")
MsgBox(0,"",$a)
$a = StringReplace($a,"3" , "1")
MsgBox(0,"",$a)
$a = StringReplace($a,"4" , "0")
MsgBox(0,"",$a)

shypro2009 · 发表于 2010-7-6 19:41:20

回复 3# 辣椒龙

犀利！

woeiwoei · 发表于 2010-7-6 19:57:27

呵呵有意思。。。

ferelove · 发表于 2010-7-6 20:06:15

学习一下3楼的

anchie · 发表于 2010-7-6 20:21:57

看看好好学习天天向上

jinyue115 · 发表于 2010-7-6 20:46:15

$number=0101101
$a=BitxOR($number,1)
MsgBox(1,"1",$a)

jinyue115 · 发表于 2010-7-6 20:47:42

abs也可以 LZ不失是个好办法

gto250 · 发表于 2010-7-6 20:50:05

看了再说！！

3mile · 发表于 2010-7-6 22:54:37

本帖最后由 3mile 于 2010-7-6 22:56 编辑

我也来试试只有一行的。
当然赋值行不能算
正则的办法：

$number=10101101
MsgBox(0,'一行完成',StringRegExpReplace(StringRegExpReplace(StringRegExpReplace($number,'0','2'),'1','0'),'2','1'))

非正则的办法

$number=10101101
MsgBox(0,'一行完成',StringReplace(StringReplace(StringReplace($number,'0','2'),'1','0'),'2','1'))

meteor1022 · 发表于 2010-7-7 04:15:41

看看先~~~~

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

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

相关帖子