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