Anonymous user
Talk:Top rank per group: Difference between revisions
J approach
(Clarification request.) |
(J approach) |
||
Line 2:
9 8 8 7 7 7 7 7 6 6 6 5 5 4
--[[User:TBH|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:<code>
('`',,;:^:_1:N=:{.Employees) =: , (_&{"1)`<nowiki>''</nowiki> ([^:(_ -: ])L:0)"0 _~ i.# E=:{:Employees
N , (<@:>"1@:|:@:((6 <. #) {. ] \: SALARY)/.~ DEPT) |: <"1&> E
: --[[User:DanBron|DanBron]] 15:13, 4 December 2008 (UTC)
| |||