zhuomingliang · March 1, 2012 10:33
diff --git a/gistfile1.txt b/gistfile1.txt
 sub logic { first {! try .()}, @_ }

 for 1,2,3 X 1,2,3 -> $x, $y {
    logic { $x > 2 },
          { $x + $y == 5 },
          { $y < 3 },
          { say "$x + $y == 5"; Nil }
 }
	sub logic { first {! try .()}, @_ }

	for 1,2,3 X 1,2,3 -> $x, $y {
	logic { $x > 2 },
	{ $x + $y == 5 },
	{ $y < 3 },
	{ say "$x + $y == 5"; Nil }
	}