view sequences/@seq/split.m @ 16:db7f4afd27c5

Rearranging numerical toolbox.

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