Re: Super-Increasing List
- To: mathgroup at smc.vnet.net
- Subject: [mg40455] Re: Super-Increasing List
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Sun, 6 Apr 2003 04:34:25 -0400 (EDT)
- References: <b6m04c$efg$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
And @@ Thread[Drop[FoldList[#1 + #2 &, 0, list], -1] < list]
Bob Hanlon
In article <b6m04c$efg$1 at smc.vnet.net>, "flip" <flip_alpha at safebunch.com>
wrote:
<<
Subject: Super-Increasing List
From: "flip" <flip_alpha at safebunch.com>
To: mathgroup at smc.vnet.net
Date: Sat, 5 Apr 2003 07:20:44 +0000 (UTC)
Hello,
does a command or module exist which can test a list of values and determine
if it is a super-increasing list?
A super-increasing list satifies the conditions:
a. the list is in increasing order
b. each element of the list is greater than the sum of it's previous
elements
Example:
list = {2, 3, 7, 15, 31}
So check:
a. It is in increasing order and
b. 3 > 2, 7 > 3+ 2, 15 > 7 + 3 + 2 and 31 > 15 + 7 + 3 + 2,
hence the list is super-increasing.
Thanks for any inputs, Flip
To email me, remove "_alpha".
>><BR><BR>