Vielleicht noch die "Lessons learned" für alle, die meinen Einzeiler
nicht selbst zerlegen wollen:
- With[{x=1},{y=x+1},...] ist immer noch nicht Mathematica front end
unterstützt und unglaublich rot, aber funktioniert und lässt mehrere
abhängige Definitionen zu. Das IntelliJ Plugin unterstützt es schon
seit der Einführung vor einigen Jahren.
- Union ist eigentlich eine Operation auf Mengen, aber hier können wir
nutzen, dass es eine Liste sowohl sortiert, als auch die Duplikate
entfernt.
- "Inner" ist eine Alternative, wenn man nicht Rule@@@Transpose[...]
schreiben will. Beides funktioniert aber.
Cheers
Patrick
On So, 2020-03-22 at 08:08 +0100, Susanne & Udo Krause wrote:
> Hallo Patrick,
>
> hervorragend, der Einzeiler auf einer Zeile - der Vollständigkeit
> halber
> muss ich gestehen, dass ich
>
> With[
> {say = Characters["wolfram hat sich was ausgedacht"]},
> Fold[ReplacePart[#1, MapThread[Rule, #2]] &,
> Range[StringLength[StringJoin[say]]],
> Transpose[{#, Range[Length[#]]} &[Flatten[Position[say, #] & /@
> Union[say], {3}][[1]]]] /. {x_List, y_Integer} :> {x,
> ConstantArray[y,
> Length[x]]}
> ]
> ]
>
> eingetippt hatte. Gut ist auch, dass man mit
>
> With[{...},{...}, ...]
>
> aufeinander bezügliche Definitionen im With[] anbringen kann.
>
>
> Besten Dank
>
> Udo.
>
>
> Am 22.03.2020 um 01:16 schrieb Patrick Scheibe:
> >
> > Hey,
> >
> > ist die Aufgabe: man erstelle die mapL "aus dem Eingabestring"?
> > Dann
> >
> > str = "wolfram hat sich was ausgedacht";
> > With[{c=Characters[str]},{s=Union[c]},c/.Inner[Rule,s,Range[Length[
> > s]],
> > List]]
> >
> > Cheers
> > Patrick
> >
> > On Sa, 2020-03-21 at 21:44 +0100, Susanne & Udo Krause via demug
> > wrote:
> > >
> > > Moin moin,
> > >
> > >
> > > nun hat es neu in
> > >
> > > In[126]:= $Version
> > > Out[126]= "12.1.0 for Microsoft Windows (64-bit) (March 14,
> > > 2020)"
> > >
> > >
> > > den OperatorApplied
> > > (https://reference.wolfram.com/language/ref/OperatorApplied.html)
> > > ,
> > >
> > > In[127]:= Clear[mapL]
> > > mapL = {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};
> > > OperatorApplied[StringJoin, mapL][" ", "a", "c", "d", "e", "f",
> > > "g",
> > > "h", "i", "l", "m", "o", "r", "s", "t", "u", "w"]
> > >
> > > Out[129]= "wolfram hat sich was ausgedacht"
> > >
> > >
> > > man erstelle die Liste mapL (mit einem Einzeiler, what else ...
> > > 😬)
> > >
> > >
> > > Grüsse
> > >
> > > udo.
> > >
> > >
> > >
> > > _______________________________________________
> > > DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
> > > http://www.mathematica.ch/mailman/listinfo/demug
> > > Archiv: http://www.mathematica.ch/archiv.html
signature.asc
Description: This is a digitally signed message part
_______________________________________________ DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug Archiv: http://www.mathematica.ch/archiv.html
