Re: Aufgabe::overhead

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

overhead[x__] :=
 Block[{y = {x} //. Y_[p1___, q_?AtomQ, l_List, p2___] :> Y[p1, q @@ l,  
p2]},
  Fold[Apply[#1, #2] &, If[Head[First[y]] === List, X @@ First[y],  
First[y]], Rest[y]]
 ]

> man implementiere die Funktion overhead[] derart, dass sie beispielhaft  
> folgende Ergebnisse gibt
<snip>