lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Nou pe simpatie:
Diana2019
 | Femeie
25 ani
Vaslui
cauta Barbat
25 - 80 ani |
|
|
lisp2arxReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
Code:
(remove-duplicates (list "a" "b" "a" "a" "a" "c" "c"))
--> wrong (list "b" "a" "a" "a" "c" "c"))
--> good (lst "a" "b" "c")
(delete-duplicates (list "a" "b" "a" "a" "a" "c" "c"))
--> wrong (list "b" "a" "a" "a" "c" "c"))
--> good (lst "a" "b" "c")
(remove (list "a" "b" "a" "a" "a" "c" "c"))
--> wrong (list "b" "a" "a" "a" "c" "c"))
--> good (lst "a" "b" "c")
CL-USER> (remove "a" (list "a" "b" "a" "a" "a" "c" "c"))
("a" "b" "a" "a" "a" "c" "c")
CL-USER>
(dfn_dupdel (list "a" "b" "a" "a" "a" "c" "c"))
(defun dfn_dupdel( l )
(if (null l) nil
(if (member (car l) (cdr l));;????
(dfn_dupdel (cdr l))
(cons (car l) (dfn_dupdel (cdr l)))
)
)
) |
(remove-duplicates (list "a" "b" "a" "a" "a" "c" "c"
(remove-duplicates (remove-duplicates labc :test #'string :test #'string
(dolist x (list "a" "b" "a" "a" "a" "c" "c" (print x))
You replace equal with String
https://stackoverflow.com/questions/793 ... rom-a-list
(Defun taskf3(lang / $rr)
(if (null lang)
(setq $rr nil)
(setq $rr (if (and (= (car lang) (cadr lang)) (null (member (car lang) $rr)))
(cons (car lang) (taskf3 (cddr lang)))
(taskf3 (cdr lang)))))
$rr)
(Defun taskf2(lang / $rr)
(if (null lang)
(setq $rr nil)
(setq $rr (if (and (car lang) (cadr lang) (/= (car lang) (cadr lang)))
(cons (car lang) (taskf3 (cddr lang)))
(if (car lang)
(taskf3 (cddr lang))
))))
$rr)
(setq labc (list "a" "b" "a" "a" "a" "c" "c")
(princ (taskf3 labc))
(setq labc (list "a" "b" "a" "a" "a" "c" "c")
(taskf3 labc)
_______________________________________
psw: cea de la wjndowsXP gigabyte..
|
|
| |
|
