小练习 --插入新的元素到一个有序的数列中。

highflybird

国外的题目：
写一个简短的程序，插入一个新的数值到一个排好序的表中。
假如： 已有表'(10000 9000 8000 7000 6000)
现在有一个新的记录，8500,要插入进来，变成表'(10000 9000 8500 8000 7000 )
维持表的长度不变，那个最小的被移走了。
如果新记录比表中元素都小，则表不变。
以下原文（我只是意译)
How to write the shortest lisp using mapcar or lambda to insert a value into a list. Say I have 5 scores - (list 10000 9000 8000 7000 6000). And a new high score of 8500 to insert into this list, meaning the result is 10000 9000 8500 8000 7000. Always end with 5 highest score only, notice the last item in the list 6000 is removed from the list. I have written a lisp but its quite long. I wondered if using mapcar or lambda will shorten the lisp ??

呵呵，欢迎大家练习一下。

格式例如如下：
(f '(9 8 7 6 5 3) 1)  ; (9 8 7 6 5 3)
(f '(9 8 7 6 5 3) 10) ; (10 9 8 7 6 5)
(f '(9 8 7 6 5 3) 3)  ; (9 8 7 6 5 3)
(f '(9 8 7 6 5 3) 5)  ; (9 8 7 6 5 5)
(f '(9 8 7 6 5 3) 4)  ; (9 8 7 6 5 4)
(f '(9 8 7 6 5 3) 9)  ; (9 9 8 7 6 5)




该贴已经同步到 highflybird的微博

yjr111

沙发！耶！！！！！！！想了2个，支持一下。。。。
;;;;;;;;第一种，排序;;;;;;;;
(defun insertnum1(lst num / lst lst1 lst2)
(setq lst(reverse(cdr(reverse(vl-sort-i (setq lst1(cons num lst))'>)))))
(mapcar '(lambda(x)(setq lst2(append lst2 (list(nth x lst1))))) lst)
lst2
)
;;;;;;;第二种,递归;;;;;;;;;;;;;;;;;;;;;;;;;
(defun insertnum2(lst num / )
(cond((>= num (car lst))
      (setq flag nil)
      (setq lst (cons num (reverse(cdr(reverse lst)))))
      )
     ((<= num (last lst))
      (setq flag nil)
      lst
      )
     (t
      (setq newlst (cons (car lst) newlst)
            lst    (cdr lst)
      )
      (if flag
      (insertnum lst num)
       )
      )
)
)
;;;;;;测试;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:tt1(/ newlst numlst number )
(setq numlst '(9 8 7 6 5 3) number 5)
(setq numlst(insertnum1 numlst number))
(princ numlst)
(princ)
)
(defun c:tt2(/ newlst numlst number flag)
(setq numlst '(9 8 7 6 5 3) number 5  flag t)
(setq numlst(insertnum2 numlst number)
       numlst(append (reverse newlst)numlst)
       )
(princ numlst)
(princ)
)

1. 
   

复制代码

1. 
   

复制代码

highflybir

多谢参与。代码很好！

Gu_xl

1. ;;递归法
   
2. (defun f (l n)
   
3.   (if (> (car l) n)
   
4.     (cons (car l) (f (cdr l) n))
   
5.     (if l
   
6.       (cons n (reverse (cdr (reverse l))))
   
7.     )
   
8.   )
   
9. )
   

;;递归法<br /> (defun f (l n)<br />   (if (> (car l) n)<br />     (cons (car l) (f (cdr l) n))<br />     (if l<br />       (cons n (reverse (cdr (reverse l))))<br />     ) <br />   ) <br /> ) <br />

阿山

学习一下!!

highflybird

• (defun f (l n)
  
•   (cond
  
•     ( (> (car l) n)(cons (car l) (f (cdr l) n)))
  
•     ( l (cons n (f (cdr l) (car l))))
  
•   )
  
• )
  
  

革天明

看来算法题目也就这几种方法了，各位神仙都是法力无边啊，想起来玄幻小说中的“天地规则”“规则之力”，

zyhandw

都是高人，俺还对递归还不是很理解！