 |
| #1721 | | #define BITCOUNT(x) (((BX_(x)+(BX_(x)>>4)) & 0x0F0F0F0F) % 255)
#define BX_(x) ((x) - (((x)>>1)&0x77777777)
- (((x)>>2)&0x33333333)
- (((x)>>3)&0x11111111))
-- really weird C code to count the number of bits in a word
|
|
| #1722 | | (defun NF (a c)
(cond ((null c) () )
((atom (car c))
(append (list (eval (list 'getchar (list (car c) 'a) (cadr c))))
(nf a (cddr c))))
(t (append (list (implode (nf a (car c)))) (nf a (cdr c))))))
(defun AD (want-job challenging boston-area)
(cond
((or (not (equal want-job 'yes))
(not (equal boston-area 'yes))
(lessp challenging 7)) () )
(t (append (nf (get 'ad 'expr)
'((caaddr 1 caadr 2 car 1 car 1)
(car 5 cadadr 9 cadadr 8 cadadr 9 caadr 4 car 2 car 1)
(car 2 caadr 4)))
(list '851-5071x2661)))))
;;; We are an affirmative action employer.
|
|
| #1723 | | Deliver yesterday, code today, think tomorrow.
|
|
| #1724 | | Did you know that for the price of a 280-Z you can buy two Z-80's?
-- P.J. Plauger
|
|
| #1725 | | Different all twisty a of in maze are you, passages little.
|
|
| #1726 | | Digital circuits are made from analog parts.
-- Don Vonada
|
|
| #1727 | | Disc space -- the final frontier!
|
|
| #1728 | | DISCLAIMER:
Use of this advanced computing technology does not imply an endorsement
of Western industrial civilization.
|
|
| #1729 | | Disclaimer: "These opinions are my own, though for a small fee they be
yours too."
-- Dave Haynie
|
|
| #1730 | | Disk crisis, please clean up!
|
|
|
| ... ... |
