File: combination.l

package info (click to toggle)
euslisp 9.27%2Bdfsg-7
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye
  • size: 55,344 kB
  • sloc: ansic: 41,162; lisp: 3,339; makefile: 256; sh: 208; asm: 138; python: 53
file content (7 lines) | stat: -rw-r--r-- 184 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
 
(defun combination (lst)
  (let ((lst2 (cdr lst)) primary (result))
     (while (cdr lst)
	(setq primary (pop lst))
	(dolist (l lst)
	   (push (list primary l) result)))
     result))