^{[Analog kök] olarak da bilinir}

( Dijital kökün tam tersi! );)

Bir sayının dijital kökü, tek bir basamak olana kadar basamaklarının sürekli toplamıdır, örneğin 89456'nın dijital kökü şu şekilde hesaplanır:

8 + 9 + 4 + 5 + 6 = 32

3 + 2 = 5

89456'nın dijital kökü 5'tir.

STDIN aracılığıyla giriş olarak bir rakam verildiğinde , dijital kökü olan tüm olası iki basamaklı sayıları yazdırın / döndürün . İhtiyacınız olursa, kendini içerebilir, örneğin 05

Bunların hepsi olası giriş ve çıkışlardır:

(Basamak için baştaki sıfırı dahil edip etmemeyi seçebilirsiniz)

I / O

0 => 0 veya 00 ya da hiçbir şey

1 => 01 ve / veya 1, 10, 19, 28, 37, 46, 55, 64, 73, 82, 91 - 1'in 100 döndürmediğinden emin olun

2 => 02 ve / veya 2, 11, 20, 29, 38, 47, 56, 65, 74, 83, 92

3 => 03 ve / veya 3, 12, 21, 30, 39, 48, 57, 66, 75, 84, 93

4 => 04 ve / veya 4, 13, 22, 31, 40, 49, 58, 67, 76, 85, 94

5 => 05 ve / veya 5, 14, 23, 32, 41, 50, 59, 68, 77, 86, 95

6 => 06 ve / veya 6, 15, 24, 33, 42, 51, 60, 69, 78, 87, 96

7 => 07 ve / veya 7, 16, 25, 34, 43, 52, 61, 70, 79, 88, 97

8 => 08 ve / veya 8, 17, 26, 35, 44, 53, 62, 71, 80, 89, 98

9 => 09 ve / veya 9, 18, 27, 36, 45, 54, 63, 72, 81, 90, 99

Hiçbir standart boşluklar , ve bu kod golf , böylece bayt en kısa cevap kazanır.

Tebrikler Heeby Jeeby Man üzerinde yaptığı inanılmaz 46 bayt beyin kurşun geçirmez cevap!

Pyke, 6 bayt

ITV
9+

Burada deneyin!

