Враховуючи число> 0, виведіть суму з усіма цифрами (1 .. n), об'єднаними та оберненими, і додайте їх. Наприклад, при n = 6:

Числа від 1 до 6 з'єднані:

123456

Відмінено:

654321

Додавання їх разом призведе до: 777777. Інший приклад - n = 11:

1 2 3 4 5 6 7 8 9 10 11 > 1234567891011

і

11 10 9 8 7 6 5 4 3 2 1 > 1110987654321

Додавання їх разом призведе до 2345555545332. Це також відоме як A078262 .

Найкоротший код виграє!

05AB1E, 7 байт

LDRJsJ+

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

Пояснення

LDRJsJ+

L        range from 1 .. input
 D       duplicate
  R      reverse
   JsJ   convert both arrays to strings
      +  add (coerces both strings to ints)

Желе, 9 байт

R,U$DF€ḌS

CJam, 15 14 байт

Дякую Мартіну за гоління байта!

ri,:)_W%si\si+

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

Pyth, 12 10 байт

ssMjLk_BSQ

Дякуємо @FryAmTheEggman за 2 байти!

Qє входом, Sперетворює його в [1, 2, ..., input()], _Bроздвоюється його на _(зворотне) для створення [rng, rev(rng)], jLkвідображає його над joinшляхом k(що змінна «порожній рядок»), sMвідображає intнад цією результуючий масив, і , sнарешті , обчислює суму.

JavaScript (ES6), 70 67 64 байт

a=>(z=[...Array(a)].map((b,c)=>c+1)).join``- -z.reverse().join``

Виправлено відповідно до вимоги, оскільки старий код був зроблений при нерозумінні вводу.

Пітон 3, 74

Збережено 6 байт завдяки DSM.

Нічого занадто захоплюючого, приєднайтесь до діапазонів, а потім перетворіть у ints та додайте їх.

lambda x:sum(int(''.join(list(map(str,range(1,x+1)))[::i]))for i in(1,-1))

Сітківка , 71

• 7 байт збережено завдяки @daavko.
• 3 байти збережено завдяки функціям версії 0.7.3

Тому що це очевидно неправильний інструмент для роботи.

