用autoit3做计算题

一直以为自己的数学不错，这当然和读书时期N多试卷成绩有关。

一直也以为自己统计也不错的，虽然不是专修。

但事实上，一道很简单的数学题一样无解。

题目：

6位数中由无重复数字组成的数字有哪些？

第一反应：少于100万。

第二反应：10*9*8*7*6*5

第三反应：不对啊比如说012345这样的数字其实不是6位数……* *||

那你认为一共有多少？

答案是：136080。

计算过程如下：

$file = FileOpen("test.txt", 1)

$A=1

$B=0

$C=0

$D=0

$E=0

$F=0

while $A<10

$B=0

while $B<10

IF $B=$A then

$B=$B+1

ContinueLoop

ENDIF

$C=0

while $C<10

IF $C=$A or $C=$B then

$C=$C+1

ContinueLoop

ENDIF

$D=0

while $D<10

IF $D=$A or $D=$B or $D=$C then

$D=$D+1

ContinueLoop

ENDIF

$E=0

while $E<10

IF $E=$A or $E=$B or $E=$C or $E=$D then

$E=$E+1

ContinueLoop

ENDIF

$F=0

while $F<10

IF $F<>$A and $F<>$B and $F<>$C and $F<>$D and $F<>$E then

$X=100000*$A+10000*$B+1000*$C+100*$D+10*$E+$F

FileWrite($file,$X & " ")

ENDIF

$F=$F+1

WEnd

$E=$E+1

WEnd

$D=$D+1

WEnd

$C=$C+1

WEnd

$B=$B+1

WEnd

$A=$A+1

WEnd

FileClose($file)

以上是autoit3的脚本。但计算完成了吗？不，还没有。

最后要做的是打开test.txt文件，数数一共有多少行？

= =||

决定今年要学会一种语言，当然不是autoit3。目标1能看懂程序，二能用它处理简单的事情。虽然autoit3似乎也够用了……