Data commit

Task/Top-rank-per-group/PicoLisp/top-rank-per-group.l

@@ -0,0 +1,27 @@
+# Employee Name, ID, Salary, Department
+(de *Employees
+   ("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) )
+
+(de topEmployees (N)
+   (let Fmt (4 -16 -7 7)
+      (for Dept (by cadddr group *Employees)
+         (prinl "Department " (cadddr (car Dept)) ":")
+         (tab Fmt NIL "Name" "ID" "Salary")
+         (for (I . D) (flip (by caddr sort Dept))
+            (tab Fmt (pack I ". ") (car D) (cadr D) (caddr D))
+            (T (= I N)) )
+         (prinl) ) ) )
+
+(topEmployees 3)