排座位问题
某客机上的一排座位，其中 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 于 2023-8-17 14:18 编辑
你是在研究算法吗:lol，这个飞机一排坐多少人啊 4551986 发表于 2023-8-17 14:16
你是在研究算法吗，这个飞机一排坐多少人啊
我会告诉你很多……
页:
[1]