diff options
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 [ |