NB. Student reports
NB. Art Anger 2009JAN

NB. Text string of names
stunam=: noun define
Alexander, Jane
Smythe, Herbert
Lovell, Ted
Goldworthy, Gilbert
Washburn, Alice
Nixon, Evelyn
Fredericks, Wilson
)
NB. Converting to table
] stunam=: Same Cut _2 stunam

NB. States string, then table
stuhom=: noun define
Washington
Colorado
Alabama
Colorado
Massachusetts
Tennessee
Maine
)
] stuhom=: Same Cut _2 stuhom

NB. Grade-average character string
stuave=: noun define
3.0
1.6
2.3
0.8
3.5
2.9
4.1
)
NB. Converting to table, then numerics
] stuave=: Do Same Cut _2 stuave

NB. Finding preferred order for each list
] namord=: GradeUp stunam
] homord=: GradeUp stuhom
] aveord=: GradeUp stuave

NB. Combining all three in one box array
NB. Simplest linking does not facilitate retrieving individuals
] nhac=: stunam Link stuhom Link stuave
NB. Row-wise stitching associates each person's data more closely
] nhar=: ((Box Rank 1) stunam) Stitch ((Box Rank 1) stuhom) Stitch ((Box Rank 0) stuave)

NB. Name-order reports
] repn0=: namord From nhar
] repn1=: namord (From each Rank 1 0) nhac

NB. State- (and name-) order reports
] reph0=: homord From nhar
] rephn0=: (namord From nhar) SortUp 1({ Rank 1) (namord From nhar)

NB. Headings
] colhd=: Itemize 'Student name' Link 'Home state' Link 'Grade average'

NB. Reordered columns (in each rank-1 row)
1 0 2 (From Rank 1) colhd Append reph0

NB. Marking and reporting on upper-level (lower-average) students
] tops=: stuave LT 3.0
] repn2=: (tops Copy stunam) SortUp tops Copy stunam
] topstu=: tops Copy stunam
] repn3=: (tops Copy nhar) SortUp topstu

NB. ---------------------------------------------------------

NB. How can Match or MemberOf select students from one or two states?

NB. How can Cut extract a list of given names?

NB. How can Format eliminate the need for boxes in the reports?