OpenEuphoria

Reverse

• Posted by Albert Brauneis <Dajawu36 at AOL.COM> Nov 28, 1998
• 513 views

Ok here is my code for reverse, trimr (right trim), triml (left trim), trim
(both sides). Can somebody either tell me the speed on this or tell me how to
time it. I think I can time it with time() but not to sure:

---Start of coolfunc.ex---
function reverse(sequence rev)
  sequence back
  integer len
  len = length(rev)
  back = ""
  for junk = len to 1 by -1 do
    back = append(back,rev[junk])
  end for
 return back
end function

function triml(sequence trim)
  integer len
  len = length(trim)
  for junk = 1 to len do
    if compare(trim[junk],' ') = 1 then
      return trim[junk..len]
    end if
  end for
end function

function trimr(sequence trim)
  integer len
  len = length(trim)
  for junk = len to 1 by -1 do
    if compare(trim[junk],' ') = 1 then
      return trim[1..junk]
    end if
  end for
end function

function trim(sequence trim)
  return trimr(triml(trim))
end function


sequence test
test = "  Albert  "
printf(1,"Before trim ::%s::", {test})
test = trim(test)
printf(1,"\nAfter trim ::%s::", {test})
printf(1,"\nBefore reverse %s", {test})
test = reverse(test)
printf(1,"\nAfter reverse %s", {test})
---End of coolfunc.ex---