.+
$*a:$&$*
+`^(a+)a\b(.*)\b1(1+)$
$1 $& $3
 ?(\w)+ ?
$#1
\d+:?
$&$*c
c

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

Працює для входів до 6, але в Інтернеті перекладач закінчується після цього.

Джольф, 9 байт

Спробуйте тут! Замініть ►на \x10.

+P►γzjP_γ
    zj    range 1...j
   γ      γ = ^
  ►        ^ .join("")
 P         as a number
+     P_γ  and γ reversed

Я, можливо, зможу пограти в гольф, перемістившись по типу кастингу.

JavaScript (ES6), 67 66 байт

n=>(a=[...Array(n+1).keys()].slice(1)).join``- -a.reverse().join``

Так, це простір. Тьфу. Принаймні @Downgoat допоміг мені зберегти байт.

Серйозно, 12 байт

,R;Rεj≈@εj≈+

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

Пояснення:

,R;Rεj≈@εj≈+
,R;           push two copies of range(1, input()+1)
   R          reverse one copy
    εj≈@εj≈   concatenate both and cast both to ints
           +  add

PowerShell, 35 байт

param($a)+-join(1..$a)+-join($a..1)

Перетворює вхідні дані в діапазони з .., потім -joinїх разом, і додає їх.

Працюватиме для вхідних чисел до 138, поки 139буде дано Infinity, 140і вище буде усунено приголомшливу помилку багатослівного введення

Cannot convert value "12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273
747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413
5136137138139140" to type "System.Int32". Error: "Value was either too large or too small for an Int32."

Pyth - 8 байт

siRT_BSQ

Спробуйте його онлайн тут .

JavaScript (ES6), 99

Це додає цифру в цифру, тому вона може обробляти числа набагато вище, ніж 53 біти точності javascript

n=>eval("for(a=b=c=r='';n;a+=n--)b=n+b;for(i=a.length;i--;r=c%10+r)c=(c>9)-(-a[i]-b[i]);c>9?1+r:r")

Тест

f=n=>eval("for(a=b=c=r='';n;a+=n--)b=n+b;for(i=a.length;i--;r=c%10+r)c=(c>9)-(-a[i]-b[i]);c>9?1+r:r")

// Less golfed
U=n=>{
  for(a=b=c=r=''; n; --n)
      b=n+b, a+=n;
  for(i=a.length; i--; r = c%10+r) 
      c=(c>9)-(-a[i]-b[i]);
  return c>9? 1+r : r;
}

function test() {
  var n=+I.value
  R.textContent=f(n)
}  

test()

N: <input id=I value=11 oninput="test()"> -> <span id=R></span>

Брахілог , 24 байти

:1fLrcC,Lc+C=.,{,.:1re?}

MATL , 13 байт

:tP2:"wVXvU]+

EDIT (20 травня 2016 р.) Код у посиланні використовується Xzзамість Xv, завдяки останнім змінам мови.

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

:                % range [1,2,...,n], where n is input
 tP              % duplicate and flip
   2:"     ]     % do this twice
      w          % swap
       V         % convert array of numbers to string with numbers and spaces
        Xv       % remove spaces
          U      % convert to number
            +    % add the two numbers

05AB1E , 5 байт

LJDR+

Пояснення:

L     # Pushes an array containing 1 .. [implicit] input
 J    # Join the array to a string (eg. [1, 2, 3] -> 123)
  D   # Duplicate the array
   R  # Reverse the duplicate
    + # Add them together

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

Bash + coreutils, 39

eval echo {1..$1} + {$1..1}|tr -d \ |bc

Або:

bc<<<`eval printf %s {1..$1} + {$1..1}`

Ідеон.

Perl 6 , 25 байт

{([~] @_=1..$^n)+[R~] @_}

{
  (
    [~]           # reduce with the string concatenation infix op:
    @_ = 1 .. $^n # the range 1 to input ( also stored in @_ )
  )
  +               # add that to
  [R~] @_         # @_ reduced in reverse
}

Використання:

for 6, 11, 12 -> $n {
  say {([~] @_=1..$^n)+[R~] @_}( $n )
}

777777
2345555545332
244567776755433

R, 34 60 64 байт

f=pryr::f;g=f(as.numeric(paste(x,collapse='')));f(g(1:n)+g(n:1))

Припускає, що pryrпакет встановлений. це дає fскорочення для створення функцій.

Редагування додало 26 байт, але повертає функціонуючу функцію, а не щось зовсім не так.

Правка додала ще 4 байти для обробки випадків вище n = 10, де повертався strtoi (раніше використовуваний) NA

Луа, 57

a=''b=''for i=1,...do a=a..i b=b.. ...-i+1 end return a+b

Луа, 53 байти

Ця програма приймає nаргумент командного рядка.

s=""r=s for i=1,arg[1]do r,s=i..r,s..i end print(s+r)

Я припускав, що виведення числа з десятковою частиною 0 було добре (у формі, 777777.0тому що це стандартний спосіб вивести число в луа (немає відмінності між цілим і плаваючим)

Perl 5, 37 байт

25 байт, плюс 1 за -pі 11 для-MList::Gen

$_=<[.]1..$_>+<[R.]1..$_>

Попереднє рішення, 40 байт: 39, плюс один за -p

@a=reverse@_=1..$_;$"=$\;$_="@a"+"@_"

Perl, 36 байт

Включає +1 для -p

Виконати з STDIN

perl -p reverse.pl <<< 6

reverse.pl

$_=eval join"",map{abs||"+"}-$_..$_

Діалог APL , 17 байт

+/⍎¨∊¨⍕¨¨x(⌽x←⍳⎕)

⎕запит на введення
⍳'перерахувати, поки
x←список зберігання вводу в x
⌽зворотній х
x(… передбачити )перевернутий список з оригінальним списком
⍕¨¨перетворити кожне число кожного списку в рядок символів,
∊¨зробити кожен список рядків символів в рядки символів,
⍎¨перетворити кожен рядок символів у число,
+/суму два числа .

Математика, 64 байти

Plus@@FromDigits/@#&[""<>ToString/@#&/@{#,Reverse@#}&[Range@#]]&

Сітківка, 80 байт (кодування ISO 8859-1)

'+
$0¶$0
+`^(('+)')
$2 $1
+`('('+))$
$1 $2
(')+( |$)?
$#1
(\d+)¶(\d+)
$1$*'$2$*'

IO не є одинаковою, 'як лічильний характер. Теоретично підтримує будь-яке ціле число, яке ви кинете на нього, на практиці ... онлайн-перекладач відмовляється обробляти все, що перевищує 6 (одинарне '''''').

Спробуйте в Інтернеті!
Спробуйте в Інтернеті! (десятковий IO - 91 байт)

𝔼𝕊𝕄𝕚𝕟, 12 символів / 15 байт

⨭⟮⩤⁽1ï⟯⨝,Ⅰᴚ⨝

Try it here (Firefox only).

Мех.

Пояснення

Бере діапазон [1,input], приєднується до нього; бере той самий діапазон, перевертає його, потім приєднується до нього; сума обох діапазонів є результатом.

Рубін, 40 символів

->n{eval (l=[*1..n])*''+?++l.reverse*''}

Проба зразка:

irb(main):001:0> ->n{eval (l=[*1..n])*''+?++l.reverse*''}[11]
=> 2345555545332

irb(main):002:0> ->n{eval (l=[*1..n])*''+?++l.reverse*''}[6]
=> 777777

C #, 126 байт

using System.Linq;a=>{var b=Enumerable.Range(1,a);return long.Parse(string.Concat(b))+long.Parse(string.Concat(b.Reverse()));}

Можливо, можна було б пограти в гольф далі. Не дуже впевнений.

Groovy, 42 39 символів

{[1..it,it..1]*.join()*.toLong().sum()}

Проба зразка:

groovy:000> ({[1..it,it..1]*.join()*.toLong().sum()})(11)
===> 2345555545332

groovy:000> ({[1..it,it..1]*.join()*.toLong().sum()})(6)
===> 777777