Re: neat way to program minimum of sum

*To*: mathgroup at smc.vnet.net*Subject*: [mg75125] Re: neat way to program minimum of sum*From*: Januk <ggroup at sarj.ca>*Date*: Wed, 18 Apr 2007 04:56:44 -0400 (EDT)*References*: <f01360$889$1@smc.vnet.net>

Hi, You could try: i=1; NestWhileList[i = 1; f = NestWhileList[ Function[x, i++; x + Random[]], Random[], # < 10 &]; Transpose[{Range[i], f}] Good luck! On Apr 16, 8:08 pm, cge... at gmail.com (P. Kaminski) wrote: > Hi > I need to program the following function: > > f(t) = max{n>0 : X1 + ... + Xn > t} > > where Xi are some random numbers. I've done it using Module and Wile: > > x[i_]:=x[i]=Random[] > f[t_]:=f[t]=Module[{i}, i=1; While[Total[Array[x, i]]<=t, i++]; Return[i-1]]; > > This works but requires Module and three instructions within. Can it > be simplified to a true one-liner, preferably with some functional > programming trick? > > Thanks in advance, > P. Kaminski