Re: programming competition

*To*: mathgroup at smc.vnet.net*Subject*: [mg4910] Re: [mg4847] programming competition*From*: Fred Simons <wsgbfs at wsgbo02.win.tue.nl>*Date*: Fri, 4 Oct 1996 00:17:45 -0400*Sender*: owner-wri-mathgroup at wolfram.com

In the following oneliner for Xah Lee's programming competition [mg 4847], test is the row of points (which may be in any R^n) and len the value of maxLength. Flatten[ (Table[ #[[1]] + i (#[[2]] - #[[1]]), {i, 0, 1, len/Sqrt[(#[[2]]-#[[1]]).(#[[2]]-#[[1]])]} ]&) /@ Partition[test, 2, 1], 1 ] Fred Simons Eindhoven University of Technology ==== [MESSAGE SEPARATOR] ====