^{Dies unterscheidet sich von " Mein Wort", da es weniger komplex ist und nur berechnet und nicht verglichen werden muss.}

Um die digitale Wurzel zu finden, nehmen Sie alle Ziffern einer Zahl, fügen Sie sie hinzu und wiederholen Sie den Vorgang, bis Sie eine einstellige Zahl erhalten. Wenn zum Beispiel die Zahl war 12345, würden Sie hinzufügen 1, 2, 3, 4, und 5, bekommen 15. Sie würden dann hinzufügen 1und 5geben 6.

Deine Aufgabe

Geben Sie bei einer Ganzzahl N (0 <= N <= 10000) über STDIN die digitale Wurzel von N aus .

Testfälle

1 -> 1
45 -> 9
341 -> 8
6801 -> 6
59613 -> 6
495106 -> 7

Denken Sie daran, das ist Code-Golf , also gewinnt der Code mit der geringsten Anzahl von Bytes.

Pyke, 1 Byte

s

Probieren Sie es hier aus!

Übernimmt die digitale Wurzel des Eingangs

Jelly , 7 5 4 3 Bytes

ḃ9Ṫ

TryItOnline! oder alle Testfälle

Wie?

Es ist bekannt, dass die digitale Wurzel der Formel (n-1)% 9 + 1 folgt.
Dies ist das Gleiche wie die letzte Ziffer in der bijektiven Basis 9
(und aufgrund der Implementierung behandelt diese 0ḃ9=[]und []Ṫ=0diese den Kantenfall von Null).

ḃ9Ṫ - Main link: n
ḃ9  - convert to bijective base 9 digits (a list)
  Ṫ - tail (get the last digit)

JavaScript (ES6), 16 bis 10 Byte

n=>--n%9+1

Testfälle

let f =

n=>--n%9+1

console.log(f(1)); // -> 1
console.log(f(45)); // -> 9
console.log(f(341)); // -> 8
console.log(f(6801)); // -> 6
console.log(f(59613)); // -> 6
console.log(f(495106)); // -> 7

MATL , 3 Bytes

9X\

Probieren Sie es online!

Viele (jetzt gelöschte) Antworten haben versucht, mit modulo 9 das Ergebnis zu erzielen. Dies ist eine gute Abkürzung, funktioniert aber leider nicht für ein Vielfaches von 9. MATL hat eine Modulo-Funktion für das Intervall [1, n]. Mit diesem Modulo haben wir 1 % 3 == 1, 2 % 3 == 2, 3 % 3 == 3, 4 % 3 == 1, etc. Diese Antwort nimmt einfach das Eingangsmodulo neun mit diesem benutzerdefinierten Modulo.

Mathematica, 27 11 Bytes

