斑竹帮看下，判断奇偶后返回值的问题！(已完结)

simon8001 · 发表于 2011-5-31 11:07:15

本帖最后由 simon8001 于 2011-6-14 09:21 编辑

(defun c:aa ()
(setq ss (list (list "BZZL" "01-1")
(list "BZZL" "01-2")
(list "BZZL" "01-3")
(list "BZZL" "01-4")
(list "BZZL" "01-15")
(list "BZZL" "01-16")
(list "BZHJ" "01-6")
(list "BZHJ" "01-8")
(list "1LZHJ" "01-13")
) ;_ 结束list
) ;_ 结束setq
(setq n-ss (length ss))
(cond ((= (rem n-ss 2) 1)
(setq ss (append ss (list (list("" "")))))
(+ n-ss 1)
)
(t n-ss)
) ;_ 结束cond
(setq a(+ 1 n-ss))
) ;_ 结束defun

我的目的是判断n-ss的奇偶，如果n-ss是奇数就给它加一组空表，然后再返回新列表的长度，也就是n-ss+1的值！如果n-ss是偶数则返回原值！谢谢了！

198526 · 发表于 2011-5-31 11:14:42

(cond  ((= (rem n-ss 2) 1)
(setq ss (append ss (list (list("" "")))))
(+ n-ss 1)
  )
  (t n-ss)
  )
改为
(cond  ((= (rem n-ss 2) 1)
(setq ss (append ss (list (list "" ))))
(+ n-ss 1)
  )
  (t n-ss)
  )

simon8001 · 发表于 2011-5-31 11:24:42

回复 198526 的帖子

您好我知道是哪里错了改为：改为
(cond  ((= (rem n-ss 2) 1)
(setq ss (append ss (list (list ""  "" ))))
(+ n-ss 1)
  )
  (t n-ss)
  )
这个就是我需要的了！谢谢您！

wgg212 · 发表于 2011-7-22 13:18:45

回复 simon8001 的帖子

UltraEdit 文本编辑器中有对括号检查的功能，建议使用

simon8001 · 发表于 2011-7-22 14:27:10

回复 wgg212 的帖子

我这里主要说的是表的结构的问题，不过还是要谢谢你！！

账号		自动登录	找回密码
密码			注册

[基础] 斑竹 帮看下，判断奇偶后返回值的问题！(已完结)

[基础] 斑竹帮看下，判断奇偶后返回值的问题！(已完结)