Re: Thread
- To: mathgroup at smc.vnet.net
- Subject: [mg53253] Re: Thread
- From: Carlo Teubner <"see signature."@example.com>
- Date: Mon, 3 Jan 2005 04:29:30 -0500 (EST)
- References: <cr8eem$r86$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Sorry, there were some syntax errors in my previous ThreadOptions. Here
is the corrected version.
ThreadOptions[f_[args___, opts___?OptionQ], spec___] :=
Module[{fth=Thread[F[args], spec], oth},
If[Head[fth]===F, F[args,opts],
oth = Inner[#2->#1&, Thread[{opts}[[All,2]]], {opts}[[All,1]], seq];
Which[ Head[oth]===seq, Append[#, oth]& /@ fth,
Length[oth]==Length[fth], Inner[Append, fth, oth, List],
True, ERROR
] /. seq -> Sequence
]
] /. F -> f
Carlo
--
C Teubner t offline de
dot at minus dot
...oops: "on" not "off" :)