З огляду на ціле вхідне число n >= 10, виведіть середнє значення всіх подвійних обертів цілого числа.

Наприклад, для введення 123обертання - це 123(немає обертання), 231(одне обертання) і 312(два обертання). Середнє значення таких становить (123 + 231 + 312) / 3або 222.

В якості іншого прикладу візьміть 4928. Повороти є 4928, 9284, 2849, і 8492. Якщо середнє число цих чотирьох чисел дорівнює 6388.25.

В якості іншого прикладу, для введення 445445, Дедупліціруемие повороти 445445, 454454і 544544, таким чином , вихід 481481.

Для введення 777є лише одне подвоєне обертання, тому вихід є 777.

Правила

• Якщо можливо, ви можете припустити, що введення / вихід відповідатиме вашому рідному типу Integer.
• Введення та вихід можуть бути надані будь-яким зручним методом .
• Прийнятна або повна програма, або функція. Якщо функція, ви можете повернути вихід, а не надрукувати його.
• Стандартні лазівки заборонені.
• Це код-гольф, тому застосовуються всі звичайні правила гольфу, і найкоротший код (у байтах) виграє.

Python 3 , 38 36 байт

lambda*n:10**len(n)//9*sum(n)/len(n)

Цифри приймає як окремі аргументи. Завдяки @Rod, що запропонував Python 3, економив 2 байти.

Спробуйте в Інтернеті!

APL (Dyalog) , 9 байт

10⊥≢⍴+/÷≢

Монадічна функція, яка бере аргумент вектора цифр.

Спробуйте в Інтернеті!

Я беру середнє значення цифр +/÷≢, потім повторюю його по довжині вводу ≢⍴і, нарешті, конвертую з бази 10.

Концептуально я беру суму обертів (не несучи):

 4  2  9  8
 2  9  8  4
 9  8  4  2
+8  4  2  9
 -----------
 23 23 23 23

Це просто 4+2+9+8повторюється 4 рази. Потім перетворення з основи 10(що робить перенесення для мене) і ділення на довжину. Хоча я ділюсь на довжину раніше, тому що це рівносильно і економить байти.

Java 10, 163 137 76 72 71 байт

n->(Math.pow(10,n.size())-1)/9*n.stream().mapToInt(i->i).sum()/n.size()

-36 байт завдяки @Nevay .
-61 байт завдяки @ OlivierGrégoire , створивши порт відповіді @Dennis 'Python 3 .
-1 байт, взявши введення як список цифр замість String.

Пояснення:

Спробуйте в Інтернеті.

n->                                 // Method with String parameter and double return-type
  (Math.pow(10,n.size())-1)/9       //  Repunits the same length as the input-size
  *n.stream().mapToInt(i->i).sum()  //  multiplied by the sum of digits
  /n.size()                         //  divided by the input-size

Лушпиння , 5 байт

d´MKA

Спробуйте в Інтернеті!

Пояснення

d´MKA
    A  Take the average of the digits
 ´MK   Replace each element of the original list with the average
d      Join the list to get a number

Лушпиння , 7 байт

A§modṙŀ

Спробуйте в Інтернеті!

Пояснення

A§modṙŀ
      ŀ  Take the range [1..length(input)]
 §m  ṙ   Rotate the input by each element of the range
   od    Convert each list of digits to a number
A        Take the average of the list

R , 84 73 64 байт

function(D,K=sum(D|1))mean(array(D,K+1:0)[1:K,1:K]%*%10^(K:1-1))

Спробуйте в Інтернеті!

Введіть як список цифр.

Дякуємо MickyT за бриття 11 байт! 8 байт, поголених доказом Денніса, що дедупликація непотрібна.

05AB1E , 9 байт

vÀD}\OIg/

Спробуйте в Інтернеті!

Стакс , 6 байт

ñJä⌠╤►

Запустіть і налагодіть його

Ця програма приймає рядок з обмеженими цитатами як вхідний і виражає середнє значення як зменшений дріб. напр777/1 , не потрібно дублювати обертання. Це ніколи не змінює результат.

Розпакований, неозорений та прокоментований, це виглядає приблизно так.

:)  get all character rotations
{em convert strings back to integers
:V  mean - integer inputs means result will be rational

Виконати цей

Перл 6 , 15 байт

{.sum/$_*1 x$_}

Спробуйте в Інтернеті!

Середнє значення - це розряд середнього значення, застосований до кожної десяткової позиції, тому середнє значення цифр 111 .... 1 x $_створює рядок у 1s, який примушується до рядків множенням.

Візьме список цифр як вхідний. Послідовність вимагає .cache перед сумою, а для введення числа або рядка потрібна .comb.

Мова Вольфрама (Mathematica) , 22 байти

FromDigits[0#+Mean@#]&

Спробуйте в Інтернеті!

JavaScript (Node.js) , 43 байти

x=>eval(x.join`+`)*'1'.repeat(n=x.length)/n

Спробуйте в Інтернеті!

Чи можемо ми взяти введення як список цифр? - Денніс ♦ 7 хв тому

@Dennis Звичайно, це добре. Іди збережи кілька байт. : p - AdmBorkBork 3 хвилини тому

Желе , 6 5 байт

ṙJḌÆm

Спробуйте в Інтернеті!

Як це працює

ṙJḌÆm  Main link. Argument: A (digit array)

 J     Yield the indices of A, i.e., [1, ..., len(A)].
ṙ      Rotate A 1, ..., and len(A) units to the left, yielding a 2D array.
  Ḍ    Convert each rotation from decimal to integer.
   Æm  Take the arithmetic mean.

Japt , 8 байт

Приймає введення як масив однозначних рядків.

xpUÊ)÷UÊ

Спробуй це

Пояснення

             :Implicit input of array U
 pUÊ         :Repeat each string length of U times
x   )        :Reduce by addition
     ÷UÊ     :Divide by the length of U

