^{これは、Wordが複雑ではなく、計算するだけで、比較する必要がないため、Wordを打ち負かすことができるのとは異なります。}

デジタルルートを見つけるには、数字のすべての数字を取得して追加し、1桁の数字が得られるまで繰り返します。例えば、場合の数だった12345、あなたが追加することになり1、2、3、4、と5、なって15。その後、追加1し5、あなたに与えます6。

あなたのタスク

整数N（0 <= N <= 10000）からSTDINまでを指定すると、Nのデジタルルートが出力されます。

テストケース

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

これはcode-golfであるため、バイト数が最小のコードが優先されます。

パイク、1バイト

s

ここで試してみてください！

入力のデジタルルートを取得します

ゼリー、7 5 4 3 バイト

ḃ9Ṫ

TryItOnline！またはすべてのテストケース

どうやって？

デジタルルートは、式（N-1）％9 + 1に従うことが知られています。
これは、全単射ベース9における最後の桁と同じである
（その実装に起因0ḃ9=[]し、[]Ṫ=0これはハンドルゼロのエッジケース）。

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

JavaScript（ES6）、16 10バイト

n=>--n%9+1

テストケース

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バイト

9X\

オンラインでお試しください！

多くの（現在削除されている回答）がモジュロ9を使用して結果を得ようとしました。これは素晴らしいショートカットですが、残念ながら9の倍数では機能しません。MATLにはintervalのモジュロ機能があります[1, n]。このモジュロを使用すると1 % 3 == 1, 2 % 3 == 2, 3 % 3 == 3, 4 % 3 == 1、などが得られます。この答えは、このカスタムモジュロを使用して入力モジュロ9を取得します。

Mathematica、27 11バイト

Mod[#,9,1]&

Mathematica Modは3番目のパラメータをモジュロの結果範囲のオフセットとして受け取ります。これにより、入力の減少と出力の増加が回避されます。

Python、16 20バイト

ゼロのエッジケースを処理する+4バイト。

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

repl.it

ジュリア、12バイト

!n=mod1(n,9)

または

n->mod1(n,9)

mod1は、の代わりにmod範囲[1, n]にマッピングするの代替です[0, n)。

PHP、15バイト

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

以前のバージョンのPHP、55バイト

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

Haskell、35 34バイト

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

Ideoneでお試しください。

説明：

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バイト

+2を含む -lp

STDINに入力する

root.pl <<< 123

root.pl

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

これはすでに多くの言語で提供されている退屈なソリューションですが、少なくともこのバージョンもサポートしてい0ます

（別の順序ではありますが）実際に繰り返される追加を行うと、実際には1バイトだけ長くなります。

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

R、72 67 29バイト

編集：2バイトを削る@rturnbullに感謝します。

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

網膜、7バイト

{`.
*
.

オンラインでお試しください！

私は多くの数学的な解決策を目にしますが、Retinaでは簡単なアプローチが最良の方法のようです。

説明

{`文字列が変更されなくなるまで、プログラム全体をループで実行します。ループは2つのステージで構成されます。

.
*

各桁を単項に変換します。

.

文字数をカウントします（=単項数を10進数に変換します）。

これは、各桁を桁間の区切りなしで単項に変換すると、すべての桁の合計に等しい単一の単項数が作成されるためです。

Brachylog、9バイト

#0|@e+:0&

オンラインでお試しください！

説明

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

代替アプローチ、11バイト

：I：{@ e +} i＃0

これは、メタ述語i - Iterateを使用して、入力のI述語の時間を呼び出し{@e+}ます。これは、Ifrom 0から無限大までの値を試行して、出力がi1桁になるようにし#0ます。

JavaScript（ES6）、 41 38バイト

Bassdrop Cumberwubwubwubのおかげで3バイト節約

文字列を受け取って返します。

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

テストケース

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バイト

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

通訳

説明：

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)

-6バイトの8478（Martin Ender）に感謝します。

CJam、6バイト

ri(9%)

8478（Martin Ender）によって提案されました。 通訳

私はそれについて考えていましたが、マーティンはちょうど私の前にそれを得ました。説明：

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

Java 7、63バイト

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

mod / divで数字を取得するだけの再帰関数。派手なものは何もありません。

安い港

ジョナサン・アランのちっぽけな28バイトのようになります。

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

パイソン2、54の 51バイト

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

3バイトの節約を支援してくれたOliverとKarl Napfに感謝

Python、45バイト

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

引数を文字列として受け取ります。

05AB1E、6バイト

[SODg#

オンラインでお試しください！

説明

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

C、64 29バイト

Jonathan Allanの回答（特別なケース0）からのCポート。

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

前の64バイトコード：

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

qクロスの和をとり、f一桁までのクロス和をとる繰り返されます。

網膜、15バイト

.+
$*
1{9}\B

1

オンラインでお試しください！（最初の行は、改行で区切られたテストスイートを有効にします。）

説明

.+
$*

入力を単項に変換します。

(1{9})*\B

あとに少なくとも1文字以上ある9を削除して、1ベースのモジュロを取ります。

1

1の残りの数をカウントして、10進数に変換します。

Perl 6、29バイト

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

拡張：

{ # 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
}

ファクター、24

賢い、賢い答え。

[ neg bitnot 9 mod 1 + ]

ダム反復ソリューションの場合：63：

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

ラビリンス、8バイト

?(_9%)!@

方程式を使用して(n-1)%9+1：

• ? 入力を10進数として読み取り、スタックにプッシュします
• ( スタックのトップをデクリメントします
• _ スタックの一番上にゼロをプッシュします
• 9 スタックの一番上にある数字を10倍押します（この場合は9）。
• % yをポップ、xをポップ、x％yをプッシュ
• ) スタックの最上部をインクリメントします
• ! スタックの一番上をポップし、10進数の文字列として出力します
• @ プログラムを終了します

パイス-7 4 6 7バイト

最良のものではありませんが、それでもかなりの量の答えを打ち負かしています：

|ejQ9 9

前のバージョンと同様ですが、論理ORを使用して9の倍数のケースも処理します。

このバージョンは45テストケースに失敗します：

ejQ9

説明：

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

ここで試してみてください

ここで以前のバージョンをお試しください！

以前のソリューション：

&Qh%tQ9

説明：

    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

あなたはに招待しているここでそれを試してみてください！

APL (Dyalog), 15 9 bytes bytes

××1+9|-∘1

Try it online!

Hexagony, 19 15 bytes

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

More Readable:

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

Try it online!

-3 bytes by taking a different approach, making the 0 edge case trivial.
-1 byte by fixing 0 edge case bug

Using the formula ((n-1) mod 9) + 1 like a lot of other solutions aswell.

K (oK), 9 bytes

Solution:

(+/.:'$)/

Try it online!

Explanation:

Super straightforward. Break number into digits and sum up - do this until the result converges:

(+/.:'$)/ / 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 on Keg wiki)

¿;9%1+

Explanation:

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

Ruby, 12 bytes

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