Topic: Sorting a challenge

[ElpanovEvgeniy]

my version for revers sort:

Code - Auto/Visual Lisp: [Select]

1. (vl-sort lst
2.          (function
3.            (lambda (a b)
4.              (or (< (car a) (car b))
5.                  (and (= (car a) (car b))
6.                       (>= (read (vl-string-subst "e" "x" (cadr a))) (read (vl-string-subst "e" "x" (cadr b))))
7.                  )
8.              )
9.            )
10.          )
11. )

oops

Code - Auto/Visual Lisp: [Select]

1. (("beam" "12x12" 9) ("beam" "12x10" 6) ("beam" "12x7" 3)
2.  ("plywood" "10x17" 5) ("plywood" "14x12" 14) ("plywood" "10x12" 2) ("plywood" "14x11" 4)
3.  ("steel" "4x4" 8))

[ElpanovEvgeniy]

Code - Auto/Visual Lisp: [Select]

1. (vl-sort lst
2.          (function
3.            (lambda (a b)
4.              (or (< (car a) (car b))
5.                  (and (= (car a) (car b))
6.                       (<= (read (vl-string-subst "e-" "x" (cadr a))) (read (vl-string-subst "e-" "x" (cadr b))))
7.                  )
8.              )
9.            )
10.          )
11. )

Code - Auto/Visual Lisp: [Select]

1. (("beam" "12x12" 9) ("beam" "12x10" 6) ("beam" "12x7" 3)
2.  ("plywood" "10x17" 5) ("plywood" "10x12" 2) ("plywood" "14x12" 14) ("plywood" "14x11" 4)
3.  ("steel" "4x4" 8))

[ElpanovEvgeniy]

interesting idea, but it does not work ...

[ribarm]

Thanks "e-"...

You don't even need (read)

Code - Auto/Visual Lisp: [Select]

1. (vl-sort lst
2.         (function
3.           (lambda (a b)
4.             (or (< (car a) (car b))
5.                 (and (= (car a) (car b))
6.                      (<= (vl-string-subst "" "x" (cadr a)) (vl-string-subst "" "x" (cadr b)))
7.                 )
8.             )
9.           )
10.         )
11. )
12.  

[ribarm]

(defun LM:mysort-3 ( l / _sort )
   (defun _sort ( x l a b c / y )
       (cond
           (   (null (setq y (car l)))
               (append (LM:mysort-3 a) (list x) (LM:mysort-3 b) (LM:mysort-3 (reverse c)))
           )
           (   (and (= (car x) (car y)) (= (atoi (cadr x)) (atoi (cadr y))))
               (if (< (atoi (substr (cadr x) (+ 2 (vl-string-position 120 (cadr x)))))
                      (atoi (substr (cadr y) (+ 2 (vl-string-position 120 (cadr y)))))
                   )
                   (_sort x (cdr l) a (cons y b) c)
                   (_sort x (cdr l) (cons y a) b c)
               )
           )
           (   (_sort x (cdr l) a b (cons y c)))
       )
   )
   (if l (_sort (car l) (cdr l) nil nil nil))
)

Why here (reverse)... Just can't figure it up...
No need to answer - just experimenting with code tags...