view sequences/@seq/split.m @ 29:61921dceded1

More documentation on type system.

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);