Thử thách

Cho một số nguyên dương, trả về tích của các ước của nó, bao gồm cả chính nó.

Các trường hợp thử nghiệm

Chấm điểm

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất trong mỗi ngôn ngữ sẽ thắng!

— nhạc sĩ523
nguồn

2

Lưu ý thú vị (mặc dù có lẽ không hữu ích cho thử thách này): sản phẩm của tất cả các ước của n luôn là n ^ ((số ước của n) / 2).

— Wojowu

13

05AB1E , 2 byte

ÑP

Hãy thử trực tuyến!

Giải trình

Ñ    # divisors
 P   # product

— Biểu tượng
nguồn

Thoạt nhìn tôi muốn nói giải pháp này thuộc về P, nhưng có gì đó khiến tôi chùn bước ..

— Uriel

7

Japt , 3 byte

â ×

Hãy thử trực tuyến!

Giải trình

â ×  // implicit integer input

â    // get integer divisors
  ×  // get product of array

— Justin Mariner
nguồn

Chết tiệt, làm thế nào bạn ninja tôi?! : p Sẽ xóa của tôi khi tôi đến máy tính (bất cứ khi nào có thể).

— Shaggy

@Shaggy Tôi ngạc nhiên, vì tôi vừa tìm hiểu về cả hai âvà ×khi viết câu trả lời này

— Justin Mariner

Tôi đã bị làm chậm bởi min. giới hạn nhân vật!

— Shaggy

5

Thạch , 3 byte

ÆDP

Hãy thử trực tuyến!

— Nữ tu bị rò rỉ
nguồn

5

MATL , 3 byte

Z\p

Hãy thử trực tuyến!

— DJMcMayhem
nguồn

5

Python 3 , 42 41 byte

Đã lưu 1 byte nhờ Leaky Nun!

f=lambda i,k=1:k>i or k**(i%k<1)*f(i,k+1)

Hãy thử trực tuyến!

— nhạc sĩ523
nguồn

1

(1,k)[i%k<1]tương đương vớik**(i%k<1)

— Leaky Nun

Wow thật tuyệt vời, cảm ơn bạn!

— sĩ523

4

Haskell , 35 34 byte

-1 nhờ vào lò nướng

f n=product[x|x<-[2..n],n`mod`x<1]

Hãy thử trực tuyến!

— bartavelle
nguồn

3

Bình thường , 6 byte

*Fs{yP

Bộ thử nghiệm .

— Nữ tu bị rò rỉ
nguồn

3

Alice , 12 byte

/o
\i@/Bdt&*

Hãy thử trực tuyến!

Giải trình

Đây chỉ là khung thông thường cho I / O thập phân:

/o
\i@/...

Sau đó, chương trình là:

B    Get all divisors of the input.
dt   Get the stack depth minus 1.
&*   Multiply the top two stack elements that many times, folding multiplication
     over the stack.

— Martin Ender
nguồn

3

Neim , 2 byte

𝐅𝐩

Hãy thử trực tuyến!

— Ok
nguồn

3

Tôi cuộn qua các câu trả lời: mã đơn cách đơn giản, mã đơn cách đơn giản, đơn giản ... đậm, mã serif? :-P

— Sản phẩm điện tử

@ETHproductions Hehe.

— Okx

4

@ETHproductions Tôi thực sự đã mã hóa câu trả lời này trên iOS, điều đó có nghĩa là tôi thực sự không thể nhìn thấy các ký tự.

— Okx

Điều đó ... khá ấn tượng.

— Sản xuất ETH

2

@MamaFunRoll Bây giờ là một cái tên tôi đã không nghe nói trong một chặng đường dài, thời gian dài ... ;-)

— ETHproductions

3

R , 28 byte

v=scan():1;prod(v[!v[1]%%v])

Hãy thử trực tuyến!

— Sẹo
nguồn

2

Mã máy x86-64, 26 byte

31 C9 8D 71 01 89 F8 FF C1 99 F7 F9 85 D2 75 03 0F AF F1 39 F9 7C EE 89 F0 C3

Đoạn mã trên xác định một hàm lấy một tham số duy nhất (giá trị đầu vào, số nguyên dương) trong EDI(theo quy ước gọi System64 AMD được sử dụng trên Gnu / Unix) và trả về một kết quả duy nhất (sản phẩm của ước số) EAX.

