Determine if a string is numeric

hp omnibook portatili acer cs-5530 niina nanna orari autobus in calabria gay amateur voli antalya coppi sexy tema storico svolto golf club varese esami 2004 bowling papa gps magellan meridian videoregistratore s-vhs x destiny asus - p4c800-e deluxe - socket 478 incubo infernale united press international monitor sony 20 x-black samsung 910t mitikas philips 29 100 hz yovana coria yoshi manuali elettronica brunner, sebastian slike ferrovia centrale umbra turbamento di una minorenne tst project oh oh oh mp3 dan dailey vasco rossi senza una donna internet security suite mcafee taiwan shopping piastra in ghisa liscia tom sawyer segunda guerra mundial krhth le 7 meraviglie del mondo vicentico usted stress di notte sex teen rete di vendita diretta dj shadow in tune and on time elenco telefonico usa assicurazione bologna sottomessa morire per gioco the end in the world giochi sparatutto per due giocatori doujinshi sweet chid o mine tab football games calcio alessandria vacanza all estero check up cuore audigy 2 zs pcmcia foto volere o volare www cdf com br stryper pirgo super pene antonello de pierro adriano rome total war uscita camille claudel inno del trentino testo in italiano di frankee ricoh aficio 2018 rex fi2590fa flnc mordisco michelcamilo inno polacco fanciulla bjorg business card creator tea leoni calendari di playboy live at the blue note milan bilancia pesapersone 160 age of empires ii per ps2 bnc assicurazioni tomaselli luccio venezia catania alpi scheda madre pentium 3 fortron 350 la voglia la pazzia biblioteca j j benitez lcd 3000 nec dior fondotinta spray rey pirin y dj blass take me to the clouds laser hp stampante colori lauara pausini singstar 105 gps bluetooth 16 canali nemerix punta del este rober hatemo gurur ambasciata della repubblica del gabon in italia associazione albergatori riccione sito adulti delonghi dpw 30 antenna auto kenwood banco azteca service software v3 7 www sex sv azione freeanimalsex mature orgy north-eastern (kenya) mazzi di magic true tere backgammon office per mac 2004 italiano blog sexy cartoni animati xxx nodier, charles che ne sara di noi testo canzone donne grosse sport cubani www the n com t s t project buoni o cattivi mp3 cripte segrete calendario 2005 palmas saturno (astronomia) stazione radio priscilla lane hotel gabbiano beach vieste canon extender ef 1 4x divertiamoci hard disk usb iomega saletova osveta roosendaal en nispen sms internet gratis puntatori mouse rigoletto gilda lacie ethernet hard disk hd samsung lebt denn noch der alte holzmichel noch com e triste venezia toto maestro chat painkiller infrarossi cuffie sony auricolari e keith m maupin video nadiya perle moi nuova demo per far cry nuova bmw 320 d diesel auto nuove just cavalli abbigliamento uomo cover de andre if you love somebody cruises you are still you il tesoro del fiume sacro rossignol 9x ti oversize guns n roses dont cry distorsore chitarra llibero it bed breakfast sardegna natalie merchant www capichera it www videoitalia it assistenza makita chat senza password www sostanze stupefacenti it spiller from rio maxtor diamond 10 250 gb enderbury fotocamera reflex nikon muta cressi 5mm i mattoncini come prendere lavori edili archos 220 gay nani caltanissetta cucina arte povera pny geforce last minute 13 agosto km0 toyota rav 4 d 5 porte auto km 0 molle novara catalogo viaggi nautica mercato usato the three tenors christmas antonello de pierro barcellona boxer d g iraq ostaggio inglese joy in the morning emi italia computer polke sony plasma ke 42 senza la donna chiara da perugia dowload british infantry green day insomniac miomandre, francis de- produzione infisso legno masterizzatore dvd esterno per notebook prov lodi sciopero fiat

Determine if a string is numeric
You are encouraged to solve this task according to the task description, using any language you may know.

Demonstrates how to implement a custom IsNumeric method.

Ada

The first file is the package interface containing the declaration of the Is_Numeric function.

package Numeric_Tests is
   function Is_Numeric(Item : in String) return Boolean;
end Numeric_Tests;

The second file is the package body containing the implementation of the Is_Numeric function.

package body Numeric_Tests is

   ----------------
   -- Is_Numeric --
   ----------------

   function Is_Numeric (Item : in String) return Boolean is
      Result : Boolean := True;
   begin
      declare
         Int : Integer;
      begin
         Int := Integer'Value(Item);
      exception
         when others =>
            Result := False;
      end;
      if Result = False then
         declare
            Real : Float;
         begin
            Real := Float'Value(Item);
            Result := True;
         exception
            when others =>
               null;
         end;
      end if;
      return Result;
   end Is_Numeric;

end Numeric_Tests;

The last file shows how the Is_Numeric function can be called.

with Ada.Text_Io; use Ada.Text_Io;
with Numeric_Tests; use Numeric_Tests; 

procedure Isnumeric_Test is
   S1 : String := "152";
   S2 : String := "-3.1415926";
   S3 : String := "Foo123";
begin
   Put_Line(S1