USING: benchmark.tuple-arrays game.models.util kernel
math.blas.matrices sequences.complex-components
sequences.shifted sequences.windowed ;

IN: sequences

: sequence? ( object -- ? )
dup shifted?
[ drop t ] [
dup blas-matrix-rowcol-sequence?
[ drop t ] [
dup point-array?
[ drop t ] [
dup indexed-seq?
[ drop t ] [
dup windowed-sequence?
[ drop t ] [
dup complex-components? ~quotation~
~quotation~ if
] if
] if
] if
] if
] if ;