view arrows/@aconcat/aconcat.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

% aconcat - arrow to sequence multiple finite generators 
%
% aconcat :: 
%    {[N]->arrow(A,B,_)} ~'cell array of arrows'
% -> arrow(A,B,aconcat_state).
%


function o=aconcat(ax)
	if iscell(ax) ax=cellseq(ax); end
	s.arrows=ax;
	o=class(s,'aconcat',arrow(nargin(head(ax)),nargout(head(ax))));
end