排座位问题

mahuan1279

某客机上的一排座位，其中 A1 和 A8 是靠弦窗的座位，A2 与 A3 及 A6 与 A7 之间都是走道。

有八位旅客 1、2、3、4、5、6、7、8 要坐在这一排座位上，其中旅客 1、2、3、4 对座位有如下要求：
1 不靠弦窗坐（即不坐 A1 和 A8）; 1 和 2 必须相邻，且 1 与 2 之间不能是走道（被走道隔开就不算相邻）。
3 与 4 都不靠弦窗坐，且 3 与 4 不能相邻（若被走道隔开也不算相邻，例如 3 坐  A2 位时，4 可以坐在 A3 位）。
5、6、7、8  四位旅客对座位没有要求，可随便分配。问：共有多少种坐法？ 有人算得共有 2208 种坐法。闲来无事程序运行检验下。

(defun f (k)
  (setq str '("0") i 1)
  (while (< i k)
             (setq j 0 num (length str) strss nil)
                 (while (< j num)
                        (setq strr (nth j str) jj 0)
                (while (<= jj i)
                           (setq strss (cons (strcat (substr strr 1 jj)  (itoa i) (substr strr (+ jj 1))) strss))
                       (setq jj (+ jj 1))
                             )
                (setq j (+ j 1))
         )
                (setq str strss i (+ i 1))
   )
   str
)
(setq lst (f 8))
(setq llst (vl-remove nil (mapcar '(lambda (x) (if (or (vl-string-search (substr x 1 1) "023") (vl-string-search (substr x 8 1) "023")) nil x)) lst)))
(setq alst (vl-remove nil (mapcar '(lambda (x) (if (and (or (null (vl-string-search "01" x))(= (vl-string-search "01" x) 1)(= (vl-string-search "01" x) 5))
                                                        (or (null (vl-string-search "10" x))(= (vl-string-search "10" x) 1)(= (vl-string-search "10" x) 5))
                                                                                                        )
                                                                                  nil
                                                                                  x
                                                                          )
                        )  
                                                llst)
                         )
)
(setq blst (vl-remove nil (mapcar '(lambda (x) (if (and (or (null (vl-string-search "23" x))(= (vl-string-search "23" x) 1)(= (vl-string-search "23" x) 5))
                                                        (or (null (vl-string-search "32" x))(= (vl-string-search "32" x) 1)(= (vl-string-search "32" x) 5))
       
                                                                                            )   
                                                                                  x
                                                                                  nil
                                                                          )
                        )  
                                                alst)
                         )
)
(length blst)

4551986

你是在研究算法吗，这个飞机一排坐多少人啊

mahuan1279

4551986 发表于 2023-8-17 14:16
你是在研究算法吗，这个飞机一排坐多少人啊

我会告诉你很多……