숫자의 제수 계산

26

소개

이것은 매우 간단한 과제입니다. 단순히 숫자의 제수를 계산하십시오. 우리는 전에 비슷하지만 더 복잡한 도전을 겪었 지만, 나는 이것이 엔트리 레벨이되기를 원합니다.

도전

하나의 엄격하게 양의 정수가 주어지면 N1과를 포함하여 몇 개의 제수를 출력하거나 반환하는 프로그램이나 함수를 만듭니다 N.

입력 : 한 정수> 0

출력 : 1과 그 자체를 포함하여 양의 정수 제수의 수입니다.

제출물은 바이트 단위 로 채점 됩니다 . 당신은 찾을 수 이 웹 사이트는 당신이 당신의 바이트 수를 생성하기위한 합리적인 방법을 사용할 수 있지만, 편리합니다.

이것은 code-golf 이므로 최저 점수가 이깁니다!

편집 : FryAmTheEggman의 5 바이트 Pyth 답변이 승자 인 것 같습니다! 그래도 새로운 답변을 제출하십시오. 더 짧은 것을 얻을 수 있으면 허용되는 답변을 변경하겠습니다.

테스트 사례

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

리더 보드

다음은 일반 리더 보드와 언어 별 수상자 개요를 생성하는 스택 스 니펫입니다.

답변이 표시되도록하려면 다음 마크 다운 템플릿을 사용하여 헤드 라인으로 답변을 시작하십시오.

# Language Name, N bytes

N제출물의 크기는 어디에 있습니까 ? 당신은 당신의 점수를 향상시킬 경우에, 당신은 할 수 있습니다 를 통해 눈에 띄는에 의해, 헤드 라인에 오래된 점수를 유지한다. 예를 들어 :

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

헤더에 여러 개의 숫자를 포함 시키려면 (예 : 점수가 두 파일의 합이거나 인터프리터 플래그 페널티를 별도로 나열하려는 경우) 실제 점수가 헤더 의 마지막 숫자 인지 확인하십시오 .

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

언어 이름을 링크로 만들어 리더 보드 스 니펫에 표시 될 수도 있습니다.

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

코드 스 니펫 표시

code-golf  math  number-theory  division 
— 불
소스

답변:

19

피스, 5

l{yPQ

입력의 주요 요인에 대해 부분 집합 연산을 사용한 다음 고유 한 요인 목록 만 유지하고이 계수를 리턴합니다.

테스트 스위트

설명

하위 세트 목록이 길지 않도록 25를 예로 사용

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
— FryAmTheEggman
소스
매혹적인. 좋은 접근 방식
— Cyoce
14

C ++ C, 43 57 56 46 43 바이트

Martin Büttner의 제안에 따르면 : 

i,c;f(n){for(i=c=n;i;n%i--&&--c);return c;}
— 사힐 아 로라
소스
1
잠깐, 대신에 두 가지 모두를 세어 보도록하겠습니다.i,c;f(n){for(i=c=n;i;n%i--&&--c);return c;}
— Martin Ender
@ MartinBüttner 와우 맨 와우. 진심으로! _ / \ _
— Sahil Arora
1
아름다운! : ~)!
— sweerpotato
11

LabVIEW, 4938 바이트

글쎄, 분명히 코드 골프에는 적합하지 않지만 무엇이든간에 첫 번째 게시물과 lolz는 여기에갑니다. enter image description here

— 유멜
소스
프로그래밍 퍼즐과 코드 골프에 오신 것을 환영합니다! 물어 보는게 마음에 들지 않으면 어떻게이 점수를 얻었습니까? 메타에 대한 선례를 찾을 수 없습니다.
— bkul
나는 그것을 저장하고 크기를했다
— Eumel
그리고 4.938 바이트입니까? 예를 들어 킬로바이트가 아닌가?
— bkul
정확성을 위해 나는 kb 카운트가 아닌 바이트 카운트를 사용했습니다
— Eumel
4
@ bkul 나는 혼란이에 기인한다고 생각한다 ..
— Martin Ender
10

