Re: Question about function
- To: mathgroup at smc.vnet.net
- Subject: [mg124433] Re: Question about function
- From: Fred Simons <f.h.simons at tue.nl>
- Date: Thu, 19 Jan 2012 05:14:27 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201201181101.GAA16655@smc.vnet.net>
This seems to work:
a=5;b=6;c=7;
Attributes[xPrint]={HoldAll};
xPrint[x__]:=(ReleaseHold[Function[z,Print[HoldForm[z]," =",Tab,z],
HoldAll]/@ Hold[x]];)
xPrint[a, b,c,b,a]
a = 5
b = 6
c = 7
b = 6
a = 5
Fred Simons
Eindhoven University of Technology
Op 18-1-2012 12:01, oversky schreef:
> I define the following function:
>
> xPrint[x_]:=(Print[HoldForm[x]," =",Tab,x]);
> Attributes[xPrint]={HoldAll,Listable};
> a=5;
> xPrint[a]
>
> -> a = 5
>
> I want to modify this code such that it can handle multiple arguments.
> For example,
>
> a=5;
> b=6;
> xPrint[a,b]
>
> -> a = 5
> -> b = 6
>
> How do I get the argument one by one and feed it into Print[]?
- References:
- Question about function
- From: oversky <mailcwc@gmail.com>
- Question about function