Untitled

--PROGRAMMER    : Owen Ledvina
--FILE          : reverser.adb
--DATE          : Jan. 24, 2012
--DESCRIPTION   : This program reverses a given string (etude #3)

with Ada.Text_IO; use Ada.Text_IO;

procedure reverser is
   --design based on rosettacode.org's string reversal example
   function reverseString (input : string) return string is
      output : string(input'range);
   begin
      for i in input'range loop
         output(output'last - i + input'first) := input(i);
      end loop;
      return output;
   end reverseString;
begin
   put_line("Enter a string: ");
   put_line(reverseString(get_line));
end reverser;


--PROGRAMMER    : Owen Ledvina
--FILE          : greeter.adb
--DATE          : Jan. 24, 2012
--DESCRIPTION   : This program asks the user for their first and last name, then creates a personalized greeting (etude #1).

with Ada.Text_IO; use Ada.Text_IO;

procedure greeter is

        firstName : string (1..100);
        lastName  : string (1..100);
        last : natural;


begin

        put_line("Enter first name: ");
        get_line(firstName, last);
        put_line("Enter last name: ");
        get_line(lastName, last);
        put_line("Greetings, " & firstName(1..last) & " " & lastName(1..last) & ".");

end greeter;