Trong nội bộ, nó tính toán sản phẩm của các ước số bằng thuật toán lặp (cực kỳ kém hiệu quả), tương tự như đệ trình C của pizzapants184 . Về cơ bản, nó sử dụng bộ đếm để lặp qua tất cả các giá trị giữa 1 và giá trị đầu vào, kiểm tra xem giá trị bộ đếm hiện tại có phải là ước của đầu vào không. Nếu vậy, nó nhân số đó vào tổng sản phẩm đang chạy.

Ngôn ngữ lắp ráp lộn xộn:

; Parameter is passed in EDI (a positive integer)
ComputeProductOfDivisors:
   xor   ecx, ecx        ; ECX <= 0  (our counter)
   lea   esi, [rcx + 1]  ; ESI <= 1  (our running total)
.CheckCounter:
   mov   eax, edi        ; put input value (parameter) in EAX
   inc   ecx             ; increment counter
   cdq                   ; sign-extend EAX to EDX:EAX
   idiv  ecx             ; divide EDX:EAX by ECX
   test  edx, edx        ; check the remainder to see if divided evenly
   jnz   .SkipThisOne    ; if remainder!=0, skip the next instruction
   imul  esi, ecx        ; if remainder==0, multiply running total by counter
.SkipThisOne:
   cmp   ecx, edi        ; are we done yet? compare counter to input value
   jl    .CheckCounter   ; if counter hasn't yet reached input value, keep looping

   mov   eax, esi        ; put our running total in EAX so it gets returned
   ret

Thực tế là IDIVhướng dẫn sử dụng các toán hạng được mã hóa cứng để chia cổ tức theo kiểu của tôi một chút, nhưng tôi nghĩ rằng điều này khá tốt cho một ngôn ngữ không có các nhánh số học và điều kiện cơ bản!

— Cody xám
nguồn

2

TI-Basic (TI-84 Plus CE), 24 byte

