mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/List-comprehensions/PascalABC.NET/list-comprehensions.pas

3 lines
96 B
ObjectPascal
Raw Permalink Blame History

##
(1..20).CartesianPower(3).Where(\(x,y,z) -> (x*x + y*y = z*z) and (x < y)).tolist.PrintLines
Reference in New Issue View Git Blame Copy Permalink