Determine if a string is numeric
arkanoid divertente renault scenic benzina everybody s got to learn sometimes indossatore elettrico sigma 50 macro ex 2 8 rer a roma mp3 file editor plus zywall 5 scudetto 4 videogiochi registratore dvd con hard disk scende la pioggia toshiba satellitepro m40x army men 2 camedia fe5500 downey jr dcp 8040 duncan james foto batteria jvc bnv408 nino d angelo midi susanna torretta nuda inps contributi laurapausini brasiliane nude foto xxx donna fetish stasera la luna si portera fortuna banbine nude viaggio olanda cerca mini cooper los mejores fondos de pantalla carauto quic time tommaso vee internet chat headset logitech bodrum el salvador gigabyte 939 consulenza iso 14000 accessori per carrozzine la casa 2 ricetta fagiano jararaca amici miei atto secondo film dvd pentax optio 750 z red hot chill peppers decapitados ingles godi al telefono galaad oem office dsc p120 dj frank ft vick krishna kate vermeulen gps sd mercurial vapor tende tendaggi compo com comune di riccione football manager 2006 pc anabel lewels cheb khaled aicha diesel jeans vita bassa uomo daewoo dvd df 7100 proel custodia professionale donne in giarrettiere rs mmc voltaggio canzone appassionata joy harjo isola di zanzibar climatizzatore portatile split new cotton company srl yamaha dfp9410 vecchio giochi bachata chieti caminetto marmo ya no te quiero andrea villareal verdure moroon five fottball sexy jelem jelem mariti guardoni ehi mama uniball jetstream calendario dei calciatori per tutta la vita cd musicali azureus linux nikon super coolscan 4000 corte d appello roma www musicando org corten vivavoce auto blutooth fiera dell est giraffa siemens p5905 batteria fisio 625 celerita nude greased lightning televisore con dvd occitani cafe accordion orchestra eudragit studentesse calendario francesco renga camera con vista desktop screensaver transatlantico hp laserjet 3015 ilusion bross nu mi iei gucci forema valzer liscio miss milkie vaniglia sexi ufficio sony psp white free movie tv tuner flydvbt duo negative syaharani eddy wata jam il trattamento medico arbitrario chip xbox accessori console luisa allegri fadis www satelindogsm com hp 14 web com srl canzone del coccodrillo genova alberghi e hotel foto di donne che pisciano www greenpeace it sabrina ferrilli www caparezza it un detective in corsia sigma 1850mm f 3 55 6 dc x nikon i barone rampante buste per foto cappa inox ariston mafia pc videogiochi il filo del sospetto informatica informatica genera i m don t wanna now video comico mezzo trasporto valentina e antonello videocamera canon mvx 300 ti sento matia bazar porno gratis cam exilim ex z50 casio www mtv it mobile anziano porco darjiling canali satellitari haciendo el amor tradelab starsplash here i am pony sneakers uomo mundo nick com fara gera d adda cinema hard gratis server 5u rack black eyes piece sputo totti video storia 800 vedere video gratis porno indossatori gay oki c3200 codogno foto magdalena graaf s20pro fujifilm dana international la signora della porta accanto trudno sennheiser pc www diddl mania com modem us robotics 56k usb musolino giusepe aaa ricaricabili paradisi city digieros silerio prostitute annunci gratis senza dialer defender the crown hard disk magnex odys slim 5l pro tanezrouft bologna tirana biglietti aerei il nuovo calcio sabina karel maaap cartolina del 15 06 2004 samantha degrenet nuda hotel maria pacche a berlusconi kate winslet completamente nuda cedric diggory wireless notebook microsoft mouse marcotullio immagini sesso gay musica della sicilia aams jammin g cerca con gogle noral paxil online free qwest ringtones cheap zanaflex rivotril online hgh online ultracet online norco online prozac free cingular ringtones ambien online samsung ringtones diazepam online didrex levitra online ultram cheap ativan sildenafil online adipex online free sprint ringtones motorola ringtones wellbutrin xanax online free cool ringtones free midi ringtones cheap celexa carisoprodol online fioricet online propecia online free wwe ringtones cyclobenzaprine online ortho online valium hoodia hydrocodone online ericsson ringtones xenical online alltel ringtones tramadol online nexium online cheap cialis vicodin online music ringtones free mp3 ringtones cheap zoloft free funny ringtones free punk ringtones cheap vigrx free sony ringtones free nokia ringtones tenuate free mtv ringtones free mono ringtones pharmacy online online sharp ringtones lortab free kyocera ringtones cheap lisinopril cheap flexeril cheap lorazepam diethylpropion online free tracfone ringtones cheap phentermine meridia online viagra clonazepam soma sony ericsson ringtones clomid online free nextel ringtones free free ringtones sonyericsson ringtones cheap alprazolam zyban online free verizon ringtones sagem ringtones real ringtones free polyphonic ringtones albuterol online lipitor free jazz ringtones
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