发牌小游戏

yjwht

;发牌排序游戏 假定有13张片A~K，发牌规则是将这一叠牌最上面的一张移到最下面，发出一张牌
;再将最上面一张移到最下面，再出一张牌，依此类推，直到所有的牌全部发完，要求牌按A~K的顺序发出
;请设计程序将牌排序

1. (defun c:tt()
   
2.   (setq list1 '(A 2 3 4 5 6 7 8 9 10 J Q K))
   
3.   (setq list1 (reverse list1))
   
4.   (setq list2 '())
   
5.   (while list1
   
6.     (setq list2 (cons (car list1) list2))
   
7.     (setq list2 (cons (car (reverse list2)) (reverse (cdr (reverse list2)))))
   
8.     (setq list1 (cdr list1))
   
9.   )
   
10.   (prin1 list2)
    
11.   (princ)
    
12. )

(defun c:tt()<br />   (setq list1 '(A 2 3 4 5 6 7 8 9 10 J Q K))<br />   (setq list1 (reverse list1))<br />   (setq list2 '())<br />   (while list1<br />     (setq list2 (cons (car list1) list2))<br />     (setq list2 (cons (car (reverse list2)) (reverse (cdr (reverse list2)))))<br />     (setq list1 (cdr list1))<br />   )<br />   (prin1 list2)<br />   (princ)<br /> )

执行结果：
(7 A Q 2 8 3 J 4 9 5 K 6 10)
我们依此类推，完整的一副牌该如何排序？如果往下移两张牌后出一张牌，又该如何排序？
可以给家里的小孩子玩这个游戏。

yjwht

动态显示一下

yjwht

凭着一股热情学习了几个月的lisp，但尴尬地发现在现实工作中几乎用不到这些。因此，不得不调整学习思路。
一方面，让需求来推动自己学习。另一方面，将lisp用到兴趣爱好或游戏中。比如这个：

1. (defun c:tt (/ v1 v2 v3 p1 p2 p3 i n)
   
2.   (setq v1 (getvar "osmode"))
   
3.   (setq v2 (getvar "cmdecho"))
   
4.   (setq v3 (getvar "blipmode"))
   
5.   (setq p1 '(0 0))
   
6.   (setvar "osmode" 0)
   
7.   (setvar "cmdecho" 0)
   
8.   (setvar "blipmode" 0)
   
9.   (setq  list1 (list "潮随暗浪雪山倾"
   
10.         "远浦渔舟钓月明"
    
11.         "桥对寺门松径小"
    
12.         "槛当泉眼石波清"
    
13.         "迢迢绿树江天晓"
    
14.         "霭霭红霞海日睛"
    
15.         "遥望四边云接水"
    
16.         "碧峰千点数鸿轻"
    
17.        )
    
18.   )
    
19.   (command "zoom"
    
20.      (list -10 -10)
    
21.      (list 210 85)
    
22.   )
    
23.   (command "style" "hwfs" "华文仿宋" "0" "1.0" "0" "N" "N")
    
24.   (setq  i 0
    
25.   n 0
    
26.   )
    
27.   (while (< i 8)
    
28.     (while (< n 7)
    
29.       (setq p2 (list (+ (* i 10) 7) (+ 5 (* n 10)))) ;倒序阅读
    
30.       (setq p3 (list (+ 75 (- 100 (* i 10))) (+ (- 0 (* n 10)) 65))) ;正序阅读
    
31.       (command "text" "m" p2 3.5 0
    
32.          (substr (nth i list1) (+ 1 (* 2 n)) 2)
    
33.       )
    
34.       (command "text" "m" p3 3.5 0
    
35.          (substr (nth i list1) (+ 1 (* 2 n)) 2)
    
36.       )
    
37.       (setq n (1+ n))
    
38.     )
    
39.     (setq n 0)
    
40.     (setq i (1+ i))
    
41.   )
    
42.   (setvar "osmode" v1)
    
43.   (setvar "cmdecho" v2)
    
44.   (setvar "blipmode" v3)
    
45.   (princ)
    
46. )

(defun c:tt (/ v1 v2 v3 p1 p2 p3 i n)<br />   (setq v1 (getvar "osmode"))<br />   (setq v2 (getvar "cmdecho"))<br />   (setq v3 (getvar "blipmode"))<br />   (setq p1 '(0 0))<br />   (setvar "osmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (setq  list1 (list "潮随暗浪雪山倾"<br />         "远浦渔舟钓月明"<br />         "桥对寺门松径小"<br />         "槛当泉眼石波清"<br />         "迢迢绿树江天晓"<br />         "霭霭红霞海日睛"<br />         "遥望四边云接水"<br />         "碧峰千点数鸿轻"<br />        )<br />   )<br />   (command "zoom"<br />      (list -10 -10)<br />      (list 210 85)<br />   )<br />   (command "style" "hwfs" "华文仿宋" "0" "1.0" "0" "N" "N")<br />   (setq  i 0<br />   n 0<br />   )<br />   (while (< i 8)<br />     (while (< n 7)<br />       (setq p2 (list (+ (* i 10) 7) (+ 5 (* n 10)))) ;倒序阅读<br />       (setq p3 (list (+ 75 (- 100 (* i 10))) (+ (- 0 (* n 10)) 65))) ;正序阅读<br />       (command "text" "m" p2 3.5 0<br />          (substr (nth i list1) (+ 1 (* 2 n)) 2)<br />       )<br />       (command "text" "m" p3 3.5 0<br />          (substr (nth i list1) (+ 1 (* 2 n)) 2)<br />       )<br />       (setq n (1+ n))<br />     )<br />     (setq n 0)<br />     (setq i (1+ i))<br />   )<br />   (setvar "osmode" v1)<br />   (setvar "cmdecho" v2)<br />   (setvar "blipmode" v3)<br />   (princ)<br /> )

caaooo

神奇，点赞

yjwht

这几天开始学习VBA，来一个有斗、点数概率计算。

1. Sub tt1()
   
2.     Dim i As Integer, j As Integer, n As Integer, k As Integer, l As Integer
   
3.     Dim bin_1 As Boolean
   
4.     Dim ary_1(1 To 5) As Integer
   
5.    
   
6.     For n = 1 To 1000
   
7.         bin_1 = False
   
8.         For i = 1 To 10
   
9.             For j = 1 To 5
   
10.                 ary_1(j) = Application.WorksheetFunction.RandBetween(0, 9)
    
11.             Next j
    
12.             k = ary_1(Cells(i, 5).Value) + ary_1(Cells(i, 6).Value) + ary_1(Cells(i, 7).Value)
    
13.             If k Mod 10 = 0 Then
    
14.                 bin_1 = True
    
15.                 l = ary_1(Cells(i, 8).Value) + ary_1(Cells(i, 9).Value)
    
16.                 If l > 10 Then
    
17.                     l = l - 10
    
18.                 End If
    
19.                 Exit For
    
20.             End If
    
21.         Next i
    
22.         
    
23.         If bin_1 Then
    
24.             Cells(2, 2).Value = Cells(2, 2).Value + 1
    
25.             Cells(l + 3, 2).Value = Cells(l + 3, 2).Value + 1
    
26.         Else
    
27.             Cells(1, 2).Value = Cells(1, 2).Value + 1
    
28.         End If
    
29.     Next n
    
30. 
    
31. End Sub

Sub tt1()<br />     Dim i As Integer, j As Integer, n As Integer, k As Integer, l As Integer<br />     Dim bin_1 As Boolean<br />     Dim ary_1(1 To 5) As Integer<br />     <br />     For n = 1 To 1000<br />         bin_1 = False<br />         For i = 1 To 10<br />             For j = 1 To 5<br />                 ary_1(j) = Application.WorksheetFunction.RandBetween(0, 9)<br />             Next j<br />             k = ary_1(Cells(i, 5).Value) + ary_1(Cells(i, 6).Value) + ary_1(Cells(i, 7).Value)<br />             If k Mod 10 = 0 Then<br />                 bin_1 = True<br />                 l = ary_1(Cells(i, 8).Value) + ary_1(Cells(i, 9).Value)<br />                 If l > 10 Then<br />                     l = l - 10<br />                 End If<br />                 Exit For<br />             End If<br />         Next i<br />         <br />         If bin_1 Then<br />             Cells(2, 2).Value = Cells(2, 2).Value + 1<br />             Cells(l + 3, 2).Value = Cells(l + 3, 2).Value + 1<br />         Else<br />             Cells(1, 2).Value = Cells(1, 2).Value + 1<br />         End If<br />     Next n<br /> <br /> End Sub