Skip to content

Instantly share code, notes, and snippets.

@stesh
Created March 12, 2011 20:26
Show Gist options
  • Save stesh/867527 to your computer and use it in GitHub Desktop.
Save stesh/867527 to your computer and use it in GitHub Desktop.
array2string(a : ARRAY[G]) : STRING is
local
k : INTEGER
do
Result := "<< "
from
k := a.lower
until
k = a.upper
loop
Result := Result + a.item(k).to_string
if k + 1 = a.upper then
Result := Result + " >>"
else
Result := Result + ", "
end
k := k + 1
end
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment