aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/List-comprehensions/PascalABC.NET/list-comprehensions.pas

3 lines
96 B
ObjectPascal
Raw Permalink Normal View History

Data update
2024-07-13 15:19:22 -07:00
##
Data update
2025-08-11 18:05:26 -07:00
(1..20).CartesianPower(3).Where(\(x,y,z) -> (x*x + y*y = z*z) and (x < y)).tolist.PrintLines
Reference in a new issue Copy permalink