aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorE7-87-83 <fungcheokyin@gmail.com>2022-04-08 22:26:24 +0800
committerE7-87-83 <fungcheokyin@gmail.com>2022-04-08 22:26:24 +0800
commit9414d68b40f35f87256f83e01a21b3a619a6de42 (patch)
tree954dacbd08b23f397a38dbd3490506bb4597eaf3
parent833c4230b4de27adc528ec7b30cc74c318d74cec (diff)
downloadperlweeklychallenge-club-9414d68b40f35f87256f83e01a21b3a619a6de42.tar.gz
perlweeklychallenge-club-9414d68b40f35f87256f83e01a21b3a619a6de42.tar.bz2
perlweeklychallenge-club-9414d68b40f35f87256f83e01a21b3a619a6de42.zip
Task 2 Julia commit
-rw-r--r--challenge-159/julia/ch-2.jl28
1 files changed, 28 insertions, 0 deletions
diff --git a/challenge-159/julia/ch-2.jl b/challenge-159/julia/ch-2.jl
new file mode 100644
index 0000000000..a726b3b3f0
--- /dev/null
+++ b/challenge-159/julia/ch-2.jl
@@ -0,0 +1,28 @@
+
+
+function irn(i,n)
+ return cos(2π*i/n)+sin(2π*i/n)im
+end
+
+
+
+function möbius(n)
+ if n==1
+ return 1
+ end
+ if n==2
+ return -1
+ end
+ primitive_roots=Any[]
+ push!(primitive_roots, irn(1, n))
+ for i in 2:n-1
+ for s in 2:n-1
+ if (i*s)%n==0
+ @goto label1
+ end
+ end
+ push!(primitive_roots, irn(i,n))
+ @label label1
+ end
+ return round(Int,real(sum(primitive_roots)))
+end