Topic: LISP Challenge: Red Sector A

[T.Willey]

Here is mine.  Didn't look because I didn't want to write with a tainted mind, but it is pretty close to what is already here, if not exact.  But a fun little exercise.

Code: [Select]

(defun FindSector ( rad sec / Sector)
   
    (setq Sector (/ rad (/ (* 2 pi) sec)))
    (if (equal (rem Sector 1) 0.0 0.000001)
        Sector
        (+ 0.5 (fix Sector))
    )
)


[MP]

Here is mine ...

Hi, My 2 cents ...

Thanks guys. Kinda scary how we all think along the same lines but implement slightly different. Thanks for sharing your interpretations of a solution.

[deegeecees]

Code: [Select]

(defun ragged_grey ()
   (if liberators
      (setq feel '(hope))
      (setq feel '(fear))
   )
)
Please disregard preceding post.

[kdub_nz]

I shouldn't write post code in haste  ... didn't even make my variables local.

on another issue : is nice to read a thread without social comment splattered throughout.




edit : oops, I just made a social comment.

[MP]

... didn't even make my variables local.

Like you said, you knocked it out quick, I wasn't going to nit pick something you'd fix as soon as you returned to the thread.

[MP]

Code: [Select]

(defun ragged_grey ()
   (if liberators
      (setq feel '(hope))
      (setq feel '(fear))
   )
)
Please disregard preceding post.

Close:

Code: [Select]

(setq feel
   (if liberators
      '(hope)
      '(fear)
   )
)