Tscope5
randomizer1.c

random integers and lists

#include <tscope5.h>
int main()
{
ts5_set_coordinate_system(TS5_DISPLAY_COORDINATES);
ts5_set_text_alignment(TS5_ALIGN_LEFT);
int i;
double diff=0;
ts5_printf(20.0, 20.0, "10 random integers with replacement: ");
for (i=0; i<10; i++) {
diff += ts5_printf(20.0+diff, 40.0, "%d ", ts5_random_integer(10L));
}
diff=0;
int list[10];
ts5_random_list(10, 1, list);
ts5_printf(20.0, 80.0, "10 random integers without replacement: ");
for (i=0; i<10; i++) {
diff += ts5_printf(20.0+diff, 100.0, "%d ", list[i]);
}
return 0;
}