请问如何求出列表中前n个变量的和或后n个变量的和

莫莫茶

请问如何求出列表中前n个变量的和或后n个变量的和

ZZXXQQ

2. (defun n+ (lst n)
   
3. (setq sum 0 i 0)
   
4. (if (> (length lst) n)
   
5.   (repeat n
   
6.    (setq sum (+ (nth i lst) sum))
   
7.    (setq i (1+ i))
   
8.   )
   
9. )
   
10. sum
    

(defun n+ (lst n)<br /> (setq sum 0 i 0)<br /> (if (> (length lst) n)<br />   (repeat n<br />    (setq sum (+ (nth i lst) sum))<br />    (setq i (1+ i))<br />   )<br /> )<br /> sum<br />

)

2. (defun +n (lst n)
   
3. (n+ (reverse lst) n)
   
4. )

(defun +n (lst n)<br /> (n+ (reverse lst) n)<br /> )

77077

1. 
   
2. (apply '+ (sublist lst 0 (1- n)))
   
3. (apply '+ (sublist lst n (length lst)))
   

复制代码

鱼与熊掌

2. ;_$ (LM:sublst '(1 2 3 4 5 6 7 8) 2 4)
   
3. ;(3 4 5 6)
   
4. ;
   
5. ;_$ (LM:sublst '(1 2 3 4 5 6 7 8) 2 nil)
   
6. ;(3 4 5 6 7 8)
   
7. ;
   
8. (defun cx-sublst ( lst idx len / rtn )
   
9.         (setq len (if len (min len (- (length lst) idx)) (- (length lst) idx))
   
10.                 idx (+  idx len)
    
11.         )
    
12.         (repeat len (setq rtn (cons (nth (setq idx (1- idx)) lst) rtn)))
    
13. )

;_$ (LM:sublst '(1 2 3 4 5 6 7 8) 2 4)<br /> ;(3 4 5 6)<br /> ;<br /> ;_$ (LM:sublst '(1 2 3 4 5 6 7 8) 2 nil)<br /> ;(3 4 5 6 7 8)<br /> ;<br /> (defun cx-sublst ( lst idx len / rtn )<br />         (setq len (if len (min len (- (length lst) idx)) (- (length lst) idx))<br />                 idx (+  idx len)<br />         )<br />         (repeat len (setq rtn (cons (nth (setq idx (1- idx)) lst) rtn)))<br /> )

llsheng_73

1. (DEFUN N+(N F LST / I)
   
2.   (setq i 0 f(if f vl-remove-if-not vl-remove-if ))
   
3.   (apply'+(f'(lambda(x)(<=(setq i(1+ i))n))lst))
   
4.   )

(DEFUN N+(N F LST / I)<br />   (setq i 0 f(if f vl-remove-if-not vl-remove-if ))<br />   (apply'+(f'(lambda(x)(<=(setq i(1+ i))n))lst))<br />   )

或者

1. (defun sublst(m n lst / i)
   
2.   (setq i 0)
   
3.   (vl-remove-if-not'(lambda(x)(<= m(setq i(1+ i))n))lst)
   
4.   )
   
5. (defun N+(n f lst / a b)
   
6.   (apply'+(sublst(if f 0 n)(if f(1+ n)(length lst))lst))
   
7.   )

(defun sublst(m n lst / i)<br />   (setq i 0)<br />   (vl-remove-if-not'(lambda(x)(<= m(setq i(1+ i))n))lst)<br />   )<br /> (defun N+(n f lst / a b)<br />   (apply'+(sublst(if f 0 n)(if f(1+ n)(length lst))lst))<br />   )

(N+ 4 t '(1 2 3 4 5 6 7 8 9 10))==>10
(N+ 4 nill '(1 2 3 4 5 6 7 8 9 10))==>45

重慶崽兒

llsheng_73 发表于 2015-6-11 22:00
或者

73大大
(vl-remove-if-not'(lambda(x)(<= m (setq i(1+ i)) n))lst)
这句话中  表lst中的元素是怎么参与计算的啊  没明白
lambda(x)中的X并没有参与计算啊

llsheng_73

重慶崽兒 发表于 2015-6-11 23:37
73大大
(vl-remove-if-not'(lambda(x)(

不需要它参与计算，只需要它依次取lst中的元素时，计数器I能进行累加
然而不要它却又不行，因为语法这样规定的

重慶崽兒

llsheng_73 发表于 2015-6-12 00:18
不需要它参与计算，只需要它依次取lst中的元素时，计数器I能进行累加
然而不要它却又不行，因为语法这样 ...

明白了   呵呵 还能这样
  谢谢

vladimirputin

不错的资料，谢谢楼主分享啊。