Talk:Top rank per group: Difference between revisions

Content added Content deleted

Inline

Revision as of 15:13, 4 December 2008

The task description does not seem to qualify the output if the sorted values within one department were as follows:

9 8 8 7 7 7 7 7 6 6 6 5 5 4

--TBH 05:22, 4 December 2008 (UTC)

I'm going to be away the next couple weeks, but here's an approach in J.

Using the following input:

   Employees=: (<;.1~ (#{.,~@:1:);+./@:(;: E.S:0 ])@:{.) ];._2 noun define
EMP_NAME        EMP_ID HIRE_DATE SALARY DEPT EXEMPT INTERESTS 
Tyler Bennett   E10297 19770601  32000  D101 Y                
John Rappl      E21437 19870715  47000  D050 Y               1
George Woltman  E00127 19820807  53500  D101 Y               2
Adam Smith      E63535 19880115  18000  D202 N                
Claire Buckman  E39876 19851123  27800  D202 Y                
David McClellan E04242 19820727  41500  D101 Y               3
Rich Holcomb    E01234 19830601  49500  D202 Y                
Nathan Adams    E41298 19880215  21900  D050 N                
Richard Potter  E43128 19860412  15900  D101 N                
David Motsinger E27002 19850505  19250  D202 N                
Tim Sampair     E03033 19871202  27000  D101 Y                
Kim Arlich      E10001 19850730  57000  D190 Y                
Timothy Grove   E16398 19850121  29900  D190 Y                
)

The top earners in each dept are:

   ('`',,;:^:_1:N=:{.Employees)  =: , (_&{"1)`'' ([^:(_ -: ])L:0)"0 _~ i.# E=:{:Employees
   N , (<@:>"1@:|:@:((6 <. #) {. ] \: SALARY)/.~ DEPT) |: <"1&> E

--DanBron 15:13, 4 December 2008 (UTC)