Rosetta Code

Simple database: Difference between revisions

Page Discussion

Simple database (view source)

Revision as of 13:17, 25 November 2011

33 bytes removed ,  12 years ago
→‎{{header|Common Lisp}}: some more little improvements from #lisp
(→‎{{header|Common Lisp}}: (some) does all that's needed to compare lists of on type)
(→‎{{header|Common Lisp}}: some more little improvements from #lisp)
Line 59:
 
(defun get-latest (database)
(cond ((endpwhen database) nil)
(T (cons (cadrcar (assocget-value 'episodes (cdar database))) (get-latest (cdr database))))))
 
(defun get-all (database)
(cond ((endpwhen database) nil)
(T (append (get-value 'episodes (cdar database)) (get-all (cdr database))))))
 
(defun compare-by-date (a b)
Line 177:
(sort (mapcar #'car *db*)
#'(lambda (series1 series2)
(compare-by-date (cadrcar (assocget-value 'episodes (get-value series1 *db*)))
(cadrcar (assocget-value 'episodes (get-value series2 *db*))))))))
 
(defun watch-load (dbfile)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/205083"