array-flip ( matrix -- newmatrix )

Vocabulary

sequences.private

Inputs

matrix

an object

Outputs

newmatrix

an object

Definition

USING: accessors arrays kernel kernel.private math.order
sequences ;

IN: sequences.private

: array-flip ( matrix -- newmatrix )
    { array } declare
    [ [ { array } declare length>> ] [ min ] map-reduce ] keep
    [ [ { array } declare array-nth ] with { } map-as ] curry
    map-integers ;