highest_value = Max ( value1, value2 [,value3...] )

[Joakim Christiansen]

highest_value = Max ( value1, value2 [,value3...] )
With at least up to 16 values or infinitive if possible...
PHP has this function:
http://www.php.net/manual/en/function.max.php

[Michael Vogel]

I miss such a "norm" function, too. Every programmer does his own versions, but a standardized one would be cool!

I miss some of these tiny little helpers for integer math (Max, Min, Abs, Sgn etc.) and boolean logik (SetBit, ClrBit etc.)...

Michael

[Hroudtwolf]

Hi,

Here is a solution.

Code: Select all

Procedure MaxLong ( *Array.LONG )
   Protected *EOA       = *Array + PeekL ( *Array - 8 ) * SizeOf ( LONG )
   Protected lHighest.l = 0
   
   While *Array < *EOA
      If lHighest < *Array\l
         lHighest = *Array\l
      EndIf
      *Array + SizeOf ( LONG )
   Wend
   
   ProcedureReturn lHighest
EndProcedure

Dim test.l ( 7 )

test.l ( 0 ) = 5
test.l ( 1 ) = 8
test.l ( 2 ) = 1
test.l ( 3 ) = 7
test.l ( 4 ) = 5
test.l ( 5 ) = 9
test.l ( 6 ) = 2
test.l ( 7 ) = 3

Debug MaxLong ( @ test () )

Best regards

Wolf

[IceSoft]

@Wolf,

Using SortArray(test(), #PB_Sort_Descending) is easier

Code: Select all

Dim test.l ( 7 ) 

test.l ( 0 ) = 5 
test.l ( 1 ) = 8 
test.l ( 2 ) = 1 
test.l ( 3 ) = 7 
test.l ( 4 ) = 5 
test.l ( 5 ) = 9 
test.l ( 6 ) = 2 
test.l ( 7 ) = 3 


SortArray(test(), #PB_Sort_Descending)

Debug test (0)

[Hroudtwolf]

But absolutly untricky and not nearly so fast ^^

[Derek]

But you might not actually want the contents of the array sorted, just want to know what is the highest (or lowest) so both ways have their merits.

[IceSoft]

But absolutly untricky and not nearly so fast ^^

Of course