Map
- To: mathgroup at smc.vnet.net
- Subject: [mg29684] Map
- From: bbongiorno at attglobal.net
- Date: Tue, 3 Jul 2001 04:40:39 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
I have not been successful in converting the following If Do routine,
to a routine using the If Map function.
Matrix
a={{1,5,10},{25,0,2000},{55,5,2001}}
If Do Routine that works
y=0;
Do[y=y+1;x=0;
Do[x=x+1;
a[[x,y]]=
If[a[[x,y]]<10,(StringJoin[ToString[0],ToString[a[[x,y]]]]),a[[x,y]]],
{Length[a]}],
{Length[Transpose[a]]}]
If Map Routine that does not work
If[# < 10, (StringJoin[ToString[0], ToString[#]]), # ] & /@ a
Please help.
Thanks,
Benedetto Bongiorno