(pascal) ( seq -- newseq )


Vocabulary
rosetta-code.pascals-triangle

Inputs
seqan object


Outputs
newseqan object


Definition
USING: grouping kernel sequences ;

IN: rosetta-code.pascals-triangle

: (pascal) ( seq -- newseq )
dup last 0 prefix 0 suffix 2 <clumps> [ sum ] map suffix ;