Aşağıdaki gibi tanımlanmış sonsuz bir sayı diziniz olduğu göz önüne alındığında:

1: 1 = 1
2: 1 + 2 = 3
3: 1 + 3 = 4
4: 1 + 2 + 4 = 7
5: 1 + 5 = 6
6: 1 + 2 + 3 + 6 = 12
7: 1 + 7 = 8
...

Dizi, n1 ve dahil bölücülerin toplamıdır n.

xGirdi olarak pozitif bir tamsayı verildiğinde , ndaha büyük bir sonuç üretecek en düşük sayıyı hesaplayın x.

Test senaryoları

f(100) = 48, ∑ = 124
f(25000) = 7200, ∑ = 25389
f(5000000) = 1164240, ∑ = 5088960

Beklenen çıktı

Programınız hem n bu şekilde hem de bölenlerinin toplamını döndürmelidir :

$ ./challenge 100
48,124

kurallar

Bu kod-golf yani her dilde bayt, en kısa kodu kazanır.

Brachylog , 9 bayt

∧;S?hf+S>

Bu program "çıkış değişkeni" nden girdi alır .ve "girdi değişkeni" ne çıkar ?. Çevrimiçi deneyin!

açıklama

∧;S?hf+S>
∧;S        There is a pair [N,S]
   ?       which equals the output
    h      such that its first element's
     f     factors'
      +    sum
       S   equals S,
        >  and is greater than the input.

Örtük değişken Nartan düzende sıralanır, dolayısıyla çıktı için en düşük yasal değeri kullanılır.

Jöle , 18 12 11 10 bayt

1Æs>¥#ḢṄÆs

Çevrimiçi deneyin!

Bay Xcoder sayesinde -1 bayt !

Nasıl çalışır

1Æs>¥#ḢṄÆs - Main link. Argument: n (integer)
1   ¥#     - Find the first n integers where...
 Æs        -   the divisor sum
   >       -   is greater than the input
       Ṅ   - Print...
      Ḣ    -   the first element
        Æs - then print the divisor sum

Wolfram Dili (Mathematica) , 53 bayt

