Pythagorische Tripel - #115637 (Allgemeines zu Perl)

LanX-

2008-10-19 23:48

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

einzeiler sind nicht zwingend unelegant

Code (perl): (dl )

1
2
3

for $c (1..10) { for $b (1..$c) { for $a (1..$b) {
    print $c,$b,$a  if $c**2 == $b**2 + $a**2;
} } }

BTW: pythagoreische Tripel lassen sich deutlich effizienter finden als mit diesem Brute Force Ansatz.