Top rank per group: Difference between revisions

<lang scheme>

#lang transd

tbl : String(

`EmployeeName,@key_EmployeeID,Salary,Department

"Tyler Bennett", "E10297",32000,"D101"

"John Rappl", "E21437",47000,"D050"

"George Woltman", "E00127",53500,"D101"

"Adam Smith", "E63535",18000,"D202"

"Claire Buckman", "E39876",27800,"D202"

"David McClellan", "E04242",41500,"D101"

"Rich Holcomb", "E01234",49500,"D202"

"Nathan Adams", "E41298",21900,"D050"

"Richard Potter", "E43128",15900,"D101"

"David Motsinger", "E27002",19250,"D202"

"Tim Sampair", "E03033",27000,"D101"

"Kim Arlich", "E10001",57000,"D190"

"Timothy Grove", "E16398",29900,"D190"`),

(with base TSDBase()

(load-table base tbl)

(build-index base "Department")

(with rows (tsd-query base

select: ["Department"]

as: [[String()]]

:distinct

sortby: "Department" )

(for row in rows do

(with recs (tsd-query base

select: all

as: [[String(), String(), Int(), String()]]

where: (lambda Department String() (eq Department (get row 0)))

sortby: "Salary" :desc

limit: N)

(for rec in recs do (textout rec "\n"))

)))))