{#,f@#}&@@Select[Range[x=#]+1,(f=Tr@*Divisors)@#>x&]&

Çevrimiçi deneyin!

2 ile x + 1 arasındaki tüm değerleri dener, burada x giriştir.

(Çalışan Selecttüm değerlerin bir listesini döndürür, ancak işlev {#,f@#}&bunların tümünü girdi olarak alır ve sonra ilki hariç tüm girdilerini yok sayar.)

R , 71 bayt

function(x)for(n in 1:x){z=sum(which(n%%1:n==0));if(z>x)return(c(n,z))}

Çevrimiçi deneyin!

Kabuk , 12 11 bayt

§eVḟ>⁰moΣḊN

-1 byte, @Zgarb sayesinde!

Çevrimiçi deneyin!

R , 73 bayt

n=scan();while(1){d=(x=1:T)[!T%%x];if(sum(d)>n)break;T=T+1};cat(T,sum(d))

Çevrimiçi deneyin!

Duckmayr tarafından geride bırakıldı .

Japt , 15 bayt

[@<(V=Xâ x}a V]

Dene

açıklama

Örtük tamsayı girişi U. []bizim dizi sarıcı. İlk eleman için, @ }adoğruluk değeri döndürene kadar sürekli çalışan, kendisine her seferinde artan bir tamsayıyı (0'dan başlayarak) ileten ve bu tamsayının son değerini çıktılayan bir işlevdir. âgeçerli tamsayının ( X) bölücülerini alır, toplar xve bu sonuç değişkene atanır V. <eğer kontroller Udaha azdır V. Dizideki ikinci öğe sadece olur V.

Clojure , 127 bayt

(defn f[n](reduce +(filter #(zero?(rem n %))(range 1(inc n)))))
(defn e[n](loop[i 1 n n](if(>(f i)n){i,(f i)}(recur(inc i)n))))

Çevrimiçi deneyin!

-4 bayt için @steadybox'a teşekkürler!

Yakut , 58 bayt

Tam program çünkü lambdalara izin verilip verilmediğinden emin değilim. / omuz silkme

gets
$.+=1until$_.to_i.<v=(1..$.).sum{|n|$.%n<1?n:0}
p$.,v

Çevrimiçi deneyin!

açıklama

gets     # read line ($_ is used instead of v= because it cuts a space)
$.+=1    # $. is "lines read" variable which starts at 1 because we read 1 line
    until     # repeat as long as the next part is not true
$_.to_i  # input, as numeric
  .<v=   # is <, but invoked as function to lower operator prescedence
  (1..$.)        # Range of 1 to n
  .sum{|n|       # .sum maps values into new ones and adds them together
     $.%n<1?n:0  # Factor -> add to sum, non-factor -> 0
  }
p$.,v    # output n and sum

JavaScript (ES6), 61 58 bayt

f=(n,i=1,s=j=0)=>j++<i?f(n,i,i%j?s:s+j):s>n?[i,s]:f(n,++i)

<input type=number min=0 oninput=o.textContent=f(this.value)><pre id=o>

Düzenleme: @Arnauld sayesinde 3 bayt kaydedildi.

05AB1E , 11 bayt

>LʒÑO‹}нDÑO

Çevrimiçi deneyin!

Meta konsensüs başına izin verildiği gibi çıktıyı yığın üzerinde bırakır . )Görselleştirme uğruna ekledim , ancak program örtük olarak yığının üstünü yazdırıyor.

APL (Dyalog) , 32 bayt

{⍺<o←+/o/⍨0=⍵|⍨o←⍳⍵:⍵,o⋄⍺∇⍵+1}∘0

Çevrimiçi deneyin!

⍵o⍺⍵.

SOGL V0.12 , 14 bayt

1[:Λ∑:A.>?ao←I

Buradan Deneyin!

Açıklama:

1               push 1
 [              while ToS != 0
  :Λ              get the divisors
    ∑             sum
     :A           save on variable A without popping
       .>?  ←     if greater than the input
          ao        output the variable A
            ←       and stop the program, implicitly outputting ToS - the counter
             I    increment the counter

C,  79  78 bayt

i,n,s;f(x){for(i=n=s=0;x>s;s+=n%++i?0:i)i-n||(++n,i=s=0);printf("%d %d",n,s);}

Çevrimiçi deneyin!

MATL , 12 bayt

`@Z\sG>~}@6M

Çevrimiçi deneyin!

açıklama

`      % Do...while
  @    %   Push iteration index (1-based)
  Z\   %   Array of divisors
  s    %   Sum of array
  G    %   Push input
  >~   %   Greater than; logical negate. This is the loop condition
}      % Finally (execute on loop exit)
  @    %   Push latest iteration index
  6M   %   Push latest sum of divisors again
       % End (implicit). Run new iteration if top of the stack is true
       % Display stack (implicit)

Gaia , 11 bayt

dΣ@>
↑#(:dΣ

Çevrimiçi deneyin!

Meta konsensüs başına izin verildiği gibi çıktıyı yığın üzerinde bırakır . €.Görselleştirme uğruna ekledim , ancak program örtük olarak yığının üstünü yazdırıyor.

Haskell , 59 bayt

f x=[(i,s)|i<-[1..],s<-[sum[d|d<-[1..i],i`mod`d<1]],s>x]!!0

-1 byte, @nimi sayesinde!

Çevrimiçi deneyin!

Ohm v2 , 11 bayt

£^DVΣD³>‽;«

Çevrimiçi deneyin!

Faktör , 88

USE: math.primes.factors [ 0 0 [ drop 1 + dup divisors sum pick over > ] loop rot drop ]

Kaba kuvvet arama. Bu, bir tırnak (lambda) var callile xyığın yapraklarda nve f(n)yığında.

Tek kelimeyle:

: f(n)>x ( x -- n f(n) )
  0 0 [ drop 1 + dup divisors sum pick over > ] loop rot drop ;

Python 3, 163 bayt

def f(x):
    def d(x):return[i for i in range(1,x+1) if x%i==0]
    return min(i for i in range(x) if sum(d(i)) >x),sum(d(min(i for i in range(x) if sum(d(i)) >x)))

Python 3 , 100 bayt

d=lambda y:sum(i+1for i in range(y)if y%-~i<1)
f=lambda x:min((j,d(j))for j in range(x+1)if x<=d(j))

Çevrimiçi deneyin!

Jonathan Frech'in önceki python 3 girişimi hakkındaki yorumu sayesinde , python sözdizimi hakkındaki bilgilerimi büyük ölçüde genişlettim. Asla iki karakteri koruyan - ~ i için i + 1 hilesini düşünmemiştim.

Bununla birlikte, bu cevap 1) minimal değildir ve 2) x = 1 için işe yaramaz (kısalık için yapılırken yapılması kolay bir tekil hata nedeniyle; Herkesin bu kenar için cevaplarını kontrol etmesini öneririm durum!).

Hızlı açıklama: sum(i+1for i in range(y)if y%-~i<1)eşdeğerdir sum(i for i in range(1,y+1)if y%i<1)ancak iki karakter kaydeder. Bay Frech'e tekrar teşekkürler.

d=lambda y:sum(i+1for i in range(y)if y%-~i<1) bu nedenle y'nin bölücülerini döndürür.

f=lambda x:min((j,d(j))for j in range(x+1)if x<=d(j))gerçekten iş yaptığım yer. Bir tuple karşılaştırması sözlük sırasına göre çalıştığından, j, d (j) j'yi karşılaştırabildiğimiz kadar kolay bir şekilde karşılaştırabiliriz ve bu da en az j'yi bulmamıza, bir değişkende saklamamıza ve ayrı bir işlemde tuple. Ayrıca, x<=d(j)d (1) 1 olduğu için x = değil, <= olmalı, yani x 1 ise hiçbir şey elde edemezsiniz . Bu yüzden ihtiyacımız var range(x+1), değil range(x).

Daha önce d tuple dönecekti, ama sonra f olarak abone olmalıyım, bu yüzden üç karakter daha alır.

Python 2 , 81 bayt

def f(n):
 a=b=0
 while b<n:
	a+=1;i=b=0
	while i<a:i+=1;b+=i*(a%i<1)
 return a,b

Çevrimiçi deneyin!

Java (OpenJDK 8) , 91 bayt

i->{for(int j=0;j++<i;)for(int k=0,l=0;k++<j;)if((l+=j%k<1?k:0)>i)return k+","+l;return"";}

Çevrimiçi deneyin! (üçüncü test durumunda zaman aşımı)

Perl 5 , 60 + 1 ( -p) = 61 bayt

$"=$_;until($_>$"){$_=$/=0;$\--;$_+=$\%$/?0:$/until++$/>-$\}

Çevrimiçi deneyin!

Çıkış formatı:

toplam - n

Clojure, 102 bayt

#(loop[i 1](let[s(apply +(for[j(range 1(inc i)):when(=(mod i j)0)]j))](if(> s %)[i s](recur(inc i)))))

PHP, 69 bayt

for(;$argv[1]>=$t;)for($t=$j=++$i;--$j;)$t+=$i%$j?0:$j;echo$i,',',$t;

Perl 6 , 48 bayt

{first :kv,*>$_,map {sum grep $_%%*,1..$_},0..*}

Çevrimiçi deneyin!