aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Vector-products/J/vector-products-1.j Normal file
View file

@ -0,0 +1 @@
cross=: (1&|.@[ * 2&|.@]) - 2&|.@[ * 1&|.@]

1
Task/Vector-products/J/vector-products-2.j Normal file
View file

@ -0,0 +1 @@
cross=: {{ ((1|.x)*2|.y) - (2|.x)*1|.y }}

3
Task/Vector-products/J/vector-products-3.j Normal file
View file

@ -0,0 +1,3 @@
CT=: C.!.2 @ (#:i.) @ $~
ip=: +/ .* NB. inner product
cross=: ] ip CT@#@[ ip [

1
Task/Vector-products/J/vector-products-4.j Normal file
View file

@ -0,0 +1 @@
cross=: [: > [: -&.>/ .(*&.>) (<"1=i.3) , ,:&:(<"0)

1
Task/Vector-products/J/vector-products-5.j Normal file
View file

@ -0,0 +1 @@
cross=: {{ >-L:0/ .(*L:0) (<"1=i.3), x,:&:(<"0) y}}

12
Task/Vector-products/J/vector-products-6.j Normal file
View file

@ -0,0 +1,12 @@
a=: 3 4 5
b=: 4 3 5
c=: -5 12 13
A=: 0 {:: ] NB. contents of the first box on the right
B=: 1 {:: ] NB. contents of the second box on the right
C=: 2 {:: ] NB. contents of the third box on the right
dotP=: A ip B
crossP=: A cross B
scTriP=: A ip B cross C
veTriP=: A cross B cross C

8
Task/Vector-products/J/vector-products-7.j Normal file
View file

@ -0,0 +1,8 @@
dotP a;b
49
crossP a;b
5 5 _7
scTriP a;b;c
6
veTriP a;b;c
_267 204 _3