이것은 NCPC 2005 의 문제입니다 . Roy에는 단 하나의 전기 콘센트가있는 아파트가 있지만 전원 스트립이 많이 있습니다. 그가 가지고있는 멀티탭을 사용할 수있는 최대 콘센트 수를 계산하십시오. 파워 스트립 당 콘센트 수는 입력으로 제공됩니다.

스트립의 출구 수가 각각

콘센트의 수는 .

또는

프로그램 또는 함수에 대한 입력 은 비어 있지 않은 양의 정수 시리즈입니다.

예

2 3 4
> 7
2 4 6
> 10
1 1 1 1 1 1 1 1
> 1
100 1000 10000
> 11098

젤리, 3 바이트

’S‘

감소 (전체), 합계, 증가 여기에서 시도하십시오.

망막 , 3 바이트

 1

후행 줄 바꿈이 중요합니다.

입력은 공백으로 구분 된 단항 숫자 목록입니다 .

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

설명

이 코드는 단순히 1문자열에서 모든 공백뿐만 아니라 공백을 제거 합니다. 그 이유는 다음과 같습니다.

단항에 추가하는 것은 간단합니다. 구분 기호를 제거하는 것과 동일한 숫자를 연결하십시오. 1 씩 줄이는 것도 간단합니다. 1각 숫자에서 a 만 제거하면 됩니다. 우리는 감소 된 입력의 합보다 1을 더 원하기 때문에 1공백 뒤에서 찾은 s 만 제거 하여 첫 번째 입력을 제외한 모든 입력을 줄입니다.

헥사 고니 , 18 14 바이트

