Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: finding all definitions matching a pattern

  • To: mathgroup at smc.vnet.net
  • Subject: [mg98015] Re: [mg98004] finding all definitions matching a pattern
  • From: Fernando Cucchietti <fernando.cucchietti at icfo.es>
  • Date: Sat, 28 Mar 2009 05:40:53 -0500 (EST)
  • References: <200903271038.FAA25437@smc.vnet.net>

Hi Roman,

maybe there is a better way but this seems to work

F[0] = 3;
F[1] = 7;
F[3] = 11;

getdefs[func_] := Module[{args}, ({#[[1]] /. f_[func[args__]] ->  
args , #[[1, 1]]} &) /@DownValues[func]]

getdefs[F]
{{0, 3}, {1, 7}, {3, 11}}



On Mar 27, 2009, at 11:38 AM, Roman wrote:

> Dear Mathematica user:
>
> Assume we have a number of definitions associated with a symbol F, for
> example:
>   F[0] = 3;
>   F[1] = 7;
>   F[3] = 11;
>
> What I need is an automated way to generate the list of definitions,
> something like
> In[1] := getdefs[F]
> Out[1] = {{0,3},{1,7},{3,11}}
>
> Would you know how to write this function "getdefs"? I am having
> trouble extracting any useful information from a call to Definition[F]
> since it seems to wrap its output somehow.
>
> Thanks!
> Roman.
>



  • Prev by Date: Re: finding all definitions matching a pattern
  • Next by Date: Re: finding all definitions matching a pattern
  • Previous by thread: finding all definitions matching a pattern
  • Next by thread: Re: finding all definitions matching a pattern