introduction

C'est un défi très simple: il suffit de compter les diviseurs d'un nombre. Nous avons eu un défi similaire mais plus compliqué auparavant, mais j'ai l'intention que celui-ci soit d'entrée de gamme.

Le défi

Créez un programme ou une fonction qui, étant donné un entier strictement positif N, génère ou renvoie le nombre de diviseurs dont il dispose, y compris 1 et N.

Entrée: Un entier> 0. Vous pouvez supposer que le nombre peut être représenté dans le type numérique natif de votre langue.

Sortie: le nombre de diviseurs entiers positifs qu'il possède, y compris 1 et le nombre lui-même.

Les soumissions seront notées en octets . Vous pouvez trouver ce site Web à portée de main, mais vous pouvez utiliser toute méthode raisonnable pour générer votre nombre d'octets.

C'est le code-golf , donc le score le plus bas gagne!

Edit: Il semble que la réponse Pyth de 5 octets de FryAmTheEggman soit gagnante! N'hésitez pas à soumettre de nouvelles réponses, cependant; si vous pouvez obtenir quelque chose de plus court, je changerai la réponse acceptée.

Cas de test

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

Classements

Voici un extrait de pile pour générer à la fois un classement régulier et un aperçu des gagnants par langue.

Pour vous assurer que votre réponse apparaît, veuillez commencer votre réponse avec un titre, en utilisant le modèle Markdown suivant:

# Language Name, N bytes

où Nest la taille de votre soumission. Si vous améliorez votre score, vous pouvez conserver les anciens scores dans le titre, en les barrant. Par exemple:

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

