5 lines
144 B
Text
5 lines
144 B
Text
require'stats'
|
|
buildSet=:conjunction def '(#~ v) u y'
|
|
triples=: 1 + 3&comb
|
|
isPyth=: 2&{"1 = 1&{"1 +&.:*: 0&{"1
|
|
pythTr=: triples buildSet isPyth
|