Sysop: | Amessyroom |
---|---|
Location: | Fayetteville, NC |
Users: | 27 |
Nodes: | 6 (0 / 6) |
Uptime: | 41:22:01 |
Calls: | 631 |
Calls today: | 2 |
Files: | 1,187 |
D/L today: |
24 files (29,813K bytes) |
Messages: | 174,725 |
joswig@corporate-world.lisp.de wrote:
For combinations of this kind of stuff I really prefer the functional approach:
CL-USER 5 > (remove-if-not 'oddp '(1 2 3))
(1 3)
I know it is possible, but I'm not sure aboout how to write the following with a functional approach:
(loop for i from 1 to 10 collect (loop for j from 1 to i collect j))((1) (1 2) (1 2 3) (1 2 3 4) (1 2 3 4 5) (1 2 3 4 5 6) (1 2 3 4 5 6 7) (1 2
3 4 5 6 7 8) (1 2 3 4 5 6 7 8 9) (1 2 3 4 5 6 7 8 9 10))