17.04.2015, 23:13
|
|
Sir Richard Abramson
|
|
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
|
|
Код:
Prelude Data.List> nubBy (\ x y -> y >= x) [1,3,2,4,5,9,4,2,1,5,3,90,50,100,39,0,72]
Результат:
Гуглим ф-ю nubBy, вникаем как она работает и реализуем на дельфи.
|