lisp

1熱度

2回答

因此，我正在編寫一個小的Racket應用程序，該應用程序將解析（格式非常差的）.txt文件並輸出可在Excel中使用的.csv。我想要做的第一件事是打開一個帶有一個按鈕的小窗口，該按鈕打開一個文件對話框，以便用戶可以選擇要轉換的文件（就像任何啓動打開的文件選擇對話框的程序一樣）。我在網上查了一下，找不到任何東西。這將是一個本地應用程序，所以我在POST服務器上找到的東西並不相關。你怎麼能在球拍上做

0熱度

1回答

共LISP - 減法

我有這樣的功能： (defun test (variable) (cond ((null variable) nil) ((< (- 12 (other-function variable) 3) 0) 1) (t (- 12 (other-function variable) 3)) ) ) 的想法是，如果12的與3的函數的值的減法運算的結果小於0

-1熱度

1回答

給出二元關係R.在LISP中構造傳遞和反射閉包R *

給出二元關係R.構建傳遞和自反封閉 R *。在LISP中////怎麼回事？

0熱度

3回答

如何使用方案在另一個函數中調用函數？

我正在學習Scheme，所以我正在做一個有兩個功能的程序，一個根據飛行人數和飛機上座位的數量計算有多少架飛機將飛行。直到那裏一切都好，問題是當我嘗試在另一箇中使用該功能時，我不知道該怎麼做。第一功能： (define calculate-aeroplanes (lambda (passengers seats) (ceiling (/ passengers seats))))

1熱度

1回答

優化Lisp遞歸隨機遊走

該函數導致堆棧溢出超過大約2000步，有什麼方法可以輕鬆優化它以使用更少的內存嗎？ (defun randomwalk (steps state) (displaystate state) (if (equal steps 0) nil (if (solved? state) t (let ((nrmlstate (normalize state)))

0熱度

2回答

sbcl（和clisp）：何時一個角色不是角色？（使用defconstant）

這個問題是關於sbcl - 或者我原本以爲。問題：什麼時候角色不是角色？請看下面的代碼： (defconstant +asc-lf+ #\Newline) (defconstant +asc-space+ #\Space) (prin1 (type-of #\Newline )) (terpri) (prin1 (type-of #\Space )) (terpri) (prin1 (ty

0熱度

1回答

計數許多正數如何在列表（NIL不是一個數字？）

我有一個列表：(setq listy '(4 -3 8 99 -40 61 12 -8 2 -20)) 我的功能lenPos應該找到所有正數的列表的長度（即6）。不過，我得到這個錯誤： *** - +: NIL is not a number 我檢查，如果我的列表中的if語句做任何數量的檢查之前空。所以我不明白錯誤來自哪裏。 ;num of positive elems (defun len

0熱度

1回答

多於一個參數用於刪除謂詞 - 如果

假設我想從狀態列表中刪除一個步驟（元素）。 (defparameter *states* '((:top nil nil) (:subjects nil nil))) ;predicate (defun equal-state? (step state) (equal (car step) state)) 如果我使用(delete-if #'equal-state? *state

1熱度

1回答

如何在JavaScript中實現lambda/anonymous函數

所以我想用JavaScript實現LISP的一個子集。我被困在與lambda相關的兩件事上。如何實現創建lambda的能力，並同時給它的參數，並立即評估？例如： ((lambda(x)(* x 2)) 3) 現在我硬編碼這個功能在我的eval環這樣的： else if (isArray(expr)){ if (expr[0][0] === 'lambda' || expr[0][

-1熱度

1回答

字符串列表上的lisp成員函數

我正在使用LISP並想知道如何在字符串列表中訪問成員。我已經嘗試了成員函數，但一直得到NIL。感謝 (setq phrase-list '("What color is the sky?" "It is Blue.")) ;list of strings (write phrase-list) (terpri) (setq x(read-line)) ; I try to input