하스켈, 28 바이트

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

여기서 트릭은 나머지가 0표시기 기능을 사용하고 있는지 테스트하는 것 0^입니다.

0^0 = 1
0^_ = 0

이것은 0의 양의 제곱이 0 인 반면 0 ^ 0은 조합 적으로 1의 빈 곱이기 때문에 작동합니다.

이것을 필터링과 비교

f n=sum[1|i<-[1..n],mod n i<1]
— xnor
소스
7

Dyalog APL , 7 6 바이트

≢∘∪⊢∨⍳

명명되지 않은 함수로 이름을 지정한 다음 각 ( ¨) 테스트 사례에 대해 다음과 같이 재사용 할 수 있습니다 .

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

설명:

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

자체 의 GCD 와 각 정수 ≢의 ∘고유성 ∪을 계산 하십시오.∨⊢⍳ .

바이트를 저장 해준 ngn에게 감사합니다.

구 버전: +/0=⍳|⊢

이것이 작동하는 방식입니다.

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

⍳|⊢1-through-argument division-remainder argument
0=0이 나누기 나머지와 같은 경우 부울 부울의
+/합, 즉 1의 수.

— 아담
소스
6

파이썬 2, 37 바이트

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

재귀 함수 i테스트중인 제수 의 선택적 입력 . 이 식은 ( 제수 와 같은 ) 제수를 갖는 제수 를 (n%i<1)테스트 합니다. 에 대한 회귀 식에 결과가 추가됩니다 . 경우 , 정수 바닥 분할 도달 평가를 하고, 그 값을 차지하고, 상기베이스 케이스로 리턴 자체의 제수 인 .True1i+1i==ni/n1nn

38 :

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

익명의 기능. 를 1통해 가능한 모든 제수 를 테스트합니다 n. 이것은로부터 이동 0을 통해 n-1에 range(n)사용하여 -~추가하는 1. bools를 합하면 Python이 True/ False를 1/ 로 취급한다는 사실을 사용합니다 0.

— xnor
소스
6

레티 나 , 17 바이트

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

단항 으로 입력하고 10 진수로 출력합니다.

온라인으로 사용해보십시오.

단일 정규 표현식으로 호출하면 Retina는 단순히 일치 항목을 계산합니다. 정규 표현식 자체는 position 과 일치합니다 . 여기서 왼쪽의 단항 숫자는 전체 입력의 제수입니다. 또한 둘러보기가 원자 적이라는 사실을 사용하므로 ^앵커 를 사용할 필요가 없습니다 .

첫 번째 lookbehinds는 단순히 그룹의 전체 접두사를 캡처합니다 1. 이것은 결코 실패 할 수 없으므로, 뒤돌아 보면 그룹 1에 무엇이 있는지 더 이상 바뀌지 않습니다.

그런 다음 lookahead는 캡처 된 문자열 (잠재적 인 제수)을 0 번 이상 반복하여 문자열 끝에 도달 할 수 있는지 확인합니다.

— 마틴 엔더
소스
6

J, 10 바이트

