USING: arrays kernel math sequences ;

IN: math.extras

: bartlett ( n -- seq )
dup 1 <=
[ 1 = [ 1 1array ] [ { } ] if ] [
[ iota ] [ 1 - 2 / ] bi
[ [ recip * ] [ >= ] 2bi [ 2 swap - ] when ] curry map
] if ;