10 lines
197 B
Factor
10 lines
197 B
Factor
|
USING: kernel math math.vectors sequences ;
|
||
|
|
IN: rosetacode
|
||
|
|
|
||
|
|
: 1-order ( seq -- seq' )
|
||
|
|
[ rest-slice ] keep v- ;
|
||
|
|
|
||
|
|
: n-order ( seq n -- seq' )
|
||
|
|
dup 0 <=
|
||
|
|
[ drop ] [ [ 1-order ] times ] if ;
|