.?<_(@'")>{+.!

펼쳐진 :

  . ? <
 _ ( @ '
" ) > { +
 . ! . .
  . . .

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

나는 측면 길이 2가 가능하다고 생각하지 않지만,이 있어야 이 그보다 효율적인 측면 길이 3의 솔루션이 될 수 있습니다.

이것은 일반적인 "모두 감소, 합계, 증분"방식이지만 나중에 16 진법에서 정확히 어떻게 작동하는지 보여주기 위해 다이어그램을 추가해야합니다.

파이썬, 24 바이트

lambda*n:1-len(n)+sum(n)

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

수학, 9 바이트

Tr[#-1]+1&

하스켈, 17 15 바이트

foldl1$(+).pred

사용 예 : ( foldl1$(+).pred ) [2,4,6]-> 10.

이전 버전, 다른 접근 방식, 17 바이트 : succ.sum.map pred.

J, 6 바이트

+/+1-#

합에 1을 뺀 길이. 다음과 같이 괄호로 묶고 적용하십시오.

   (+/+1-#) 2 3 4
7

미로 , 9 바이트

"?;)!@
+(

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

일반적인 프라이머 :

• 미로는 2D 및 스택 기반입니다. 스택의 맨 아래에는 무한의 0이 있습니다.
• 명령 포인터가 접점에 도달하면 스택의 상단을 확인하여 다음 회전 위치를 결정합니다. 음수는 남아 있고, 0은 앞으로, 양수는 오른쪽입니다.

여기서 우리는 왼쪽 상단에서 시작하여 "오른쪽으로 향합니다. 다음은 ?STDIN에서 int를 읽는 것입니다 (문자를 버림으로써 정수로 해석 할 수 없습니다 (예 : 공백)). 이제 두 가지 경우가 있습니다.

입력이 양수이면 우회전하여 다음을 수행합니다.

(            decrement top of stack
+            add top two stack elements
             [continue loop]

입력이 0이면 (EOF에서 발생) 다음을 수행하면서 바로 진행합니다.

;            pop zero from EOF
)            increment top of stack
!            output top of stack as number
@            halt program

Pyth, 5 바이트

hstMQ

증가 (합 (맵 (감소, 입력)))

ES6, 25 바이트

a=>a.map(n=>r+=n-1,r=1)|r

MATL, 3 바이트

qsQ

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

설명

qsQ
q      thread decrement over the input array
  s    sum
   Q   increment

05AB1E , 4 바이트

암호:

E<O>

설명:

E     # Evaluates input
 <    # Decrement on list
  O   # Compute the total sum
   >  # Increment on the sum
      # Implicit: output top of the stack

배열처럼 입력을 [3, 4, 5]받습니다 (예 :) .

별이 빛나는 , 26 24 바이트

, + '`      + ** `, +'*.

줄 바꿈으로 구분 된 정수를 기대합니다. 온라인으로 사용해보십시오!

-2 바이트에 대한 @ MartinBüttner에게 감사합니다.

,           Read line as integer
 + '        Dupe and jump to label 1 if nonzero
`           Set label 0
      +     Push 1
 *          Sub
*           Add
 `          Set label 1
,           Read line as integer
 + '        Dupe and jump to label 0 if nonzero
*           Add
.           Output as integer

루프가 풀려 첫 번째 숫자가 감소하지 않으므로 증분 할 필요가 없습니다. Starry에서는 숫자를 누르는 것이 비쌉니다 ...

배쉬 + GNU 유틸리티, 16

N전원 스트립 이 있으면 N-1쉼표로 구분 된 입력 목록에 구분 기호 가 있어야 합니다. 구분자를 대체 - 1 +하고 산술적으로 평가하기 만하면됩니다.

sed s/,/-1+/g|bc

또는 동일한 트릭을 사용하십시오.

퓨어 배쉬 (외부 유틸리티 없음), 19

echo $[${1//,/-1+}]

APL (NARS 2000), 13 10 바이트

{1+(+/⍵)-⍴∊⍵}

편집 : Lynn의 (더 나은) 접근 방식으로 10까지 줄입니다.

{1++/1-⍨⍵}

gs2, 5 바이트

(CP437 인코딩)

W&Φd'

그렇습니다 read-nums dec m1 sum inc.

CJam, 7 바이트

q~:(:+)

여기에서 테스트하십시오.

Lynn과 동일한 접근 방식 (모두 감소, 합계, 증분). 이것은 8 바이트에서도 작동합니다 (그리고 아마도 더 흥미 롭습니다).

q~{(+}*

목록 위에 "감소, 추가"를 접습니다. 이렇게하면 감소가 첫 번째를 제외한 모든 요소에만 적용되므로 증분을 별도로 처리 할 필요가 없습니다.

C, 60 59 55 바이트

x;main(s){while(~scanf("%i",&x))s+=x-1;printf("%i",s);}

펄 6, 14 바이트

{1+[+] --«@_}

용법

my &f = {1+[+] --«@_}

say f([2,3,4]) # 7
say f([2,4,6]) # 10
say f([1,1,1,1,1,1,1,1]) # 1
say f([100,1000,10000]) # 11098

진심으로, 7 바이트

,;l@Σ-u

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

설명:

,;l@Σ-u
,        push input
 ;       dupe
  l@     push length (n), swap
    Σ-u  push sum, subtract n, add one

펄 6 , 20 바이트

put 1+sum --«@*ARGS

( <<대신 사용할 수 있습니다 «)

용법:

$ perl6 -e 'put 1+sum --«@*ARGS' 100 1000 10000
11098

펄 5 23 + 2 = 25 또는 19 + 2 = 21

-ap플래그 필요 :

map{$.+=($_-1)}@F;$_=$.

파일에 저장하고 다음으로 실행

perl -ap file.pl

편집 : 또 다른 대답은 작지만 (19 + 2) 기본적으로 dev-null 답변에서 복사되었습니다.

$.+=$_-1for@F;$_=$.

F #, 25 바이트

Seq.fold(fun s n->s+n-1)1

정수의 배열 / 목록 / 시퀀스를 받아서 필요한 결과를 반환하는 함수입니다.

작동 방식 :

Seq.fold시퀀스의 모든 요소에 함수를 적용하는 동안 일부 상태를 전달할 수 있습니다. 첫 번째 요소에 적용되는 함수의 결과는 두 번째 요소의 함수에 포함될 상태 등을 제공합니다. 예를 들어 list를 요약하려면 다음 [1; 3; 4; 10]과 같이 작성하십시오.

Seq.fold (fun sum element -> sum + element) 0 [1; 3; 4; 10]
         (       function to apply        ) ^ (sequence to process)
                                     ( initial state )

다음과 같이 적용됩니다.

// First, initial state  + first element
0 + 1  = 1
// Then, previous state + next element until the end of the sequence
1 + 3  = 4
4 + 4  = 8
8 + 10 = 18

마지막 상태는의 반환 값입니다 Seq.fold.

𝔼𝕊𝕄𝕚𝕟, 5 자 / 7 바이트

ï⒭+‡_

Try it here (Firefox only).

10 비트 문자 (thx @Dennis!)와 함께 사용자 지정 인코딩을 사용합니다. encode('ï⒭+‡_')JS 콘솔에서 실행 하여 인코딩 된 양식을 가져오고 decode(/*ENCODED TEXT HERE*/)인코딩 된 양식을 디코딩하십시오.

설명

다음과 같이 Javascript ES6으로 변환합니다.

i=>i.reduce(($,_)=>$+--_)

모닝 턴 초승달 , 1909 1873 1839 바이트

Take Northern Line to Stockwell
Take Victoria Line to Seven Sisters
Take Victoria Line to Victoria
Take Circle Line to Victoria
Take Circle Line to Bank
Take Circle Line to Hammersmith
Take Circle Line to Cannon Street
Take Circle Line to Hammersmith
Take Circle Line to Cannon Street
Take Circle Line to Bank
Take Circle Line to Hammersmith
Take District Line to Upminster
Take District Line to Hammersmith
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Turnham Green
Take District Line to Hammersmith
Take District Line to Turnham Green
Take District Line to Notting Hill Gate
Take Circle Line to Notting Hill Gate
Take Circle Line to Bank
Take Circle Line to Embankment
Take Northern Line to Stockwell
Take Northern Line to Embankment
Take Circle Line to Temple
Take Circle Line to Hammersmith
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Blackfriars
Take Circle Line to Embankment
Take District Line to Parsons Green
Take District Line to Bank
Take Circle Line to Hammersmith
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Upminster
Take District Line to Becontree
Take District Line to Parsons Green
Take District Line to Embankment
Take Circle Line to Blackfriars
Take Circle Line to Bank
Take Northern Line to Angel
Take Northern Line to Bank
Take Circle Line to Bank
Take District Line to Upminster
Take District Line to Bank
Take Circle Line to Bank
Take Northern Line to Mornington Crescent

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

파이썬 3, 79 바이트

import sys
print(sum(map(lambda x: int(x)-1, sys.stdin.readline().split()))+1)

루비, 30 바이트

$*.inject(1){|s,v|s+=v.to_i-1}

충분히 간단합니다-1에서 시작하여 제공된 숫자를 각각 -1로 더하십시오 (명령 줄 인수는에 있음 $*). 수치심 inject은 그렇게 긴 단어입니다.

PowerShell, 19 바이트

$args-join'-1+'|iex

이 ( 1 + p1-1 + p2-1 + ... + pn-1는)와 동일합니다 p1-1 + p2-1 + ... + pn.

을 사용하여 입력을 별도의 명령 줄 인수로 사용 $args합니다. 우리 -join는 -1+구분 기호 와 함께와 같은 문자열을 만듭니다 2-1+3-1+4. 그런 다음 문자열을 Invoke-Expression(와 유사하게 eval) 파이프 하고 결과를 출력합니다.

펄, 21 + 2 = 23 바이트

$a+=$_-1for@F;say++$a

필요 -a및 -E:

$ perl -aE'$a+=$_-1for@F;say++$a'<<<'2 3 4'
7

Brainfuck, 15 바이트

가정 :, 연산자는 모든 입력이 소진되면 0을 반환하고 플러그가 0 인 연장 코드가 없습니다. 또한 IO는 ASCII 문자 코드 대신 바이트 값이어야합니다.

+>,[-[-<+>],]<.

설명 : 2 개의 레지스터를 사용합니다. 플러그를 꽂을 수있는 장치 수를 나타내는 "Value"누산기 레지스터 및 현재 코드 값을 추적하는 "current code"레지스터 기존 콘센트에 대해 값을 1 씩 증가시켜 시작합니다. 그런 다음 각 연장 코드에 대해 플러그를 뽑아서 값에서 1을 빼고 플러그 수만큼 값을 증가시킵니다.

대부분의 온라인 인터프리터는 원시 바이트 입력 모드에서 작동하지 않습니다. 온라인으로 테스트하려면 다음 코드를 사용하십시오.

+>,[->-[>+<-----]>---[-<+>]<[-<->]<[-<+>],]<.