Mercurial > hg > ishara

diff sequences/singleton.m @ 3:3f77126f7b5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First major revision of sequence library, now using classdef form, STILL A BIT BROKEN!
author samer
date Wed, 09 Jan 2013 22:22:21 +0000
parents 672052bd81f8
children b1280319413e
line wrap: on
line diff
--- a/sequences/singleton.m	Sat Dec 22 16:17:51 2012 +0000
+++ b/sequences/singleton.m	Wed Jan 09 22:22:21 2013 +0000
@@ -1,6 +1,4 @@
-function y=singleton(x)
-% singleton - Make sequence with exactly one element
+% singleton - infinite sequence repeating one value
 %
-% singleton :: A -> seq A.
-
-y=data(size(x),'datafn',@(o)x,'nextfn',@(o)[],'charfn',@(o)'singleton');
+% singleton :: A -> seq(A).
+function s=singleton(x), s=cons(x,[]); end