function between1(a, b, c)
return between(a, b, c) or between(-a, -b, -c)

function between2(a, b, c)
return between(a, b, c) or between(a, c, b)

function between3(a, b, c)
return (a>b)<>(a>c) or (a<b)<>(a<c)

function between4(a, b, c)
return !((a>b)=(a>c) and (a<b)=(a<c))

function between5(a, b, c)
return between(a, min(b, c), max(b, c))

function between6(a, b, c)
return a>=min(b, c) and a<=max(b, c)

m.first = 3
m.second = 1
m.current = 2.5

?ABS(m.first - m.second) >= ABS(m.current - m.first)

between(current, first, second)

between(current, second,  first)

create Cursor result (AlgNo i, TestNo i, time y)

create Cursor alg(code v(254))
insert into alg values('between(a, b, c) or between(-a, -b, -c)')
insert into alg values('between(a, b, c) or between(a, c, b)')
insert into alg values('(a>b)<>(a>c) or (a<b)<>(a<c)')
insert into alg values('!((a>b)=(a>c) and (a<b)=(a<c))')
insert into alg values('between(a, min(b, c), max(b, c))')
insert into alg values('a>=min(b, c) and a<=max(b, c)')
insert into alg values('abs(b-c)>=a - min(b, c)')

test(1, 1, 2, 3)
test(2, 4, 2, 3)
test(3, 1, 3, 2)
test(4, 4, 3, 2)
test(5, 3, 2, 4)
test(6, 3, 4, 2)

select AlgNo, sum(time) from result group by 1 order by 2

function test
    param n, a, b, c
    scan
        s=seco()
        ExecScript(;
            'for i=1 to 1000000'+chr(13)+ ;
                '=('+code+')'+chr(13)+ ;
            'endfor')
        insert into result values(recno('alg'), n, seco()-s)
    endscan
endfunc

ss= SECONDS()
FOR ii = 1 TO 1000000
    is_between(ii,30,24)
ENDFOR
?SECONDS()-ss  
  
  
func is_between (aa,bb,cc)
retu between(aa,iif(cc<bb,cc,bb),iif(bb<cc,cc,bb))

func is_between (aa,bb,cc) 
retu between(aa,cc,bb)

between(aa,iif(cc<bb,cc,bb),iif(bb<cc,cc,bb))

between(a, b, c) or between(a, c, b)