Bei einer Zahl> 0 wird die Summe mit allen Ziffern (1 .. n) verkettet und umgekehrt ausgegeben und addiert. Zum Beispiel mit n = 6:

Die Zahlen 1 bis 6 verkettet:

123456

Rückgängig gemacht:

654321

Wenn Sie diese addieren, erhalten Sie: 777777. Ein weiteres Beispiel ist n = 11:

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

und

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

Addieren Sie diese Werte, erhalten Sie 2345555545332. Dies ist auch als A078262 bekannt .

Kürzester Code gewinnt!

05AB1E, 7 Bytes

LDRJsJ+

Probieren Sie es online aus.

Erläuterung

LDRJsJ+

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

Gelee, 9 Bytes

R,U$DF€ḌS

CJam, 15 bis 14 Bytes

Vielen Dank an Martin für das Rasieren eines Bytes!

ri,:)_W%si\si+

Probieren Sie es online!

Pyth, 12 10 Bytes

ssMjLk_BSQ

Danke an @FryAmTheEggman für 2 Bytes!

Qist der Eingang, Smacht es zu [1, 2, ..., input()], _Bes gabelt über _(Rückwärts) zu erstellen [rng, rev(rng)], jLkes bildet über joindurch k(die die „leere Zeichenfolge“ Variable ist), sMordnet intüber diese resultierende Array, und sberechnet schließlich die Summe.

JavaScript (ES6), 70 67 64 Byte

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

Korrigiert, um die Anforderungen zu erfüllen, da alter Code unter Missverständnissen der Eingabe erstellt wurde.

Python 3, 74

6 Bytes gespart dank DSM.

Nichts zu aufregendes, schließen Sie sich den Bereichen an, konvertieren Sie sie in Ints und fügen Sie sie hinzu.

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

Retina , 71

• Dank @daavko werden 7 Bytes gespart.
• 3 Bytes gespart dank Version 0.7.3 werden

Weil es offensichtlich das falsche Werkzeug für den Job ist.

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

Probieren Sie es online aus.

Funktioniert für Eingaben bis 6, aber der Online-Interpreter läuft danach ab.

Jolf, 9 Bytes

Probieren Sie es hier aus! Ersetzen ►durch \x10.

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

Möglicherweise kann ich Golf spielen, indem ich mich im Typ Casting bewege.

JavaScript (ES6), 67 66 Bytes

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

Ja, das ist ein Leerzeichen. Pfui. Zumindest @Downgoat hat mir geholfen, ein Byte zu speichern.

Im Ernst, 12 Bytes

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

Probieren Sie es online!

Erläuterung:

,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 Byte

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

Konvertiert die Eingabe mit .., dann in Bereiche-join fügt sie dann zusammen und addiert sie auf.

Funktioniert für Eingaben von bis zu 138, während 139gibt Infinity, 140und darüber wird ein äußerst ausführlicher Casting-Fehler angezeigt:

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

Pyth - 8 Bytes

siRT_BSQ

Probieren Sie es hier online aus .

JavaScript (ES6), 99

Dies fügt Ziffer für Ziffer hinzu, sodass Zahlen verarbeitet werden können, die deutlich über der 53-Bit-Genauigkeit von Javascript liegen

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")

Prüfung

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>

Brachylog , 24 Bytes

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

MATL , 13 Bytes

:tP2:"wVXvU]+

EDIT (20. MAI 2016) Der Code in den Link verwendet Xzstatt Xv, in der Sprache , auf die jüngsten Veränderungen zurückzuführen ist .

Probieren Sie es online!

:                % 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 Bytes

LJDR+

Erläuterung:

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

Probieren Sie es online!

Bash + Coreutils, 39

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

Oder:

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

Ideone.

Perl 6 , 25 Bytes

{([~] @_=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
}

Verwendung:

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

777777
2345555545332
244567776755433

R 34 60 64 Bytes

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

Angenommen, das pryrPaket ist installiert. Dies ist feine Abkürzung zum Erstellen von Funktionen.

Edit fügte 26 Bytes hinzu, gab aber eine Funktion zurück, die funktioniert und nicht völlig falsch ist.

Edit fügte weitere 4 Bytes hinzu, um Fälle über n = 10 zu behandeln, in denen strtoi (zuvor verwendet) zurückgegeben wurde NA

Lua, 57

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

Lua, 53 Bytes

Dieses Programm verwendet nein Befehlszeilenargument.

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

Ich habe angenommen, dass die Ausgabe einer Zahl mit einem Dezimalteil von 0 in Ordnung ist (in der Form, 777777.0weil dies die Standardmethode für die Ausgabe einer Zahl in Lua ist (es gibt keinen Unterschied zwischen Integer und Float).

Perl 5, 37 Bytes

25 Bytes plus 1 für -pund 11 für-MList::Gen

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

Vorherige Lösung, 40 Bytes: 39 plus eine für -p

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

Perl, 36 Bytes

Beinhaltet +1 für -p

Führen Sie mit auf STDIN

perl -p reverse.pl <<< 6

reverse.pl

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

Dyalog APL , 17 Bytes

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

⎕Eingabeaufforderung
⍳'Aufzählen bis Eingabe
x←Speicherliste in x
⌽umkehren x
x(… )Umgekehrte Liste mit Originalliste voranstellen
⍕¨¨Jede Nummer jeder Liste in
∊¨Zeichenkette
⍎¨umwandeln Jede Liste von Zeichenketten in einzelne Zeichenketten umwandeln Jede Zeichenkette in eine
+/Zahlensumme aus den beiden Zahlen .

Mathematica, 64 Bytes

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

Netzhaut, 80 Byte (ISO 8859-1-Codierung)

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

IO ist unär mit 'als Zählzeichen. Theoretisch unterstützt jeder Integer, den Sie darauf werfen, in der Praxis ... Online-Interpreter lehnt es ab, alles zu verarbeiten, was größer als 6 ist (unär '''''').

Probieren Sie es online!
Probieren Sie es online! (dezimales E / A - 91 Byte)

𝔼𝕊𝕄𝕚𝕟 12 Zeichen / 15 Byte

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

Try it here (Firefox only).

Meh.

Erläuterung

Nimmt eine Strecke [1,input], schließt sich ihr an; Nimmt denselben Bereich, kehrt ihn um und schließt sich ihm an. Die Summe beider Bereiche ist das Ergebnis.

Ruby, 40 Zeichen

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

Probelauf:

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

126 Bytes

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

Könnte möglicherweise weiter golfen werden. Nicht wirklich sicher.

Groovy, 42 39 Zeichen

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

Probelauf:

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

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