聚会时和同学一起想的规则,后来做成人机对战的了,写了三个版本,delphi版的弄出来后就没在改过,代码很烂,还有c版和lisp版.链接2楼

lisp版链接:hi.baidu.com/yjqww6/item/e145a5eb2e0aed19585dd88a
c版:hi.baidu.com/yjqww6/item/92b33eebc2affabd2f140b8a
高亮的c:paste.ubuntu.com/1269138/
lisp:paste.ubuntu.com/1269137/

示例
lisp:
[1]> (main)
Game Start
Turn 2 C: Num: 1 Sum: 3
(5 9 1 2 3 4 5 6 7 8 9 10 11 12 13)
>1
Incorrect input
(5 9 1 2 3 4 5 6 7 8 9 10 11 12 13)
>4
Turn 3 A: Num: 1 Sum: 4
Turn 4 B: Num: 1 Sum: 5
Turn 5 C: Num: 1 Sum: 6
(5 9 1 2 3 5 6 7 8 9 10 11 12 13)
>2 7
Turn 6 A: Num: 2 Sum: 9
Turn 7 B: Num: 2 Sum: 10
Turn 8 C: Num: 2 Sum: 11
(5 9 1 3 5 6 8 9 10 11 12 13)
>a
Turn 9 A: Num: 1 Sum: 12
Turn 10 B: Num: 1 Sum: 13
Turn 11 C: Num: 2 Sum: 14
(5 9 1 3 5 6 8 9 10 11 13)
>l
(5 9 1 3 5 6 8 9 10 11 13)
(5 9 1 3 5 6 8 9 10 11 13)
>lb
(7 3 1 2 3 7 8 9 10 11 12)
(5 9 1 3 5 6 8 9 10 11 13)
>lc
(12 13 1 2 8 10 11 12 13)
(5 9 1 3 5 6 8 9 10 11 13)
>r
Game Start
(6 1 1 2 3 4 5 6 7 8 9 10 11 12 13)
>q
NIL
[2]>
c:
yjqww6@:~/live/ccg$./ccg
Turn 1: B Sum: 1 Num: 1
Turn 2: C Sum: 2 Num: 1
Rest:
A: 1 2 3 4 5 6 7 8 9 10 11 12 13 5 12
>3
Turn 3: A Sum: 3 Num: 2
Turn 4: B Sum: 4 Num: 1
Turn 5: C Sum: 5 Num: 1
Rest:
A: 3 4 5 6 7 8 9 10 11 12 13 5 12
>2 4
Incorrect Cards
>4 6
Turn 6: A Sum: 3 Num: 2
Turn 7: B Sum: 5 Num: 1
Turn 8: C Sum: 6 Num: 1
Rest:
A: 4 5 6 7 8 9 10 11 12 13 5 12
>a
Turn 9: A Sum: 7 Num: 1
Turn 10: B Sum: 8 Num: 1
Turn 11: C Sum: 9 Num: 1
>l
A: 4 5 6 8 9 10 11 12 13 5 12
>l1
B: 2 3 6 7 9 10 11 12 13 1 11
>l2
C: 1 3 4 7 8 10 11 12 13 6 4
>r
Turn 1: B Sum: 1 Num: 1
Turn 2: C Sum: 2 Num: 1
Rest:
A: 1 2 3 4 5 6 7 8 9 10 11 12 13 5 7
>q
yjqww6@:~/live/ccg$


很高端的样子，有空去看看→_→