Pythagorean triples: Difference between revisions
Content added Content deleted
m (→{{header|Icon}} and {{header|Unicon}}: performance) |
(J: minor speedup -- mostly from discarding the "eliminate dups" step) |
||
| Line 189: | Line 189: | ||
'm n'=. |:(#~ 1 = 2 | +/"1)(#~ >/"1),/,"0/~}.i.<.%:y |
'm n'=. |:(#~ 1 = 2 | +/"1)(#~ >/"1),/,"0/~}.i.<.%:y |
||
prim=. (#~ 1 = 2 +./@{. |:) (#~ y>:+/"1)m (-&*:,. +:@*,. +&*:) n |
prim=. (#~ 1 = 2 +./@{. |:) (#~ y>:+/"1)m (-&*:,. +:@*,. +&*:) n |
||
(,.~ |
/:~;<@(,.~ # {. 1:)@(*/~ 1 + y i.@<.@% +/)"1 prim |
||
)</lang> |
)</lang> |
||