Quick implementations of infix:<min> and infix:<max> (using before an…

…d after).
rakudo · Feb 4, 2010 · 6bc10e4 · 6bc10e4
1 parent e36d988
commit 6bc10e4
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1054,6 +1054,8 @@ token infix:sym<&&>   { <sym>  <O('%tight_and, :pasttype<if>')> }
 token infix:sym<||>   { <sym>  <O('%tight_or, :pasttype<unless>')> }
 token infix:sym<^^>   { <sym>  <O('%tight_or, :pasttype<xor>')> }
 token infix:sym<//>   { <sym>  <O('%tight_or, :pasttype<def_or>')> }
+token infix:sym<min>  { <sym>  <O('%tight_or')> }
+token infix:sym<max>  { <sym>  <O('%tight_or')> }
 
 token infix:sym<?? !!> { 
     '??'

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -110,3 +110,11 @@ our multi infix:<?&>($a, $b) {
 our multi infix:<?^>($a, $b) {
     ?pir::bxor__III($a, $b)
 }
+
+our multi infix:<min>($a, $b) {
+    $a before $b ?? $a !! $b;
+}
+
+our multi infix:<max>($a, $b) {
+    $a after $b ?? $a !! $b;
+}