Wprowadzenie

To bardzo proste wyzwanie: po prostu policz dzielniki liczby. Wcześniej mieliśmy podobne, ale bardziej skomplikowane wyzwanie , ale zamierzam, aby to było na poziomie podstawowym.

Wyzwanie

Utwórz program lub funkcję, która przy jednej ściśle dodatniej liczbie całkowitej Nwyprowadza lub zwraca liczbę posiadanych dzielników, w tym 1 i N.

Dane wejściowe: jedna liczba całkowita> 0. Możesz założyć, że liczba może być reprezentowana w rodzimym typie liczbowym twojego języka.

Wynik: liczba posiadanych dodatnich dzielników liczb całkowitych, w tym 1 i sama liczba.

Zgłoszenia będą oceniane w bajtach . Ta witryna może być przydatna, ale możesz użyć dowolnej rozsądnej metody do generowania liczby bajtów.

To jest golf golfowy , więc wygrywa najniższy wynik!

Edycja: Wygląda na to, że FryAmTheEggman 5-bajtowa odpowiedź Pyth jest zwycięzcą! Możesz jednak przesyłać nowe odpowiedzi; jeśli możesz dostać coś krótszego, zmienię przyjętą odpowiedź.

Przypadki testowe

ndiv(1) -> 1
ndiv(2) -> 2
ndiv(12) -> 6
ndiv(30) -> 8
ndiv(60) -> 12
ndiv(97) -> 2
ndiv(100) -> 9

Liderów

Oto fragment kodu, który pozwala wygenerować zarówno zwykłą tabelę wyników, jak i przegląd zwycięzców według języka.

Aby upewnić się, że Twoja odpowiedź się pojawi, zacznij od nagłówka, korzystając z następującego szablonu Markdown:

# Language Name, N bytes

gdzie Njest rozmiar twojego zgłoszenia. Jeśli poprawić swój wynik, to może zachować stare porachunki w nagłówku, uderzając je przez. Na przykład:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Jeśli chcesz dołączyć wiele numerów do nagłówka (np. Ponieważ twój wynik to suma dwóch plików lub chcesz osobno wymienić kary za flagi tłumacza), upewnij się, że rzeczywisty wynik jest ostatnią liczbą w nagłówku:

# Perl, 43 + 2 (-p flag) = 45 bytes

Możesz także ustawić nazwę języka jako link, który pojawi się we fragmencie tabeli wyników:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=64944,OVERRIDE_USER=45162;function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"http://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?([\d.]+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Pyth, 5

