Topic: about the table list

[aicr317]

if i have the list,

(setq temp (list 1 2 3 4 .....400000))  ;;it's 1 to 400000

how to change it like this by each 2000,


(setq temp1 (list 1 2 3 4 ....2000))

(setq temp2 (list 2001 2002 2003 2004....4000))

(setq temp3 (list 4001 4002 4003 4004...6000))

...

...

...


i want it auto changed!!!

[T.Willey]

[ http://www.theswamp.org/index.php?topic=32428.0 ]

[alanjt]

Code: [Select]

(mapcar '(lambda (x) (+ 2000 x)) '(1 2 3 4 5 6 7 8 9 10))
(2001 2002 2003 2004 2005 2006 2007 2008 2009 2010)

[aicr317]

Code: [Select]

(mapcar '(lambda (x) (+ 2000 x)) '(1 2 3 4 5 6 7 8 9 10))
(2001 2002 2003 2004 2005 2006 2007 2008 2009 2010)

thank u for replying,perhaps you don't understand me...

[aicr317]

(setq temp '
(65 67 49 48 49 56 0 0 0 0 0 0 3 32 1 0 0 25 0 39 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 128 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 104 64 248 247 146 42 181 239 24 221 11 241 241 187 233 235 223 166 219 60 131 12 62 153 36 94 13 28 6 183 71 222 179 18 77 200 66 187 139 166 14 3 90 125 105 84 39 31 93 212 203 252 156 153 71 59 19 13 137 10 28 219 174 50 48 154 80 238 96 120 54 253 146 73 50 246 222 125 73 220 188 79 20 242 36 42 100 208 107 196 48 183 34 59 161 34 231 34 145 157 225 139 31 218 97 36 31 159 248 70 106 4 150 115 14 217 22 47 103 104 212 247 74 74 208 87 104 118 80 86 7 0 98 82 100 65 107 30 100 65 75 30 100 65 107 82 100 65 107 82 100 65 255 182 1 176 23 178 13 238 31 37 109 7 212 54 40 40 157 87 202 63 157 68 16 43 39 74 0 0 2 1 71 1 0 0 80 0 0 0 2 151 1 0 0 196 73 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 40 0 0 0 180 0 0 0 99 0 0 0 1 0 8 0 0 0 0 0 156 69 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 255 255 255 0 0 255 0 0 255 255 255 0 255 255 255 0 255 255 255 0 255 255 255 0 255 255 255 0 255 255 255 0 255 255 255 0 255 255 255 0 255 255 255  .....)
)

;;;(length temp) ---->158838


when use
vlisp-compile 'st "c:\\aicr317.lsp"

it is failed...

[Lee Mac]

[ http://www.theswamp.org/index.php?topic=32428.0 ]

Haha I knew there'd be some uses for it!