lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
beatrice17
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 80 ani
lisp2arx / GnuLisp and CommonLisp / GnuLisp-recursive function-s  
Autor
Mesaj Pagini: 1
zauchan
Moderator

Inregistrat: acum 14 ani
Postari: 180
(defun myLast (L)
  (if (eq (cdr L) '())
  (car L)
  (myLast (cdr L))))               ;Evaluates to the last element of list L

(defun myCount (X L)
   (cond ((eq L '()) 0)
     ((eq X (car L))(+ 1 (myCount X (cdr L))))
     (+ (myCount X (cdr L)))))   ;Evaluates to number of occurrences of X in L

(defun myMember (X L)
   (cond ((eq L '()) '())
   ((eq X (car L)) t)
   (t (myMember X (cdr L)))))

Code:

Noi daca specia umanoida este pregatita? , multe calculatoare par a aveea calcule matematice ale borgilor?. Noi oameni nici nu am zburat cel putin 100anii prin Cosmos, cu navete, avioane sau ozn-uri si noi ne-am apucat de religia Borgilor!!! Zeii borgilor stiu daca aceste super-computere aduc bine?



_______________________________________
psw: cea de la wjndowsXP gigabyte..
pus acum 3 ani
   
Pagini: 1  

Mergi la