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] ====