iterate-triangle ( triange spaces -- triangle' )

Vocabulary

rosetta-code.sierpinski-triangle

Inputs

triange	an object
spaces	an object

Outputs

triangle'

an object

Definition

USING: kernel sequences ;

IN: rosetta-code.sierpinski-triangle

: iterate-triangle ( triange spaces -- triangle' )
    [ [ 1surround ] curry map ] [ drop [ dup " " glue ] map ]
    2bi append ;