diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2016-11-11 15:54:19 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2016-11-11 15:54:19 -0800 |
| commit | 6d007fda037331e7761d2a9ed3a2e435131daf7e (patch) | |
| tree | 656aa7fe284b2b11c01f0389fe81f1b31025ce4e /html/nqueens.mu.html | |
| parent | c9f920da6e6b3e7049f078fea35e08256cae7c5b (diff) | |
| download | mu-6d007fda037331e7761d2a9ed3a2e435131daf7e.tar.gz | |
3667
Diffstat (limited to 'html/nqueens.mu.html')
| -rw-r--r-- | html/nqueens.mu.html | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/html/nqueens.mu.html b/html/nqueens.mu.html index 022bb1bc..efddcc92 100644 --- a/html/nqueens.mu.html +++ b/html/nqueens.mu.html @@ -82,9 +82,9 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Constant">local-scope</span> <span class="Constant">load-ingredients</span> result1:bool <span class="Special"><-</span> conflicting-file? curr, queens - <span class="muControl">reply-if</span> result1, result1 + <span class="muControl">return-if</span> result1, result1 result2:bool <span class="Special"><-</span> conflicting-diagonal? curr, queens - <span class="muControl">reply</span> result2 + <span class="muControl">return</span> result2 ] <span class="muRecipe">def</span> conflicting-file? curr:square, queens:&:list:square<span class="muRecipe"> -> </span>result:bool [ @@ -96,11 +96,11 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color q:square <span class="Special"><-</span> first queens qfile:num <span class="Special"><-</span> get q, <span class="Constant">file:offset</span> file-match?:bool <span class="Special"><-</span> equal curr-file, qfile - <span class="muControl">reply-if</span> file-match?, <span class="Constant">1/conflict-found</span> + <span class="muControl">return-if</span> file-match?, <span class="Constant">1/conflict-found</span> queens <span class="Special"><-</span> rest queens <span class="muControl">loop</span> <span class="Delimiter">}</span> - <span class="muControl">reply</span> <span class="Constant">0/no-conflict-found</span> + <span class="muControl">return</span> <span class="Constant">0/no-conflict-found</span> ] <span class="muRecipe">def</span> conflicting-diagonal? curr:square, queens:&:list:square<span class="muRecipe"> -> </span>result:bool [ @@ -118,11 +118,11 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color rank-delta <span class="Special"><-</span> abs rank-delta file-delta <span class="Special"><-</span> abs file-delta diagonal-match?:bool <span class="Special"><-</span> equal rank-delta, file-delta - <span class="muControl">reply-if</span> diagonal-match?, <span class="Constant">1/conflict-found</span> + <span class="muControl">return-if</span> diagonal-match?, <span class="Constant">1/conflict-found</span> queens <span class="Special"><-</span> rest queens <span class="muControl">loop</span> <span class="Delimiter">}</span> - <span class="muControl">reply</span> <span class="Constant">0/no-conflict-found</span> + <span class="muControl">return</span> <span class="Constant">0/no-conflict-found</span> ] <span class="muRecipe">def</span> main [ |