cost 257 ms
存儲循環 output 值

[英]Storing Loop output value

嗨,我正在用 Autolisp 開發一個程序。 它由 2 個例程文件組成。 第一個是主例程,第二個是子例程。 第一次加載程序后,子例程文件將開始運行。 在子例程中,我有一個循環編碼。 我使用了重復循環。 循環將運行 n 次,並將生成 n 次輸出。 (即產品重量 WT1、WT2、WT3 等)。 在此 ...

Common lisp:在單獨的線程中調用 class 方法

[英]Common lisp: calling a class method in a separate thread

我正在嘗試為個人項目(也學習 lisp)構建 Golang 通道構造的通用 lisp 實現。 到目前為止,我已經將通道實現為 class 的對象,其中包含一個隊列、一個鎖和一個條件變量,用於向監聽函數發出新消息已添加到隊列的信號。 我正在使用波爾多線程來創建線程、鎖、條件變量並加入執行(來自lisp ...

用不同的表達式系統地調用 Common Lisp 宏

[英]Invoking Common Lisp macros systematically with varying expressions

我正在學習 Common Lisp (SBCL)。 我想創建一個工具來調用兩個(或更多)具有幾個僅在某些參數上不同的相似表達式的宏。 我想定義表達式的基礎,然后用我提供的參數修改它。 為此,我想到了 lambda function 的定義。 據我所知,沒有與宏的funcall類似的東西,所以我也將宏 ...

使用 Emacs 和 SLIME 抑制 SBCL 中的調試器?

[英]Suppressing the Debugger in SBCL with Emacs and SLIME?

將以下代碼放入~/.sbclrc允許我在從命令行使用SBCL REPL 時接收簡化的錯誤消息,而無需深入調試器(我覺得這有點煩人)。 當從Emacs和SLIME運行 SBCL REPL 時,這是我通常與之交互的方式,每當我遇到錯誤時,REPL 都會堅持進入調試器。 在 Emacs 和 SLIME ...

如何在 Racket 中為 GraphViz 設置頂點屬性

[英]How to set vertex attributes for GraphViz in Racket

我試圖弄清楚如何將頂點屬性與球拍 graphviz(圖形庫)一起使用。 例如添加一些樣式屬性。 這是我到目前為止所擁有的。 在function 對 graphviz 的定義中,它說#:vertex-attributes 必須是一個列表的列表,並且包含一個符號或過程。 但這也意味着您必須將 #:ver ...

用球拍在樹中找到深度為 N 的節點

[英]finding nodes at depth N in a tree with racket

我寫了一段代碼,它返回位於樹的深度 N 的節點。 根被認為在深度 1。 這適用於深度 1、2 和 3。 給 但出於某種原因,這不適用於深度 4。 老實說,我不知道為什么會這樣。 > n 1的第一個分支中的null似乎正在應用於某些東西。 對調試此代碼的任何幫助表示贊賞。 ...

AutoLISP - 選擇/移動 Object 使用坐標 Autocad 多次

[英]AutoLISP - Selecting/Moveing Object Multiple Times Using Coordinates Autocad

有沒有辦法給定坐標的 select 實體? 示例:我想要 select 個實體從 (-21,8) 到 (21,-22) <----- 分別是矩形的左上角和右下角。 以及從 (150,8) 到 (192,-22) 的 select 個實體。 以及從 (321,8) 到 (363,-22) 的 s ...

這兩個方案宏有什么區別?

[英]What is the difference between the these two scheme macros?

使用 mit-scheme 提供唯一的修改是從(cthen (make-syntactic-closure env '(it) (third exp)))到(cthen (third exp)) 簡而言之, make-syntactic-closure有什么區別?(define-syntax ai ...

AutoLisp 獲取上次修改時間

[英]AutoLisp Get Last Modified

我正在嘗試從排序選項的文件列表中獲取最后修改日期。 我在這里找到了一個來源,有人可以在其中更新上次修改文件的時間,但我在撤消該過程時遇到了麻煩。 當我嘗試使用vlax-get和vlax-get-property時,我不斷收到Error: Missing parameter for function. ...

Scheme 中的“set-elts: contract violation.expected: set?, given: x”

[英]"set-elts: contract violation. expected: set? , given: x" in Scheme

朋友給了我這個問題作為我學習 Scheme 的一種方式來解決: E::= (λ VE) | (EE) | V和 V=variable 並編寫一個方案 function freeVariables ,它采用自由變量。 例如: 但是,我的代碼已完成,如下所示,邏輯已完成。 但這就是我添加輸入時發生 ...

Lisp - 允許使用*或*不使用變量?

[英]Lisp - allow variable to be used *or* unused?

如果我(declare (ignore foo))然后 lisp* 不會警告我未使用的變量,但如果我確實使用該變量會警告。 有什么辦法可以關閉警告嗎? 詢問是因為我想在我的應用程序中編寫一些引入通用/標准變量名的宏,但我不想在使用宏的地方總是聲明未使用的變量名,但我也不想要警告。 我寧願不在全局范 ...

LISP 中的原子是什么?

[英]What is atom in LISP?

我想清楚地了解一下,LISP 中的“Atom”是什么? 由於 lispworks,“atom - 任何不是缺點的 object。”。 但是這個定義對我來說還不夠清楚。 例如,在下面的代碼中: “L”是原子嗎? 一方面,L 不是原子,因為它是 cons,因為它是列表(如果我們談論的是 object ...

循環遍歷數字並檢查素數 - 未檢測到素數

[英]Loop goes over numbers and checks for primes - primes are not detected

所以我正在嘗試學習 lisp,我想出了一個簡單的程序來幫助我學習它只是一個檢查素數的程序。 一開始它起作用了: 然后我嘗試將素數檢查抽象為一個函數,並編寫了這段代碼: 但是這個不行。 它打印 123 並完成。 問題是,我試圖只打印 (print (isprime 5)) 並且它有效,但它在循環中不起 ...

Common Lisp - 名稱沖突 我認為包系統應該保護我免受

[英]Common Lisp - name clash I thought the package system was supposed to protect me against

整個周末,我遇到了一個很難追查的名字沖突,但我設法將其歸結為一個簡短的例子 - 事情是,我認為包系統應該保護我免受此影響,所以我想知道將來如何。 如果我這樣做:(ql:quickload "cl-irc") (defpackage #:clash-demo (:use #:cl ...

Common Lisp 中的文件結尾(字符)

[英]End of file (character) in Common Lisp

基本上我試圖遞歸地從文件中讀取行(因為我不能使用任何循環),但我不知道文件在哪里結束。 這是我的功能: 我正在使用計數器“索引”來停止遞歸,因為我不知道當我到達文件末尾時如何停止。 我將文件包含的列表放入名為“問題”的列表中。 該文件如下所示: 我希望你能幫助我。 ...

在文件之間拆分代碼的常見 lisp 最佳實踐

[英]Common lisp best practices for splitting code between files

我對普通的 lisp 比較陌生,但對其他“單獨編譯”語言有豐富的經驗(想想 C/C++/FORTRAN 等) 我知道如何進行 ASDF 系統定義。 我知道如何將包裹中的東西分開。 順便說一下,我正在使用 SBCL。 問題是:在 .lisp 文件之間拆分代碼(大包)的最佳做法是什么? 我的意思是,在 ...

Lisp循環宏、pop宏和memory

[英]Lisp loop macro, pop macro and memory

我正在學習 lisp 並實現了嵌套數組解析,因此:"[1,[2,[3,[4,[5,6,7]]]],8,9]" -> '(1 (2 (3 (4 (5 6 7)))) 8 9) 在線代碼片段在這里這是我第一次實現parse-line(defun parse-line (string) ...

如何創建一個 function 返回給定級別的樹中的節點數

[英]How to create a function that returns the number of nodes in a tree on a given level

我試過了,但沒用。 作為約束,我不能使用預定義函數,只能使用 cond、eql 和 mapcar。 我也不能使用 ifs 或變量或循環 (write (count-nodes-on-level '(1 (2 (3 (6 7) 4) 5)) 4)) 這是給定的錯誤:*** - MAPCAR:正確的列表 ...


 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM