Little helpers

Thomas · Post by **Thomas** » 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.

Blade · Post by **Blade** » Sat Jul 16, 2005 12:31 pm

Can you explain Odd and Even functions

Never seen before...

Psychophanta · Post by **Psychophanta** » 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

Thomas · Post by **Thomas** » 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.

MikeB · Post by **MikeB** » 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