diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2022-04-08 22:26:24 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2022-04-08 22:26:24 +0800 |
| commit | 9414d68b40f35f87256f83e01a21b3a619a6de42 (patch) | |
| tree | 954dacbd08b23f397a38dbd3490506bb4597eaf3 | |
| parent | 833c4230b4de27adc528ec7b30cc74c318d74cec (diff) | |
| download | perlweeklychallenge-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.jl | 28 |
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 |
