repos/rhope: range.rhope comparison

Forgot to add this with a prior commit

author	Mike Pavone <pavone@retrodev.com>
date	Mon, 02 Aug 2010 01:00:37 -0400
parents
children	a34a982ecd32

comparison

equal deleted inserted replaced

-:09831a71a4bc
+:05c22ff4b4ed
+Blueprint Range
+{
+	Start
+	End
+}
+Range[start,end:out]
+{
+	out <- [[Build[Range()]]Start <<[start]]End <<[end]
+}
+First@Range[range:out,none]
+{
+	If[[[range]Start >>] < [[range]End >>]]
+	{
+		out <- [range]Start >>
+	}{
+		none <- range
+	}
+}
+Next@Range[range,val:out,done]
+{
+	next <- [val]+[1]
+	If[[next] < [[range]End >>]]
+	{
+		out <- Val[next]
+	}{
+		done <- range
+	}
+}
+Index@Range[range,index:out,notfound]
+{
+	If[[index] < [[range]End >>]]
+	{
+		If[[index] < [[range]Start >>]]
+		{
+			notfound <- index
+		}{
+			out <- index
+		}
+	}{
+		notfound <- index
+	}
+}

Mercurial > repos > rhope