l{yPQ

Używa operacji podzbiorów na głównych czynnikach wejściowych, a następnie przechowuje tylko unikalne listy czynników i zwraca tę liczbę.

Pakiet testowy

Wyjaśnienie

Na przykładzie 25, aby lista podzbiorów nie była zbyt długa

l{yPQ     ## implicit:  Q = eval(input()) so Q == 25
   PQ     ## Prime factors of Q, giving [5, 5]
  y       ## All subsets, giving [[], [5], [5], [5, 5]]
 {        ## Unique-fiy, giving [[], [5], [5, 5]]
l         ## Length, print implicity

C ++ C, 43 57 56 46 43 bajty

Zgodnie z sugestiami Martina Büttnera:

i,c;f(n){for(i=c=n;i;n%i--&&--c);return c;}

LabVIEW, 4938 bajtów

Cóż, to oczywiście nie nadaje się do golfa kodowego, ale cokolwiek, więc na mój pierwszy post i Lolz tutaj idzie.

Haskell, 28 bajtów

f n=sum[0^mod n i|i<-[1..n]]

Sztuczka polega na sprawdzeniu, czy reszta 0korzysta z funkcji wskaźnika 0^.

0^0 = 1
0^_ = 0

Działa to, ponieważ każda dodatnia moc 0 wynosi 0, podczas gdy 0 ^ 0 jest kombinatorycznie pustym iloczynem 1.

Porównaj to z filtrowaniem

f n=sum[1|i<-[1..n],mod n i<1]

Dyalog APL , 7 6 bajtów

≢∘∪⊢∨⍳

Jest to nienazwana funkcja, którą można nazwać, a następnie ponownie wykorzystać dla każdego ¨przypadku testowego w następujący sposób:

      f ← ≢∘∪⊢∨⍳
      f¨ 1 2 12 30 60 97 100
1 2 6 8 12 2 9

Wyjaśnienie:

 ┌─┴──┐  
 ∪  ┌─┼─┐
 ∘  │ ∨ │
 ̸≡  ⊢   ⍳

Liczyć wyjątkowy z GCD od siebie i każda z liczb całkowitych, aż .≢∘∪∨⊢⍳

Dzięki ngn za zapisanie bajtu.

Stara wersja: +/0=⍳|⊢

Tak to działa:

  ┌─┴─┐      
  / ┌─┼───┐  
┌─┘ 0 = ┌─┼─┐
+       ⍳ | ⊢

⍳|⊢Argument 1-przez-argument dzielenia-reszty Wartość
0=logiczna, jeśli 0 jest równe reszcie
+/dzielącej Suma wartości boolowskiej, tj. Liczby jedności.

Python 2, 37 bajtów

f=lambda n,i=1:i/n or(n%i<1)+f(n,i+1)

Funkcja rekurencyjna. Opcjonalne wejście iw testowanym dzielniku. Wyrażenie (n%i<1)testuje podzielność, przy Trueczym (która jest równa 1) dla dzielników. Wynik jest dodawany do wyrażenia zwrotnego dla i+1. Kiedy i==nzostanie osiągnięty, całkowity podział na piętra jest i/nobliczany na 1, a ta wartość jest zwracana jako przypadek podstawowy, uznając nsię za dzielnik n.

38:

lambda n:sum(n%-~i<1for i in range(n))

Anonimowa funkcja. Testy wszystkich możliwych dzielników 1przez n. To jest przesunięta w górę z 0pośrednictwem n-1w range(n)użyciu -~, co dodaje 1. Podsumowując boole wykorzystuje fakt, że Python traktuje True/ Falsejak 1/ 0.

Siatkówka , 17 bajtów

(?<=(.+))(?=\1*$)

Dane wejściowe są jednoargumentowe , dane wyjściowe dziesiętne.

Wypróbuj online.

Po wywołaniu z jednym wyrażeniem regularnym Retina po prostu liczy dopasowania. Wyrażenie regularne dopasowuje pozycję , w której liczba jednoargumentowa po jego lewej stronie jest dzielnikiem całego wejścia. Korzystam również z faktu, że spojrzenia są atomowe, więc nie muszę używać ^kotwicy.

Pierwsze spojrzenie po prostu przechwytuje cały przedrostek w grupie 1. To nigdy nie może zawieść, więc po obejrzeniu wiemy, że to jest w grupie 1 i już się nie zmieni.

Lookahead sprawdza następnie, czy możemy dotrzeć do końca ciągu, powtarzając przechwycony ciąg (nasz potencjalny dzielnik) 0 lub więcej razy.

J, 10 bajtów

[:*/1+_&q:

To jest bezimienny, monadyczny czasownik. Oblicza σ ₀ (∏p _k ^{α _k} ) jako ∏ (α _k + 1) .

Spróbuj go online z J.js .

Jak to działa

[:*/1+_&q:    Right argument: y

      _&q:    Compute all exponents of the prime factorization of y.
    1+        Add 1 to each exponent.
[:*/          Reduce by mutiplication.

Golfscript, 19 18 17 13 bajtów

Z podziękowaniami dla Martina Büttnera .

~.,\{\)%!}+,,

Jak to działa

~               Evaluate the input, n
 .,             Duplicate the input, create array [0..n-1]
   \            Swap array and n
    {    }+     Add n to block == {n block}
     \          Swap n with i in array
      )         Increment i
       %        n mod i
        !       Logical not so that 1 if divisible by n else 0
           ,    Filter array using block for all i divisible by n
            ,   Get length of the filtered array, the answer

Również

Od @Peter Taylor , również w 13 bajtach.

~:X,{)X\%!},,

Jak to działa

~               Evaluate the input
 :X             Store input in variable X
   ,            Create array [0..X-1]
    {     },    Filter array using the following block
     )          Increment i in array
      X\        Add X to stack, swap with i
        %       X mod i,
         !      Logical not so that 1 if divisible by n else 0
            ,   Get length of the filtered array, the answer

J, 13 12 11 bajtów

Mój pierwszy golf w J. Wciąż się tego uczę.

Oszczędność bajtu dzięki Dennisowi.

Oszczędność jeszcze jednego bajtu dzięki randomra.

1+/@,0=i.|]

Wyjaśnienie:

1+/@,0=i.|]
       i.        the array 0 .. n-1
         |]      mod n
     0=          replace 0 by 1, and nonzero entries by 0
