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

Question

我正在寻找的函数必须返回第一个的索引，即一对“”。

例如，序列

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

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

函数应该返回 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，而不是定义一个复杂的函数。运算符(operator):

(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)))

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