lispworks

    5熱度

    1回答

    我有這樣一個 (defclass shape() ((color :initform :black) (thickness :initform 1) (filledp :initform nil) (window :initform nil))) 類是有共同點,口齒不清的功能如何讓這些插槽的列表,如果我只知道這個類的實例?

    1熱度

    2回答

    我宣佈口齒不清以下列表: (defvar car-owners-2 (list (list 'yaakov (list 'volvo 100000.0)) (list 'moshe (list 'vw 75000.0)) (list 'rachel (list 'mazda 60000.0)) (list 'sarah (list

    3熱度

    4回答

    我試圖解決Problem 14 in Project Euler(有1個和1000000之間最長的在Collat​​z序列)。 我的代碼由遞歸,memoized函數來計算在Collat​​z序列,接着一個循環以找到最大的長度。請參閱下面的代碼: (defparameter *collatz* (make-hash-table)) (setf (gethash 1 *collatz*) 0)

    0熱度

    1回答

    我想在一個函數中創建一個數組並將其作爲參數傳遞給另一個函數,該函數將從該函數調用。我怎樣才能做到這一點?下面是僞代碼: define FuncA (Array Q){ <whatever> } define FuncB (n){ make-array myArray = {0,0,....0}; <initialise an array of n elements wit

    0熱度

    1回答

    現在我「米上的程序,應該是能夠挑選3人出7(ABCDEFG)名單的工作,並指定他們是罪犯。這個「遊戲」然後從7中挑選3個隨機的peolpe,告訴你這些人中有多少人是罪犯,並詢問你是否想猜出這三個罪犯是誰,猜測一下(「這三個中的兩個是罪犯喜歡猜測誰是罪犯)。不過,我目前有一個計劃,可以從名單中剔除3名隨機罪犯,但是我所面臨的鬥爭最初是指定誰是犯罪分子(從列表中隨機選出3個,並將其分配給可以稍後回憶的

    0熱度

    2回答

    我必須在Lisp中編寫一個簡單的程序,它將多項式乘以某個因子。在這個例子中,我想乘以(x + 5)* 5x。答案應該是5x^2 + 25x。 當我把((1 1) (5 0)) (5 1))我應該得到(5 2) (25 1)。但是,我收到各種錯誤,範圍從undefined operator TERM in (TERM)和bad binding form.我是Lisp的新手,並嘗試返回如上所示的列表。

    1熱度

    1回答

    我使用了一所學校的項目Lispworks,我有一個小麻煩;聽衆給我一個帶有高於四深度的列表的輸出標籤。這裏有一個例子: CL-USER 21 : 5 > '(1(2(3(4(a))))) (1 (2 (3 (4 #)))) 任何線索?

    0熱度

    3回答

    我的意思是用SBCL我可以像sbcl --script piece-of-code.lisp一樣簡單地運行腳本。但是我找不到用LispWorks做的一個明顯的方法。當然,總是有一個部署和運行選項,但它需要每個小練習的構建腳本。 有沒有辦法用LispWorks運行腳本,而無需構建可執行文件或手動從監聽器運行它?

    1熱度

    1回答

    我想根據下面的示例A添加一個列表框。 The Common Lisp Cookbook - Using the Win32 API 我添加了一個函數sendmessage,它映射到它的windows API計數器部分並從wndproc調用它。 但它抱怨像下面的類型轉換錯誤。 CL-USER 1 > (create-toplevel-window "ppp") Error: #<Pointer

    3熱度

    2回答

    我對Lisp非常陌生,並且正在嘗試編寫一個程序,該程序只是要求用戶輸入3個數字,然後對它們進行求和並打印輸出。 我讀過,你可以在你的功能,如: (defvar a) (setq a (read)) 設置在Lisp的變量,但是當我嘗試編譯使用我的代碼LispWorks我得到以下錯誤: End of file while reading stream #<Concatenated Stream