Rosetta Code

Odd word problem: Difference between revisions

Page Discussion

Odd word problem (view source)

Revision as of 14:04, 7 September 2023

290 bytes removed ,  10 months ago
Reverse String function refactored for efficiency
(Reverse String function refactored for efficiency)
Line 1,015:
 
local fn ReverseString( string as CFStringRef ) as CFStringRef
NSInteger i, length = len(string)
CFMutableStringRef mutStr = fn MutableStringWithString( string )
 
for i = 0 to length - 1
CFStringRef CFRange range1chr1 = fnmid( CFRangeMake(string, i, 1 )
CFStringRef CFRange range2chr2 = fn CFRangeMakemid( string, length - i - 1, 1 )
mid( mutStr, i, 1 ) = chr2
CFStringRef chr1 = fn StringSubstringWithRange( string, range1 )
mid( mutStr, length-i-1, 1 ) = chr1
CFStringRef chr2 = fn StringSubstringWithRange( string, range2 )
next▼
swap chr1, chr2
MutableStringReplaceCharacters( mutStr, chr1, range1 )
MutableStringReplaceCharacters( mutStr, chr2, range2 )
▲ next
end fn = mutStr
 
Line 1,056 ⟶ 1,053:
print fn OddWordTask( @"what,is,the;meaning,of:life." )
print fn OddWordTask( @"we,are;not,in,kansas;any,more." )
 
NSLog( @"%@", fn WindowPrintViewString( 1 ) )
 
HandleEvents
KenS
750

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/351261"