Plaster
New
List
Login
common-lisp
default
phoe
2020.04.26 15:06:29
MY-TEST> (flet ((pred (x y) (or (< (first x) (first y)) (and (= (first x) (first y)) (string< (second x) (second y)))))) (let ((list '((1 "spade") (2 "heart") (3 "spade") (4 "heart") (12 "heart") (6 "heart") (2 "spade")))) (stable-sort (copy-list list) #'pred))) ((1 "spade") (2 "heart") (2 "spade") (3 "spade") (4 "heart") (6 "heart") (12 "heart"))
Raw
Annotate
Repaste
Annotations
common-lisp
default
phoe
2020.04.26 15:12:33
MY-TEST> (flet ((pred (x y) (or (string< (second x) (second y)) (and (string= (second x) (second y)) (< (first x) (first y)))))) (let ((list '((1 "spade") (2 "heart") (3 "spade") (4 "heart") (12 "heart") (6 "heart") (2 "spade")))) (sort (copy-list list) #'pred))) ((2 "heart") (4 "heart") (6 "heart") (12 "heart") (1 "spade") (2 "spade") (3 "spade"))
Raw
Repaste