RosettaCodeData/Task/Pythagorean-triples/J/pythagorean-triples-5.j
2023-07-01 13:44:08 -04:00

4 lines
147 B
Text

trc=:3 :0
'm n'=. |:(#~ 1 = 2 | +/"1)(#~ >/"1) ,/ ,"0/~ }. i. <. %: y
<.y%+/"1 (#~ 1 = 2 +./@{. |:) (#~ y >: +/"1)m (-&*: ,. +:@* ,. +&*:) n
)