1. abs function

A cleaner abs function.

function absolutevalue(atom i) -- doesn't need to be an integer!
        atom r
        r =3D i
        if i<0 then
                r =3D -1 * i
        end if
        return r
end function

--Alan
 =

new topic     » topic index » view message » categorize

2. Re: abs function

Alan Tu wrote:


>A cleaner abs function.
>
>function absolutevalue(atom i) -- doesn't need to be an integer!
>        atom r
>        r = i
>        if i<0 then
>                r = -1 * i
>        end if
>        return r
>end function



Alan, if you want to be serious about cleaning, get rid of the cobwebs:

function absolutevalue(atom i)
        if i<0 then
                return -i
        end if
        return i
end function

jiri

new topic     » goto parent     » topic index » view message » categorize

3. Re: abs function

This one works with sequences too.

function abs(object x)
    return x*(x>=0)-x*(x<0)
end function

Graeme.

----------------------------------------------------

new topic     » goto parent     » topic index » view message » categorize

4. Re: abs function

>Alan, if you want to be serious about cleaning, get rid of the cobwebs:

I was saying cleaning in relation not to your function.  But I _really,
really_ like

return (x<0)*(-2)+x

Now that _is_ a blast.

--Alan
 =

new topic     » goto parent     » topic index » view message » categorize

5. Re: abs function

Oops Jiri.. you beat me to it.. :)

Greg Harris
HHS

-----Original Message-----
From: jiri babor <jbabor at PARADISE.NET.NZ>
To: EUPHORIA at LISTSERV.MUOHIO.EDU <EUPHORIA at LISTSERV.MUOHIO.EDU>
Date: Tuesday, September 01, 1998 9:57 AM
Subject: Re: abs function


>Alan Tu wrote:
>
>
>>A cleaner abs function.
>>
>>function absolutevalue(atom i) -- doesn't need to be an integer!
>>        atom r
>>        r = i
>>        if i<0 then
>>                r = -1 * i
>>        end if
>>        return r
>>end function
>
>
>
>Alan, if you want to be serious about cleaning, get rid of the cobwebs:
>
>function absolutevalue(atom i)
>        if i<0 then
>                return -i
>        end if
>        return i
>end function
>
>jiri
>

new topic     » goto parent     » topic index » view message » categorize

6. abs function

Okay, one last shot at this:

function abs(object x)
return ((x>=0)*2-1)*x
end function

This is how I would have done it in C, well, more or less anyways.
Laters,

___
_|ohn

new topic     » goto parent     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu