Author Topic: Challenge ( cylinder volume ) (Read 5980 times)

CAB · « **Reply #15 on:** March 31, 2006, 07:04:04 PM »

Late to the party as usual, but here is my late entry.

(* (/ pi 4)
   (expt (progn (initget 7) (getdist "\nDiameter: ")) 2)
   (progn (initget 7) (getdist "\nHeight: ")))

LE · « **Reply #16 on:** March 31, 2006, 07:13:42 PM »

I must admit too.... I forgot about the usage of progn

RbtDanforth · « **Reply #17 on:** March 31, 2006, 08:26:45 PM »

Expt! that was what I was missing!

(* (expt (getdist "radius?")2) pi (Getdist "Height"))

(*) doesn't need a progn, and if someone types in "George" it is their problem.

Now the tricky bit would be to draw the cylinder at the same time!

ElpanovEvgeniy · « **Reply #18 on:** April 01, 2006, 04:57:50 AM »

(apply '(lambda (a b) (* pi a a b 0.25)) (mapcar '(lambda (a) (initget 7) (getdist a)) '("Diameter?" "Height?")))

Mark · « **Reply #19 on:** April 01, 2006, 08:46:57 AM »

Good stuff! That poor cat got skinned a bunch'a ways didn't it.

CAB · « **Reply #20 on:** April 01, 2006, 10:28:26 AM »

I don't know how you come up with these challenges Mark. Very creative.

Mark · « **Reply #21 on:** April 01, 2006, 10:37:12 AM »

I don't know how you come up with these challenges Mark. Very creative.

It ain't easy! Wish I was talented enough to challenge the big guns.

And for all those reading this, don't be shy, write your own challenges and post them.

News: