Lisp hàm cal ?

[nghiautc 19]

Mình viết đoạn mã sau cho hàm cal nhưng khi dung nhân với số có giá trị lờn thì bị lỗi .Mong mọi người giúp đỡ

 

(defun c:ca (/ a) (command "cal" ^c) (setq a (c:cal)) (prompt (rtos a 2 20)) (alert (strcat (rtos a 2 6) )) (princ) )

[Tue_NV 3918]

Mình viết đoạn mã sau cho hàm cal nhưng khi dung nhân với số có giá trị lờn thì bị lỗi .Mong mọi người giúp đỡ

 

(defun c:ca (/ a) (command "cal" ^c) (setq a (c:cal)) (prompt (rtos a 2 20)) (alert (strcat (rtos a 2 6) )) (princ) )

Bạn đọc bài viết này nhé :

Bài viết số 7 và bài viết số 9