lisp

    -1

    1答えて

    と声明した場合、私は現在、リファレンスとして、このサイトを使用しています:https://www.tutorialspoint.com/lisp/lisp_if_construct.htm then節が実行される理由を私はかなり理解していません、 if節が偽であるにもかかわらず? (setq a 10) (if (> a 20) then (format t "~% a is less

    -1

    1答えて

    私はCommon Lispでプログラミングしています。少なくとも2つの共通要素でサブリストを削除するアルゴリズムが必要です。 私はどのように問題を解決できるか分かりません。私はこれを使用することを考えた: (defunを削除-重複リスト(リスト)(削除-重複リスト:「等しい:キー」テストCDR)) が、サブリストの間でcdrが異なっている、と私2つの要素を数えてサブリストを削除する方法を理解できま

    0

    1答えて

    私はこの機能に問題がありますtwo-similar-p。 (defun two-similar-p (list1 list2) (mapcar (lambda (e) (mapcar (lambda (e1) (if (equal e e1) t)) list2)) list1)) しかし、この機能はTまたはNILで新

    0

    1答えて

    LISPについて質問があります。 ファイルを読み込んでデータをファイルに保存するだけです。 これを行うには、このような機能を見つけて実行しました。 (defun get-file (pathname) (with-open-file (stream pathname) (loop for line = (read-line stream nil) while li

    0

    2答えて

    私はそのような私が与えられた:atomに:onclausesプロパティを変更する方法 '((:atom Toddler :visited nil :on-clauses (0 1)) (:atom Child :visited nil :on-clauses 1)) としてプレースメントリストのリストを持っていますか?このプロパティを更新したいと思います。 2番目のplistを(:a

    0

    1答えて

    誰かがこのコードの動作とその動作を説明できますか? (defun f (&optional (x nil) (y (if (atom x) nil (car x)))) (cond ((atom x) y) ((< (car x) y) (f (cdr x) y)) (t (f (cdr x) (car x)))))

    0

    2答えて

    私が理解する限り、#' <object>は(function <object>)の略語です。 しかし、私は適用機能で#'を使用している間に、異なる動作に気づいた。 例 (apply '+ '(1 2)) => Works and give 3 (apply (function +) '(1 2)) => 3 しかし (apply '# '(1 2)) => Err!!

    1

    1答えて

    選択領域を4つ分だけインデントするコマンドを作成しようとしています。 適切なコマンドは以下のとおりです。C-u 4 C-x <TAB>、Cuは「ユニバーサル・引数」コマンドとC-x <TAB>のショートカットがindent-rigidlyのショートカットですので、私は、この関数を書いているとき: (defun my-tab() (interactive) (universal-

    1

    1答えて

    私はinferior-shell:runを使用して、日常的に失敗する長期実行タスクをビルドします(これはビルド検証ルーチンです)。 私の主な問題は、起動したアクティビティの「ライブ」出力を見る方法を見つけることができなかったことです。 ライブフィードが必要なのは、エラーが発生した場合に出力が表示されないためです。私はON-ERROR:の鍵を調べましたが、終了コードが1であるというだけではありません

    0

    1答えて

    私はこのチュートリアルに従っていました:https://groups.csail.mit.edu/mac/users/gjs/6.945/dont-panic/(セクション3.4.2)私のMacでedwinエディタの設定を取得するには、次のファイルを使用します:http://web.mit.edu/6.945/dont-panic/.edwinエディタをカスタマイズします。しかし、私は彼らが提供し