File: gb_roget.ch

package info (click to toggle)
sgb 1:20030623-3
  • links: PTS
  • area: non-free
  • in suites: sarge
  • size: 1,868 kB
  • ctags: 28
  • sloc: makefile: 197; sh: 15
file content (12 lines) | stat: -rw-r--r-- 298 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
Change file for gb_roget.w

@x	lines 128-130
for (v=new_graph->vertices+n-1; v>=new_graph->vertices; v--) {
  j=gb_unif_rand(k);
  mapping[cats[j]]=v; cats[j]=cats[--k];
@y
for (v=new_graph->vertices+n; v>new_graph->vertices; ) {
  j=gb_unif_rand(k);
  mapping[cats[j]]=--v; cats[j]=cats[--k];
@z