Удаление символов из строки в Nyquist

Question

Как удалить определенный символ из строки в Nyquist (который очень похож на xlisp) и вернуть результат?

Я хочу подсчитать, сколько «А» есть в строке типа «ABBAAAABBBAABAAAB». (Да, есть только «А-х и» Б в строке.)

Поскольку нет функции (количество) в Найквиста я пытался что-то вроде

(length (remove #\B mystring)) 

или

(length (remove #\B mystring :test equal)) 

Но он не работает.

Забыть количество символов на мгновение, как я могу удалить «B» из строки?

Answer 1

Всегда будет только A s и B s в строке? Если нет, то вы можете сделать что-то вроде

(remove #\A yourstring :test-not 'char=) 

Согласно XLISP reference for remove найквистовский remove не занимается string с, только list с. Вам необходимо преобразовать string в list, чтобы работать на нем таким образом, но нет coerce. Это прикосновение хаки, но самый простой способ, который я вижу, это поток string и read-char. Это создаст listchar s, после чего вы сможете манипулировать remove.

(defun string->list (a-string) 
    (let ((collector nil) 
     (stream (make-string-input-stream a-string))) 
    (dotimes (c (length a-string) (reverse collector)) 
     (setf collector (cons (read-char stream) collector))))) 

Это теперь должно быть возможно

(remove #\A (string->list yourstring) :test-not 'char=)