John Thingstad wrote:
Pn++ Tue, 20 Nov 2007 23:59:24 +0100, skrev Mark Tarver <dr.mtarver@ukonline.co.uk>:
On 20 Nov, 14:48, ryan.dufra...@gmail.com wrote:
You are given a list of transactions along with the
profits from the transactions. Write code that will return the
transaction with the maximum profit. If many transactions have the
same and maximusm profit, the code can return any of these. For
example,
given ((T1 20) (T2 88) (T3 188) (T4 99) (T5 66)), the code should.
return T3.
I am looking for code or pseudocode.
(SETQ *LIST* '((T1 20) (T2 88) (T3 188) (T4 99) (T5 66)))
Shortest solution is 1 line.
(FIRST (FIRST (SORT *LIST* (FUNCTION (LAMBDA (X Y) (> (SECOND X)
(SECOND Y)))))))
Mark
or (caar (sort *list* #'> :key #'second))
Gauche Scheme:
(define List '((T1 20) (T2 88) (T3 188) (T4 99) (T5 66)))
(define (max-trans a b) (if (> (cadr b) (cadr a)) b a))
;; Without sorting.
(car (reduce max-trans #f List))
===>
T3
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)