Name: Anonymous 2009-11-11 9:37
SELECT girl
FROM internet
WHERE age > 18
AND age < 20
ORDER BY beauty
LIMIT 1,10
FROM internet
WHERE age > 18
AND age < 20
ORDER BY beauty
LIMIT 1,10
(defun make-adder (n)
#'(lambda (x)
(+ x n)))
CL-USER> (make-adder 10)
#<CLOSURE (LAMBDA (X)) {24DD3405}>
CL-USER> (funcall * 9)
19
CL-USER> (funcall ** 10)
20
(let ((counter 0))
(defun inc-counter ()
(incf counter))
(defun reset-counter ()
(setf counter 0))
(defun get-counter ()
counter))
CL-USER> (get-counter)
0
CL-USER> (inc-counter)
1
CL-USER> (inc-counter)
2
CL-USER> (inc-counter)
3
CL-USER> (inc-counter)
4
CL-USER> (get-counter)
4
CL-USER> (reset-counter)
0
CL-USER> (inc-counter)
1
(defun my-cons (car cdr)
#'(lambda (f) (funcall f car cdr)))
(defun my-car (cons)
(funcall cons #'(lambda (car cdr) car)))
(defun my-cdr (cons)
(funcall cons #'(lambda (car cdr) cdr)))
CL-USER> (my-cons 123 456)
#<CLOSURE (LAMBDA (F)) {245FFEA5}>
CL-USER> (my-car #<CLOSURE (LAMBDA (F)) {245FFEA5}>)
123
CL-USER> (my-cdr #<CLOSURE (LAMBDA (F)) {245FFEA5}>)
456