Short-cut for reiteration, via postfix usage of Table as pure
- To: mathgroup at smc.vnet.net
- Subject: [mg118375] Short-cut for reiteration, via postfix usage of Table as pure
- From: "Christopher O. Young" <cy56 at comcast.net>
- Date: Mon, 25 Apr 2011 07:27:37 -0400 (EDT)
- References: <iorih5$o6t$1@smc.vnet.net> <ip14qm$ged$1@smc.vnet.net>
I get a little tired of the excess typing involved with using Table for
simple reiteration of functions with a parameter list. Since Mathematica
doesn't seem to use "T" for anything, it's handy to just re-define this to
mean Table. Then use a postfix call with a "#" as a slot for the argument
and an ampersand "&" at the end to indicate a pure function. See
ref/Function in the Mathematica Help for details.
T = Table;
Graphics[
Line[{{0, 10 - k}, {k, 0}}] // T[#, {k, 0, 9}] &
]
>> I have the following bit of graphics:
>>
>> Graphics[{
>> Line[{{0, 10}, {1, 0}}],
>> Line[{{0, 9}, {2, 0}}],
>> Line[{{0, 8}, {3, 0}}],
>> Line[{{0, 7}, {4, 0}}],
>> Line[{{0, 6}, {5, 0}}],
>> Line[{{0, 5}, {6, 0}}],
>> Line[{{0, 4}, {7, 0}}],
>> Line[{{0, 3}, {8, 0}}],
>> Line[{{0, 2}, {9, 0}}],
>> Line[{{0, 1}, {10, 0}}],
>> }]
>>
>>
>> I want to simplify it to do some sort of iteration to compute the end points
>> of the lines. I can do this easily in a variety of procedural languages but
>> I haven't yet grokked how Mathematica would do this.