iota

Vocabulary

sequences

Definition

USING: math ;

IN: sequences

TUPLE: iota { n integer read-only initial: 0 } ;

Methods

USING: kernel math sequences sequences.private ;

M: iota hashcode*
    over 0 <=
    [ 2drop 0 ] [
        nip length 0 swap
        [ sequence-hashcode-step ] each-integer
    ] if ;


USING: accessors sequences ;

M: iota length n>> ; inline


USING: accessors math sequences ;

M: iota maximum n>> 1 - ; inline


USING: kernel sequences ;

M: iota minimum drop 0 ; inline


USING: kernel sequences sequences.private ;

M: iota nth-unsafe drop ; inline


USING: math.combinatorics.private sequences ;

M: iota nths-unsafe (nths-unsafe) ;


USING: kernel math sequences ;

M: iota sum length dup 1 - * 2/ ; inline


USING: math math.statistics sequences ;

M: iota sum-of-cubes sum sq ;


USING: accessors kernel locals.backend math math.statistics
sequences ;

M: iota sum-of-quads
    n>> 1 - load-local 0 get-local 0 > 0 get-local [
        load-local 0 get-local 0 get-local 1 + 0 get-local 2 *
        1 + 0 get-local sq 3 * 0 get-local 3 * + 1 - * * * 30 /
        1 drop-locals
    ] curry [ 0 ] if 1 drop-locals ;


USING: accessors kernel math math.statistics sequences ;

M: iota sum-of-squares
    n>> 1 - [ ] [ 1 + ] [ 1/2 + ] tri * * 3 / ;