blob: 71fc9851fa2418b4c0787cc4d4da5dc31ebb870e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(defun move-impl (items keys ins-pos)
(let ((key-items (mapcar (op find @1 items) keys))
(rm-items [set-diff items keys equal]))
(append [rm-items 0..ins-pos]
key-items
[rm-items ins-pos..:])))
(defun minpos (items keys)
[reduce-left min (mapcar (op posqual @1 items) keys) (length items)])
(defun move-up (items keys)
(move-impl items keys
(max 0 (pred (minpos items keys)))))
(defun move-down (items keys)
(move-impl items keys
(succ (minpos items keys))))
(defun move-front (items keys)
(move-impl items keys 0))
(defun move-tail (items keys)
(move-impl items keys (length items)))
|