Si vous souhaitez inclure plusieurs nombres dans votre en-tête (par exemple parce que votre score est la somme de deux fichiers ou si vous souhaitez répertorier les pénalités de drapeau d'interprète séparément), assurez-vous que le score réel est le dernier numéro de l'en-tête:

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

Vous pouvez également faire du nom de la langue un lien qui apparaîtra ensuite dans l'extrait de classement:

# [><>](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

Utilise l'opération de sous-ensembles sur les facteurs premiers de l'entrée, puis conserve uniquement les listes uniques de facteurs et renvoie ce nombre.

Suite de tests

Explication

Utiliser 25 comme exemple, pour que la liste des sous-ensembles ne soit pas très longue

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 octets

Sur les suggestions de Martin Büttner:

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

LabVIEW, 4938 octets

Eh bien, ce n'est évidemment pas adapté pour le golf de code, mais peu importe, donc pour mon premier post et le lolz ici.

Haskell, 28 octets

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

L'astuce consiste ici à tester si un reste 0utilise la fonction d'indicateur 0^.

0^0 = 1
0^_ = 0

Cela fonctionne car toute puissance positive de 0 est 0, tandis que 0 ^ 0 est combinatoire le produit vide de 1.

Comparez cela au filtrage

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

Dyalog APL , 7 6 octets

≢∘∪⊢∨⍳

Il s'agit d'une fonction sans nom qui peut être nommée puis réutilisée pour chaque ¨cas de test ( ) comme suit:

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

Explication:

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

Comptez ≢l' ∘unique ∪du GCD ∨de lui ⊢- même et de chacun des entiers-jusqu'à ⍳.

Merci à ngn d'avoir enregistré un octet.

Ancienne version: +/0=⍳|⊢

Voilà comment cela fonctionne:

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

⍳|⊢1-à-argument argument division-reste
0=booléen si 0 est égal au reste de la division
+/Somme du booléen, c'est-à-dire le nombre de uns.

Python 2, 37 octets

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

Une fonction récursive. L'entrée facultative idans le diviseur en cours de test. L'expression (n%i<1)teste la divisibilité, avec True(ce qui équivaut 1) pour les diviseurs. Le résultat est ajouté à l'expression récurrente de i+1. Lorsque i==nest atteint, la division de plancher entière est i/névaluée 1et cette valeur est renvoyée comme cas de base, ce qui représente nelle-même un diviseur de n.

38:

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

Une fonction anonyme. Tests possibles diviseurs 1par n. Cela est déplacé de l' utilisation à 0travers , ce qui ajoute . La sommation des bools utilise le fait que Python traite / as / .n-1range(n)-~1TrueFalse10

Rétine , 17 octets

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

Entrée en unaire , sortie en décimal.

Essayez-le en ligne.

Lorsqu'elle est invoquée avec une seule expression régulière, Retina compte simplement les correspondances. Le regex lui-même correspond à une position , où le nombre unaire à gauche de celui-ci est un diviseur de l'entrée entière. J'utilise également le fait que les contournements sont atomiques, de sorte que je n'ai pas besoin d'utiliser une ^ancre.

Le premier lookbehinds capture simplement le préfixe entier dans le groupe 1. Cela ne peut jamais échouer, donc après le coup d'œil, nous savons que c'est ce qui est dans le groupe 1 et cela ne changera plus.

Le lookahead vérifie ensuite si nous pouvons atteindre la fin de la chaîne en répétant la chaîne capturée (notre diviseur potentiel) 0 fois ou plus.

J, 10 octets

[:*/1+_&q:

Il s'agit d'un verbe monadique sans nom. Il calcule σ ₀ (∏p _k ^{α _k} ) comme ∏ (α _k + 1) .

Essayez en ligne avec J.js .

Comment ça marche

[:*/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 octets

Merci à Martin Büttner .

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

Comment ça marche

~               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

Également

De @Peter Taylor , également en 13 octets.

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

Comment ça marche

~               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 octets

Mon premier golf à J. Je l'apprends encore.

Enregistré un octet grâce à Dennis.

Enregistré un octet de plus grâce à randomra.

1+/@,0=i.|]

Explication:

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 octets

Commençons la fête!

(F(x)(_(d/ x

Cela utilise la fonction intégrée d/. Voici une version sans le intégré (27 octets):

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

Explication:

(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 octets

ri_,:)f%0e=

Testez-le ici.

Explication

CJam n'a pas de fonction intégrée pour cela, nous faisons donc la division d'essai.

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.

Prime

Voici une solution intéressante à 12 octets (que je soupçonne être la plus courte dans un langage comme J):

ri_)2m*::*e=

Le résultat est égal au nombre de fois napparaît dans une n x ntable de multiplication:

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 octets

Effectuez k mod npour chaque k = 1,...,n, puis effectuez not(qui transforme chaque nonzer à zéro et chaque zéro à 1) et résumez toutes ces valeurs.

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

Julia, 20 octets

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

Il s'agit d'une fonction anonyme qui fonctionne comme suit: Pour chaque entier de 1 à l'entrée, testez si le module d'entrée de l'entier est zéro. Si c'est le cas, la valeur sera true, sinon false. Nous additionnons les booléens qui sont implicitement convertis en entiers, ce qui donne le nombre de diviseurs.

Une solution beaucoup plus cool (mais aussi beaucoup plus longue), incluse par souci d'exhaustivité, est

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

Ceci obtient la factorisation canonique de n, ie \prod_{i=1}^k p_i^e_i, et calcule la fonction de diviseur comme τ(n) = \prod_{i=1}^k e_i + 1.

PARI / GP, 6 octets

PARI / GP ont un intégré pour cela.

numdiv

Pyth, 8 octets

Division d'essai simple.

lf!%QTSQ

Essayez-le en ligne ici .

Rubis, 27 octets

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

Exemple d'exécution:

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

Octave, 21 20 octets

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

Regex (.NET), 33 octets

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

En supposant que l'entrée et la sortie sont en unaire, et la sortie est tirée de la correspondance principale de l'expression régulière.

Décomposition de l'expression régulière:

• .*$ ets le pointeur à la fin de la chaîne de sorte que nous ayons toute l'entrée x dans une direction.
• (?<=^\2*(.+?(?>\2?))) correspond de droite à gauche et vérifie le diviseur en bouclant de x à 0.
  • (.+?(?>\2?)) est une "variable" qui commence à 1 dans la première itération et continue à partir du nombre dans l'itération précédente et boucle jusqu'à x.
  • ^\2* vérifie si x est un multiple de "variable".

Il a essentiellement la même idée que ma réponse pour calculer Phi (pas Pi) . Seul le chèque est différent.

Testez l'expression régulière sur RegexStorm .

Labyrinthe , 33 octets

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

Essayez-le en ligne.

Cela met en œuvre la division d'essai. J'ajouterai une explication plus tard. Ce n'est probablement pas optimal, mais j'ai du mal à trouver quelque chose de plus court.

Perl 6 , 17 octets

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

usage:

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 octets

Cela peut probablement être mieux joué au golf.

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

Edit 1: j'avais raison. Suppression des accolades après la boucle for.

Edit 2: Golfed à 40 octets avec merci à manatwork et Martin Büttner .

Edit 3: Sauvegarde d'un octet en basant la fonction sur la réponse C ci-dessus.

Edit 4: Merci à ן nɟuɐɯɹɐ ן oɯ et Neil , mais je n'arrive pas à faire fonctionner l'eval.

Edit 5: J'ai oublié de supprimer l'eval.

Tester

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 octets

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

e.g. 

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

• créer une liste de nombres de 1 à x, les introduire dans le pipeline |
• filtrez le pipeline sur (x% item == 0), en convertissant implicitement le résultat modulo en booléen puis en l'inversant à l'aide de !sorte que les diviseurs deviennent $ true et soient autorisés à passer; en utilisant l'alias intégré ?pourWhere-Object
• rassembler ()et .Countcombien d'articles ont traversé le filtre

Gelée , 2 octets (sans compétition (encore))

Æd

Essayez-le en ligne!

Je pense que cela utilise des fonctionnalités implémentées après l'autre réponse Jelly. Commentez si je me trompe (je ne peux pas regarder chaque commit dans la ligne, vous savez :))

Taxi, 2143 octets

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.

Essayez-le en ligne!

Non golfé:

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.

Explication:

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 octets

â l

-m est utilisé pour exécuter tous les cas de test.

Essayez-le

Formule Excel, 42 28 octets

Edit: je viens de réaliser que je n'ai pas besoin d'utiliser INDIRECT , économisant 14 octets!

Les éléments suivants doivent être saisis sous forme de formule matricielle ( Ctrl+ Shift+ Enter):

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

Où N est le nombre à tester.

Exemples:

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

Explication:

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 octets

Ñg

Essayez-le en ligne ou vérifiez tous les cas de test .

Explication:

Assez simple, mais le voici quand même:

Ñ   # 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 octets

Length@*Divisors

Composition simple des fonctions intégrées.

Minkolang 0,13 , 16 octets

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

Vérifiez tous les cas ici.

Explication

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.