lisp

-1熱

1答えて

私はLISPが新しく、クラスのcond文を作成しようとしています。現在、渡された値がリストであるかどうかを確認しようとしています。そうであれば、文字dをリストに追加します。ここでは私のコードです： (defun test(L) (listp L) (cond ((listp L) (append L (list 'd))) ) (write L) ) (test (list 'a '

-1熱

1答えて

エラー：（/）悪い引数タイプ：＃<unspecified>チキンスキーム平方根近似

MITのSICP講義に従っています。これは、アレキサンドリアの方法のHeronによる数の平方根近似を求めようとしたものです。これは初めてのことですが、lobを試してみました。 (define guess 1) (define (avg a b) (/ (+ a b) 2)) (define (try guess x) (if (goodEnough guess x)

0熱

1答えて

lisp：パッケージ内のすべての外的なものを記述する

答えは明らかですが、私はこれに対して私の頭を叩いています。私は、LISPパッケージ内の外部定義されたすべてのものを記述しようとしています。以下の（SBCL）コードがうまくシンボルを出力します。 (require "sb-posix") (do-external-symbols (single-symbol 'sb-posix) (prin1 single-symbol) (terpri

0熱

1答えて

Lisp、defunで動作しない命令

インフィックス入力を接頭辞に変更する関数を作ってみようとしています。例えば、を入力として(+ x 1)として出力します。だからここは一瞬のために私のコードです：I入力リストとユーザーの入力ならば、それはリストでなければ (setq x '(Y + 1)) (if (listp x) (list (second x) (first x) (first (last x))) x) ので、(+

-2熱

1答えて

dolistを使用せずに再帰のみのlispでtreeを印刷するには？

INPUT：（（B（D（E）（F）））（C）（K））私は現在、私の出力を与える二つの機能を有する： B C K B D D E F E NIL 私はこのような出力を必要しかし：：BCK B：D C：をk： D： E F E： F： F 又は B S K D E (defun print-children (s) (cond ((null (caar (cdr s))) nil)

2熱

1答えて

sbcl：＃ 'sb-ext：文字列とオクテットの追加のドキュメント

私は最近、#'sb-ext:string-to-octetsと#'sb-ext:octets-to-stringの2つの機能についての応答があるsbclについてquestionに尋ねました。私の質問に答えることに加えて、これはパッケージsb-extの外部シンボルをブラウズして、他に何が使われているのかを調べるべきであることも教えてくれました。私の質問（sbcl関連）はこれです：パッケージsb-e

1熱

2答えて

これはなぜSchemeで評価されないのですか？

私はSchemR言語を試してみるためにDrRacket環境を使用しています。次のように私は合計+ 1を定義した： (define sum+1 '(+ x y 1)) 次の式は評価されない理由は、私が思っていた： (let ([x 1] [y 2]) (eval sum+1)) をこれを行うことは、正しい値を返すのに対し： (define x 1) (define y 2) (eval

0熱

1答えて

使用前にLispラベル関数が削除されました

私は関数を再帰的に使用できるようにラベルを使ってローカル関数を使用しようとしています。 (defun my-replace (e1 e2 L) "Perform a deep replace e1 with e2 in L." (labels ((my-replace-rec (e1 e2 L) "Used for recursion" (cond

1熱

1答えて

：DEFUNするために必要な引数ではありませんシンボル

SBCLするCLISPからレガシーコードを移植する場合、私はCLISPの明らかな誤りなく実行されます。このコードによって示され、問題を提起した構文に遭遇しました： (defun foo ((alpha integer)) (princ (type-of alpha)) (princ " ") (prin1 alpha) (terpri)) (foo 3)

0熱

1答えて

なぜこのプログラムは原子のリストを返しますか？

私は学校でLispを勉強しています。作成しなければならないプログラムの1つは、mapcanを使ってremove-if-notの機能を複製するものです。私はプログラムを作成し、正しく動作しますが、私は出力を理解していません。私が実行した場合具体的には、： (findall 'numberp '(1 a 3)) 出力は次のとおりです。（1 3）プログラムは以下の通りです： (defun fin