RE: LetterQ and DigitQ question
- To: mathgroup at smc.vnet.net
- Subject: [mg35977] RE: [mg35971] LetterQ and DigitQ question
- From: "DrBob" <majort at cox-internet.com>
- Date: Sun, 11 Aug 2002 05:13:35 -0400 (EDT)
- Reply-to: <drbob at bigfoot.com>
- Sender: owner-wri-mathgroup at wolfram.com
expr = "{1,2}";
And @@ (DigitQ /@ (ToString /@ (ToExpression@expr)))
True
That works if all the strings you'll apply it to are in that list
format. If not, then something like this works...
expr1 = "{1,2,";
expr2 = "{1,2,m";
f[expr_] := (Intersection[#1, Characters["01234567890,{}"]] ==
Union[#1] & )[Characters[expr]]
f[expr1]
f[expr2]
True
False
Bobby Treat
-----Original Message-----
From: Charles H. Dresser [mailto:dresserc at gouldacademy.org]
To: mathgroup at smc.vnet.net
Subject: [mg35977] [mg35971] LetterQ and DigitQ question
Hello,
I have a problem with DigitQ and letterQ I would like for a string to
yeild True when run with DigitQ if the the string looks like this:
{1,2}
and false if it looks like this:
{hello, there!!!}
Right now both strings return False because of "{ , }". So, if there
were anyway to include the charecters "{", "}", and "," into the
DigitQ "0-9" list temperarelly that would work, but I am sure there is
a better way to do that. Thank You,
Charles