Stats

  • Locked Locked
  • Replies 3
  • Subscribers 143
  • Views 5127
  • Members are here 0
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Sorting a list of a list by specific element in said list

vtboy51

I would like to sort the lists below by the last element (the numbers), could someone share some hints? Thanks

detailListComplete=
(("MPDIOION2.1 pmos2v_mac 9.8")
("MPDIOION2.2 pmos2v_mac 20.8")
("MPDIOION2.3 pmos2v_mac 29.8")
("MPDIOION2.4 pmos2v_mac 29.8")
("MPION2DUM.1 pmos2v_mac 22.8")
("MPION2DUM.2 pmos2v_mac 29.8")
("MPION2DUM.3 pmos2v_mac 29.8")
("MPION2DUM.4 pmos2v_mac 21.8")
("MPION2DUM.5 pmos2v_mac 29.8")
("MPION2DUM.6 pmos2v_mac 39.8")
("MPMIRION2.1 pmos2v_mac 29.8")
("MPMIRION2.2 pmos2v_mac 21.8")
("MPRAMPMIN.1 pmos2v_mac 29.8")
("MPRAMPMIN.2 pmos2v_mac 28.8")
("MPEN5 pmos5v_mac 7.3")
)

Parents

  • Hi,

    This will do:

    (let ((get_number (lambda (str) (if (pcreMatchp "([0-9.]+)$" str) (pcreSubstitute "\\1") ""))))

     (sort (copy detailListComplete) (lambda (l0 l1) (minusp (alphaNumCmp (funcall get_number (car l0)) (funcall get_number (car l1)))))))

    Below is an equivalent C-style version that will be a little bit more robust

    procedure( cst_get_number(str)
  "Return STR final number"
  let( (magic)
    magic=rexMagic()
    rexMagic(t)
    prog1(
      if( pcreMatchp( "([0-9.]+)$" str)
        then
          pcreSubstitute("\\1")
        else
          ""
      )
      rexMagic(magic)
    )
  )
)

procedure( cst_compare(l0 l1)
  "Compare L0 and L1 (which are list containings at least one string) by final number in each strings"
  0 > alphaNumCmp( cst_get_number(car(l0)) cst_get_number(car(l1)) )
)

detailListComplete = sort(detailListComplete 'cst_compare)
Reply

  • Hi,

    This will do:

    (let ((get_number (lambda (str) (if (pcreMatchp "([0-9.]+)$" str) (pcreSubstitute "\\1") ""))))

     (sort (copy detailListComplete) (lambda (l0 l1) (minusp (alphaNumCmp (funcall get_number (car l0)) (funcall get_number (car l1)))))))

    Below is an equivalent C-style version that will be a little bit more robust

    procedure( cst_get_number(str)
  "Return STR final number"
  let( (magic)
    magic=rexMagic()
    rexMagic(t)
    prog1(
      if( pcreMatchp( "([0-9.]+)$" str)
        then
          pcreSubstitute("\\1")
        else
          ""
      )
      rexMagic(magic)
    )
  )
)

procedure( cst_compare(l0 l1)
  "Compare L0 and L1 (which are list containings at least one string) by final number in each strings"
  0 > alphaNumCmp( cst_get_number(car(l0)) cst_get_number(car(l1)) )
)

detailListComplete = sort(detailListComplete 'cst_compare)
Children
No Data

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.