写一个简短的程序，插入一个新的数值到一个排好序的表中。

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)

Free-Lancer

(reverse (cdr (vl-sort (cons num lst) '<)))来自: Android客户端

Highflybird

Free-Lancer 发表于 2013-5-7 21:33

                               
登录/注册后可看大图

(reverse (cdr (vl-sort (cons num lst) '

vl-sort有一个bug，就是如果有重复的元素，可能被移除。

黑洞—杜明智

[pcode=c,true](defun f (lst num / lst1 x lst2 rtn)
  (setq lst1 (cons num lst))
  (setq rtn (reverse
                       (cdr (foreach x (vl-sort-i lst1 '>)
                                 (setq lst2 (cons (nth x lst1) lst2))
                               )
                        )
                 )
  )
(princ rtn)
)[/pcode]

测试结果！

(f '(9 8 7 6 5 3) 1)  ; (9 8 7 6 5 3)

(f '("m" "k" "g" "e" "b" "a") "d")  ;("m" "k" "g" "e" "d" "b")

暂时测试无BUG，但总感觉代码还可以精简，暂时没思路，楼主指导下。

st788796

[pcode=lisp,true](defun ff (lst num / tf)
  (mapcar '(lambda (x /)
             (if (> x num)
               x
               (if tf
                 x
                 (progn (setq tf t) num)
               )
             )
           )
          lst
  )
)[/pcode]

xshrimp

根据楼上的改一下
[pcode=lisp,true](defun f (lst n / r p)
  (mapcar
  '(lambda (x)
    (cond
      ((>= x n) x)
      (r (setq r p p x) r)
      (t (setq p x r n ))
    )   
   )
  lst
  )
)[/pcode]

(mapcar '(lambda(x)(f  '(9 8 7 6 5 3) x)) '(1 10 3 5 4 9))
=>
(
(9 8 7 6 5 3)
(10 9 8 7 6 5)
(9 8 7 6 5 3)
(9 8 7 6 5 5)
(9 8 7 6 5 4)
(9 9 8 7 6 5)
)

aimisiyou

(defun ff (lst n)
   (setq  newlst '())
   (setq addlst (cons n lst))
   (setq numlst (vl-sort-i addlst '<))
   (foreach i numlst
          (setq newlst (cons (nth i addlst) newlst))
   )
   (if (> (car (reverse newlst)) n)
       (newlst)
       (reverse (cdr (reverse newlst)))
    )
)
(ff '(10000 9000 8000 7000 6000) 8500)

llsheng_73

1. (defun ff(l i)(setq i(cons i l))(mapcar'(lambda(a l)(nth l i))l(vl-sort-i i(if(>(car l)(last l))'>'<))))

(defun ff(l i)(setq i(cons i l))(mapcar'(lambda(a l)(nth l i))l(vl-sort-i i(if(>(car l)(last l))'>'<))))

cabinsummer

(defun f(lst num)   (reverse     (cdr       (reverse         (append           (vl-remove-if '(lambda(x)(<= x num)) lst)           (cons num (vl-remove-if '(lambda(x)(/= x num)) lst))           (vl-remove-if '(lambda(x)(>= x num)) lst)         )       )     )   ) )

cabinsummer

没用排序，计算速度应该快些，就是有点长

ayl1004

三年多时间了，这个奖还没发出去，高飞鸟有什么更好的思路，提示提示。