Topic: [challenge] A14 : Split a list into two parts

[Marc'Antonio Alessi]

Code: [Select]

(defun Split_ALE (L n / g h r)
  (if (> (setq g (length L)) n 0)
    (progn
      (setq g (- g (1+ n))   r (reverse L)   h (nth n L))
      (while (/= n (length (setq r (cdr (member h r))))))
      (while (/= g (length (setq L (cdr (member h L))))))
      (list (reverse r) (cons h L))
    )
    L
  )
)


[kirby]

Lunchtime fun, but won't win any prizes for brevity...
Thanks to JohnK for keeping this challenge going.
...

Your welcome. I'm trying to think of more but I'm running out of ideas. lol

You've been going hot and heavy on list manipulations
Lots of other classic programming topics (without getting into AutoCAD entity-specific manipulation)
e.g.:

String operations
Selection methods
Computational Geometry
Xdata
Dialog/DCL operations
etc.

[apricot125]

i love it.

Code - Auto/Visual Lisp: [Select]

1. (defun split (l n)
2.   (defun f (l n a)
3.     (cond
4.       ((null l) (reverse a))
5.       ((zerop n) (list (reverse a) l))
6.       (T (f (cdr l) (1- n) (cons (car l) a)))
7.     )
8.   )
9.   (f l n ())
10. )