ITV\n9+ - if input: (don't print anything for 0 case)
 TV\n9+ -  repeat 10 times:
   \n   -    print ^
     9+ -   ^ += 9

JavaScript (ES6), 27 31 30 bayt

İade 0için 0ya da başka çözümler dizisi.

n=>n&&[...1e9+''].map(_=>n+=9)

gösteri

let f =

n=>n&&[...1e9+''].map(_=>n+=9)

for(n = 0; n < 10; n++) {
  console.log(n, JSON.stringify(f(n)));
}

05AB1E , 13 12 9 bayt

Adnan sayesinde -3 byte

тL<ʒSOSOQ

Çevrimiçi deneyin!

açıklama

тL<ʒSOSOQ   Main link. Argument n
тL<         List from 1 to 100, then decrement to get 0 to 99
   ʒ        Filter
    SOSO    Sum of all chars, twice
        Q   Compare to input

Haskell , 21 bayt

f bir tamsayı alır ve bir tamsayı listesi döndürür.

f d=[d,d+9..99^0^0^d]

Çevrimiçi deneyin!

• Rakamla başlar ve zor durum haricinded , her 9 numaradan 99'luk bir sınıra kadar olan aralığı oluşturur .0
• Erken durmak için 0, tüm diğer basamaklar 0^d==1için 0ve bu gücü kullanır ==0. Böylece 99^0^0^dverir 1için 0ama 99başka bir şey için.

Jöle , 8 bayt

11Ḷ×9+ȧ@

Çevrimiçi deneyin!

Diğer cevabımdan farklı algoritma.

Brain-Flak , 46 bayt

{((()()()()()){}){(({}[()])<(({}{}[]))>)}}{}{}

Çevrimiçi deneyin!

açıklama

Bu cevap Megatom'un cevabından bir fikir kullanır, yani yığın sayacı ve artış arasındaki fark olarak yığın yüksekliğini kullanır. Önceki cevaplar gibi bu cevabın da tüm sıfırları yakalamak için büyük bir dış döngüsü vardır. Döngünün içinde bir sayaç gibi davranmak için 10'u itiyoruz, sonra başka bir iç içe döngü başlatıyoruz. Bu döngüde sayacı 1 azaltırız.

({}[()])

Sonra sayaç ve hesapladığımız son öğe olan ilk iki öğeyi açıyoruz. Bunları, yığılmayı dengelemek için yığın yüksekliğine ekliyoruz, daha sonra bunu bir kez çıktı için ve bir kez de bir sonraki sonucu hesaplamak için tüketilmesi için iki kez itiyoruz. Bir şeyleri iki kez itmek, infazın sonunda yanlışlıkla kaldırılması gereken bir ek değeri ittiğimiz anlamına gelir.

Bunun Megatom'u zar zor yenmesinin nedeni, Megatom'un cevabının yığın yüksekliğini elde etmek zorunda kalmasıdır. Bu [()], toplamı bir azaltmak için oldukça pahalı kullanmaya zorlandıkları anlamına gelir . Kopyayı döngünün sonuna taşıyarak , programın sonunda [()]ek bir ücret karşılığında kullanmak zorunda kalmam {}. Megatom bu stratejiyi kullanacak olsaydı cevabı şöyle olurdu:

{<>((()()()()()){}){((({}[()])<>{}[]))<>}}<>{}

ayrıca 46 bayt.

Brain-Flak , 52 bayt

{((()()()()()){}){({}[()]<(({})((()()())){}{})>)}}{}

Çevrimiçi deneyin!

açıklama

Ana dış döngü sıfır girişi için özel bir durum oluşturur. Sıfır girilirse, tüm döngünün üzerine atlar, sıfıra gider ve hiçbir şey vermeziz. Aksi takdirde döngüye gireriz. Burada, her seferinde 10 kez iterek, eski değerleri koruyarak yığının üstüne 9 ekliyoruz. 9 dijital toplamı koruduğu için bu bize bir sonraki değeri verecektir. Döngünün süresi dolduktan sonra, döngüden çıkmak için ürettiği sıfırı kullanırız {}.

Brain-Flak , 56 bayt

{([(((()()())){}{})]){({}()<(({})<(({}{}))>)>)}}{}({}{})

Çevrimiçi deneyin!

açıklama

Bu sürüm sonuncuya çok benzer şekilde çalışır, ancak 10'u orijinal değer dışında bırakarak 9 kez döngüsüz. Bunu yapmak için hafızayı biraz işleme biçimimizi yeniden düzenlemeliyiz. Bu yöntemi kullanarak kaydetmiş olabileceğimiz tüm baytlar temizlemeye alınır.

Python 2 , 29 bayt

lambda n:n and range(n,100,9)

Çevrimiçi deneyin!

Brachylog , 12 bayt

0g|g{t+₉}ᵃ¹⁰

Çevrimiçi deneyin!

açıklama

0g               Input = 0, Output = [0]
  |              Or
   g{   }ᵃ¹⁰     Accumulate 10 times, starting with [Input]
     t+₉         Take the last element, add 9

Bash ,31 27 bayt

seq $1 9 $(($1?99:0))|xargs

Çevrimiçi deneyin!

önceki

eval echo {$1..$(($1?99:0))..9}

Dyalog APL, 15 bayt

{(×⍵)/+\⍵,10⍴9}

Nasıl?

⍵,10⍴9- girişi 10 9sn ( ⍵ 9 9 9 9 9 9 9 9 9 9) ile birleştirin .

+\ - kümülatif toplam.

(×⍵)/ - oturum sürelerini genişlet - burada oturum 1-9 için 1 ve 0 için 0 verir.

Çevrimiçi deneyin!

Dyalog APL, 24 bayt

{⍵/⍨⎕=(⍵≠0)×1+9|⍵-1}⍳100

Gerektirir ⎕IO←0.

Nasıl?

                      ⍳100  ⍝ 0 .. 99
              1+9|⍵-1      ⍝ digit sum (⍵-1 mod 9 + 1)
        (⍵≠0)×             ⍝ edge case for 0
     ⎕=                    ⍝ equals to the input
 ⍵/⍨                       ⍝ compress with the range

Brain-Flak , 48 bayt

{<>((()()()()()){}){(({}[()])<>[][()]({}))<>}}<>

Çevrimiçi deneyin!

Daha sonra bir açıklama ekleyebilirim.

Mathematica, 25 bayt

If[#==0,0,Range[#,99,9]]&

0 için çalışıyor

Jöle , 12 bayt

⁵²Ḷµ,³%9EµÐf

Çevrimiçi deneyin!

Nasıl çalışır

⁵²Ḷµ,³%9EµÐf
⁵             - literal 10
 ²            - square
  R           - lowered range: 0 to 99 inclusive.
   µ     µÐf  - filter based on:
    ,³          - element and input
      %9        - mod 9
        E       - are equal

Aslında 18 bayt

╗2╤DR⌠╜-9@%Y⌡░╜;)I

Çevrimiçi deneyin!

Açıklama:

╗2╤DR⌠╜-9@%Y⌡░╜;)I
╗                   save input to register 0
 2╤DR               range(1, 100)
     ⌠╜-9@%Y⌡░      elements in range where function returns truthy:
      ╜-              subtract from input
        9@%           mod 9
           Y          is equal to 0
              ╜;)   push a copy of the input on the top and the bottom of the stack
                 I  if input is truthy, return the filtered range, else return the input (special-cases 0)

PHP, 41 Bayt

