factor/library/math/float.factor

36 lines
770 B
Factor
Raw Normal View History

2006-01-28 15:49:31 -05:00
! Copyright (C) 2004, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: math
USING: generic kernel math-internals ;
UNION: real rational float ;
2005-09-16 22:47:28 -04:00
M: real abs dup 0 < [ neg ] when ;
M: real absq sq ;
M: real hashcode ( n -- n ) >fixnum ;
M: real <=> - ;
2006-01-28 15:49:31 -05:00
: fp-nan? ( float -- ? )
double>bits -51 shift BIN: 111111111111 [ bitand ] keep = ;
M: float zero?
double>bits HEX: 8000000000000000 [ bitor ] keep number= ;
M: float number= [ double>bits ] 2apply number= ;
M: float < float< ;
M: float <= float<= ;
M: float > float> ;
M: float >= float>= ;
M: float + float+ ;
M: float - float- ;
M: float * float* ;
M: float / float/f ;
M: float /f float/f ;
M: float mod float-mod ;
2005-09-16 22:47:28 -04:00
M: float 1+ 1.0 float+ ;
M: float 1- 1.0 float- ;