quantize your anger

(defun c:wordgame(/ input time mean score)
(prompt "\Enter unique four letter words as fast as you can for a high
score!")
(setq mean 1 score 0)
(while
(progn(setq time (if input(getvar "TDUSRTIMER"))
input (cons(getstring)input)
time (if time (*(-(getvar "TDUSRTIMER")time)1e5)1)
mean (sqrt (* mean time) )
)
(cond
((member(car input)(cdr input))
(prompt "\nyou said that already.")()
)
((/=(strlen(car input))4)
(prompt "\nthat's not a four letter word.")()
)
((setq score(/ 1.0(*(/ 1.0(length input))mean)))T)
)
)
)
(prompt(strcat "\nfinal score: "(rtos score 2 6)))
(princ)
)


i feel better
now back to work

 

LOL

--
Robert Davis
QC/CMM Dept.


E.A.S. Manufacturing Co., Inc.
804 Via Alondra
Camarillo, Ca 93012
805-987-3665 Voice
805-987-7948 Fax
- General E-Mail
www.easmfg.com - Web Site