view sequences/singleton.m @ 0:672052bd81f8

Initial partial import.

function y=singleton(x)
% singleton - Make sequence with exactly one element
%
% singleton :: A -> seq A.

y=data(size(x),'datafn',@(o)x,'nextfn',@(o)[],'charfn',@(o)'singleton');