基本上,我试图对以下职能进行评价,但留下以下错误:
WARNING :
MAINDIA is neither declared nor bound,
it will be treated as if it were declared SPECIAL.
WARNING :
SOUT is neither declared nor bound,
it will be treated as if it were declared SPECIAL.
WARNING :
NORT is neither declared nor bound,
it will be treated as if it were declared SPECIAL.
*** - NIL: variable MAINDIA has no value
The following restarts are available:
ABORT :R1 Abort debug loop
ABORT :R2 Abort debug loop
ABORT :R3 Abort debug loop
ABORT :R4 Abort debug loop
ABORT :R5 Abort debug loop
ABORT :R6 Abort debug loop
ABORT :R7 Abort debug loop
ABORT :R8 Abort main loop
当我从互联网上尝试复制和复制一个实例时,它就发挥了作用,但当我人工将其打成口译时,它就没有工作。 此外,我还在从胚胎中接过CLISP。
法典:
(defun diagonal-mast (sq)
(let* ((maindia #x8040201008040201)
(diag (- (* 8 (logand sq 7))
(logand sq 56)))
(nort (logand (- diag)
(ash diag -31)))
(sout (logand diag (ash (- diag) -31))))
(ash (ash maindia (- sout))
nort)))
www.un.org/Depts/DGACM/index_spanish.htm NOte: I am on CLISP 2.48