RosettaCodeData/Task/Pythagorean-triples/Perl-6/pythagorean-triples-1.pl6

constant limit = 100;

for [X] [^limit] xx 3 -> (\a, \b, \c) {
    say [a, b, c] if a < b < c and a**2 + b**2 == c**2
}