숫자가 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 바이트

바이트를 면도 해준 Martin에게 감사합니다!

ri,:)_W%si\si+

온라인으로 사용해보십시오!

Pyth, 12 10 바이트

ssMjLk_BSQ

2 바이트 동안 @FryAmTheEggman 에게 감사 합니다!

Q입력이고, S로 변 [1, 2, ..., input()], _B두 갈래로 위에은 _(반전)를 생성하도록 [rng, rev(rng)], jLk그 위에 매핑 join하여 k(이하 "빈 문자열"변수 임) sM에 매핑 int이상 이 얻어진 배열 및 s최종 합계를 산출한다.

자바 스크립트 (ES6), 70 67 64 바이트

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

구식 코드가 입력에 대한 오해로 만들어져 요구 사항을 충족하도록 수정되었습니다.

파이썬 3, 74

DSM 덕분에 6 바이트를 절약했습니다.

너무 흥미로운 것은 범위에 가입 한 다음 정수로 변환하여 추가하십시오.

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

망막 , 71

• @daavko 덕분에 7 바이트가 절약되었습니다.
• 버전 0.7.3 기능으로 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

나는 할 수있다 타입 캐스팅을 주변에 이동하여 골프 그것에 수.

자바 스크립트 (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

여기에서 온라인으로 사용해보십시오 .

자바 스크립트 (ES6), 99

이것은 자릿수를 추가하므로 53 비트 정밀도의 자바 스크립트보다 훨씬 높은 숫자를 처리 할 수 ​​있습니다.

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>

Brachylog , 24 바이트

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

MATL , 13 바이트

:tP2:"wVXvU]+

편집 (2016 년 5 월 20 일) 링크의 코드는 최근 언어 변경으로 인해 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

온라인으로 사용해보십시오!

배쉬 + 코어 유틸리티, 39

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

또는:

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

이데온

펄 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 바이트가 추가되었지만 완전히 잘못된 것이 아니라 작동하는 함수를 반환합니다.

strtoi (이전에 사용 된)가 반환되는 n = 10 이상의 경우를 처리하기 위해 편집에 또 다른 4 바이트가 추가되었습니다. 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이것은 루아에서 숫자를 출력하는 기본 방법이기 때문에 형식입니다 (정수와 실수는 구별되지 않습니다)

펄 5, 37 바이트

25 바이트, 1은 -p11, 11은-MList::Gen

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

이전 솔루션, 40 바이트 : 39 -p

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

펄, 36 바이트

에 +1 포함 -p

STDIN에서 실행

perl -p reverse.pl <<< 6

reverse.pl

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

Dyalog APL , 17 바이트

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

⎕프롬프트 입력을위한
⍳입력 될 때까지 '열거
x←X에 저장 목록
⌽X 역
x(... )원래 목록에 앞에 추가 반대 목록
⍕¨¨문자열로 각 목록의 각 숫자가 변환
∊¨한 문자열로 문자열의 각 목록을이
⍎¨숫자로 각각의 문자열을 변환
+/합이 두 숫자 .

Mathematica, 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).

Meh.

설명

범위를 가져 [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