RANDOM LETTER

[Anonymous]

Is there/does anyone know/have a lisp to generate a RANDOM LETTER? 

Looked everywhere.... look tricky.....

Thanks in advance.

[gpcattaneo]

One...

(defun randL ( str / strL modulus multiplier increment )
    (setq strL (strlen str))
    (or seed (setq seed (getvar "date")))
    (setq modulus    65536
          multiplier 25173
          increment  13849
          seed  (rem (+ (* multiplier seed) increment) modulus)
    )
    (substr str (1+ (fix (* strL (/ seed modulus)))) 1)
)


(randL "ABCDEFGHIJKLMNOPQRSTUVWXYZ")

[Anonymous]

Close your eyes & take a prod at the keyboard?

That'll work

[phanaem]

If you have DosLib installed
(chr (+ 65 (rem (dos_random) 26)))