alt çizgi ayrılmış değerleri yazdırır

for(;100>$a=&$argn;$a+=$a?9:ERA)echo$a._;

ERAPHP değeri ile en kısa sabittir 131116. Sıkıcı alternatif ile değiştirebilir 100veya programı sonlandırabilirsiniz.die

Çevrimiçi sürüm

Brain-Flak , 54 52 bayt

{<>((((()()())){}{})()){({}<(({})<>({}))><>[()])}}<>

Çevrimiçi deneyin!

Brain-Flak ile ilk görüşmem ve bence gayet iyi iş çıkardım. Daha fazla tecrübesi olan birisinin tavsiyesi var mı?

Nasıl çalışır:

{ Don't do anything if input is 0
  <>((((()()())){}{})()) Switch to other stack and add 9 and 10
                         10 is the counter, 9 is to add to the current num
  { While counter
     (
       {} Pop the counter
       <(({})<>({}))> Get a copy of the 9, switch to the other stack and add it to a copy of the top of it. Use <...> to make it return 0
       <>[()] Switch to the other stack and decrement the counter
     ) 
  }
}<> Switch to the stack with the values on it

Jöle , 12 bayt

ȷ2ḶDS$ÐL⁼¥Ðf

Çevrimiçi deneyin!

PHP, 35

print_r(range($argn,!!$argn*99,9));

Aralığı [$argn, 100)adım 9olarak dizi ile oluşturur ve yazdırır. Giriş ise => 0aralığını oluşturur .[0,0]array(0)

Python, 48 51 bayt

@WheatWizard sayesinde 3 bayt kaydedildi

lambda n:[x for x in range(100)if~-n==~-x%9or x==n]

R , 23 bayt

pryr::f(x+0:(10*!!x)*9)

Çevrimiçi deneyin!

TIO'da paket yüklü olmadığından, TIO bağlantısı function(x)yerine kullanılır.pryr::fpryr

Pyke, 6 bytes (eski versiyon)

Çalışma taahhüdü

TXU#sq

Açıklama:

TX     -   10**2
  U    -  range(^)
   #   - filter(^)
    s  -   digital_root(^)
     q -  ^==input

Yakut , 25 bayt

->a{[*a.step(99,9)]*a|[]}

Çevrimiçi deneyin!

C (gcc) , 55 bayt

f()aslında herhangi bir argüman ile çağrılması gerekmez; nyerine işlevi byte kaydetmek dışında sadece vardır.

f(n){for(scanf("%d",&n);n&&n<100;n+=9)printf("%d ",n);}

Çevrimiçi deneyin!

Kömür , 14 11 bayt

Ｉ∧Ｎ⁺Ｉθ×⁹…¹¹

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Düzenleme: Sadece @ ASCII sayesinde 3 bayt vektörleme işlemlerini kullanarak sıfır giriş ve 1 bayt için hiçbir şey basmadan 2 bayt kaydedildi. Açıklama:

         ¹¹ Literal 11
        …   Range
       ⁹    Literal 9
      ×     Vector multiply
     θ      (First) input
    Ｉ       Cast to number
   ⁺        Vector add
  Ｎ         Input digit as a number
 ∧          Logical AND
Ｉ           Cast to string
            Implicitly print on separate lines

Julia 0.6 , 18 bayt

0Davayı yakalamak için bir üçlü n:9:99ve sayıları oluşturmak için bir aralık kullanıyorum. Julia'da bir aralık bir AbstractVectorve Vectorçoğu durumda gerçek sayıların yerine kullanılabilir , ancak sadece 1:9:91meydan okumayı tatmin etmediği gibi yazdırılacaktır , bu yüzden [_;]içeriği bir toplamak için sarın Vector.

n->n>0?[n:9:99;]:0

Çevrimiçi deneyin!

Perl 5 , 25 + 1 ( -n) = 26 bayt

say;!$_||($_+=9)>99||redo

Çevrimiçi deneyin!

Clojure, 33 bayt

(fn[n](if(> n 0)(range n 100 9)))

Clojure , 38 bayt

(defn f[n](if(pos? n)(range n 100 9)))

veya 29 bayt olan anonim işlev olarak

(#(if(pos? %)(range % 100 9))n)

Çevrimiçi deneyin!

teşekkürler @steadybox

Perl 5, 62 bayt

sub x{$f=$_[0];@x=("0$f",$f);push@x,map$f+$_*10,(1..9)if$f;@x}

Daha kısa bir yol olmalı

Gol> <> , 12 bayt

I:ZhbF:N9+|;

Çevrimiçi deneyin!

Nasıl çalışır

I:ZhbF:N9+|;

I             Take input as number
 :            Duplicate
  Z           Pop and skip one if nonzero
   h          If zero, print the top as number and halt
              Otherwise...
    bF....|   Repeat these commands 11 times
      :N      Print top as number, with newline
        9+    Add 9
           ;  Halt