参数函数，创建inne

Kowal · 发表于 2022-7-6 06:13:49

此函数使用子列表的每个元素创建

(defun fun (L)
(apply 'list (mapcar '(lambda (%) (list %)) L)))

copy

'(1 2 3 -4) --> '((1) (2) (3) (-4))

如何创建分为三个元素之一的函数？

例子：

copy

'(1 2 3 4 5 6 3 3 3 2 2 2) --> '((1 2 3) (4 5 6) (3 3 3) (2 2 2))

Lee Mac · 发表于 2022-7-6 06:27:33

考虑以下通用分组函数：

copy

;; Group by N  -  Lee Mac
;; Groups a list into a list of lists, each of length n
(defun LM:groupn ( l n / r x )
   (repeat (/ (length l) n)
       (repeat n
           (setq x (cons (car l) x)
                 l (cdr l)
           )
       )
       (setq r (cons (reverse x) r)
             x nil
       )
   )
   (if l (setq r (cons l r)))
   (reverse r)
)

copy

_$ (LM:groupn '(1 2 3 4 5 6 3 3 3 2 2 2) 3)
((1 2 3) (4 5 6) (3 3 3) (2 2 2))

Lee Mac · 发表于 2022-7-6 06:49:00

这是一种递归方法，但依赖于AutoLISP的动态范围：

copy

(defun f ( l n )
   (if (< n (length l))
       (cons (g l n) (f l n))
       (list l)
   )
)
(defun g ( a b )
   (if (< 0 b)
       (cons (car a) (g (setq l (cdr a)) (1- b)))
   )
)

或者，交叉递归版本：

copy

(defun f ( l n )
   (if (< n (length l))
       (g l n nil n)
       (list l)
   )
)
(defun g ( a b c d )
   (if (< 0 b)
       (g (cdr a) (1- b) (cons (car a) c) d)
       (cons (reverse c) (f a d))
   )
)

copy

_$ (f '(1 2 3 4 5 6) 2)
((1 2) (3 4) (5 6))

Kowal · 发表于 2022-7-6 06:52:48

非常感谢李！

irneb · 发表于 2022-7-6 07:02:20

“旧”线程：http://www.theswamp.org/index.php?topic=41419.5 ... 尽管有更古老的线索：见李的第二篇文章。

更不用说：http://www.theswamp.org/index.php?topic=5108.0

当然，在某个地方可能有一个更古老的线索，我总是惊讶于实际上只有那么少的“新”事物

Lee Mac · 发表于 2022-7-6 07:21:17

我同意-考虑到LISP语言有多么古老，你几乎可以保证在过去的某个时候别人已经做了一些事情

尽管如此，我仍然非常喜欢重新审视这些问题，并尝试想出新的、新颖的方法来解决它们

[编程交流] 参数函数，创建inne

发表回复

精选推荐