real

Vocabulary

math

Class description

The class of real numbers, which is a disjoint union of rationals and floats.

Definition

IN: math

UNION: real rational float ;

Methods

USING: calendar.private kernel math ;

M: real +day float>whole-part swapd 24 * +hour swap +day ;


USING: calendar.private kernel math ;

M: real +hour float>whole-part swapd 60 * +minute swap +hour ;


USING: calendar.private kernel math ;

M: real +minute
    float>whole-part swapd 60 * +second swap +minute ;


USING: calendar calendar.private kernel math ;

M: real +month
    float>whole-part swapd average-month * +day swap +month ;


USING: calendar calendar.private kernel math ;

M: real +year
    float>whole-part swapd days-per-year * +day swap +year ;


USING: kernel math ;

M: real /mod 2dup mod [ swap [ - ] [ /i ] bi* ] keep ; inline


USING: math math.order math.order.private ;

M: real <=> real<=> ; inline


USING: kernel layouts math math.order ;

M: real >integer
    dup most-negative-fixnum most-positive-fixnum between?
    [ >fixnum ] [ >bignum ] if ; inline


USING: math timers.private ;

M: real >nanoseconds >integer ;


USING: math ;

M: real >rect 0 ; inline


USING: kernel math ;

M: real abs dup 0 < [ neg ] when ; inline


USING: math math.functions ;

M: real absq sq ; inline


USING: math math.order ;

M: real after=? >= ; inline


USING: math math.order ;

M: real after? > ; inline


USING: math math.functions ;

M: real atan >float atan ; inline


USING: math math.order ;

M: real before=? <= ; inline


USING: math math.order ;

M: real before? < ; inline


USING: math math.functions ;

M: real copysign >float copysign ;


USING: math math.functions ;

M: real cos >float cos ; inline


USING: math math.functions ;

M: real cosh >float cosh ; inline


USING: math math.functions ;

M: real e^ >float e^ ; inline


USING: math math.functions ;

M: real e^-1 >float e^-1 ; inline


USING: calendar.format math ;

M: real elapsed-time >integer elapsed-time ;


USING: kernel math ;

M: real imaginary-part drop 0 ; inline


USING: json.private math math.parser ;

M: real json-coerce >float number>string ;


USING: math math.functions ;

M: real lgamma >float lgamma ;


USING: math math.functions ;

M: real log >float log ; inline


USING: math math.functions math.libm ;

M: real log10 >float flog10 ; inline


USING: combinators math math.parser namespaces
prettyprint.backend prettyprint.config prettyprint.custom
prettyprint.sections ;

M: real pprint*
    number-base get {
        { 10 [ number>string text ] }
        { 16 [ [ >hex ] "0x" pprint-prefixed-number ] }
        { 8 [ [ >oct ] "0o" pprint-prefixed-number ] }
        { 2 [ [ >bin ] "0b" pprint-prefixed-number ] }
        [ unsupported-number-base ]
    } case ;


USING: math math.parser present ;

M: real present number>string ;


USING: math ;

M: real real-part ; inline


USING: math math.order.private ;

M: real real<=> (real<=>) ; inline


USING: calendar.format kernel math sequences ;

M: real relative-time
    [ relative-time-offset ]
    [ dup abs 1 < [ drop ] [ 0 < "hence" "ago" ? " " glue ] if ]
    bi ;


USING: kernel math math.extras math.functions ;

M: real round-away-from-zero dup 0 < [ floor ] [ ceiling ] if ;


USING: math math.functions ;

M: real signum sgn ;


USING: kernel math ;

M: real simple-gcd gcd nip ; inline


USING: math math.functions ;

M: real sin >float sin ; inline


USING: math math.functions ;

M: real sinh >float sinh ; inline


USING: math system threads ;

M: real sleep >integer nano-count + sleep-until ;


USING: math math.parser smalltalk.printer ;

M: real smalltalk>string number>string ;


USING: kernel math math.functions math.libm ;

M: real sqrt
    >float dup 0.0 <
    [ neg fsqrt [ 0.0 ] dip rect> ] [ fsqrt ] if ; inline


USING: io json kernel math math.parser ;

M: real stream-write-json
    [ >float number>string ] [ stream-write ] bi* ;


USING: math math.functions ;

M: real tan >float tan ; inline


USING: math math.functions ;

M: real tanh >float tanh ; inline


USING: kernel math math.functions ;

M: real truncate dup 1 mod - ;


USING: cursors math math.functions ;

M: real up/i / ceiling >integer ; inline