Xiao伟
发表于 2012-1-17 19:21:21
那帖子很纠结...
mobibi
发表于 2012-2-1 12:24:42
看看答案是什么
sunkiss
发表于 2012-2-2 01:03:00
回帖看看自己能不能行
3mile
发表于 2012-11-8 11:11:07
参考下大神思路.
annybaby
发表于 2012-11-8 18:53:50
找不到突破口,看看高手思路~
魔导
发表于 2012-11-9 06:54:44
凑个热闹 看看大神又出什么了
1007236046
发表于 2012-11-10 23:55:19
这个只会用暴力了
#include <array.au3>
Local $array,$result=
For $array =1 To 4
For $array =1 To 4
For $array =1 To 4
For $array = 1 To 4
For $array =1 To 4
For $array =1 To 4
For $array =1 To 4
For $array =1 To 4
For $array =1 To 4
For $array =1 To 4
If hs1() And hs2() And hs4() And hs5() And hs6() And hs7() And hs8() And hs9() And hs10() Then
$result+=1
ReDim $result[$result]
$result[$result -1]=$array&","&$array&","&$array&","&$array&","&$array&","&$array&","&$array&","&$array&","&$array&","&$array
EndIf
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
_ArrayDisplay($result)
Func hs1()
Local $i,$count=0
For $i=0 To 9
If $array[$i] = 1 Then $count+=1
Next
If $count < 6 And $count > 1 Then Return 1
Return 0
EndFunc
Func hs2()
Local $i,$count=0
For $i=0 To 8
If $array[$i] = 1 And $array[$i+1] =2 Then $count+=1
Next
If $count = $array Then Return 1
Return 0
EndFunc
Func hs4()
If $array + $array = 5 Then Return 1
Return 0
EndFunc
Func hs5()
If $array = $array Or $array = $array Or $array = $array Or $array = $array And $array+$array+$array+$array = 10 Then Return 1
Return 0
EndFunc
Func hs6()
Local $i ,$count=0
For $i = 0 To 7
If $array[$i] = 3 And $array[$i+1] = 3 And $array[$i+2] = 3 Then $count+=1
Next
If $count = 4 - $array Then Return 1
Return 0
EndFunc
Func hs7()
If $array=$array Then Return 1
Return 0
EndFunc
Func hs8()
If $array = $array Or $array = $array Or $array = $array Or $array = $array And $array+$array+$array+$array = 10 Then Return 1
Return 0
EndFunc
Func hs9()
Switch $array+$array+$array+$array+$array
Case 7
If $array = 1 Then Return 1
Return 0
Case 10
If $array = 2 Then Return 1
Return 0
Case 13
If $array = 3 Then Return 1
Return 0
Case 16
If $array = 4 Then Return 1
Return 0
Case Else
Return 0
EndSwitch
EndFunc
Func hs10()
Switch $array+$array+$array+$array+$array
Case 4
If $array = 1 Then Return 1
Return 0
Case 7
If $array = 2 Then Return 1
Return 0
Case 10
If $array = 3 Then Return 1
Return 0
Case 13
If $array = 4 Then Return 1
Return 0
Case Else
Return 0
EndSwitch
EndFunc
lxwlxwayy
发表于 2012-12-8 20:03:05
看看是什么题目
txen548
发表于 2012-12-10 13:11:04
学习一下,看看会吗。
yigao
发表于 2013-11-12 23:39:34
必须要看看
netsmu
发表于 2013-11-13 21:45:39
看看啊。是什么呢。
wInkly_cc
发表于 2013-12-5 16:38:08
回了再看OO
rogerabc
发表于 2014-1-7 01:04:14
看看是啥 题目这么给力
oceanwind
发表于 2014-12-29 10:06:28
看看,自己的能力到哪
sh1536
发表于 2015-1-4 08:45:35
回复 1# kn007
这个可以有