[:*/1+_&q:

이것은 이름이없는 monadic 동사입니다. 이 계산 σ 0 (Πp K α K ) 과 같은 Π (α의 K + 1) .

J.js로 온라인으로 사용해보십시오 .

작동 원리

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

      _&q:    Compute all exponents of the prime factorization of y.
    1+        Add 1 to each exponent.
[:*/          Reduce by mutiplication.
— 데니스
소스
나는 q:그것이 도전의 필수적인 부분을 해결하기 때문에 허용 되지 않는다고 생각 합니다. 어때요[:+/0=]|~1+i.
— FUZxxl
이것은 이 답변과 중복 됩니다. 또한 기본 제공 기능은 기본적으로 금지되어 있지 않으므로 문제를 언급하지 않는 것 같습니다.
— Dennis
도전의 모든 / 거의 모든 작업을 수행하는 내장은 일반적으로 금지되어 있지만 나는 당신의 추론을 따를 수 있습니다 q: .
— FUZxxl
1
그들은 아닙니다. 나는 그들이 있었으면 좋겠지 만 그렇지 않습니다.
— Dennis
Hrmpf hrmpf는 조금 짜증납니다.
— FUZxxl
6

골프 스크립트, 19 18 17 13 바이트

Martin Büttner 에게 감사합니다 .

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

작동 원리

~               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

또한

에서 @ 피터 테일러 , 또한 13 바이트이다.

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

작동 원리

~               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
— 셜록 9
소스
같은 길이를 가질 수도 있습니다~:X,{)X\%!},,
— Peter Taylor
4

J, 13 12 11 바이트

J의 나의 첫 골프. 나는 아직도 그것을 배우고있다.

Dennis 덕분에 바이트를 절약했습니다.

randomra 덕분에 1 바이트를 더 절약했습니다.

1+/@,0=i.|]

설명:

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
— 알레프 알파
소스
3

Arcyóu , 12 바이트

파티를 시작합시다!

