Linux Computers: 211 of 1023 |
#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
|
|
|
Linux Computers: 212 of 1023 |
(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.
|
|
|
Linux Computers: 213 of 1023 |
Deliver yesterday, code today, think tomorrow.
|
|
|
Linux Computers: 214 of 1023 |
Did you know that for the price of a 280-Z you can buy two Z-80's?
-- P.J. Plauger
|
|
|
Linux Computers: 215 of 1023 |
Different all twisty a of in maze are you, passages little.
|
|
|
Linux Computers: 216 of 1023 |
Digital circuits are made from analog parts.
-- Don Vonada
|
|
|
Linux Computers: 217 of 1023 |
Disc space -- the final frontier!
|
|
|
Linux Computers: 218 of 1023 |
DISCLAIMER:
Use of this advanced computing technology does not imply an endorsement
of Western industrial civilization.
|
|
|
Linux Computers: 219 of 1023 |
Disclaimer: "These opinions are my own, though for a small fee they be
yours too."
-- Dave Haynie
|
|
|
Linux Computers: 220 of 1023 |
Disk crisis, please clean up!
|
|