Oblicz funkcję sumaryczną Eulera


27

tło

Eulera totient funkcja φ(n)jest definiowana jako ilość liczb całkowitych mniej niż lub równy n, które są względnie pierwsze do n, czyli liczba możliwych wartości xw 0 < x <= nodniesieniu do których gcd(n, x) == 1. Mieliśmy się kilka totient - powiązanych wyzwań przed, ale nie taki, który jest po prostu jej obliczenia.

Mapowanie funkcji totemu na liczby całkowite to OEIS A000010 .

Wyzwanie

Biorąc pod uwagę liczbę całkowitą n > 0, obliczyć φ(n). Możesz przyjmować dane wejściowe za pomocą argumentów wiersza poleceń, standardowych danych wejściowych, argumentów funkcyjnych lub cokolwiek innego uzasadnionego. Możesz podać dane wyjściowe poprzez standardowe dane wyjściowe, zwracane wartości lub cokolwiek innego rozsądnego. Funkcje anonimowe są dopuszczalne. Możesz założyć, że dane wejściowe nie przepełnią twojej naturalnej metody przechowywania liczb całkowitych, np. intW C, ale musisz obsługiwać dane wejściowe do 255. Jeśli twój język ma wbudowaną funkcję totient, nie możesz jej użyć.

Przykłady

φ(1) => 1
φ(2) => 1
φ(3) => 2
φ(8) => 4
φ(9) => 6
φ(26) => 12
φ(44) => 20
φ(105) => 48

Najkrótsza odpowiedź w bajtach wygrywa. Jeśli twój język używa kodowania innego niż UTF-8, podaj go w swojej odpowiedzi.


4
Cóż, było to kiedyś. Nie sądzę, aby powtarzająca się aplikacja miała wystarczającą różnicę, ale jeśli już, to zamknę drugą, ponieważ nie sądzę, aby powtarzająca się aplikacja coś dodała. To powiedziawszy, większą różnicą jest to, że zezwala się na wbudowane, a to nie.
Martin Ender

Wykluczenie wbudowanych elementów najwyraźniej nie ma wpływu na odpowiedzi.
Julie Pelletier

2
@JuliePelletier Dlaczego tak jest? W przeciwnym razie moja odpowiedź Mathematica byłaby o 19 bajtów krótsza:EulerPhi
Martin Ender

@JuliePelletier GCD jest dozwolony, ponieważ obliczanie GCD nie jest zamierzonym problemem do rozwiązania. Jasne, może podnieść liczbę bajtów tych odpowiedzi, ale nie poprawi wyzwania. Przeredaguję, aby wyjaśnić.
bkul

Odpowiedzi:


13

Mathematica, 27 22 bajtów

Range@#~GCD~#~Count~1&

Nienazwana funkcja, która przyjmuje i zwraca liczbę całkowitą.

Nie ma tu wiele do wyjaśnienia, z wyjątkiem tego, że @jest to notacja prefiksu dla wywołań funkcji i ~...~jest notacja infiksowa (lewostronna), więc powyższe jest takie samo jak:

