Lisp:两个列表的有序并集

如何解决Lisp:两个列表的有序并集

我正在尝试创建一个以有序方式返回两个列表的并集的函数。 这是我的代码:

(defun setunion (lst1 lst2)
  (cond
    ((null lst1) lst2)
    ((null lst2) lst1)
    ((member (car lst2) lst1)
     (setunion lst1 (cdr lst2)))
    (t (append (setunion lst1 (cdr lst2))
               (list (car lst2))))))


(print (setunion '(a b c) '(a c d e f a)))

这将返回(A B C F E D),但我正在寻找的输出是(A B C D E F)。如何更改代码以返回正确的输出?

谢谢!


编辑:我想出来了。我做了一个辅助函数,它删除了列表2的重复项并对其进行了反向处理,还删除了列表1的重复项。

(defun help (lst1 lst2)
(setunion (remove-duplicates lst1 :from-end t) (reverse(remove-duplicates lst2 :from-end t))))
(print (help  '(b c b d) '(a d e a)))

这就是我正在寻找的输出(B C D A E)。

解决方法

好,所以基本上您要做的就是删除所有列表中的重复项,并且元素应该按照首次出现的顺序排列。您可以附加所有列表,然后从末尾删除重复项:

(defun set-union (&rest lists)
  (remove-duplicates (reduce #'append lists)
                     :from-end t))
,

如果您想要的是一堆列表的并集,以使列表中的元素按照它们在列表中出现的顺序出现(从左开始),那么这是一种很自然的方法。我不确定这是否是我在现实生活中写的东西。它的优点是:

  • 很容易看到正在发生的事情;
  • 它不依赖多毛的标准CL函数。

它具有缺点,需要长尾消除才能使用长列表(有些人认为这样的代码不是惯用的CL)。

$mailer->send($email);

这是一个使用显式迭代的版本,但在其他方面也有相同的技巧。

(defun union-preserving-order (&rest ls)
  ;; Union of a bunch of lists.  The result will not contain
  ;; duplicates (under EQL) and elements will occur in the order they
  ;; occur in the lists,working from the left to the right.  So
  ;; (union-preserving-order '(a b) '(b a c)) will be (a b c),as will
  ;; (union-preserving-order '(a b) '(c b a)),while
  ;; (union-preserving-order '(b a) '(a b c) '(c d)) will be (b a c
  ;; d).
  (upo/loop (first ls) (rest ls) '()))

(defun upo/loop (lt more accum)
  ;; LT is the list we're working on,MORE is more lists for later,;; ACCUM is the list we're building (backwards). In real life this
  ;; would be a local function in UNION-PRESERVING-ORDER.
  (if (null lt)
      ;; Finished this list
      (if (null more)
          ;; no more lists: we're done
          (nreverse accum)
        ;; more lists,so pick the first of them and loop on that
        (upo/loop (first more) (rest more) accum))
    ;; not finished this list,so loop on it
    (upo/loop (rest lt) more
              ;; Either the next element of this list is already in
              ;; the accumulator,or it's not and we need to add it.
              (if (member (first lt) accum)
                  accum           
                (cons (first lt) accum)))))

最后,这是一个肮脏的hack,它可以将结果转发出去。如果没有证据,我认为这在性能方面是最好的,而无需借助诸如哈希表之类的巧妙查找结构来检查您是否已经看过元素。

(defun union-preserving-order (&rest ls)
  ;; Union of a bunch of lists.  The result will not contain
  ;; duplicates (under EQL) and elements will occur in the order they
  ;; occur in the lists,while
  ;; (union-preserving-order '(b a) '(a b c) '(c d)) will be (b a c
  ;; d).
  (let ((accum '()))
    (dolist (l ls (nreverse accum))
      (dolist (e l)
        (pushnew e accum)))))

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 <select id="xxx"> SELECT di.id, di.name, di.work_type, di.updated... <where> <if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 <property name="dynamic.classpath" value="tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams['font.sans-serif'] = ['SimHei'] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -> systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping("/hires") public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate<String
使用vite构建项目报错 C:\Users\ychen\work>npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-