Re: CASE comparison values

Newsgroups	comp.lang.forth
Subject	Re: CASE comparison values
References	<dedb18b4-3a6e-4012-b0bd-ff017e5bdd1e@a8g2000pbi.googlegroups.com> <32096725.1413.1327338699800.JavaMail.geo-discussion-forums@vbhn11> <4f1da90e.355632593@192.168.0.50> <ce98623c-f8ff-4f8a-b635-9c4f8ba97a9b@h12g2000yqg.googlegroups.com>
Date	2012-01-24 10:03 +0000
From	"Peter Knaggs" <pjk@bcs.org.uk>
Message-ID	<op.v8k18gacsu5d0p@david> (permalink)

Show all headers | View raw

alberto pasquale wrote:

>
> I have used these extensions for range checking, I think they were
> initially published in FD
>
>  : ..<= ( n1 n2 -- n n )  OVER MIN ;		\ less than or equal
>  : ..< ( n1 n2 -- n n ) 1- OVER MIN ;		\ less than
>  : ..>= ( n1 n2 -- n n ) OVER MAX ;		\ grater than or equal
>  : ..> ( n1 n2 -- n n ) 1+ OVER MAX ;		\ greater than
>  : ..[] ( n1 n2 -- n n ) >R OVER MAX R> MIN ;	\ withing

You could of course simply use ?OF ( x flag -- x ).

-- 
Peter Knaggs

Back to comp.lang.forth | Previous | Next — Previous in thread | Find similar

Thread

CASE comparison values Percy <percival.andrews@gmail.com> - 2012-01-23 05:32 -0800
  Re: CASE comparison values Brad <hwfwguy@gmail.com> - 2012-01-23 07:57 -0800
    Re: CASE comparison values Aleksej Saushev <asau@inbox.ru> - 2012-01-23 22:23 +0400
  Re: CASE comparison values JennyB <jennybrien@googlemail.com> - 2012-01-23 09:11 -0800
    Re: CASE comparison values stephenXXX@mpeforth.com (Stephen Pelc) - 2012-01-23 18:38 +0000
      Re: CASE comparison values alberto pasquale <alberto@hal-pc.org> - 2012-01-23 11:42 -0800
        Re: CASE comparison values Percy <percival.andrews@gmail.com> - 2012-01-23 14:58 -0800
          Re: CASE comparison values "Elizabeth D. Rather" <erather@forth.com> - 2012-01-23 13:41 -1000
          Re: CASE comparison values Brad <hwfwguy@gmail.com> - 2012-01-23 19:20 -0800
        Re: CASE comparison values "Peter Knaggs" <pjk@bcs.org.uk> - 2012-01-24 10:03 +0000

csiph-web