求列表中最长连续非递增项

aimisiyou · 发表于 2017-7-15 13:54:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 aimisiyou 于 2017-7-15 13:56 编辑

如（1 2 3 3 2 4 1 2 2 4 3 1 4 2 3 1）中最长连续非递增项为（4 3 1）。若项数相同，取第一位大的；若第一位相同，取第二位数值大的；……（4 3 1）〉（3 3 2）。

aimisiyou · 发表于 2017-7-22 17:08:12

(defun fun (lst)
  (cons (apply 'strcat (mapcar '(lambda (x) (rtos x 2 10))  lst)) lst)
)
(defun ffun (lst)
(setq i 1 n (length lst) vc (list (car lst))  slst nil)
(while (<  i n)
(setq va (car vc))
(setq vb (nth i  lst)  )
   (if (<= vb  va )
         (setq vc (cons vb vc) )
         (progn
            (setq slst (cons (reverse vc) slst) )
            (setq  vc (list vb))
         )
   )
   (setq i (+ i 1))
  )
  (reverse (cons (reverse vc ) slst))
)
(setq lst '(6 3 2 5 4 1 8 9 8 7 6 2 3 8 2) )
(mapcar ' fun (ffun lst))

aimisiyou · 发表于 2017-7-22 17:10:35

转化为对字符串先按长度，再按各位上的大小排序。如'（"45" "123" "43" "21"）排序结果为'（"123" "45" "43" "21"）

aimisiyou · 发表于 2017-7-23 09:11:15

本帖最后由 aimisiyou 于 2017-7-23 09:13 编辑

(defun fun (lst)
  (defun fun1 (lst)
   (cons (apply 'strcat (mapcar '(lambda (x) (rtos x 2 10))  lst)) lst)
)
  (defun fun2 (lst)
   (setq i 1 n (length lst) vc (list (car lst))  slst nil)
   (while (<  i n)
         (setq va (car vc))
         (setq vb (nth i  lst)  )
         (if  (<= vb  va )
               (setq vc (cons vb vc) )
               (progn
                  (setq slst (cons (reverse vc) slst) )
                  (setq  vc (list vb))
               )
         )
         (setq i (+ i 1))
   )
   (reverse (cons (reverse vc ) slst))
)
(mapcar  'cdr (vl-sort (mapcar ' fun1 (fun2 lst)) '(lambda (a b) (if  (= (strlen (car a)) (strlen (car b)))
                                                                                                         (> (car a) (car b))
                                                                                                         (> (strlen (car a)) (strlen (car b)))
                                                                                                   )
                                                                              )                                                                                  )
   )
)
(fun '(1 2 3 3 2 4 1 2 2 4 3 1 4 2 3 1))

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

[研讨] 求列表中最长连续非递增项

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。