(F(x)(_(d/ x

내장 기능을 사용합니다 d/. 내장 (27 바이트)이없는 버전은 다음과 같습니다.

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

설명:

(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
— 불
소스
3

CJam, 11 바이트

ri_,:)f%0e=

여기에서 테스트하십시오.

설명

CJam에는이를위한 기능이 내장되어 있지 않기 때문에 시범 사업을하고 있습니다.

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.

보너스

다음은 12 바이트의 흥미로운 솔루션입니다 (J와 같은 언어에서는 가장 짧을 수도 있습니다).

ri_)2m*::*e=

결과는 곱셈 테이블에 n나타나는 횟수와 n x n같습니다.

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.
— 마틴 엔더
소스
3

Matlab, 20 바이트

k mod nevery k = 1,...,n에 대해 수행 한 다음 수행 not(모든 nonzer를 0으로, 모든 0을 1로 설정)하고 모든 값을 합산하십시오.

@(n)sum(~mod(n,1:n))
— 플레어
소스
이것은 내 접근 방식 일 것입니다!
— Luis Mendo
길이가와 (과) 동일한 것이 흥미 롭습니다 length(divisors(n)).
— 누적
@Acccumulation 당신은 여전히 @(n)유효한 submisison을 만들기 위해 를 추가해야합니다
— flawr
3

줄리아, 20 바이트

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

이것은 다음과 같이 작동하는 익명 함수입니다. 1에서 입력까지의 각 정수에 대해 입력 모듈러스가 0인지 여부를 테스트하십시오. 그렇다면 값은 true이고, 그렇지 않으면 false입니다. 암시 적으로 정수로 캐스트 된 부울을 합산하여 제수의 수를 산출합니다.

완벽을 기하기 위해 포함 된 훨씬 더 시원한 솔루션이지만 훨씬 더 긴 솔루션은

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

이것은의 정규 인수 분해 얻는다 n즉, \prod_{i=1}^k p_i^e_i, 등 제수 함수를 계산합니다 τ(n) = \prod_{i=1}^k e_i + 1.

— 알렉스 에이
소스
2

루비, 27 바이트

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

샘플 실행 :

2.1.5 :001 > ->n{(1..n).count{|i|n%i<1}}[100]
 => 9
— 일하는 남자
소스
2

정규식 (.NET), 33 바이트

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

입력과 출력이 단항이라고 가정하고 출력은 정규식의 주요 일치 항목에서 가져옵니다.

정규식을 분석하십시오.

  • .*$ 전체 입력 x가 한 방향으로 표시되도록 포인터를 문자열 끝으로 설정합니다.
  • (?<=^\2*(.+?(?>\2?))) 오른쪽에서 왼쪽으로 일치하고 x에서 0으로 반복하여 제수를 확인합니다.
    • (.+?(?>\2?)) "가변"은 첫 번째 반복에서 1부터 시작하여 이전 반복의 숫자부터 계속되고 최대 x까지 반복됩니다.
    • ^\2* x가 "변수"의 배수인지 확인합니다.

그것은 기본적으로 계산 파이에 대한 내 대답과 같은 아이디어를 가지고 있습니다. 있습니다. 수표 만 다릅니다.

RegexStorm 에서 정규식을 테스트하십시오 .

— n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳
소스
2

펄 6 , 17 바이트

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

용법:

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

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

say $code(97); # 2␤

my &code = $code;
say code 92; # 6
— 브래드 길버트 b2gills
소스
2

자바 스크립트 (ES6), 60 57 42 40 39 37 바이트

이것은 아마도 더 나은 골프가 될 수 있습니다.

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

편집 1 : 맞았습니다. for 루프 후 버팀대를 제거했습니다.

편집 2 : 덕분에 40 바이트로 Golfed manatwork 와 마틴 있음 Büttner .

편집 3 : 위의 C 답변 을 기반으로 함수를 저장하여 바이트 저장 .

편집 4 : ן nɟuɐɯɹɐ ן oɯ 및 Neil 덕분에 평가가 작동하지 않습니다.

편집 5 : 평가판을 제거하는 것을 잊었습니다.

테스트

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

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

)(+this.value)' /><pre id="result"></pre>
스 니펫 확장

— 셜록 9
소스
2
좋은 습관을 포기하십시오. var키워드를 삭제하십시오 . JavaScript의 골프 팁 및 ECMAScript 6의 골프 팁 팁에 대한 추가 정보 .
— manatwork
2
또한 나쁜 습관을 포기하십시오 : ++i과 사이 i++에서 선택을 할 때 전자를 선택하십시오 (골프와는 아무런 관련이 없습니다). 또한 n%i<1바이트를 저장해야합니다.
— Martin Ender
2
간단한 시험 만 :n=>{for(d=i=0;i<n;)n%++i<1&&d++;return d}
— manatwork
1
38 : n => eval ( 'for (d = 0, i = n; i; d + = n % i-<1); d')
— Mama Fun Roll
1
@manatwork 왜 안돼 n%++i||++d?
— 닐
2

PowerShell, 34 바이트

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

e.g. 

PS C:\temp> .\divisors-of-x.ps1 97
2
  • 1에서 x까지의 숫자 목록을 작성하여 파이프 라인에 공급하십시오. |
  • 모듈로 결과를 boolean으로 묵시적으로 캐스팅 한 다음 !제수가 $ true가되어 통과하도록 허용 하여 파이프 라인을 필터링합니다 (x % item == 0) . 내장 별칭 ?사용Where-Object
  • 모아 ()와 .Count필터를 통해 얼마나 많은 항목을 가지고
— 헤 셀러
소스
매우 멋지게 해킹!
— bkul
2

택시, 2143 바이트

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.

온라인으로 사용해보십시오!

언 골프 드 :

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.

설명:

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.
— 엔지니어 토스트
소스
2

엑셀 포뮬러, 42 28 바이트

편집 : 방금 사용할 필요가 없다는 것을 깨달았습니다. INDIRECT 14 바이트를 절약 !

다음은 배열 수식 ( Ctrl+ Shift+ Enter) 으로 입력해야합니다 .

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

여기서 N은 테스트 할 숫자입니다.

예 :

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

설명:

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.
— i_saw_drones
소스
1

매스 매 티카, 16 바이트

Length@*Divisors

내장의 간단한 기능 구성.

— 마틴 엔더
소스
1

Minkolang 0.13 , 16 바이트

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

모든 사례를 확인하십시오.

설명

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.
— 엘엔 디아 스타 먼
소스
당사 사이트를 사용함과 동시에 당사의 쿠키 정책과 개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.