Prompt X
1
For(A,1,X
If not(remainder(X,A
AAns
End

Chương trình đầy đủ: nhắc người dùng nhập liệu; trả về kết quả đầu ra Ans, một biến đặc biệt (về cơ bản) lưu trữ giá trị của giá trị mới nhất được tính toán.

Giải trình:

Prompt X             # 3 bytes, Prompt user for input, store in X
1                    # 2 bytes, store 1 in Ans for use later
For(A,1,X            # 7 bytes, for each value of A from 1 to X
If not(remainder(X,A # 8 bytes, If X is divisible by A...
AAns                 # 3 bytes, ...store (A * Ans) in Ans
End                  # 1 byte, end For( loop

— pizzapants184
nguồn

2

Bạn đã không thực sự bao gồm bytecount.

— Erik the Outgolfer

@EriktheOutgolfer Rất tiếc! Đã sửa.

— pizzapants184

2

C (gcc), 52 48 byte

p,a;f(x){for(p=1,a=x;a;a--)p*=x%a?1:a;return p;}

-4 byte nhờ Cody Gray

Hàm lấy số nguyên và trả về tích của ước số.

Hãy thử trực tuyến!

Ung dung:

int proddiv(int input) {
    int total = 1, loopvar;
    for(loopvar = input; loopvar > 0; --loopvar) {
    // for loopvar from input down to 1...
        total *= (input % loopvar) ? 1 : loopvar;
        // ...If the loopvar is a divisor of the input, multiply the total by loopvar;
    }
    return total;
}

— pizzapants184
nguồn

Bạn có thể lưu 4 byte bằng cách (1) đếm ngược, (2) loại bỏ dấu ngoặc quanh p*=biểu thức và (3) đặt một câu lệnh trong phần thân của forvòng lặp để thả dấu phẩy. Tôi cũng thích sử dụng các vars toàn cầu, thay vì thêm các tham số bổ sung. Điều này tránh hành vi không xác định, mà không tốn bất kỳ byte nào. Phiên bản cuối cùng:p,a;f(x){for(p=1,a=x;a;--a)p*=x%a?1:a;return p;}

— Cody Grey

Bạn có thể thay thế return p;bằng p=p;và lưu năm byte.

— Jonathan Frech

Để lưu một byte khác, bạn có thể thay thế p,a;f(x)bằng f(x,p,a).

— Jonathan Frech

Nếu bạn sử dụng các biến cục bộ thay vì các biến toàn cục, bạn thậm chí có thể loại bỏ toàn bộ return p;và lưu không phải năm, mà là chín byte. ( TIO )

— Jonathan Frech

2

JavaScript (ES7), 32 byte

n=>g=(i=n)=>i?i**!(n%i)*g(i-1):1

Đã lưu một vài byte bằng cách mượn mẹo của Leaky về giải pháp Python của nhạc sĩ .

Thử nó

o.innerText=(f=
n=>g=(i=n)=>i?i**!(n%i)*g(i-1):1
)(i.value=1)();oninput=_=>o.innerText=f(+i.value)()

<input id=i type=number><pre id=o>

Mở rộng đoạn trích

Thay thế (ES6), 32 byte

n=>g=(i=n)=>i?(n%i?1:i)*g(i-1):1

— Xù xì
nguồn

1

Tại sao không chỉ tương thích ES6 (n%i?1:i)? (Tuy nhiên, điều này sẽ không lưu bất kỳ byte nào.)

— Arnauld

@Arnauld: bởi vì nửa 6 rõ ràng là quá sớm vào buổi sáng cho golf điện thoại! : DI đã bị ternary đảo ngược khi tôi phát hiện ra mẹo của Leaky!

— Shaggy

2

TI-Basic, 24 14 13 byte

Đã lưu 1 byte nhờ lirtosiast

:√(Ans^sum(not(fPart(Ans/randIntNoRep(1,Ans

— Ôi
nguồn

1

Bạn có cần int(?

— lirtosiast

1

QBIC , 22 byte

[:|~b/a=b'\`a|q=q*a}?q

Giải trình

[:|           FOR a  = 1; a <= input (b); a++
 b/a=b'\`a    'a' is a proper divisor if integer division == float division
~         |   IF that's true
q=q*a         THEN multiply running total q (starts as 1) by that divsor
}             NEXT
?q            Print q

— steenbergh
nguồn

1

Pari / GP , 18 byte

n->n^(numdiv(n)/2)

Hãy thử trực tuyến!

— alephalpha
nguồn

1

PHP , 45 byte

for($p=1;$d++<$argn;)$argn%$d?:$p*=$d;echo$p;

Hãy thử trực tuyến!

— Jorg Hülsermann
nguồn

1

Toán học, 17 byte

đối với những người không thể xem câu trả lời đã bị xóa (câu trả lời của DavidC), đây là mã trong Mathicala với sự trợ giúp của @MartinEnder

1##&@@Divisors@#&

— J42161217
nguồn

1

Ngôn ngữ lập trình Shakespeare , 353 byte

.
Ajax,.
Puck,.
Page,.
Act I:.
Scene I:.
[Enter Ajax and Puck]
Ajax:
You cat
Puck:
Listen to thy heart
[Exit Ajax]
[Enter Page]
Scene II:.
Puck:
You sum you cat
Page:
Is Ajax nicer I?If so, is remainder of the quotient Ajax I nicer zero?If not, you product you I.Is Ajax nicer I?If so, let us return to scene II
Scene III:.
Page:
Open thy heart
[Exeunt]

Phiên bản bị đánh cắp:

The Tragedy of the Product of a Moor's Factors in Venice.

Othello, a numerical man.
Desdemona, a product of his imagination.
Brabantio, a senator, possibly in charge of one Othello's factories.

Act I: In which tragedy occurs.

Scene I: Wherein Othello and Desdemona have an enlightened discussion.

[Enter Othello and Desdemona]

Othello:
  Thou art an angel!

Desdemona:
  Listen to thy heart.

[Exit Othello]
[Enter Brabantio]

Scene II: Wherein Brabantio expresses his internal monologue to Desdemona.

Desdemona:
  Thou art the sum of thyself and the wind!

Brabantio:
  Is Othello jollier than me?
  If so, is the remainder of the quotient of Othello and I better than nothing?
  If not, thou art the product of thyself and me.
  IS Othello jollier than me?
  If so, let us return to scene II!

Scene III: An Epilogue.

Brabantio:
  Open thy heart!

[Exeunt]

Tôi đang sử dụng trình biên dịch SPL này để chạy chương trình.

Chạy với:

$ python splc.py product-of-divisors.spl > product-of-divisors.c
$ gcc product-of-divisors.c -o pod.exe
$ echo 30 | ./pod
810000

— Đồng
nguồn

1

Python 3, 45 byte

lambda _:_**(sum(_%-~i<1for i in range(_))/2)

Hãy xlà một con số. Cả hai yvà zsẽ là ước của xnếu y * z = x. Do đó , y = x / z. Hãy nói rằng một số dcó 6 divisiors, do quan sát này các ước sẽ a, b, c, d / a, d / b, d / b. Nếu chúng ta nhân tất cả các số này (điểm của câu đố), chúng ta sẽ có được d * d * d = d ^ 3. Nói chung, evới một số fước số, sản phẩm của các ước số sẽ là e ^ (f / 2), đó là những gì lambda làm.

Hãy thử trực tuyến!

— Mario Ishac
nguồn

1

TÔI , 4 byte

Lục bình:

1A 3A 54 27

Giải trình:

1A - Input as an integer
3A - Factors
54 - Product
27 - Output (with newline)

— Zacharý
nguồn

1

Java (OpenJDK 8) , 52 51 byte

n->{int r=n,d=0;for(;++d<n;)r*=n%d<1?d:1;return r;}

Hãy thử trực tuyến!

Cảm ơn LeakyNun vì đã tiết kiệm 1 byte!

— Olivier Grégoire
nguồn

1

n->{int r=n,d=0;for(;++d<n;)r*=n%d<1?d:1;return r;}

— Nữ tu bị rò rỉ

1

RProgN 2 , 2 byte

ƒ*

Một ngôn ngữ khác được xây dựng cho divisorsvà product.

Hãy thử trực tuyến!

— Bánh taco
nguồn

0

Perl 6 , 22 byte

{[*] grep $_%%*,1..$_}

Hãy thử trực tuyến!

— Sean
nguồn

0

J, 19 byte

*/}.I.(=<.)(%i.@>:)

Giải thích đến sau ...

Hãy thử trực tuyến!

— Giô-na
nguồn

0

Octave , 27 byte

@(n)prod(find(~mod(n,1:n)))

Điều này xác định một chức năng ẩn danh.

Hãy thử trực tuyến!

— Luis Mendo
nguồn

0

Python 2 , 52 50 byte

Cảm ơn @ovs vì 2 byte: m*=n%i>0 or i

i=n=input()
m=1
while i:m*=n%i>0 or i;i-=1
print m

Hãy thử trực tuyến!

— chính thức
nguồn

0

Fortran 95, 88 byte

function l(k)
n=0
l=1
do while(n<k)
n=n+1
if(MODULO(k,n)==0)then
l=l*n
end if
end do
end

Hãy thử trực tuyến!

Ung dung:

integer function l(k)
    implicit none
    integer :: n, k

    n=0
    l=1
    do while (n<k)
        n=n+1
        if (MODULO(k,n) == 0) then
            l=l*n
        end if
    end do

end function l

— Hộp ổn định
nguồn

0

Tiên đề, 23 byte

h(x)==x^(#divisors x/2)

Đây là một bản dịch trong Axiom của giải pháp alephalpha

— RosLuP
nguồn

Sản phẩm của bộ chia

Thử thách

Các trường hợp thử nghiệm

Chấm điểm

05AB1E , 2 byte

Japt , 3 byte

Giải trình

Thạch , 3 byte

MATL , 3 byte

Python 3 , 42 41 byte

Haskell , 35 34 byte

Bình thường , 6 byte

Alice , 12 byte

Giải trình

Neim , 2 byte

R , 28 byte

Mã máy x86-64, 26 byte

TI-Basic (TI-84 Plus CE), 24 byte

C (gcc), 52 48 byte

JavaScript (ES7), 32 byte

Thử nó

Thay thế (ES6), 32 byte

TI-Basic, 24 14 13 byte

QBIC , 22 byte

Giải trình

Pari / GP , 18 byte

PHP , 45 byte

Toán học, 17 byte

Ngôn ngữ lập trình Shakespeare , 353 byte

Python 3, 45 byte

TÔI , 4 byte

Java (OpenJDK 8) , 52 51 byte

RProgN 2 , 2 byte

Perl 6 , 22 byte

J, 19 byte

Octave , 27 byte

Python 2 , 52 50 byte

Fortran 95, 88 byte

Tiên đề, 23 byte