Aufgabe::overhead

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

Liebe Freundinnen und Freunde der Zerstreuung,

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

In[173]:= overhead[{a}, {f1, f2}, {b, {c, d}}, {e, f, {g, {h}}}, {x}]
Out[173]= X[a][f1, f2][b[c, d]][e, f[g[h]]][x]

In[174]:= overhead[a, {f1, f2}, {b, {c, d}}, {e, f, {g, {h}}}, {x}]
Out[174]= a[f1, f2][b[c, d]][e, f[g[h]]][x]

In[175]:= overhead[{{a}, {b, {c, d}}, {e, f, {g, {h}}}, {x}}]
Out[175]= X[{a}, {b[c, d]}, {e, f[g[h]]}, {x}]

In[176]:= overhead[{a}, {b, {c, d}}, {e, f, {g, {h}}}, {x}]
Out[176]= X[a][b[c, d]][e, f[g[h]]][x]

In[177]:= overhead[a, {b, {c, d}}, {e, f, {g, {h}}}, {x}]
Out[177]= a[b[c, d]][e, f[g[h]]][x]

und fuer die Anregung zu dieser Aufgabe auf ihre Art Dank abstattet

In[187]:= overhead[d, {o, {l, {h, {a, {i, {n, {e}}}}}}}]
Out[187]= d[o[l[h[a[i[n[e]]]]]]]

Gruss und Schoene Vorweihnachtszeit
Udo.