Is there a loop that returns a list of the results of each iteration? For example:
(collect (n (sequence 1 10))
(* n 2))
; => (2 4 6 8 10 12 14 16 18 20)
I'm sure there are other ways to do this, like using map and curry. I could probably implement this as a macro, if there is no current way to do this.
;-> (2 4 6 8 10 12 14 16 18 20)
map will collect it for you.
(map (curry * 2) '(1 2 3...))
;-)
{
int seq[] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
int result[10];
int i;
for (i = 0; i < 10; i++)
{
result[i] = seq[i] * 2;
}
return 0;
}
Quote from: "Jeff"
{
int seq[] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
int result[10];
int i;
for (i = 0; i < 10; i++)
{
result[i] = seq[i] * 2;
}
return 0;
}
I think I see what you mean!
---
(2 4 6 8 10 12 14 16 18 20)
---
that's so silly, i love it!
Don't let that computer just sit there. Generate some cpu cycles!
(2 4 6 8 10 12 14 16 18 20)
---
double_elements.so:
{
int i;
for (i = 0; i < seq_length; i++)
{
result[i] = seq[i] * 2;
}
}
my_script.lsp
(set 'seq (sequence 1 10))
(set 'set2 '(array 10 (sequence 1 10))
(double_list_elements seq (length seq) seq2))