Hallo nocheinmal, Am 22.03.2020 um 08:08 schrieb Susanne & Udo Krause via demug:
Gut ist auch, dass man mit
With[{...},{...}, ...]
aufeinander bezügliche Definitionen im With[] anbringen kann.
allerdings schreibt der Parser den Einzeiler teilweise rot an (vgl. bitte with-chained-locals), das tut er bei dieser Version
In[17]:= mapPS2 = With[{s = Union[c = Characters[str]]}, c /. Inner[Rule, s, Range[Length[s]], List]] Out[17]= {17, 12, 10, 6, 13, 2, 11, 1, 8, 2, 15, 1, 14, 9, 3, 8, 1, 17, 2, 14, 1, 2, 16, 14, 7, 5, 4, 2, 3, 8, 15}
nicht - anscheinend ist die Darstellung für den Kernel identischIn[4]:= Through[{LeafCount, ByteCount, Length}[With[{c = Characters[str]}, {s = Union[c]}, c /. Inner[Rule, s, Range[Length[s]], List]]]]
Out[4]= {32, 784, 31}
In[5]:= Through[{LeafCount, ByteCount, Length}[With[{s = Union[c =
Characters[str]]}, c /. Inner[Rule, s, Range[Length[s]], List]]]]
Out[5]= {32, 784, 31}
with other words, the parser is a sissy with with.
Grüsse
Udo.
with-chained-locals.jpg
Description: JPEG image
_______________________________________________ DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug Archiv: http://www.mathematica.ch/archiv.html