1   ,            prepend 1 to the array
 +/@             take the sum

Arcyóu , 12 bajtów

Zacznijmy imprezę!

(F(x)(_(d/ x

Korzysta z wbudowanej funkcji d/. Oto wersja bez wbudowanego (27 bajtów):

(F(x)(](+(f i(_ 1 x)(‰ x i

Wyjaśnienie:

(F(x)              ; Anonymous function with one parameter x
  (]               ; Increment
    (+             ; Sum
      (f i(_ 1 x)  ; For i in range from 1 to x-1 inclusive:
        (‰ x i     ; x divisible by i

CJam, 11 bajtów

ri_,:)f%0e=

Sprawdź to tutaj.

Wyjaśnienie

CJam nie ma do tego wbudowanego, więc przeprowadzamy podział próbny.

ri  e# Read input and convert to integer N.
_,  e# Duplicate and turn into range [0 1 ... N-1]
:)  e# Increment each element in the range to get [1 2 ... N]
f%  e# Take N modulo each of the list elements.
0e= e# Count the zeroes.

Premia

Oto interesujące rozwiązanie na 12 bajtów (które, jak podejrzewam, może być najkrótsze w języku takim jak J):

ri_)2m*::*e=

Wynik jest równy liczbie nwyświetleń w n x ntablicy mnożenia:

ri  e# Read input and convert to integer N.
_)  e# Duplicate and increment.
2m* e# Take Cartesian product of [0 1 ... N] with itself.
::* e# Compute the product of each pair.
e=  e# Count the occurrences of N.

Matlab, 20 bajtów

Wykonaj k mod ndla każdego k = 1,...,n, a następnie wykonaj not(co zmienia każdy nonzer na zero i każde zero na 1) i zsumuj wszystkie te wartości.

@(n)sum(~mod(n,1:n))

Julia, 20 bajtów

n->sum(i->n%i<1,1:n)

Jest to anonimowa funkcja, która działa w następujący sposób: Dla każdej liczby całkowitej od 1 do wejścia sprawdź, czy moduł wejściowy liczba całkowita wynosi zero. Jeśli tak, wartość będzie true, w przeciwnym razie false. Sumujemy liczby logiczne, które są domyślnie rzutowane na liczby całkowite, dając liczbę dzielników.

Jest o wiele fajniejsze (choć także znacznie dłuższe) rozwiązanie, zawarte ze względu na kompletność

n->prod(collect(values(factor(n))).+1)

Pobiera to kanoniczną faktoryzację n, tj. \prod_{i=1}^k p_i^e_iI oblicza funkcję dzielnika jako τ(n) = \prod_{i=1}^k e_i + 1.

PARI / GP, 6 bajtów

PARI / GP mają do tego wbudowaną funkcję.

numdiv

Pyth, 8 bajtów

Prosty podział próbny.

lf!%QTSQ

Wypróbuj online tutaj .

Rubinowy, 27 bajtów

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

Przykładowy przebieg:

2.1.5 :001 > ->n{(1..n).count{|i|n%i<1}}[100]
 => 9 

Oktawa, 21 20 bajtów

@(n)nnz(~mod(n,1:n))

Regex (.NET), 33 bajty

^((?=.*$(?<=^\2*(.+?(?>\2?)))).)+

Zakładając, że dane wejściowe i wyjściowe są jednoargumentowe, a dane wyjściowe są pobierane z głównego dopasowania wyrażenia regularnego.

Podział wyrażenia regularnego:

• .*$ ustawia wskaźnik na końcu łańcucha, dzięki czemu mamy cały sygnał wejściowy xw jednym kierunku.
• (?<=^\2*(.+?(?>\2?))) dopasowuje od prawej do lewej i sprawdza dzielnik, zapętlając od x do 0.
  • (.+?(?>\2?)) jest „zmienną”, która zaczyna się od 1 w pierwszej iteracji i kontynuuje od liczby w poprzedniej iteracji i zapętla do x.
  • ^\2* sprawdza, czy x jest wielokrotnością „zmiennej”.

Zasadniczo ma ten sam pomysł, co moja odpowiedź na Calculate Phi (nie Pi) . Tylko czek jest inny.

Przetestuj wyrażenie regularne w RegexStorm .

Labirynt , 33 bajty

?:}
  :{:}%{{
@ }   " )
!{("{;"}}

Wypróbuj online.

To wdraża podział próbny. Później dodam pełne wyjaśnienie. Prawdopodobnie nie jest to optymalne, ale trudno mi wymyślić coś krótszego.

Perl 6 , 17 bajtów

{[+] $_ X%%1..$_} # 17

stosowanie:

say {[+] $_ X%%1..$_}(60); # 12␤

my $code = {[+] $_ X%%1..$_};

say $code(97); # 2␤

my &code = $code;
say code 92; # 6

JavaScript (ES6), 60 57 42 40 39 37 bajtów

Prawdopodobnie można to lepiej grać w golfa.

n=>{for(d=i=n;i;n%i--&&d--);return d}

Edycja 1: Miałem rację. Usunięto nawiasy klamrowe po pętli for.

Edycja 2: Grał w golfa do 40 bajtów dzięki manatwork i Martinowi Büttnerowi .

Edycja 3: Zapisywanie bajtu przez oparcie funkcji na odpowiedzi C powyżej.

Edycja 4: Dzięki ן nɟuɐɯɹɐ ן oɯ i Neilowi , ale nie mogę sprawić, by eval działał.

Edycja 5: Zapomniałem usunąć ewaluację.

Test

n = <input type="number" oninput='result.innerHTML=(

n=>{for(d=i=n;i;n%i--&&d--);return d}

)(+this.value)' /><pre id="result"></pre>

PowerShell, 34 bajty

param($x)(1..$x|?{!($x%$_)}).Count

e.g. 

PS C:\temp> .\divisors-of-x.ps1 97
2

• utwórz listę liczb od 1 do x, podaj je do potoku |
• odfiltruj potok (x% item == 0), domyślnie rzutując wynik modulo na wartość logiczną, a następnie odwracając go, !aby dzielniki stały się $ true i zostały dopuszczone; za pomocą wbudowanego aliasu ?dlaWhere-Object
• zebrać ()i .Countile przedmiotów przeszło przez filtr

Galaretka , 2 bajty (niekonkurujące (ponownie))

Æd

Wypróbuj online!

Myślę, że wykorzystuje to funkcje zaimplementowane po drugiej odpowiedzi Jelly. Skomentuj, jeśli się mylę (nie mogę sprawdzić każdego zatwierdzenia w wierszu, wiesz :))

Taxi, 2143 bajtów

Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:s 1 l 1 r.Pickup a passenger going to Cyclone.Go to Cyclone:n 1 l 1 l 2 r.Pickup a passenger going to Cyclone.Pickup a passenger going to Sunny Skies Park.Go to Sunny Skies Park:n 1 r.Go to Cyclone:n 1 l.Pickup a passenger going to Firemouth Grill.Pickup a passenger going to Joyless Park.Go to Firemouth Grill:s 1 l 2 l 1 r.Go to Joyless Park:e 1 l 3 r.[i][Check next value n-i]Go to Zoom Zoom:w 1 r 2 l 2 r.Go to Sunny Skies Park:w 2 l.Pickup a passenger going to Cyclone.Go to Cyclone:n 1 l.Pickup a passenger going to Divide and Conquer.Pickup a passenger going to Sunny Skies Park.Go to Joyless Park:n 2 r 2 r 2 l.Pickup a passenger going to Cyclone.Go to Sunny Skies Park:w 1 r 2 l 2 l 1 l.Go to Cyclone:n 1 l.Pickup a passenger going to Joyless Park.Pickup a passenger going to Divide and Conquer.Go to Divide and Conquer:n 2 r 2 r 1 r.Pickup a passenger going to Cyclone.Go to Cyclone:e 1 l 1 l 2 l.Pickup a passenger going to Trunkers.Pickup a passenger going to Equal's Corner.Go to Trunkers:s 1 l.Pickup a passenger going to Equal's Corner.Go to Equal's Corner:w 1 l.Switch to plan "F" if no one is waiting.Pickup a passenger going to Knots Landing.Go to Firemouth Grill:n 3 r 1 l 1 r.Pickup a passenger going to The Underground.Go to The Underground:e 1 l.Pickup a passenger going to Firemouth Grill.Go to Knots Landing:n 2 r.Go to Firemouth Grill:w 1 l 2 r.Go to Joyless Park:e 1 l 3 r.Switch to plan "N".[F][Value not a divisor]Go to Joyless Park:n 3 r 1 r 2 l 4 r.[N]Pickup a passenger going to The Underground.Go to The Underground:w 1 l.Switch to plan "E" if no one is waiting.Pickup a passenger going to Joyless Park.Go to Joyless Park:n 1 r.Switch to plan "i".[E]Go to Sunny Skies Park:n 3 l 2 l 1 l.Pickup a passenger going to What's The Difference.Go to Firemouth Grill:s 1 l 1 l 1 r.Pickup a passenger going to What's The Difference.Go to What's The Difference:w 1 l 1 r 2 r 1 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:e 3 r.Pickup a passenger going to Post Office.Go to Post Office:n 1 l 1 r.

Wypróbuj online!

Nie golfowany:

Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: south 1st left 1st right.
Pickup a passenger going to Cyclone.
Go to Cyclone: north 1st left 1st left 2nd right.
Pickup a passenger going to Cyclone.
Pickup a passenger going to Sunny Skies Park.
Go to Sunny Skies Park: north 1st right.
Go to Cyclone: north 1st left.
Pickup a passenger going to Firemouth Grill.
Pickup a passenger going to Joyless Park.
Go to Firemouth Grill: south 1st left 2nd left 1st right.
Go to Joyless Park: east 1st left 3rd right.
[i]
[Check next value n-i]
Go to Zoom Zoom: west 1st right 2nd left 2nd right.
Go to Sunny Skies Park: west 2nd left.
Pickup a passenger going to Cyclone.
Go to Cyclone: north 1st left.
Pickup a passenger going to Divide and Conquer.
Pickup a passenger going to Sunny Skies Park.
Go to Joyless Park: north 2nd right 2nd right 2nd left.
Pickup a passenger going to Cyclone.
Go to Sunny Skies Park: west 1st right 2nd left 2nd left 1st left.
Go to Cyclone: north 1st left.
Pickup a passenger going to Joyless Park.
Pickup a passenger going to Divide and Conquer.
Go to Divide and Conquer: north 2nd right 2nd right 1st right.
Pickup a passenger going to Cyclone.
Go to Cyclone: east 1st left 1st left 2nd left.
Pickup a passenger going to Trunkers.
Pickup a passenger going to Equal's Corner.
Go to Trunkers: south 1st left.
Pickup a passenger going to Equal's Corner.
Go to Equal's Corner: west 1st left.
Switch to plan "F" if no one is waiting.
Pickup a passenger going to Knots Landing.
Go to Firemouth Grill: north 3rd right 1st left 1st right.
Pickup a passenger going to The Underground.
Go to The Underground: east 1st left.
Pickup a passenger going to Firemouth Grill.
Go to Knots Landing: north 2nd right.
Go to Firemouth Grill: west 1st left 2nd right.
Go to Joyless Park: east 1st left 3rd right.
Switch to plan "N".
[F]
[Value not a divisor]
Go to Joyless Park: north 3rd right 1st right 2nd left 4th right.
[N]
Pickup a passenger going to The Underground.
Go to The Underground: west 1st left.
Switch to plan "E" if no one is waiting.
Pickup a passenger going to Joyless Park.
Go to Joyless Park: north 1st right.
Switch to plan "i".
[E]
Go to Sunny Skies Park: north 3rd left 2nd left 1st left.
Pickup a passenger going to What's The Difference.
Go to Firemouth Grill: south 1st left 1st left 1st right.
Pickup a passenger going to What's The Difference.
Go to What's The Difference: west 1st left 1st right 2nd right 1st left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: east 3rd right.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st left 1st right.

Wyjaśnienie:

Convert stdin to a number and store it in three locations for three purposes:
   Original (Sunny Skies Park)
   Counter for tested values (Joyless Park)
   Counter for divisors found (Firemouth Grill)
Divide the original by each Joyless Park value in turn.
If the division result equals the truncated division result, then it's a divisor.
When a divisor is found, subtract one from Firemouth Grill.
Repeat until Joyless Park hits zero.
Pickup the original from Sunny Skies Park and subtract the value from Firemouth Grill.
Convert the result to a string and print to stdout.

Japt , 3 bajty

â l

-m Flaga służy do uruchamiania wszystkich przypadków testowych.

Spróbuj

Formuła Excel, 42 28 bajtów

Edycja: Właśnie zdałem sobie sprawę, że nie muszę używać INDIRECT, oszczędzając 14 bajtów!

Jako formułę tablicową ( Ctrl+ Shift+ Enter) należy wprowadzić:

=SUM(--NOT(MOD(N,ROW(1:N))))

Gdzie N jest liczbą do przetestowania.

Przykłady:

{SUM(--NOT(MOD(32,ROW(1:32))))}
Result: 6
{SUM(--NOT(MOD(144,ROW(1:144))))}
Result: 15

Wyjaśnienie:

SUM(--NOT(MOD(N,ROW(1:N))))       Full formula

                ROW(1:N)          Generates an array of row numbers e.g {1;2;3;4;...N}
          MOD(N,ROW(1:N))         Does N MOD {1;2;3;4;,...N}
      NOT(MOD(N,ROW(1:N)))        Coerces zeros to ones, so that they may be counted, but actually returns an array of TRUE;FALSE;FALSE;...
    --NOT(MOD(N,ROW(1:N)))        Coerces the TRUEs to 1s and FALSEs to 0s.
SUM(--NOT(MOD(N,ROW(1:N))))       Sum the ones for the result.

05AB1E , 2 bajty

Ñg

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

Całkiem proste, ale i tak jest:

Ñ   # Push a list of divisors of the (implicit) input-integer
    #  i.e. 100 → [1,2,4,5,10,20,25,50,100]
 g  # Pop and push the length of this list
    #  i.e. [1,2,4,5,10,20,25,50,100] → 9
    # (which is output implicitly as result)

Mathematica, 16 bajtów

Length@*Divisors

Prosta kompozycja funkcji wbudowanych.

Minkolang 0,13 , 16 bajtów

ndd[0ci1+%,-]-N.

Sprawdź wszystkie przypadki tutaj.

Wyjaśnienie

ndd           Takes number from input and duplicates it twice (n)
[             Opens for loop that runs n times
 0c           Copies bottom of stack to top (n)
   i1+        Loop counter + 1 (d)
      %       Modulo - pops d,n, then pushes n%d
       ,      Not - 1 if equal to 0, 0 otherwise
        -     Subtract
         ]    Close for loop
-             Subtract (n - 1 for each non-divisor)
N.            Output as number and stop.