Stats

  • Locked Locked
  • Replies 16
  • Subscribers 144
  • Views 19941
  • 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

Alternative way of getting the column in a list

essej
I have a function that gets the columns in an assoc list. Its working fine except for the very large size of list around 10 million. I gets a huge memory allocated when I profiled it.

procedure(getColSub(col lList)
  if(onep(length(col)) then
    case(car(col)
      (0 mapcar('car lList))
      (1 mapcar('cadr lList))
      (2 mapcar('caddr lList))
      (3 mapcar('cadddr lList))
      (t mapcar('nth vectorToList(makeVector(length(lList) car(col))) lList))
    )
  else
    mapcar('nth col vectorToList(makeVector(length(col) lList)))
  )
)

Example:
lList=list(list("a" 1) list("b" 2))
col=list(1 0) , gives ((1 "a")(2 "b"))
col=list(1) , gives (1 2)
Parents
  • tweeks

    essej said:

    Output should be ((1 "a")(2 "b)).

    Ok, so you're not slicing across lists, you're re-arranging elements within a list.

    That code is also simple:

     

    > procedure(getColumns(columns lists "ll")
    foreach(mapcar list lists
        foreach(mapcan column columns
            list(nth(column list))
        )
    )
)
getColumns
> a = '(("a" 1) ("b" 2))
(("a" 1) 
    ("b" 2)
)
> getColumns('(1 0) a)
((1 "a") 
    (2 "b")
)
>
Reply
  • tweeks

    essej said:

    Output should be ((1 "a")(2 "b)).

    Ok, so you're not slicing across lists, you're re-arranging elements within a list.

    That code is also simple:

     

    > procedure(getColumns(columns lists "ll")
    foreach(mapcar list lists
        foreach(mapcan column columns
            list(nth(column list))
        )
    )
)
getColumns
> a = '(("a" 1) ("b" 2))
(("a" 1) 
    ("b" 2)
)
> getColumns('(1 0) a)
((1 "a") 
    (2 "b")
)
>
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.