blob: 4ffd1f48823b0c1902550735019dc5114b639031 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
(defun funny-less (left right)
(let ((ll (len left))
(lr (len right)))
(or (< ll lr)
(if (eql ll lr)
(< (car left) (car right))))))
(defun funny-greater (left right)
(let ((ll (len left))
(lr (len right)))
(or (> ll lr)
(if (eql ll lr)
(> (car left) (car right))))))
(defun maj-pare-down (list pos)
(cdr [find-max [group-by (op ref @1 pos) list] funny-greater]))
(defun min-pare-down (list pos)
(cdr [find-min [group-by (op ref @1 pos) list] funny-less]))
(let ((list *2))
(each ((i 0..12))
(upd list (min-pare-down @1 i)))
list)
[apply * (mapcar (op toint @1 2) (flatten results))]
|
