Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: neat way to program minimum of sum

  • To: mathgroup at smc.vnet.net
  • Subject: [mg75131] Re: neat way to program minimum of sum
  • From: Norbert Marxer <marxer at mec.li>
  • Date: Wed, 18 Apr 2007 04:59:49 -0400 (EDT)
  • References: <f01360$889$1@smc.vnet.net>

On 17 Apr., 02:08, 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

Hello

f[t_] := Length@NestWhileList[(
      s = s + Random []) &, s = Random[], (s < t) &] - 1

Best Regards
Norbert Marxer



  • Prev by Date: Re: date format
  • Next by Date: Re: neat way to program minimum of sum
  • Previous by thread: Re: neat way to program minimum of sum
  • Next by thread: Re: neat way to program minimum of sum