Util.fs

######################################################
##
##  Util:
##
##  A lexicon of common utility words.
##
##  John Earnest
##
######################################################

: 0=            if false else true  then ;
: 0!            if true  else false then ;
: on       true  swap !                  ;
: off      false swap !                  ;
: 2inc     1 + swap 1 + swap             ; ( a b -- a+1 b+1 )
: 2dec     1 - swap 1 - swap             ; ( a b -- a-1 b-1 )
: inc@     dup @ 1 + swap !              ;
: dec@     dup @ 1 - swap !              ;
: toggle   dup @ not swap !              ;
: neg@     dup @ -1 * swap !             ;
: swap@    2dup @ >r @ swap ! r> swap !  ;
: inc-r    r> r> 1 + >r >r               ;
: dec-r    r> r> 1 - >r >r               ;
: +@       swap over @ swap + swap !     ; ( val addr -- )
: -@       swap over @ swap - swap !     ;
: random   RN @ swap mod                 ;
: brownian RN @ 3 mod 1 -                ;
: abs      dup 0 < if -1 * then          ;
: later    r> r> swap >r >r              ;
: exitif   if rdrop exit then            ;
: tuck     swap over                     ;
: ?dup     dup if dup then               ;
: within   over >= >r <= r> and          ; ( min v max -- flag )

: sgn ( n -- -1 | 0 | 1 )
	dup  0 > 1 and
	swap 0 < 1 and -
;

: indexof (value array -- address)
	loop
		2dup @ =
		if swap drop exit then
		1 +
	again
;