view sequences/@seq/split.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

function [h,t]=split(n,s)
% split - split sequence into initial and trailing segments
%
% split :: N:natural, seq(A) -> seq(A), seq(A)

h=take(n,s);
t=drop(n,s);