Count[GCD[Range[#], #], 1] &

11

MATL, 7 bajtów

t:Zd1=s

Możesz TryItOnline . Najprostszy pomysł, wykonaj wektor od 1 do N i weź gcd każdego elementu za pomocą N ( Zdrobi gcd). Następnie znajdź elementy równe 1 i zsumuj wektor, aby uzyskać odpowiedź.


Wbudowany jest _Zpdla tych, którzy zastanawiają się.
David

10

J, 9 bajtów

(-~:)&.q:

Jest to oparte na eseju Jsoftware na temat funkcji totient .

Biorąc pod uwagę n = p 1 e 1p 2 e 2 ∙∙∙ p k e k gdzie p k jest liczbą pierwszą n , funkcja totalna φ ( n ) = φ ( p 1 e 1 ) ∙ φ ( p 2 e 2 ) ∙∙∙ φ ( p k e k ) = ( p 1 - 1) p 1 e 1 - 1 ∙ ( p 2 - 1) p 2e 2 - 1 ∙∙∙ ( p k - 1) p k e k - 1 .

Stosowanie

   f =: (-~:)&.q:
   (,.f"0) 1 2 3 8 9 26 44 105
  1  1
  2  1
  3  2
  8  4
  9  6
 26 12
 44 20
105 48
   f 12345
6576

Wyjaśnienie

(-~:)&.q:  Input: integer n
       q:  Prime decomposition. Get the prime factors whose product is n
(   )&     Operate on them
  ~:         Nub-sieve. Create a mask where 1 is the first occurrence
             of a unique value and 0 elsewhere
 -           Subtract elementwise between the prime factors and the mask
     &.q:  Perform the inverse of prime decomposition (Product of the values)

Skorzystaj z faktu, że totient jest multiplikatywny, aby stworzyć inne rozwiązanie w J za pomocą rekurencji :)
Leaky Nun

@LeakyNun Nie sądzę, że istnieje prosty sposób na golfa w faktoringu, ponieważ nawet użycie iteracyjnej formy [:*/@({.(^-(^<:)){:)2&p:wymaga 24 bajtów, nawet użycie wbudowanego do uzyskania liczb pierwszych i ich wykładników. A może jest krótsza droga i jej nie widzę.
mil

8

Galaretka, 4 bajty

Rgċ1

Wypróbuj online!

Wyjaśnienie

Rgċ1   Main monadic chain. Argument: z

R      Yield [1 2 3 .. z].
 g     gcd (of each) (with z).
  ċ1   Count the number of occurrences of 1.

Z wbudowanym

ÆṪ

Wypróbuj online!

Wyjaśnienie

ÆṪ   Main monadic chain. Argument: z

ÆṪ   Totient of z.

7

Haskell, 28 bajtów

f n=sum[1|1<-gcd n<$>[1..n]]

Wykorzystuje dopasowanie stałych według wzoru Haskella . Sztuczki tutaj są dość standardowe do gry w golfa, ale wyjaśnię to ogółowi odbiorców.

Wyrażenie gcd n<$>[1..n]odwzorowuje gcd nna [1..n]. Innymi słowy, wylicza gcdz nkażdej liczby od 1do n:

[gcd n i|i<-[1..n]]

Stąd pożądanym wyjściem jest liczba 1wpisów, ale Haskell nie ma żadnej countfunkcji. Idiomatyczny sposób, aby filterzatrzymać tylko 1i wziąć wynikowy length, który jest o wiele za długi na grę w golfa.

Zamiast tego filterjest symulowane przez zrozumienie listy [1|1<-l]z wynikową listą l. Zwykle wyrażenia listowe wiążą wartości ze zmienną jak w [x*x|x<-l], ale Haskell pozwala na dopasowanie wzorca, w tym przypadku stałej 1.

Tak więc, [1|1<-l]generowanie 1przy każdym dopasowaniu 1, skutecznie wyodrębniając tylko 1z oryginalnej listy. Przywołanie sumgo określa jego długość.


Myślę, że to pierwsza odpowiedź Haskella, którą właściwie rozumiem. To taki fajny język, ale tak bardzo różni się od większości innych.
bkul

Wow, spodziewałem się, że dopasowanie wzorców musi być wyczerpujące na listach ze zrozumieniem. Dzięki za podstęp.
Damien

7

Python 2, 44 bajty

f=lambda n,d=1:d/n or-f(d)*(n%d<1)-~f(n,d+1)

Mniej golfa:

f=lambda n:n-sum(f(d)for d in range(1,n)if n%d<1)

Wykorzystuje wzór, że sumy Eulera dzielników nmają sumę n:

wprowadź opis zdjęcia tutaj

Wartość ϕ(n)można następnie rekurencyjnie obliczyć jako nminus sumę ponad nietrywialnymi dzielnikami. Skutecznie robi to inwersję Möbiusa w funkcji tożsamości. Zastosowałem tę samą metodę w golfie, aby obliczyć funkcję Möbiusa .

Dzięki Dennisowi za zaoszczędzenie 1 bajtu z lepszą skrzynką podstawową, rozłożenie wartości początkowej +nna +1dla każdej z npętli, wykonane jak -~.



5

J, 11 bajtów

+/@(1=+.)i.

Stosowanie

>> f =: +/@(1=+.)i.
>> f 44
<< 20

gdzie >>jest STDIN i <<STDOUT.

Wyjaśnienie

+/ @ ( 1 = +. ) i.
               │
   ┌───────────┴┐
 +/@(1=+.)      i.
   │
 ┌─┼──┐
+/ @ 1=+.
    ┌─┼─┐
    1 = +.

>> (i.) 44            NB. generate range
<< 0 1 2 3 4 ... 43
>> (+.i.) 44          NB. calculate gcd of each with input
<< 44 1 2 1 4 ... 1
>> ((1=+.)i.) 44      NB. then test if each is one (1 if yes, 0 if no)
<< 0 1 0 1 0 ... 1
>> (+/@(1=+.)i.) 44   NB. sum of all the tests
<< 20

Jak uzyskałeś pionową reprezentację drzewa? Myślałem, że produkuje się tylko poziomo.
mile

@miles Sam to napisałem.
Leaky Nun

5

Python> = 3,5, 76 64 58 bajtów

Dzięki LeakyNun za grę w golfa z 12 (!) Bajtów.

Dzięki Sp3000 za grę w golfa z 6 bajtów.

import math
lambda n:sum(math.gcd(n,x)<2for x in range(n))

Uwielbiam czytelność Pythona. Ma to sens, nawet poprzez grę w golfa.


1
lambda n:sum(gcd(n,x)<2for x in range(n))
Leaky Nun

Och, Python w końcu został dodany gcddo modułu matematycznego! Nie wiedziałem tego
rubik

5

Regex (ECMAScript), 131 bajtów

Co najmniej -12 bajtów dzięki Deadcode (na czacie)

(?=((xx+)(?=\2+$)|x+)+)(?=((x*?)(?=\1*$)(?=(\4xx+?)(\5*(?!(xx+)\7+$)\5)?$)(?=((x*)(?=\5\9*$)x)(\8*)$)x*(?=(?=\5$)\1|\5\10)x)+)\10|x

Wypróbuj online!

Dane wyjściowe to długość dopasowania.

Wyrażenia regularne ECMAScript sprawiają, że niezwykle trudno jest policzyć cokolwiek. Wszelkie odnośniki zdefiniowane poza pętlą będą stałe podczas pętli, wszelkie odnośniki zdefiniowane w pętli zostaną zresetowane podczas zapętlania. Zatem jedynym sposobem przenoszenia stanu przez iteracje pętli jest użycie bieżącej pozycji dopasowania. To jedna liczba całkowita i może się tylko zmniejszać (no cóż, pozycja rośnie, ale długość ogona maleje i do tego możemy matematyki).

Biorąc pod uwagę te ograniczenia, zwykłe liczenie numerów coprime wydaje się niemożliwe. Zamiast tego używamy formuły Eulera do obliczania sumy.

Oto jak to wygląda w pseudokodzie:

N = input
Z = largest prime factor of N
P = 0

do:
   P = smallest number > P that’s a prime factor of N
   N = N - (N / P)
while P != Z

return N

Są w tym dwie wątpliwe rzeczy.

Po pierwsze, nie zapisujemy danych wejściowych, tylko bieżący produkt, więc w jaki sposób możemy dostać się do głównych czynników wejściowych? Sztuka polega na tym, że (N - (N / P)) ma takie same czynniki pierwsze> P jak N. Może zyskać nowe czynniki pierwsze <P, ale i tak je ignorujemy. Zauważ, że działa to tylko dlatego, że iterujemy czynniki pierwsze od najmniejszej do największej.

Po drugie, musimy pamiętać o dwóch liczbach w iteracjach pętli (P i N, Z nie liczy się, ponieważ jest stała), a ja właśnie powiedziałem, że to niemożliwe! Na szczęście możemy zamienić te dwie liczby w jednym. Zauważ, że na początku pętli N będzie zawsze wielokrotnością Z, podczas gdy P będzie zawsze mniejsze niż Z. Zatem możemy po prostu zapamiętać N + P i wyodrębnić P za pomocą modulo.

Oto nieco bardziej szczegółowy pseudo-kod:

N = input
Z = largest prime factor of N

do:
   P = N % Z
   N = N - P
   P = smallest number > P that’s a prime factor of N
   N = N - (N / P) + P
while P != Z

return N - Z

A oto skomentowany regex:

# \1 = largest prime factor of N
# Computed by repeatedly dividing N by its smallest factor
(?= ( (xx+) (?=\2+$) | x+ )+ )

(?=
        # Main loop!
        (
                # \4 = N % \1, N -= \4
                (x*?) (?=\1*$)

                # \5 = next prime factor of N
                (?= (\4xx+?) (\5* (?!(xx+)\7+$) \5)? $ )

                # \8 = N / \5, \9 = \8 - 1, \10 = N - \8
                (?= ((x*) (?=\5\9*$) x) (\8*) $ )

                x*
                (?=
                        # if \5 = \1, break.
                        (?=\5$) \1
                |
                        # else, N = (\5 - 1) + (N - B)
                        \5\10
                )
                x
        )+
) \10

A jako bonus…

Regex (ECMAScript 2018, liczba dopasowań), 23 bajty

x(?<!^\1*(?=\1*$)(x+x))

Wypróbuj online!

Dane wyjściowe to liczba dopasowań. ECMAScript 2018 wprowadza zmienne spojrzenie wstecz (oceniane od prawej do lewej), co pozwala po prostu policzyć wszystkie liczby coprime z danymi wejściowymi.

Okazuje się, że jest to niezależnie ta sama metoda stosowana w rozwiązaniu Retina Leaky Nun , a regex jest nawet tej samej długości ( i zamiennie ). Zostawiam go tutaj, ponieważ może być interesujące, że ta metoda działa w ECMAScript 2018 (a nie tylko .NET).

                        # Implicitly iterate from the input to 0
x                       # Don’t match 0
 (?<!                 ) # Match iff there is no...
                 (x+x)  # integer >= 2...
         (?=\1*$)       # that divides the current number...
     ^\1*               # and also divides the input

4

Perl 6 ,  26 24  22 bajtów

{[+] (^$^n Xgcd $n) X== 1}
{+grep 2>*,(^$_ Xgcd$_)}
{[+] 2 X>(^$_ Xgcd$_)}

Wyjaśnienie:

{
  [+] # reduce using &infix:<+>
    2
    X[>] # crossed compared using &infix:«>»
    (
      ^$_    # up to the input ( excludes input )
      X[gcd] # crossed using &infix:<gcd>
      $_     # the input
    )
}

Przykład:

#! /usr/bin/env perl6
use v6.c;

my  = {[+] 2 X>(^$_ Xgcd$_)};

say φ(1) # 1
say φ(2) # 1
say φ(3) # 2
say φ(8) # 4
say φ(9) # 6
say φ(26) # 12
say φ(44) # 20
say φ(105) # 48

say φ 12345 # 6576


4

Julia, 25 bajtów

!n=sum(i->gcd(i,n)<2,1:n)

To proste - sumfunkcja umożliwia nadanie jej funkcji do zastosowania przed zsumowaniem - w zasadzie odpowiednik uruchomienia, mapa następnie sum. To bezpośrednio zlicza liczbę względnie pierwszych liczb mniejszą niż n.


4

Python 2, 57 bajtów

f=lambda n,k=1,m=1:n*(k>n)or f(n-(n%k<m%k)*n/k,k+1,m*k*k)

Przetestuj na Ideone .

tło

Według formuły produktu Eulera ,

Formuła produktu Eulera

gdzie φ oznacza funkcję całkowitą Eulera, a p zmienia się tylko w liczbach pierwszych.

Aby zidentyfikować liczby pierwsze, używamy następstwa twierdzenia Wilsona :

następstwo twierdzenia Wilsona

Jak to działa

Przez cały czas zmienna m będzie równa kwadratowi silni k - 1 . W rzeczywistości nazwaliśmy argumenty domyślnie k = 1 i m = 0! 2 = 1 .

Dopóki k ≤ n , przyjmuje n*(k>n)wartość 0 i następuje orwykonanie następującego kodu .

Przypomnijmy, że m%kda 1, jeśli m jest liczbą pierwszą, a 0, jeśli nie. Oznacza to, że x%k<m%kzwróci True , i tylko wtedy, gdy oba k jest liczbą pierwszą, a x jest podzielne przez k .

W tym przypadku (n%k<m%k)*n/kdaje n / k , a odjęcie go od n zastępuje jego poprzednią wartość n (1 - 1 / k) , jak we wzorze produktu Eulera. W przeciwnym razie (n%k<m%k)*n/kzwraca 0 i n pozostaje niezmienione.

Po obliczeniu powyższym, przyrost że k i namnażania m o „starej” wartość k 2 , utrzymując w ten sposób żądany stosunek pomiędzy k i m , a następnie wywołać K rekurencyjnie aktualizowane z argumentów.

Gdy k przekroczy n , n*(k>n)zwraca wartość n , która jest zwracana przez funkcję.


4

Rubinowy, 32 bajty

->n{(1..n).count{|i|i.gcd(n)<2}}

lambda, która przyjmuje liczbę całkowitą n i zwraca liczbę całkowitych liczb z zakresu (1..n) stanowiących coprime dla n.


Witaj i witaj w PPCG! To jest świetny pierwszy post.
NoOneIsHere

Witamy w Programowaniu zagadek i Code Golf! To świetne pierwsze rozwiązanie, tak trzymaj!
bkul

Dzięki, niezbyt krótko, zastanawiam się, czy można to poprawić.
Redouane Red

3

Brachylog , 25 bajtów

:{:1e.$pdL,?$pd:LcCdC}fl.

Wyjaśnienie

Brachylog nie ma jeszcze wbudowanego GCD, więc sprawdzamy, czy te dwie liczby nie mają wspólnych pierwiastków.

  • Główny predykat:

    :{...}fl.             Find all variables which satisfy predicate 1 when given to it as
                          output and with Input as input.
                          Unify the Output with the length of the resulting list
    
  • Predykat 1:

    :1e.                  Unify Output with a number between Input and 1
        $pdL              L is the list of prime factors of Output with no duplicates
            ,
             ?$pd:LcC     C is the concatenation of the list of prime factors of Input with
                          no duplicates and of L
                     dC   C with duplicates removed is still C
    

3

Pyth, 6 bajtów

smq1iQ

Wypróbuj online!

/iLQQ1

Wypróbuj online!

Wyjaśnienie

smq1iQ     input as Q
smq1iQdQ   implicitly fill variables

 m     Q   for d in [0 1 2 3 .. Q-1]:
    iQd        gcd of Q and d
  q1           equals 1? (1 if yes, 0 if no)
s          sum of the results


/iLQQ1     input as Q

 iLQQ      gcd of each in [0 1 2 3 .. Q-1] with Q
/    1     count the number of occurrences of 1

3

PowerShell v2 +, 72 bajty

param($n)1..$n|%{$a=$_;$b=$n;while($b){$a,$b=$b,($a%$b)};$o+=!($a-1)};$o

PowerShell nie ma dostępnej funkcji GCD, więc musiałem uruchomić własną.

To pobiera dane wejściowe $n, a następnie waha się od 1do $ni łączy je w pętlę |%{...}. Każda iteracja możemy ustawić dwie zmienne pomocnicze $ai $b, a następnie wykonać GCD whilepętlę. Każda iteracja, którą sprawdzamy, $bjest wciąż niezerowa, a następnie zapisujemy $a%$bdo $bpoprzedniej wartości $bi $adla następnej pętli. Następnie kumulujemy, czy $ajest równa 1naszej zmiennej wyjściowej $o. Po zakończeniu pętli for umieszczamy $ow potoku i wynik jest domyślny.

Jako przykład działania whilepętli zastanów się $n=20i włączamy $_=8. Pierwsze sprawdzenie ma $b=20, więc wchodzimy do pętli. Najpierw obliczamy $a%$blub 8%20 = 8, który jest ustawiany $bw tym samym czasie, który 20jest ustawiany na $a. Sprawdź 8=0, a my wprowadzamy drugą iterację. Następnie obliczamy 20%8 = 4i ustawiamy to na $b, a następnie ustawiamy $ana 8. Sprawdź 4=0, a my wprowadzamy trzecią iterację. Obliczamy 8%4 = 0i ustawiamy na $b, a następnie ustawiamy $ana 4. Sprawdź 0=0i wychodzimy z pętli, więc GCD (8,20) jest $a = 4. Tak !($a-1) = !(4-1) = !(3) = 0więc $o += 0i nie liczymy tego.


3

Współczynnik, 50 bajtów

[ dup iota swap '[ _ gcd nip 1 = ] filter length ]

Zmienia zakres ( iota ) n i curry n do funkcji, która otrzymuje gcd xn dla wszystkich wartości 0 <= x <= n , sprawdza, czy wynikiem jest 1 . Filtruj oryginalny zakres, sprawdzając, czy wynik gcd xn wynosił 1 , i bierz jego długość .


[ dup iota swap '[ _ gcd nip 1 = ] map sum ]oszczędza 6 bajtów (myślę - niezbyt doświadczony z Factor).
bkul

@bkul Dzięki za sugestię! : D Niestety, nie ma żadnej kompatybilności między liczbami i t/f(symbolami) w Factor, więc jest to jedyny sposób na implementację tego [ dup iota swap '[ _ gcd nip 1 = 1 0 ? ] map sum ], który ma taką samą dokładną długość jak obecne rozwiązanie.
kot

Ach, cholera. Ponowne mocne pisanie.
bkul

@bkul Cóż, jestem wdzięczny za silnego typowania oraz TYPED:w rzeczywistym kodzie Factor: P
kot


2

Retina, 36 29 bajtów

7 bajtów dzięki Martinowi Enderowi.

.+
$*
(?!(11+)\1*$(?<=^\1+)).

Wypróbuj online!

Wyjaśnienie

Istnieją dwa etapy (polecenia).

Pierwszy etap

.+
$*

Jest to proste podstawienie wyrażenia regularnego, które przekształca dane wejściowe na tak wiele.

Na przykład 5zostanie przekonwertowany na 11111.

Drugi etap

(?!(11+)\1*$(?<=^\1+)).

To wyrażenie regularne próbuje dopasować pozycje, które spełniają warunek (co-prime z wejściem), a następnie zwraca liczbę dopasowań.


Lookbehind nie wycofuje się, chyba że znajduje się w spojrzeniu przed siebie?
Leaky Nun

Lookarounds nie cofają się w ogóle.
Martin Ender

Więc w jaki sposób regex przetestował każdy dzielnik?
Leaky Nun

1
Cóż oni zrobić BackTrack dopóki ich nie opuszczać. Tak długo, jak silnik znajduje się wewnątrz obejścia, będzie próbował wszystkiego, co możliwe, aby dopasować to obejście (lub zawiedzie w przypadku negatywnego spojrzenia). Ale po przejściu obejścia silnik nie wróci do niego, jeśli cokolwiek się nie powiedzie (chyba, że ​​wtedy również zacznie cofać się przed tym spojrzeniem i mimo wszystko będzie musiał dokonać ponownej oceny).
Martin Ender

2

Common Lisp, 58 bajtów

(defun o(x)(loop for i from 1 to x if (=(gcd x i)1)sum 1))

Jest to prosta pętla, która zlicza 1 do podanego n i zwiększa sumę, jeśli gcd = 1. Używam nazwy funkcji o, ponieważ t jest prawdziwą wartością logiczną. Nie prawie najkrótszy, ale dość prosty.


Czy CL nie ma żadnej anonimowej funkcji?
kot

2

MATLAB / Octave, 21 bajtów

@(n)sum(gcd(n,1:n)<2)

Tworzy anonimową funkcję o nazwie, ansktórą można wywołać za pomocą liczby całkowitej njako jedynego wejścia:ans(n)

Demo online




1

Właściwie 11 bajtów

;╗R`╜g`M1@c

Wypróbuj online!

Wyjaśnienie

;╗R`╜g`M1@c   register stack             remarks

                       44
;                      44 44
 ╗            44       44
  R           44       [1 2 3 .. 44]
       M      44       10                for example
    ╜         44       10 44
     g        44       2
              44       [1 2 1 .. 44]     gcd of each with register
        1     44       [1 2 1 .. 44] 1
         @    44       1 [1 2 1 .. 44]
          c   44       20                count

Z wbudowanym

Wypróbuj online!


Możesz alternatywnie użyć ;╗R`╜g1=`MΣtej samej liczby bajtów
Mego

1

JavaScript (ES6), 67 bajtów

f=n=>[...Array(n)].reduce(r=>r+=g(n,++i)<2,i=0,g=(a,b)=>b?g(b,a%b):a)


1

APL, 7 bajtów

+/1=⊢∨⍳

Jest to monadyczny ciąg funkcji, który przyjmuje liczbę całkowitą po prawej stronie. Podejście tutaj jest oczywiste: suma ( +/) liczba razy GCD wejścia i liczby od 1 do input ( ⊢∨⍳) jest równa 1 ( 1=).

Wypróbuj tutaj


1

Haskell, 31 30 bajtów

\n->sum[1|x<-[1..n],gcd n x<2]

1 bajt zapisany dzięki @Damien.

Wybiera wartości z gcd = 1, mapuje każdą na 1, a następnie pobiera sumę.


Można zastąpić ==1przez<2
Damien

1

Partia, 151 145 144 bajtów

@echo off
set t=
for /l %%i in (1,1,%1)do call:g %1 %%i
echo %t%
exit/b
:g
set/ag=%1%%%2
if not %g%==0 call:g %2 %g%
if %2%==1 set/at+=1

Edycja: Zapisano 4 bajty, usuwając niepotrzebne spacje. Zaoszczędzono 1 bajt +=. Zapisano 1 bajt, usuwając, tponieważ +=i tak to zinterpretuje 0. Zapisano 1 bajt dzięki @ EʀɪᴋᴛʜᴇGᴏʟғᴇʀ.

Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.