17 lines
360 B
Factor
17 lines
360 B
Factor
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: math-internals
|
|
USING: generic kernel math ;
|
|
|
|
M: float number= float= ;
|
|
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 ;
|