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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Arithmetic-Complex/EasyLang/arithmetic-complex.easy Normal file
View file

@ -0,0 +1,19 @@
func[] add a[] b[] .
return [ a[1] + b[1] a[2] + b[2] ]
.
func[] mult a[] b[] .
return [ a[1] * b[1] - a[2] * b[2] a[1] * b[2] + a[2] * b[1] ]
.
func[] inv a[] .
denom = a[1] * a[1] + a[2] * a[2]
return [ a[1] / denom (-a[2] / denom) ]
.
func[] neg a[] .
return [ -a[1] (-a[2]) ]
.
a[] = [ 1 1 ]
b[] = [ pi 1.2 ]
print add a[] b[]
print mult a[] b[]
print neg a[]
print inv a[]

14
Task/Arithmetic-Complex/PascalABC.NET/arithmetic-complex.pas Normal file
View file

@ -0,0 +1,14 @@
begin
var a := Cplx(1,2);
var b := Cplx(3,4);
Println(a + b);
Println(a - b);
Println(a * b);
Println(a / b);
Println(-a);
Println(1/a);
Println(a.Real,a.Imaginary);
Println(a.Conjugate);
Println(Abs(a));
Println(a ** b);
end.