[自动LIS]排序代码

fixo · 发表于 2022-7-5 23:28:34

更改：

(list ("A" "AC") ("D" "1C") ("2" "#C") ("11" "AsS"))

收件人：

copy


(setq master (list '("A" "AC") '("D" "1C") '("2" "#C") '("11" "AsS")))
(setq match_list (mapcar '(lambda(x)(cons (cadr x)(car x))) master))
(setq unsorted (mapcar 'cadr master))
(setq sorted (eea-lm-str_int_sort unsorted nil))
(setq result nil)
(foreach item sorted
 (setq result (cons (cons (cdr (assoc  item match_list)) item) result)))
(setq result (reverse result))

Lee Mac · 发表于 2022-7-5 23:32:06

如果我们有一个任意数量的字符列表。
如果我们想要一个普适函数，按所选参数排序（np.3或6）。

jan_ek · 发表于 2022-7-5 23:35:47

您将需要额外的输入来指定要排序的项目，然后使用nth而不是cadr来获取相关项目。

编辑：类似这样的内容

copy

(if f (mapcar 'strcase l) l)

irneb · 发表于 2022-7-5 23:38:26

谢谢你的帮助，但你能给我解释一下这句话是怎么说的吗？”

copy

如何检索项目？

jan_ek · 发表于 2022-7-5 23:42:54

更多关于n和DEFUN函数的信息。。。请务必注意“返回值”。

BlackBox · 发表于 2022-7-5 23:45:14

它是通过mapcar调用的。由于我使用了两次，所以我将其制作成了一个真正的defun，否则它可能是一个lambda，但在这种情况下，我会制作两个完全相同的lambda，因此一个defun的编码更少（可能效率略高）。

mapcar获取列表并将列表中的每个项依次发送到测试函数，即其输入参数的来源。在这个例子中，我称它为item，它是任意你所说的-lisp不在乎，你可以称它为这个奇怪的东西，它传递到这里，它是我需要做的事情，或者你内心想要的任何事情。我只是用了这个项目，因为它非常接近它真正的样子。也许我可以把它叫做subList，可能更具描述性。