List comprehensions: Difference between revisions

m
(J)
Line 103:
 
=={{header|J}}==
<lang J>(#~ (2&{ = 1&{ +&.:*: 0&{)"1)@(1+(3&# #: i.@^&3))</lang>
 
=={{header|Mathematica}}==
6,962

edits