LISP 仅在特定情况下从列表中提取元素

Question

我正在寻找的函数必须 return 第一个的索引，即一对 " "。

例如，使用序列

{ " h i , a l l " : 3 , " h o w , i s " : " x " }

'( #\{ #\" #\h #\i #\, #\a #\l ... )

函数应该 return 11，而不是 4（第一次出现的逗号），因为它在 " " 之间。

我试过这个：

(defun control-comma (x p)
  (cond ((eql (car x) #\")
         (control-comma (subseq x (+ (position #\" x :start (+ 1 p)) 1)) p))
        ((eql (car x) #\,)
         p)
        (t
         (control-comma (cdr x) (+ 1 p)))
        )
  )

使用 x 作为输入列表和 p 作为 0 参数来计算位置，但它不起作用并且似乎与我正在寻找的解决方案相去甚远。

谢谢你的每一个建议。

Answer 1

我建议您使用预定义的 position-if 运算符，而不是定义复杂的函数：

(defun first-comma (string start)
   (let ((in-double-quote nil))
     (position-if 
       (lambda (x)
         (case x
           ((#\") (progn (setf in-double-quote (not in-double-quote)) nil))
           ((#\,) (not in-double-quote))))
      string
      :start start)))

CL-USER> (first-comma (coerce "{ \"hi, all\" : 3, \"how, is\" : \"x\" }" 'list) 0)
15

一个更复杂的递归解决方案再次基于一次扫描输入列表一个字符的想法，由以下函数给出，其中状态“双引号内”通过一对递归局部编码函数：

(defun fist-comma (x pos)
  (labels ((looking-for-comma (x pos)
             (cond ((null x) nil)
                   ((eql (car x) #\,) pos)
                   ((eql (car x) #\") (looking-for-double-quote (cdr x) (1+ pos)))
                   (t (looking-for-comma (cdr x) (1+ pos)))))
           (looking-for-double-quote (x pos)
             (cond ((null x) nil)
                   ((eql (car x) #\") (looking-for-comma (cdr x) (1+ pos)))
                   (t (looking-for-double-quote (cdr x) (1+ pos))))))
    (looking-for-comma (nthcdr pos x) pos)))

最后，请注意，在上述两个函数中，应考虑使用适当的方法转义双引号的可能性。

LISP 仅在特定情况下从列表中提取元素

LISP extract an element from a list only in a specific case

lisp

extract

common-lisp