Courses/CS 460/Fall 2005/Homework/Josh Cain/Oct 1

From CSWiki

toUpper

% Converts string to uppercase
local S O ToUpper in
proc {ToUpper S O}
   case S of H|T then
      local Temp TempList in
	 {Char.toUpper H Temp}
	  O = Temp|TempList
	 if T \= nil then
	    {ToUpper T TempList}
	 end
      end
   end
end
S = "string"
{ToUpper S O}
{Browse O}
end