Re: Re: Super-Increasing List
- To: mathgroup at smc.vnet.net
- Subject: [mg40498] Re: [mg40469] Re: Super-Increasing List
- From: Dr Bob <majort at cox-internet.com>
- Date: Tue, 8 Apr 2003 03:03:42 -0400 (EDT)
- References: <b6m04c$efg$1@smc.vnet.net> <200304070853.EAA07965@smc.vnet.net>
- Reply-to: majort at cox-internet.com
- Sender: owner-wri-mathgroup at wolfram.com
It fails on the following super-increasing list:
OrestisSuperIncreasingQ@{-1, 2, 4, 8, 15}
False
Bobby
On Mon, 7 Apr 2003 04:53:44 -0400 (EDT), Orestis Vantzos
<atelesforos at hotmail.com> wrote:
> OrestisSuperIncreasingQ[lst_] := OrderedQ[lst] &&
> Module[{sum = 0}, If[Scan[If[# <= sum, Return[False], sum += #] &, lst]
> ===
> Null, True,
> False]];
>
> The advantage of this function is that it stops checking as long as an
> element does not satisfy the super-increasing condition.
> Orestis
>
> "flip" <flip_alpha at safebunch.com> wrote in message
> news:<b6m04c$efg$1 at smc.vnet.net>...
>> 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".
>
>
--
majort at cox-internet.com
Bobby R. Treat
- References:
- Re: Super-Increasing List
- From: atelesforos@hotmail.com (Orestis Vantzos)
- Re: Super-Increasing List