Re: [Dmug] Aufgabe::OperatorApplied

[Susanne & Udo Krause via demug <demug@XXXXXXX.ch>]

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
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html