Re: Re: Counting the total number of available Mathematica commands ?
- To: mathgroup at smc.vnet.net
- Subject: [mg22902] Re: [mg22882] Re: Counting the total number of available Mathematica commands ?
- From: BobHanlon at aol.com
- Date: Tue, 4 Apr 2000 22:41:06 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
If your interest were restricted to the numeric functions then you could use
(numFuncList =
Select[Names["*"], ! FreeQ[Attributes[#], NumericFunction] &]) // Length
Bob Hanlon
In a message dated 4/4/2000 1:54:10 AM, kuska at informatik.uni-leipzig.de
writes:
>the problem is that Names["*"] generate a list of all Mathematica
>*symbols*
>and not of all Mathematica commands. And $TopDirectory is *not* a
>command and
>ViewPoint will do nothing.
>
>But global symbols have usual a associated value, functions typical not.
>So probably
>
>nlist = Names["*"];
>optandfun=First /@ Select[{#, ToExpression[#]} & /@ nlist, First[#] ==
>ToString[Last[#]] &]
>
>gives the list of functions and *options*.
>To remove at least the options acciciated with the funtions we can
>
>onlyopt =
> ToString /@
> Flatten[Options[ToExpression[#]] & /@ optandfun] /. {Rule[a_,
>b_] :> a,
> Verbatim[RuleDelayed][a_, b_] :> a};
>
>and
>
>Complement[optanfun, onlyopt]
>
>This helps nothing for options FontFace like
>TextStyle->{FontFace->"Times"} and nothing for symbols
>like Integers, Reals or Complexes that are not options
>and not function definitions.
>
>More ideas to find the *functions only* are welcome.
>
>But I think it is impossible due to the read protection of
>the build in symbols.
>