跳到主要內容

求出n取k組合的列表 Lisp版

廢話就不多說了,這次改寫Lisp版本的求組合列表,由於太久沒寫,著實吃了不少苦頭。由於Lisp版本眾,我本來想用Emacs開發,可是我把Emacs的hotkey全忘光了,只記得c-x c-e,後來就改用GNU CLispGCL),以Homebrew安裝的2.49版為主。以下是如之前效果的程式碼,看起來不太像Lisp,我寫得太不優雅了,只能盡可能寫的清楚。

(defun addlist(newList)
 (setq result (append result (list (reverse newlist))))
)

(defun calc(before all want)
 (cond 
  ((= want 0)
   (setq rest (loop for i from 1 to all append (list 0)))
   (addlist (append before rest)))
  ((= all want) 
   (setq left (- all want)) 
   (setq rest (loop for x from 1 to all append  (list 1)))
   (addlist (append before rest)))
  ((= all 1)
   (addlist (append before (list want))))
  (t 
   (calc (append before (list 0)) (- all 1) want)
   (calc (append before (list 1)) (- all 1) (- want 1)))
 )
)

(defun combinations (all want)
 (setq result (list))
 (setq lst (list) )
    (calc lst all want)
)

(combinations 3 2)
(print result)

以下是正常版組合的Lisp程式碼:
(defun addlist(newList)
 (setq result (append result (list (reverse newlist))))
)


(defun combinations (all want )
 (setq result (list))
 (setq lst (loop for x from 1 to all append  (list x))) 
    (labels ((calc (l c want)
     (when (>= (length l) want)
        (if (zerop want) (return-from calc (addlist c)))
         (calc (cdr l) c want)
         (calc (cdr l) (cons (first l) c) (1- want)))))
         (calc lst nil want))
 (setq result (reverse result))         
)

(combinations 3 2)
(print result)

留言

這個網誌中的熱門文章

自然人憑證讀卡機驅動程式

鳥毅用的是第一代的自然人憑證讀卡機,EZ100PU(後來有同事買EZmini可以讀SIM卡似乎更好),每年報稅時用一次。 本來只是要申請些政府業務,一時之間找不到光碟,沒想到在 驅動程式下載 居然看到Linux和Mac的驅動程式,剩下的就是政府單位的網頁和程式應該改版了吧!!!

DBeaver 介面語言

DBeaver是我個人頗常用的一套跨平台Database管理工具,最近升級後發現Windows版本居然變成簡體中文,而且無法切換為英文。

如何將較高版本SQL Server複製到低版本SQL Server (降級為舊版)並保留權限及資料庫圖表

一般若是要將SQL Server裡的Database轉往其他Server時,最簡單的方式就是備份(Backup)後再還原(Restore),或者是䣃離(detach)後附加(attach)。 但是很不幸地,若是由較低版本(e.g. 2008)到較高版本(e.g. 2012)要怎麼辦呢?