PureBasic Forums - English

Posted: **Sat Jul 16, 2005 12:22 pm**

Functions like Min(x,y), Max(x,y), Odd(x), Even(x), etc. can be realised differently but it would make coding easier.

Posted: **Sat Jul 16, 2005 12:31 pm**

Can you explain Odd and Even functions

Never seen before...

Posted: **Sat Jul 16, 2005 12:55 pm**

Blade wrote:Can you explain Odd and Even functions Never seen before...

I also have not seen before that functions, but to get whether an integer is even or odd i use:
If integer.l&1 ; <- if yes, that means it is Odd, else Even
So no needed a function for it

Posted: **Sat Jul 16, 2005 3:10 pm**

You also can use number%2=0 but the code would be more readable if such functions exist.

Posted: **Sat Jul 16, 2005 11:33 pm**

I agree it would be easier to have these commands, but at the moment I just copy the following to the top of my prog.

Code: Select all

Procedure odd(num)
    result=num & 1
    ProcedureReturn result
EndProcedure
;
Procedure EVEN(num)
    result=(num & 1) ! 1
    ProcedureReturn result
EndProcedure
;
Procedure.f maxf(num.f,num2.f)
    If num>num2
        ProcedureReturn num
    Else
        ProcedureReturn num2
    EndIf
EndProcedure
;
Procedure max(num,num2)
    If num>num2
        ProcedureReturn num
    Else
        ProcedureReturn num2
    EndIf
EndProcedure
;
Procedure.f minf(num.f,num2.f)
    If num<num2
        ProcedureReturn num
    Else
        ProcedureReturn num2
    EndIf
EndProcedure
;
Procedure min(num,num2)
    If num<num2
        ProcedureReturn num
    Else
        ProcedureReturn num2
    EndIf
EndProcedure

MikeB

PureBasic Forums - English

Little helpers

Little helpers