16 lines
566 B
Plaintext
16 lines
566 B
Plaintext
include "NSLog.incl"
|
|
|
|
_longestStringsToDisplay = 3
|
|
|
|
local fn LongestStrings( string as CFStringRef )
|
|
CFArrayRef array = fn StringComponentsSeparatedByString( string, @" " )
|
|
SortDescriptorRef sortAscending = fn SortDescriptorWithKey( @"length", YES )
|
|
array = fn ArraySortedArrayUsingDescriptors( array, @[sortAscending] )
|
|
array = fn ArraySubarrayWithRange( array, fn CFRangeMake( len(array)-_longestStringsToDisplay, _longestStringsToDisplay ) )
|
|
NSLog( @"%@\n%@\n%@", array[0], array[1], array[2] )
|
|
end fn
|
|
|
|
fn LongestStrings( @"a bb ccc ddd ee f ggg" )
|
|
|
|
HandleEvents
|