20 lines
379 B
Plaintext
20 lines
379 B
Plaintext
local fn FindLongest( test as CFArrayRef ) as CFStringRef
|
|
'~'1
|
|
CFStringRef s, t1 = @"", t2 = @""
|
|
|
|
for s in test
|
|
if ( len(s) > len(t1) )
|
|
t1 = s
|
|
t2 = fn StringWithFormat( @"%@\n", s )
|
|
else
|
|
if ( len(s) == len(t1) )
|
|
t2 = fn StringWithFormat( @"%@%@\n", t2, s )
|
|
end if
|
|
end if
|
|
next
|
|
end fn = t2
|
|
|
|
print fn FindLongest( @[@"a", @"bb", @"ccc", @"ddd", @"ee", @"f", @"ggg"] )
|
|
|
|
HandleEvents
|