tasks a-s

Task/Pythagorean-triples/J/pythagorean-triples-1.j

@@ -0,0 +1,14 @@
+pytr=: 3 :0
+  r=. i. 0 3
+  for_a. 1 + i. <.(y-1)%3 do.
+    b=. 1 + a + i. <.(y%2)-3*a%2
+    c=. a +&.*: b
+    keep=. (c = <.c) *. y >: a+b+c
+    if. 1 e. keep do.
+      r=. r, a,.b ,.&(keep&#) c
+    end.
+  end.
+  (,.~ prim"1)r
+)
+
+prim=: 1 = 2 +./@{. |:

Task/Pythagorean-triples/J/pythagorean-triples-2.j

@@ -0,0 +1,26 @@
+   pytr 100
+1  3  4  5
+1  5 12 13
+0  6  8 10
+1  7 24 25
+1  8 15 17
+0  9 12 15
+1  9 40 41
+0 10 24 26
+0 12 16 20
+1 12 35 37
+0 15 20 25
+0 15 36 39
+0 16 30 34
+0 18 24 30
+1 20 21 29
+0 21 28 35
+0 24 32 40
+   (# , [: {. +/) pytr 10
+0 0
+   (# , [: {. +/) pytr 100
+17 7
+   (# , [: {. +/) pytr 1000
+325 70
+   (# , [: {. +/) pytr 10000
+4858 703

Task/Pythagorean-triples/J/pythagorean-triples-3.j

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

Task/Pythagorean-triples/J/pythagorean-triples-4.j

@@ -0,0 +1,14 @@
+   (# , 1 {. +/) trips 10
+0 0
+   (# , 1 {. +/) trips 100
+17 7
+   (# , 1 {. +/) trips 1000
+325 70
+   (# , 1 {. +/) trips 10000
+4858 703
+   (# , 1 {. +/) trips 100000
+64741 7026
+   (# , 1 {. +/) trips 1000000
+808950 70229
+   (# , 1 {. +/) trips 10000000
+9706567 702309

Task/Pythagorean-triples/J/pythagorean-triples-5.j

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

Task/Pythagorean-triples/J/pythagorean-triples-6.j

@@ -0,0 +1,2 @@
+   (#,+/)trc 1e8
+7023027 113236940