Mod[#,9,1]&

Mathematics verwendet Modeinen dritten Parameter als Offset für den resultierenden Bereich des Modulos. Dies vermeidet das Dekrementieren der Eingabe und das Inkrementieren der Ausgabe.

Python, 16 bis 20 Bytes

+4 Bytes für den Kantenfall Null.

lambda n:n and~-n%9+1

repl.it

Julia, 12 Bytes

!n=mod1(n,9)

oder

n->mod1(n,9)

mod1ist eine Alternative, zu modder Karten zum Bereich [1, n]statt [0, n).

PHP, 15 Bytes

<?=--$argn%9+1;

Vorgängerversion PHP, 55 Bytes

$n=$argn;while($n>9)$n=array_sum(Str_split($n));echo$n;

Haskell, 35 34 Bytes

until(<10)$sum.map(read.pure).show

Probieren Sie es auf Ideone.

Erläuterung:

until(<10)$sum.map(read.pure).show
                              show  -- convert int to string
               map(         ).      -- turn each char (digit) into
                        pure        --    a string 
                   read.            --    and then a number
           sum.                     -- sum up the list of numbers
until(<10)$                         -- repeat until the result is < 10

Perl, 15 Bytes

Beinhaltet +2 für -lp

Geben Sie eine Eingabe für STDIN ein

root.pl <<< 123

root.pl

#!/usr/bin/perl -lp
$_&&=~-$_%9+1

Dies ist die langweilige Lösung , die bereits in vielen Sprachen gegeben hat, aber zumindest diese Version unterstützt 0auch

Interessanter ist es, echte wiederholte Hinzufügungen zu machen (wenn auch in einer anderen Reihenfolge), tatsächlich nur 1 Byte länger zu sein:

#!/usr/bin/perl -p
s%%$_+=chop%reg

R 72 67 29 Bytes

Edit: Danke an @rturnbull für das Abschneiden von zwei Bytes.

n=scan();`if`(n%%9|!n,n%%9,9)

Retina , 7 Bytes

{`.
*
.

Probieren Sie es online!

Ich sehe viele mathematische Lösungen, aber in Retina scheint der direkte Ansatz der beste zu sein.

Erläuterung

{`Lässt das gesamte Programm in einer Schleife ablaufen, bis sich der String nicht mehr ändert. Die Schleife besteht aus zwei Stufen:

.
*

Wandle jede Ziffer in eine unäre um.

.

Zählen Sie die Anzahl der Zeichen (= konvertieren Sie die unäre Zahl in eine Dezimalzahl).

Dies funktioniert, da beim Konvertieren jeder Ziffer in eine unäre Zahl ohne Trennzeichen zwischen den Ziffern eine einzelne unäre Zahl erstellt wird, die der Summe aller Ziffern entspricht.

Brachylog , 9 Bytes

#0|@e+:0&

Probieren Sie es online!

Erläuterung

#0            Input = Output = a digit
  |           OR
   @e         Split the input into a list of digits
     +        Sum
      :0&     Call this predicate recursively

Alternativer Ansatz, 11 Bytes

: I: {@ e +} i # 0

Dieser verwendet das Meta-Prädikat i - Iterate, um Idas Prädikat {@e+}für die Eingabe aufzurufen . Dies versucht Werte von Ivon 0bis unendlich, bis man es so macht, dass die Ausgabe von ieine einzelne Ziffer ist, die #0wahr macht .

JavaScript (ES6), 41 38 Byte

3 Bytes gespart, dank Bassdrop Cumberwubwubwub

Nimmt und gibt einen String zurück.

f=s=>s[1]?f(''+eval([...s].join`+`)):s

Testfälle

f=s=>s[1]?f(''+eval([...s].join`+`)):s

console.log(f("1")); // -> 1
console.log(f("45")); // -> 9
console.log(f("341")); // -> 8
console.log(f("6801")); // -> 6
console.log(f("59613")); // -> 6
console.log(f("495106")); // -> 7

CJam , 19 13 Bytes

r{:~:+_s\9>}g

Dolmetscher

Erläuterung:

r{:~:+_s\9>}g Code
r             Get token
 {:~:+_s\9>}  Block: :~:+_s\9>
   ~          Eval
  :           Map
     +        Add
    :         Map
      _       Duplicate
       s      Convert to string
        \     Swap
         9    9
          >   Greater than
            g Do while (pop)

Vielen Dank an 8478 (Martin Ender) für -6 Bytes.

CJam, 6 Bytes

ri(9%)

Vorgeschlagen von 8478 (Martin Ender). Dolmetscher

Ich habe darüber nachgedacht, aber Martin hat es gerade vor mir. Erläuterung:

ri(9%) Code
r      Get token
 i     Convert to integer
  (    Decrement
   9   9
    %  Modulo
     ) Increment

Java 7, 63 Bytes

int f(int n){int s=0;for(;n>0;n/=10)s+=n%10;return s>9?f(s):s;}

Rekursive Funktion, die mit mod / div nur Ziffern bekommt. Nichts Außergewöhnliches.

Günstiger Hafen

von Jonathan Allan wäre eine dürftige 28 Bytes:

int f(int n){return~-n%9+1;}

Python 2, 54 51 Bytes

i=input()
while~-len(i):i=`sum(map(int,i))`
print i 

Vielen Dank an Oliver und Karl Napf, die mir geholfen haben, 3 Bytes zu sparen

Python, 45 Bytes

f=lambda x:x[1:]and f(`sum(map(int,x))`)or x

Nimmt das Argument als String.

05AB1E , 6 Bytes

[SODg#

Probieren Sie es online!

Erläuterung

[        # infinite loop
 S       # split into digits
  O      # sum digits
   Dg#   # if length == 1: break

C 64 29 Bytes

C port aus Jonathan Allans Antwort (mit Sonderfall 0).

f(i){return i>0?~-i%9+1:0;}

Vorheriger 64-Byte-Code:

q(i){return i>9?i%10+q(i/10):i;}
f(i){i=q(i);return i>9?f(i):i;}

qNimmt die Quersumme und fwiederholt die Quersumme bis zu einer einzelnen Ziffer.

Retina , 15 Bytes

.+
$*
1{9}\B

1

Probieren Sie es online! (Die erste Zeile aktiviert eine durch Zeilenvorschub getrennte Testsuite.)

Erläuterung

.+
$*

Eingabe in unär umwandeln.

(1{9})*\B

Nehmen Sie 1-basiertes Modulo, indem Sie Neunen entfernen, hinter denen mindestens ein Zeichen mehr steht.

1

Zählen Sie die verbleibende Anzahl von Einsen, um sie in Dezimalzahlen umzuwandeln.

Perl 6 , 29 Bytes

{($_,*.comb.sum...10>*)[*-1]}

Erweitert:

{ # bare block lambda with implicit parameter ｢$_｣
  ( # generate a sequence

    $_,         # starting with the input
    *.comb.sum  # Whatever lambda that splits into digits, and finds sum
    ...         # keep doing that
    10 > *      # until it is less than 10

  )[ * - 1 ] # get the last value
}

Faktor 24

Smart , mathy Antwort.

[ neg bitnot 9 mod 1 + ]

63 für dumme iterative Lösung:

[ [ dup 9 > ] [ number>string >array [ 48 - ] map sum ] while ]

Labyrinth , 8 Bytes

?(_9%)!@

mit der Gleichung (n-1)%9+1:

• ? Liest die Eingabe als Dezimalzahl und schiebt sie zum Stapel
• ( verringert die Oberseite des Stapels
• _ schiebt eine Null auf die Oberseite des Stapels
• 9 Schieben Sie die Oberseite des Stapels, und tauchen Sie um die 10-stellige Zahl auf (in diesem Fall 9).
• % knallt y, knallt x, drückt x% y
• ) erhöht die Oberseite des Stapels
• ! Fügt den Anfang des Stapels ein und gibt ihn als Dezimalzeichenfolge aus
• @ Beendet das Programm

Pyth - 7 4 6 7 Bytes

Nicht die beste, aber dennoch eine anständige Anzahl an Antworten:

|ejQ9 9

Wie die Vorgängerversion, jedoch auch Fälle von Vielfachen von 9 mit logischem oder.

Diese Version besteht den Testfall 45 nicht :

ejQ9

Erläuterung:

 jQ9  -> converting the input to base 9
e     -> taking the last digit

Probieren Sie es hier aus

Probieren Sie die vorherige Version hier aus!

Bisherige Lösungen:

&Qh%tQ9

Erklärung :

    tQ    -> tail: Q-1
   %tQ9   -> Modulo: (Q-1)%9
  h%tQ9   -> head: (Q-1)%9+1
&Qh%tQ9   -> Logical 'and' - takes the first null value. If Q is 0 - returns zero, otherwise returns the (Q-1)%9+1 expression result

Sie sind eingeladen, es hier zu versuchen !

APL (Dyalog) , 15 9 Bytes Bytes

××1+9|-∘1

Probieren Sie es online!

Hexagony, 19 15 Bytes

.?<9{(/>!@!/)%' 

Mehr lesbar:

  . ? < 
 9 { ( /
> ! @ ! / 
 ) % ' .
  . . . 

Probieren Sie es online!

-3 Bytes, indem Sie einen anderen Ansatz wählen, wodurch der 0-Kanten-Fall trivial wird.
-1 Byte durch Beheben des 0-Edge-Case-Fehlers

Verwenden Sie die Formel ((n-1) mod 9) + 1 wie viele andere Lösungen auch.

K (oK) , 9 Bytes

Lösung:

(+/.:'$)/

Probieren Sie es online!

Erläuterung:

Super unkompliziert. Teilen Sie die Zahl in Ziffern und fassen Sie sie zusammen, bis das Ergebnis konvergiert:

(+/.:'$)/ / the solution
(      )/ / do this until result converges
      $   / string, 1234 => "1234"
   .:'    / value each, "1234" => 1 2 3 4
 +/       / sum over, 1 2 3 4 => 10

Keg , 6 Bytes (SBCS im Keg-Wiki)

¿;9%1+

Erläuterung:

¿#      Take implicit input
 ;9%1+# Digital Root Formula
# Implicit output

Ruby, 12 Bytes

->n{~-n%9+1}