如何使用递归合并按字母顺序排序的两个字符串 [英] how to merge two strings ordered alphabetically, using recursion

问题描述

我正在学习Lisp。我已经实现了一个Common Lisp函数，该函数使用递归合并按字母顺序排序的两个字符串。以下是我的代码，但它有问题，我没有弄清楚。

(defun merge (F L)
    (if (null F)
        (if (null L)
            F         ; return f
            ( L ))    ; else return L
        ;else if
        (if (null L)
            F)        ; return F
    ;else if
    (if (string< (substring F 0 1) (substring L 0 1)
        (concat 'string (substring F 0 1) 
                        (merge (substring F 1 (length F)) L)))
    ( 
        (concat 'string (substring L 0 1) 
                        (merge F (substring L 1 (length L)) ))
    ))))

编辑： 我只想合并两个字符串，比如 输入为字符串a = adf和字符串b = beg 并且结果或输出应为abdefg。

提前感谢。

推荐答案

根据您的注释判断，您似乎正在尝试将if与一系列条件一起使用(就像某些其他语言中的一系列else if)。为此，您可能需要cond。

我将if替换为cond，并清除了其他一些错误，它起作用了。

(defun empty (s) (= (length s) 0))

(defun my-merge (F L)
  (cond 
   ((empty F)
    (if (empty L)
      F 
      L)) 
   ((empty L)
    F)
   (t
    (if (string< (subseq F 0 1) (subseq L 0 1))
      (concatenate 'string (subseq F 0 1) (my-merge (subseq F 1 (length F)) L)) 
      (concatenate 'string (subseq L 0 1) (my-merge F (subseq L 1 (length L))))))))

您的测试用例如您所愿：

* (my-merge "adf" "beg")

"abdefg"

这篇关于如何使用递归合并按字母顺序排序的两个字符串的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！