Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Driving me nuts

• To: mathgroup at smc.vnet.net
• Subject: [mg33801] Driving me nuts
• From: "Steve Gray" <stevebg at adelphia.net>
• Date: Tue, 16 Apr 2002 03:51:45 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

    The following simple function does not do anything
when called except echo its name.
    Any tips will be appreciated, to put it mildly.

listr[lst] := Module[{lct, itm, str},
    str = ".";
    For [ lct = 1, lct <= Length[lst], lct++,
                { itm = lst[[lct]];
                   If[itm <= 9, itm = itm + 48, itm = itm + 55];
                    str = StringInsert[str, FromCharacterCode[itm], 1];
                }]
      Return[Reverse[str]];
    ]

foo = {1, 4, 14, 23}
listr[foo]
listr[{1, 4, 14, 23}]

The last line shows what happens. No errors are reported.

Thanks for any info.

• Follow-Ups:
  • Re: Driving me nuts
    • From: Ken Levasseur <Kenneth_Levasseur@uml.edu>