;;; sin(10^100) (sin (expt 10 100)) ;;; -0.567656625438599 ;;; note that if the above is accurate, the following should all be different: (sin (expt 10 100)) (sin (+ (expt 10 100) 1)) (sin (+ (expt 10 100) 2)) (sin (+ (expt 10 100) 3)) ;;; but they all evaluate to the same thing. So we certainly cannot ;;; trust the above results!
(Extra credit: do you think your answer is numerically correct? Conduct an experiment to check.)
(/ (+ 1 1 2 3 5 8 13 21 33.0) 9) ;;; 9.6666666666666661
(+ (* (+ 1 (* (+ 1 (* (+ 1 (* (+ 1 (+ 1 1)) (* (+ 1 1) (+ 1 (+ 1 1))))) (+ 1 (* (+ 1 (+ 1 1)) (* (+ 1 1) (+ 1 (+ 1 1))))))) (+ 1 (* (+ 1 (* (+ 1 (+ 1 1)) (* (+ 1 1) (+ 1 (+ 1 1))))) (+ 1 (* (+ 1 (+ 1 1)) (* (+ 1 1) (+ 1 (+ 1 1))))))))) (+ 1 (* (+ 1 (* (+ 1 (* (+ 1 (+ 1 1)) (* (+ 1 1) (+ 1 (+ 1 1))))) (+ 1 (* (+ 1 (+ 1 1)) (* (+ 1 1) (+ 1 (+ 1 1))))))) (+ 1 (* (+ 1 (* (+ 1 (+ 1 1)) (* (+ 1 1) (+ 1 (+ 1 1))))) (+ 1 (* (+ 1 (+ 1 1)) (* (+ 1 1) (+ 1 (+ 1 1)))))))))) 1)
This is not too hard for me to read (after all, human readability is the point of proper indentation!)
(+ (* (+ 1 (* (+ 1 (* (+ 1 (* (+ 1 (+ 1 1))
(* (+ 1 1)
(+ 1 (+ 1 1)))))
(+ 1 (* (+ 1 (+ 1 1))
(* (+ 1 1)
(+ 1 (+ 1 1)))))))
(+ 1 (* (+ 1 (* (+ 1 (+ 1 1))
(* (+ 1 1)
(+ 1 (+ 1 1)))))
(+ 1 (* (+ 1 (+ 1 1))
(* (+ 1 1)
(+ 1 (+ 1 1)))))))))
(+ 1 (* (+ 1 (* (+ 1 (* (+ 1 (+ 1 1))
(* (+ 1 1)
(+ 1 (+ 1 1)))))
(+ 1 (* (+ 1 (+ 1 1))
(* (+ 1 1)
(+ 1 (+ 1 1)))))))
(+ 1 (* (+ 1 (* (+ 1 (+ 1 1))
(* (+ 1 1)
(+ 1 (+ 1 1)))))
(+ 1 (* (+ 1 (+ 1 1))
(* (+ 1 1)
(+ 1 (+ 1 1))))))))))
1)
If faculty raises continue for the next five years as they did this year, the following is how much I will make in 2002 for each dollar I made this year:
(* 1 1 1 1 1)More seriously, here were a few good ones:
;;; Chris Davis (chris2d@unm.edu
;;; This will figure out the average time I spend in the ESC pod,
;;; per day. Everything is in hours.
(/ (+ (+ (- 9 7.5) (- 5 2)) ; Monday 7:30 to 9, 2pm to 5pm
(+ (- 9.5 7.5) (- 8 5)) ; Tues 7:30 to 9:30, 5pm to 8pm
(+ (- 9 7.5) (+ 1 ) (- 7 3)) ; Wed. 7:30 to 9, 12 to 1, 3 to 7pm
(+ (- 12.5 7.5) (- 5 4)) ; Thurs. 7:30 to noon, 4pm to 5pm
(+ (- 9 7.5) (- 5 2)) ; Friday 7:30 to 9, 2pm to 5
(+ 1.5) ; Sat.: usually about 1.5 hours
(+ 5)) ; Sun. usually about 5 hours
7) ; divide by number of days in a week
;;; Justin Smith (jthsmith@unm.edu)
;;; 4. The Drake Equation to estimate the number of communicating
;;; technological civilizations in the Milky Way galaxy:
;;; N = N* * Fs * Np * Fe * Fl * Fi * (L / Lmw)
;;; N = number of technological civilizations in the Milky Way
;;; N* = number of stars in the galaxy
;;; Fs = fraction of sunlike stars
;;; Np = average number of planets per star
;;; Fe = fraction of planets suitable for life
;;; Fl = fraction of planets where life actually develops
;;; Fi = fraction of planets where intelligent civilizations arise
;;; L = lifetime of civilization with ability to communicate
;;; Lmw = lifetime of the Milky Way galaxy
;;; I'll use: N* = 3E11, Fs = 0.3, Np = 10, Fe = 0.025, Fl = 0.75. Fi = 0.01,
;;; L = 10000, Lmw = 10E10
(* 3E11 (* 0.3 (* 10 (* 0.025 (* 0.75 (* 0.01 (/ 10000 10E10)))))))
;;; Andrew E Claiborne aeclai@unm.edu
;;; This calculates the spring rate for a coil spring with 8 coils, made
;;; out of 1 inch diameter wire, formed in a 4.3 inch diameter coil
(/ (expt (* 1406250 1) 4) ; (1406250 * wire diameter)^4
(* 8 ; number of coils
(expt (- 4.3 1) 3))) ; (coil diameter - wire diameter)^3
;;; Jamin C. S. Ragle jragle@unm.edu
;;; An approximation of pi/4 by power series.
(+ (/ 1 1)
(- (/ 1 3))
(/ 1 5)
(- (/ 1 7))
(/ 1 9)
(- (/ 1 11))
(/ 1 13)
(- (/ 1 15))
(/ 1 17)
(- (/ 1 19))
(/ 1 21)
(- (/ 1 23))
(/ 1 25)
(- (/ 1 27))
(/ 1 29))
Make the drawing really complicated and cute. This is a good way to learn the cut-and-paste features of emacs, and maybe query-replace too. By using these, you should be able to eg easily spell your name in big letters.
(write "Ask your friends, there were lots of good ones!")