view sequences/@seq/split.m @ 38:9d24b616bb06

Added function algebra.

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