Determine if a string is numeric

gli uomini nella sua vita combi plus cam collalbo pensioni hip hop francophone golf 2 0 tdi argento eurosoccer j pachelbel led usb libri maggiormente letti citta delle stelle televisori lcd lg 20lz50 tenero messina calcio mandinga www all miusic poltrona arredo giardino barbier auguste iriver ifp 899 1gb canon mv790 palmari windows mobile 2005 orzinuovi tony doe accessori diddl italian consulate uk la gang dei diamanti blue left ese materiale elettrico e idroelettrico le diferenze marcabasket la demo per mac di unreal tournament olympus xd picture card 128 mb levico www disneychannel domiciliazione bancaria telefonino lg 8360 test patente guida immagini birra mr snooze massimo dalema video porno gay lc 20 sh1e log aggiornamento statistica economica super pang router access point adsl wireless 3com lexar 80x spartiti musica popolare forno con cottura a vapore c c catch studio medico roma fiatbravo depilatori epilatori balbastre macchina per il caffe de longhi videocamera canon digitale dragostia dintei klipsch rw12 testo canzone marron five il cammino dell eta modular system forno micronde amstrad coppia 26 la settima compagnia ha perso la guerra valzer viennese queen elizabeth damiani gioiello protezione animale aquisti in rete filmati pornografici s gregorio matese alitosi antiche fragranze gallileo he comprendido que te amo logitech wheel usb pc faces volti dumba dumba km0 mercedes ml diesel auto km 0 megaman battle network 2 gli evasi del terrore indecisa sassari negoio hovey richard lightin danielegroff spaghetto traductores en linea gl aquila spazio 1999 sigma 70 300 nikon cerco lavoro estivo crim cenere fagatogo parole e musica solo ieri nino d angelo mp3 downoload tawne stone metar gear solid ufficio arredamento ristrutturazione celebrita senza trucco veicolo d occasione cpy recursos humanos noleggio dvd trame film sex sex sex sex scanner linux rollin charles direct cd xp rex lavatrici e lavasciuga ray charles in concert gipa guided by voices watch me jumpstart lily milano sofia lettura delle mano figurina liebig jeans corleone il genio del bene prestito personali milano frasi carine sms esoterico come raggiungere aviano biglietti frasi invito battesimo vanguarde gimme gimme provincia frosinone game boy advance games gonna fly now rocky theme linkin park breakin the habbit preislied biglietti vasco usb drive 512 na coce na chitarra acer aspire 1694wlmi 1gb tecniche di allenamento piscina sciorba genova alysa milano sin banderas disco prestito fabriano napule ca se ne va scarpetterosse supporto vaschetta vendita pallet benevento regione lazio asl musica en el renacimiento maschio nudo tutto sulla roma giada 81 www carbone it samsung miniket mexico vacations fiat palio 100 16v weekend reggae cumbia with angela mari zamknij ricetta cucina secondo piatto babri ponte forum di borsa forgotten battles gip o gip calendario moric londonbeat packard bell audio star lettori mp3 e cool bricks fiore bach brigitte nilsen s aneddu artic freezer www gianni nanni it ferdinand porsche ufficio attrezzato cambio valute cordless aladino flip nokia auricolare blue tooth bosnian chat toy store model navigatori macchina futu da dvd a cd r stan eminem i bambini ci amano omicidio a new orleans las bermudas filtro carbone attivo tab pour guitar pro kd g411 jvc autoradio badboys natalie ram 1 gb 400 mhz seggiolini 936 tarkan dudu ogni uomo dovrebbe averne due carte prepagate vivere gli anni 70 ariston experience iraq esecuzione lettini da viaggio bimbo frigo doppia porta adattatore auto ipod benassy bros dhany mp3 usb senza fili giochi gratuiti internet giochi nei sotterranei di un castello nuova fiat croma benzina auto nuove spartiti canzoni metallica io ti adoro sunerie testuali rivenditori beretta le meridien montparnasse parigi abbiglimento fornarina in abruzzo assicurazione civitanova marche giuni russo mare schermo videoproiettori nu i alta femeie in lume windows professional gigaset c355 power dvd freeware leghe stagno og mandino sebastiane dama tradizionale motorola c650 carica mayo (contea) la danza delle luci scheda libro di enrico iv video sexy gratis on line pompero www conseur volo lyon lcd plasma philips 37 mio 168 pda calza nylon labrador retriever nuove gioie srl calci di rigori nada valgo de juanes woofer da 16 per auto zanesville erreway sweet baby mp3 massignano toner hp 6p download driver stampante hp kunsan porno gratis teen ager home cinema diffusori b w canon xt adimari lodovico sonata in si minore vogue gioiello edizioni conde nast spa kenwood casse acustiche green day dvd da scaricare notebook pavilion hp pop3 tiscali ecstasy generation marche televisore suoneria mtv dopotutto ti amo spagna mein block instrumental venditori sagrantino montefalco impero dei draghi draytek vigor al di la delle frontiere john keel libri paratassi jvc sondrio html star trek voyager stagione 4 finanziamento acquisto prima casa edirol sd 90 renato zero con claudio villa bellucci su vanity audi a3 19 tdi 110 cv lancaster (gran bretagna) geforce 7800 gtx extreme www superfighetto escort in sicilia where the streets have no name decorazioni adesive kaz dart karaoke studio galaxy express santoro laura un cazzo nero sexo libre on a clear day geforce 6800 ultra todas as gostosas do bbb belize city midi di bagutti www gdf it nomadi gente come noi in concerto concessionaria simoni bruno magli cartolerie donne vecchie in calore quotazioni orologio b2k take it to the floor ostaggi esecuzione paul johnes lorrain jean lost 17 krzysztof krawczyk edyta condizionatori lg jet cool green spie come noi foto amatori gratis hotel ad assisi ine nokia 6600 freeware capri albergo one goal eiffel 65 met art f1pro 2004 testo maroon qua la mano devid gallagher lealtad militar chet baker almost blue piatto dj dragoste in tei frank adventure2 midi tanto cara graham parker at rockpalast londra napoli orietta berti mp3 cdx s2250 acer travelmate 8101wlmi messaggi gratuiti digicom wave b w 704 gloria laso film il gladiatore hully gully nikon s2 giurisprudenza di messina hinh anh hong nhung la canon digital ixus 500 we are the fred rochetti tarkan tastiera logitech mx youtouchmytralala lampada da campeggio grand theft auto vice city pc www scuole statali it magazzini e depositi di vercelli perreuxsurmarne le rossini www al 4a com forno ad incasso claudia khol symantec antivirus in italiano tetti www hotmeil com basildon calcio serie c2 mercato moto slim prende moglie http www nord fantascienza it bullman canali graziano www playboy com br fotochatter wintricks home theatre bose 2 1 montana realty bergamo lesbo filmografia carmen elettra fapi allarme lenti a contatto giornaliere plugin dvd video ristoranti bolgheri twinmos ddr sodimm 512mb pc2700 333mhz corazones a limite kit gps nokia 6630 dino merlin nina badric lavatrice candy 1000 giri wetpussy carosone video sito ufficiale festivalbar bsx lui crociera croazia trasporti fratelli vecchione the manhattan project ram ddr2 kingston www tifonet hyundai accent i ii be missing you pinguino pac ct 300 lettrix cavi video scart vga lacie silver screen 80gb duplicazioni cd batteria t180 biglietti aerei cagliari pisa fast raider amadeus ii hotel sangallo palace sv50 pioneer cover gioco pc

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