1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
|
<!DOCTYPE html>
<html lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="generator" content="AsciiDoc 8.6.8">
<title>ForLoops</title>
<link rel="stylesheet" href="./asciidoc.css" type="text/css">
<link rel="stylesheet" href="./pygments.css" type="text/css">
<script type="text/javascript" src="./asciidoc.js"></script>
<script type="text/javascript">
/*<![CDATA[*/
asciidoc.install();
/*]]>*/
</script>
<link rel="stylesheet" href="./mlton.css" type="text/css"/>
</head>
<body class="article">
<div id="banner">
<div id="banner-home">
<a href="./Home">MLton 20130715</a>
</div>
</div>
<div id="header">
<h1>ForLoops</h1>
</div>
<div id="content">
<div id="preamble">
<div class="sectionbody">
<div class="paragraph"><p>A <span class="monospaced">for</span>-loop is typically used to iterate over a range of consecutive
integers that denote indices of some sort. For example, in <a href="OCaml">OCaml</a>
a <span class="monospaced">for</span>-loop takes either the form</p></div>
<div class="listingblock">
<div class="content monospaced">
<pre>for <name> = <lower> to <upper> do <body> done</pre>
</div></div>
<div class="paragraph"><p>or the form</p></div>
<div class="listingblock">
<div class="content monospaced">
<pre>for <name> = <upper> downto <lower> do <body> done</pre>
</div></div>
<div class="paragraph"><p>Some languages provide considerably more flexible <span class="monospaced">for</span>-loop or
<span class="monospaced">foreach</span>-constructs.</p></div>
<div class="paragraph"><p>A bit surprisingly, <a href="StandardML">Standard ML</a> provides special syntax
for <span class="monospaced">while</span>-loops, but not for <span class="monospaced">for</span>-loops. Indeed, in SML, many uses
of <span class="monospaced">for</span>-loops are better expressed using <span class="monospaced">app</span>, <span class="monospaced">foldl</span>/<span class="monospaced">foldr</span>,
<span class="monospaced">map</span> and many other higher-order functions provided by the
<a href="BasisLibrary">Basis Library</a> for manipulating lists, vectors and
arrays. However, the Basis Library does not provide a function for
iterating over a range of integer values. Fortunately, it is very
easy to write one.</p></div>
</div>
</div>
<div class="sect1">
<h2 id="_a_fairly_simple_design">A fairly simple design</h2>
<div class="sectionbody">
<div class="paragraph"><p>The following implementation imitates both the syntax and semantics of
the OCaml <span class="monospaced">for</span>-loop.</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="k">datatype</span><span class="w"> </span><span class="n">for</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="k">of</span><span class="w"> </span><span class="n">int</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="n">int</span><span class="w"></span>
<span class="w"> </span><span class="p">|</span><span class="w"> </span><span class="n">downto</span><span class="w"> </span><span class="k">of</span><span class="w"> </span><span class="n">int</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="n">int</span><span class="w"></span>
<span class="k">infix</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">downto</span><span class="w"></span>
<span class="k">val</span><span class="w"> </span><span class="n">for</span><span class="w"> </span><span class="p">=</span><span class="w"></span>
<span class="w"> </span><span class="k">fn</span><span class="w"> </span><span class="n">lo</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">up</span><span class="w"> </span><span class="p">=></span><span class="w"></span>
<span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="k">let</span><span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">loop</span><span class="w"> </span><span class="n">lo</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="k">if</span><span class="w"> </span><span class="n">lo</span><span class="w"> </span><span class="n">></span><span class="w"> </span><span class="n">up</span><span class="w"> </span><span class="k">then</span><span class="w"> </span><span class="p">()</span><span class="w"></span>
<span class="w"> </span><span class="k">else</span><span class="w"> </span><span class="p">(</span><span class="n">f</span><span class="w"> </span><span class="n">lo</span><span class="p">;</span><span class="w"> </span><span class="n">loop</span><span class="w"> </span><span class="p">(</span><span class="n">lo+</span><span class="mi">1</span><span class="p">))</span><span class="w"></span>
<span class="w"> </span><span class="k">in</span><span class="w"> </span><span class="n">loop</span><span class="w"> </span><span class="n">lo</span><span class="w"> </span><span class="k">end</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="p">|</span><span class="w"> </span><span class="n">up</span><span class="w"> </span><span class="n">downto</span><span class="w"> </span><span class="n">lo</span><span class="w"> </span><span class="p">=></span><span class="w"></span>
<span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="k">let</span><span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">loop</span><span class="w"> </span><span class="n">up</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="k">if</span><span class="w"> </span><span class="n">up</span><span class="w"> </span><span class="n"><</span><span class="w"> </span><span class="n">lo</span><span class="w"> </span><span class="k">then</span><span class="w"> </span><span class="p">()</span><span class="w"></span>
<span class="w"> </span><span class="k">else</span><span class="w"> </span><span class="p">(</span><span class="n">f</span><span class="w"> </span><span class="n">up</span><span class="p">;</span><span class="w"> </span><span class="n">loop</span><span class="w"> </span><span class="p">(</span><span class="n">up-</span><span class="mi">1</span><span class="p">))</span><span class="w"></span>
<span class="w"> </span><span class="k">in</span><span class="w"> </span><span class="n">loop</span><span class="w"> </span><span class="n">up</span><span class="w"> </span><span class="k">end</span><span class="p">)</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>For example,</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="n">for</span><span class="w"> </span><span class="p">(</span><span class="mi">1</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="mi">9</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">print</span><span class="w"> </span><span class="p">(</span><span class="n">Int</span><span class="p">.</span><span class="n">toString</span><span class="w"> </span><span class="n">i</span><span class="p">))</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>would print <span class="monospaced">123456789</span> and</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="n">for</span><span class="w"> </span><span class="p">(</span><span class="mi">9</span><span class="w"> </span><span class="n">downto</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">print</span><span class="w"> </span><span class="p">(</span><span class="n">Int</span><span class="p">.</span><span class="n">toString</span><span class="w"> </span><span class="n">i</span><span class="p">))</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>would print <span class="monospaced">987654321</span>.</p></div>
<div class="paragraph"><p>Straightforward formatting of nested loops</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="n">for</span><span class="w"> </span><span class="p">(</span><span class="n">a</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">b</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="p">=></span><span class="w"></span>
<span class="w"> </span><span class="n">for</span><span class="w"> </span><span class="p">(</span><span class="n">c</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">d</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">j</span><span class="w"> </span><span class="p">=></span><span class="w"></span>
<span class="w"> </span><span class="p">...))</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>is fairly readable, but tends to cause the body of the loop to be
indented quite deeply.</p></div>
</div>
</div>
<div class="sect1">
<h2 id="_off_by_one">Off-by-one</h2>
<div class="sectionbody">
<div class="paragraph"><p>The above design has an annoying feature. In practice, the upper
bound of the iterated range is almost always excluded and most loops
would subtract one from the upper bound:</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="n">for</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">n-</span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="p">...</span><span class="w"></span>
<span class="n">for</span><span class="w"> </span><span class="p">(</span><span class="n">n-</span><span class="mi">1</span><span class="w"> </span><span class="n">downto</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="p">...</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>It is probably better to break convention and exclude the upper bound
by default, because it leads to more concise code and becomes
idiomatic with very little practice. The iterator combinators
described below exclude the upper bound by default.</p></div>
</div>
</div>
<div class="sect1">
<h2 id="_iterator_combinators">Iterator combinators</h2>
<div class="sectionbody">
<div class="paragraph"><p>While the simple <span class="monospaced">for</span>-function described in the previous section is
probably good enough for many uses, it is a bit cumbersome when one
needs to iterate over a Cartesian product. One might also want to
iterate over more than just consecutive integers. It turns out that
one can provide a library of iterator combinators that allow one to
implement iterators more flexibly.</p></div>
<div class="paragraph"><p>Since the types of the combinators may be a bit difficult to infer
from their implementations, let’s first take a look at a signature of
the iterator combinator library:</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="k">signature</span><span class="w"> </span><span class="n">ITER</span><span class="w"> </span><span class="p">=</span><span class="w"></span>
<span class="w"> </span><span class="k">sig</span><span class="w"></span>
<span class="w"> </span><span class="k">type</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="p">(</span><span class="n">'a</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">unit</span><span class="p">)</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">unit</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">return</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">>>=</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="p">(</span><span class="n">'a</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'b</span><span class="w"> </span><span class="n">t</span><span class="p">)</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'b</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">none</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">int</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="n">int</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">int</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">downto</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">int</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="n">int</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">int</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">inList</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">list</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">inVector</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">vector</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">inArray</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">array</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">using</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="p">(</span><span class="n">'a</span><span class="p">,</span><span class="w"> </span><span class="n">'b</span><span class="p">)</span><span class="w"> </span><span class="n">StringCvt</span><span class="p">.</span><span class="n">reader</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'b</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">when</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="p">(</span><span class="n">'a</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">bool</span><span class="p">)</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">by</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="p">(</span><span class="n">'a</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'b</span><span class="p">)</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'b</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">@@</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">**</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="n">*</span><span class="w"> </span><span class="n">'b</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="p">(</span><span class="n">'a</span><span class="p">,</span><span class="w"> </span><span class="n">'b</span><span class="p">)</span><span class="w"> </span><span class="n">product</span><span class="w"> </span><span class="n">t</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">for</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">'a</span><span class="w"></span>
<span class="w"> </span><span class="k">end</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>Several of the above combinators are meant to be used as infix
operators. Here is a set of suitable infix declarations:</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="k">infix</span><span class="w"> </span><span class="mi">2</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">downto</span><span class="w"></span>
<span class="k">infix</span><span class="w"> </span><span class="mi">1</span><span class="w"> </span><span class="n">@@</span><span class="w"> </span><span class="n">when</span><span class="w"> </span><span class="n">by</span><span class="w"></span>
<span class="k">infix</span><span class="w"> </span><span class="mi">0</span><span class="w"> </span><span class="n">>>=</span><span class="w"> </span><span class="n">**</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>A few notes are in order:</p></div>
<div class="ulist"><ul>
<li>
<p>
The <span class="monospaced">'a t</span> type constructor with the <span class="monospaced">return</span> and <span class="monospaced">>>=</span> operators forms a monad.
</p>
</li>
<li>
<p>
The <span class="monospaced">to</span> and <span class="monospaced">downto</span> combinators will omit the upper bound of the range.
</p>
</li>
<li>
<p>
<span class="monospaced">for</span> is the identity function. It is purely for syntactic sugar and is not strictly required.
</p>
</li>
<li>
<p>
The <span class="monospaced">@@</span> combinator produces an iterator for the concatenation of the given iterators.
</p>
</li>
<li>
<p>
The <span class="monospaced">**</span> combinator produces an iterator for the Cartesian product of the given iterators.
</p>
<div class="ulist"><ul>
<li>
<p>
See <a href="ProductType">ProductType</a> for the type constructor <span class="monospaced">('a, 'b) product</span> used in the type of the iterator produced by <span class="monospaced">**</span>.
</p>
</li>
</ul></div>
</li>
<li>
<p>
The <span class="monospaced">using</span> combinator allows one to iterate over slices, streams and many other kinds of sequences.
</p>
</li>
<li>
<p>
<span class="monospaced">when</span> is the filtering combinator. The name <span class="monospaced">when</span> is inspired by <a href="OCaml">OCaml</a>'s guard clauses.
</p>
</li>
<li>
<p>
<span class="monospaced">by</span> is the mapping combinator.
</p>
</li>
</ul></div>
<div class="paragraph"><p>The below implementation of the <span class="monospaced">ITER</span>-signature makes use of the
following basic combinators:</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="k">fun</span><span class="w"> </span><span class="n">const</span><span class="w"> </span><span class="n">x</span><span class="w"> </span><span class="p">_</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">x</span><span class="w"></span>
<span class="k">fun</span><span class="w"> </span><span class="n">flip</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="n">x</span><span class="w"> </span><span class="n">y</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="n">y</span><span class="w"> </span><span class="n">x</span><span class="w"></span>
<span class="k">fun</span><span class="w"> </span><span class="n">id</span><span class="w"> </span><span class="n">x</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">x</span><span class="w"></span>
<span class="k">fun</span><span class="w"> </span><span class="n">opt</span><span class="w"> </span><span class="n">fno</span><span class="w"> </span><span class="n">fso</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="k">fn</span><span class="w"> </span><span class="n">NONE</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">fno</span><span class="w"> </span><span class="p">()</span><span class="w"> </span><span class="p">|</span><span class="w"> </span><span class="n">SOME</span><span class="w"> </span><span class="n">?</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">fso</span><span class="w"> </span><span class="n">?</span><span class="w"></span>
<span class="k">fun</span><span class="w"> </span><span class="n">pass</span><span class="w"> </span><span class="n">x</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="n">x</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>Here is an implementation the <span class="monospaced">ITER</span>-signature:</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="k">structure</span><span class="w"> </span><span class="n">Iter</span><span class="w"> </span><span class="p">:></span><span class="w"> </span><span class="n">ITER</span><span class="w"> </span><span class="p">=</span><span class="w"></span>
<span class="w"> </span><span class="k">struct</span><span class="w"></span>
<span class="w"> </span><span class="k">type</span><span class="w"> </span><span class="n">'a</span><span class="w"> </span><span class="n">t</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="p">(</span><span class="n">'a</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">unit</span><span class="p">)</span><span class="w"> </span><span class="p">-></span><span class="w"> </span><span class="n">unit</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">return</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">pass</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="p">(</span><span class="n">iA</span><span class="w"> </span><span class="n">>>=</span><span class="w"> </span><span class="n">a2iB</span><span class="p">)</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">iA</span><span class="w"> </span><span class="p">(</span><span class="n">flip</span><span class="w"> </span><span class="n">a2iB</span><span class="w"> </span><span class="n">f</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">none</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">ignore</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="p">(</span><span class="n">l</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="k">let</span><span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">`l</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="k">if</span><span class="w"> </span><span class="n">l<u</span><span class="w"> </span><span class="k">then</span><span class="w"> </span><span class="p">(</span><span class="n">f</span><span class="w"> </span><span class="n">l</span><span class="p">;</span><span class="w"> </span><span class="n">`</span><span class="p">(</span><span class="n">l+</span><span class="mi">1</span><span class="p">))</span><span class="w"> </span><span class="k">else</span><span class="w"> </span><span class="p">()</span><span class="w"> </span><span class="k">in</span><span class="w"> </span><span class="n">`l</span><span class="w"> </span><span class="k">end</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="p">(</span><span class="n">u</span><span class="w"> </span><span class="n">downto</span><span class="w"> </span><span class="n">l</span><span class="p">)</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="k">let</span><span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">`u</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="k">if</span><span class="w"> </span><span class="n">u>l</span><span class="w"> </span><span class="k">then</span><span class="w"> </span><span class="p">(</span><span class="n">f</span><span class="w"> </span><span class="p">(</span><span class="n">u-</span><span class="mi">1</span><span class="p">);</span><span class="w"> </span><span class="n">`</span><span class="p">(</span><span class="n">u-</span><span class="mi">1</span><span class="p">))</span><span class="w"> </span><span class="k">else</span><span class="w"> </span><span class="p">()</span><span class="w"> </span><span class="k">in</span><span class="w"> </span><span class="n">`u</span><span class="w"> </span><span class="k">end</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">inList</span><span class="w"> </span><span class="n">?</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">flip</span><span class="w"> </span><span class="n">List</span><span class="p">.</span><span class="n">app</span><span class="w"> </span><span class="n">?</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">inVector</span><span class="w"> </span><span class="n">?</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">flip</span><span class="w"> </span><span class="n">Vector</span><span class="p">.</span><span class="n">app</span><span class="w"> </span><span class="n">?</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">inArray</span><span class="w"> </span><span class="n">?</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">flip</span><span class="w"> </span><span class="n">Array</span><span class="p">.</span><span class="n">app</span><span class="w"> </span><span class="n">?</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">using</span><span class="w"> </span><span class="n">get</span><span class="w"> </span><span class="n">s</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="k">let</span><span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="n">`s</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">opt</span><span class="w"> </span><span class="p">(</span><span class="n">const</span><span class="w"> </span><span class="p">())</span><span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="p">(</span><span class="n">f</span><span class="w"> </span><span class="n">x</span><span class="p">;</span><span class="w"> </span><span class="n">`s</span><span class="p">))</span><span class="w"> </span><span class="p">(</span><span class="n">get</span><span class="w"> </span><span class="n">s</span><span class="p">)</span><span class="w"> </span><span class="k">in</span><span class="w"> </span><span class="n">`s</span><span class="w"> </span><span class="k">end</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="p">(</span><span class="n">iA</span><span class="w"> </span><span class="n">when</span><span class="w"> </span><span class="n">p</span><span class="p">)</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">iA</span><span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">a</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="k">if</span><span class="w"> </span><span class="n">p</span><span class="w"> </span><span class="n">a</span><span class="w"> </span><span class="k">then</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="n">a</span><span class="w"> </span><span class="k">else</span><span class="w"> </span><span class="p">())</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="p">(</span><span class="n">iA</span><span class="w"> </span><span class="n">by</span><span class="w"> </span><span class="n">g</span><span class="p">)</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">iA</span><span class="w"> </span><span class="p">(</span><span class="n">f</span><span class="w"> </span><span class="n">o</span><span class="w"> </span><span class="n">g</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="p">(</span><span class="n">iA</span><span class="w"> </span><span class="n">@@</span><span class="w"> </span><span class="n">iB</span><span class="p">)</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="p">(</span><span class="n">iA</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">:</span><span class="w"> </span><span class="n">unit</span><span class="p">;</span><span class="w"> </span><span class="n">iB</span><span class="w"> </span><span class="n">f</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="k">fun</span><span class="w"> </span><span class="p">(</span><span class="n">iA</span><span class="w"> </span><span class="n">**</span><span class="w"> </span><span class="n">iB</span><span class="p">)</span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">iA</span><span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">a</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">iB</span><span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">b</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">f</span><span class="w"> </span><span class="p">(</span><span class="n">a</span><span class="w"> </span><span class="n">&</span><span class="w"> </span><span class="n">b</span><span class="p">)))</span><span class="w"></span>
<span class="w"> </span><span class="k">val</span><span class="w"> </span><span class="n">for</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">id</span><span class="w"></span>
<span class="w"> </span><span class="k">end</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>Note that some of the above combinators (e.g. <span class="monospaced">**</span>) could be expressed
in terms of the other combinators, most notably <span class="monospaced">return</span> and <span class="monospaced">>>=</span>.
Another implementation issue worth mentioning is that <span class="monospaced">downto</span> is
written specifically to avoid computing <span class="monospaced">l-1</span>, which could cause an
<span class="monospaced">Overflow</span>.</p></div>
<div class="paragraph"><p>To use the above combinators the <span class="monospaced">Iter</span>-structure needs to be opened</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="k">open</span><span class="w"> </span><span class="n">Iter</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>and one usually also wants to declare the infix status of the
operators as shown earlier.</p></div>
<div class="paragraph"><p>Here is an example that illustrates some of the features:</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="n">for</span><span class="w"> </span><span class="p">(</span><span class="mi">0</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="mi">10</span><span class="w"> </span><span class="n">when</span><span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">x</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">x</span><span class="w"> </span><span class="n">mod</span><span class="w"> </span><span class="mi">3</span><span class="w"> </span><span class="n"><></span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="n">**</span><span class="w"> </span><span class="n">inList</span><span class="w"> </span><span class="p">[</span><span class="s">"a"</span><span class="p">,</span><span class="w"> </span><span class="s">"b"</span><span class="p">]</span><span class="w"> </span><span class="n">**</span><span class="w"> </span><span class="mi">2</span><span class="w"> </span><span class="n">downto</span><span class="w"> </span><span class="mi">1</span><span class="w"> </span><span class="n">by</span><span class="w"> </span><span class="n">real</span><span class="p">)</span><span class="w"></span>
<span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">x</span><span class="w"> </span><span class="n">&</span><span class="w"> </span><span class="n">y</span><span class="w"> </span><span class="n">&</span><span class="w"> </span><span class="n">z</span><span class="w"> </span><span class="p">=></span><span class="w"></span>
<span class="w"> </span><span class="n">print</span><span class="w"> </span><span class="p">(</span><span class="s">"("</span><span class="n">^Int</span><span class="p">.</span><span class="n">toString</span><span class="w"> </span><span class="n">x^</span><span class="s">", </span><span class="se">\"</span><span class="s">"</span><span class="n">^y^</span><span class="s">"</span><span class="se">\"</span><span class="s">, "</span><span class="n">^Real</span><span class="p">.</span><span class="n">toString</span><span class="w"> </span><span class="n">z^</span><span class="s">")</span><span class="se">\n</span><span class="s">"</span><span class="p">))</span><span class="w"></span>
</pre></div></div></div>
<div class="paragraph"><p>Using the <span class="monospaced">Iter</span> combinators one can easily produce more complicated
iterators. For example, here is an iterator over a "triangle":</p></div>
<div class="listingblock">
<div class="content"><div class="highlight"><pre><span class="k">fun</span><span class="w"> </span><span class="n">triangle</span><span class="w"> </span><span class="p">(</span><span class="n">l</span><span class="p">,</span><span class="w"> </span><span class="n">u</span><span class="p">)</span><span class="w"> </span><span class="p">=</span><span class="w"> </span><span class="n">l</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">u</span><span class="w"> </span><span class="n">>>=</span><span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">i</span><span class="w"> </span><span class="n">to</span><span class="w"> </span><span class="n">u</span><span class="w"> </span><span class="n">>>=</span><span class="w"> </span><span class="p">(</span><span class="k">fn</span><span class="w"> </span><span class="n">j</span><span class="w"> </span><span class="p">=></span><span class="w"> </span><span class="n">return</span><span class="w"> </span><span class="p">(</span><span class="n">i</span><span class="p">,</span><span class="w"> </span><span class="n">j</span><span class="p">)))</span><span class="w"></span>
</pre></div></div></div>
</div>
</div>
</div>
<div id="footnotes"><hr></div>
<div id="footer">
<div id="footer-text">
</div>
<div id="footer-badges">
</div>
</div>
</body>
</html>
|
