#This program generates the for loops necessary to run the O-sequence #generator program. # #To print these loops to a file, use the command: #perl for_loop_generator.pl > forloops_r_n-r.txt #enter the total number of possible vertices here $numverts = 28; #= (n-r+r-1) choose (r) #enter the co-rank here $numvar = 3; #= (n-r) for ($k=1; $k<=$numverts; $k++) { $numloops = $k; print('#*********************************'); print("\n"); print('#here h_r=' . "$k"); print("\n"); print("\n"); print('for ($a1=0; $a1<=$possvert; $a1++) {'); print("\n"); print("\n"); for ($i=2; $i<=$numloops; $i++) { $j = $i-1; print('for ' . '($a' . "$i" . '=$a' . "$j" .'+1; $a' . "$i" . '<=$possvert; $a' . "$i" . '++) {'); print("\n"); } print("\n"); for ($i=1; $i<=$numloops; $i++) { my $string = '$vertex' . "$i"; my $string2 = '$data[$a' . "$i" . '];'; my $string3 = '@h_array' . "$i" . '=(split(\'\','. "$string" . '));'; print('my ' . "$string" . '=' . "$string2"); print("\n"); print('my ' . "$string3"); print("\n"); } print("\n"); print("\n"); print('@countingarray=();'); print("\n"); print("\n"); for ($i=1; $i<=$numloops; $i++) { my $string4 = '@h_array' . "$i"; print('h1is' . "$numvar". '(' . "$string4" . ');'); print("\n"); } print("\n"); print('counth1is' . "$numvar"); print("\n"); print("\n"); for ($i=1; $i<=$numloops; $i++) { print('}'); } print("\n"); print("\n"); print("\n"); }