APL (Dyalog Unicode) , 21 14 байт ^SBCS

+/≢÷⍨⍳∘≢(⍎⌽)¨⊂

Спробуйте в Інтернеті!

Мовчазна префіксальна функція. Вводиться як рядок.

Дякуємо Адаму за просвітлювальний економію у 7 байт .

Як?

+/≢÷⍨⍳∘≢(⍎⌽)¨⊂ ⍝ Main fn, example argument '123'
              ⊂ ⍝ Enclose the argument (turns it into a scalar)
             ¨  ⍝ Use each of the left arguments to
         ( ⌽)   ⍝ Rotate, then
          ⍎     ⍝ Convert strings into numbers
      ⍳∘≢       ⍝ Tally (≢) the argument, then index (⍳) from 1. 
                ⍝ Returns 1 2 3 for a 3 digit argument, and rotates the argument 1, 2, then 3 times.
     ⍨          ⍝ Use the result as left argument for
    ÷           ⍝ Divide
   ≢            ⍝ By the number of rotations
+/              ⍝ And sum the results

Python 2, 83 77 байт

def f(a):b={int(`a`[i:]+`a`[:i])for i in range(len(`a`))};print sum(b)/len(b)

EDIT: -6 байт завдяки @ovs

Вугілля деревне , 11 байт

Ｉ∕×ΣθＩ⭆θ1Ｌθ

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

    θ  θ  θ Input as a string
   Σ        Sum of digits
      ⭆ 1   Replace each character with the literal `1`
     Ｉ      Cast to integer
  ×         Multiply
         Ｌ  Length
 ∕          Divide
Ｉ           Cast to string
            Implicitly print

J , 10 байт

10#.#$+/%#

Це порт чудового рішення APL від H.PWiz для J.

В якості аргументу береться список цифр.

Пояснення:

+/%#середнє значення цифр (ділимо %суму цифр +/на їх кількість #)

#$створює перелік середніх копій відповідно до кількості цифр

10#. перетворити форму 10

Спробуйте в Інтернеті!

Perl 5 -lpF , 24 22 байти

#!/usr/bin/perl -lpF
$_=1x@F/s/./+$&/g*eval

Спробуйте в Інтернеті!

Це як список цифр лише на 1 байт коротше і схоже на обман:

#!/usr/bin/perl -p
$;+=$_}{$_=1x$./$.*$

Спробуйте в Інтернеті!

Рубін , 60 байт

->n{a=b=c=0.0;a,b,c,n=a+n%10,b*10+1,c+1,n/10while n>0;a*b/c}

Спробуйте в Інтернеті!

Парі / GP , 34 байти

Вводиться як список цифр.

n->fromdigits([vecsum(n)|x<-n])/#n

Спробуйте в Інтернеті!

Рубін , 33 байти

->n{10**(k=n.size)/9*n.sum*1.0/k}

Спробуйте в Інтернеті!

Порт відповіді Dennis's Python 3

Ось моя спроба кульгавої (74 байти)

->s{a=(1..s.size).map{|i|s.chars.rotate(i).join.to_i}|[];a.sum*1.0/a.size}

Спробуйте в Інтернеті!

C ++, 218 208 байт

-10 байт завдяки Захарі

#include<set>
#include<cmath>
float a(int m){std::set<int>a;int n=m,t,c=0;for(;n>0;n/=10)++c;for(;n<c;++n){a.insert(m);t=m%10;m=m/10+std::pow(10.f,c-1)*t;}int s=0;for(int v:a){s+=v;}return float(s)/a.size();}

І, щоб перевірити:

int main() {
    printf("%f\n%f\n%f\n%f\n",a(123),a(4928),a(445445),a(777));
}

Pyth, 12 байт

csms.<zdlzlz

Напевно, неймовірно.

c         lz     Divide by the length of the input:
 s               Reduce by +
  m     lz       Map over d = [0 ... the length of the input]:
   s.<zd         Shift the input d characters to the left and cast to int

Спробуйте тут!

J, 23 байт

(+/%#)".~.(|."0 1~i.@#)

Вводиться як рядок

Пояснення

          (|."0 1~i.@#)  | All rotations
        ~.               | Deduplicate
      ".                 | Convert each to int
(+/%#)                   | Average

Матлаб, 65 байт

c=num2str(n);l=nnz(c);mean(str2num(c(mod((1:l)+(0:l-1)'-1,l)+1)))

Попрацюю над цим, майже впевнений, що це можна зробити краще.

Clojure, 139 байт

#(let[n(count %)G(set(apply map list(for[i(range n)](take n(drop i(cycle %))))))](/(apply +(for[g G](read-string(apply str g))))(count G)))

Досить неоптимальні мовні функції для перетворення послідовностей символів у цілі числа.

постійного струму, 37 байт

Це повна програма, читаючи введення та друкуючи вихід:

?1sd[O~rzsadO<x+ldO*1+sd]dsxxOkld*la/p

Він працює, розділяючи число на його цифри і множуючи середнє значення цифр на відповідне відмітку довжини (яке формується в dміру того, як ми йдемо).

?                               # read input
 1sd                            # initialize d=1
    [                   ]dsxx   # define and execute recursive macro x:
     O~r                        #   remainder and quotient of /10
        zsa                     #   a = number of digits
           dO<x                 #   recurse if needed
               +ldO*1+sd        #   increment repdigit d
                             Ok         # after executing x, set precision 
                               ld*la/   # multiply by repdigit; divide by a
                                     p  # print the result