Nyquistの文字列から文字を削除する

Question

Nyquistの文字列（特定の文字をxlispとよく似ています）から削除して結果を返すにはどうすればよいですか？

「ABBAAAABBBAABAAAB」のような文字列に「A」がいくつあるかをカウントしたいと思います。 （はい、唯一 'AさんとB' のの文字列にはあります。）

なし（カウント）関数は、ナイキストではありませんので、私は

(length (remove #\B mystring)) 

または

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

ような何かをしようとしたが、それは動作しません。

文字カウントを忘れてしまった場合、文字列から 'B'を削除するにはどうすればよいですか？

Answer 1

文字列には常にAとBがありますか？そうでない場合、あなたは、ナイキストremoveはstringの、唯一のlist Sを扱っていないXLISP reference for removeによると

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

ような何かをしたい場合があります。この方法で操作するには、stringをlistに変換する必要がありますが、coerceもありません。それはタッチのハッキーですが、私が見る最も簡単な方法は、stringとread-charです。これによりのlistが生成され、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=)