7
PSP Mode
•-- PSP mode code
•[1,1..n] begin -- assume R = [1..n,1..n]
• -- assume row 1 of V is input
•[1..n,1]   Vt := V#[Index2,Index1]; -- transp
• -- Replicate, compute and collapse
•      S := +<<[R] (>>[1,]V = >>[,1]Vt);
•      count := max<<  S;
•      mode := max<< ((count = S)*V);
•      end;
•Hints: Reasoning is what counts in (a); in (b) use global data reference