Stuart Cook skribis 2006-06-18 22:59 (+1000): > pugs> sub infix:<pv>($x, $cond) { $cond ?? ($x,) !! () }; say 1, 2, > (3 pv 1), 4 > 1234 > bool::true > pugs> sub infix:<pv>($x, $cond) { $cond ?? ($x,) !! () }; say 1, 2, > (3 pv 0), 4 > 124 > bool::true > I couldn't think of a good name for the new operator, though.
pugs> sub infix:<?!>($cond, $x) { $cond ?? ($x,) !! () } undef pugs> 1, 2, (0 ?! 3), 4 (1, 2, 4) pugs> 1, 2, (1 ?! 3), 4 (1, 2, 3, 4) pugs> 1, 2, 0 ?! 3, 4 (1, 2, 4) pugs> 1, 2, 1 ?! 3, 4 (1, 2, 3, 4) I'd always use it with parens, though. Juerd -- http://convolution.nl/maak_juerd_blij.html http://convolution.nl/make_juerd_happy.html http://convolution.nl/gajigu_juerd_n.html