Christoph Maier wrote:
And then there's the problem of readability ...
what the *&^%$#@ did I program in Mathematica when I wrote
(and now need to try and make sense of)??!? :
Butterfly = Function[{line},
Block[{l = Length[line]},
{Plus @@ #,
Exp[(2 \[Pi] \[ImaginaryI])/l (Range[l/2] - 1)]
Subtract @@ #} &[Partition[line, l/2]]
]
]
SandeTukey =
Function[{vector},
Flatten[First[
Nest[Function[{v, n}, {Map[Butterfly, v, {n}],
n + 1}] @@ # &, {vector, 0}, Log[2, Length[vector]]]]]]
You know, that is possibly the worst implementation of Lisp syntax I
have ever seen.
And talk about an argument *against* implicit operators. Yuk.
-a
--
[email protected]
http://www.kernel-panic.org/cgi-bin/mailman/listinfo/kplug-lpsg
