これはNCPC 2005の問題です。ロイには、コンセントが1つしかないアパートがありますが、電源タップがたくさんあります。所有する電源タップを使用して、所有できるコンセントの最大数を計算します。電源タップごとのコンセントの数は、入力として指定されます。

ストリップのアウトレットの数がそれぞれ

アウトレットの数は 、

または

プログラムまたは関数への入力は、空ではない一連の正の整数です。

例

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ソリューションがあるはずです。

これは通常の「すべて減少、合計、増分」アプローチですが、Hexagonyでどのように機能するかを示すために、後で図を追加する必要があります。

Python、24バイト

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

オンラインで試す

Mathematica、9バイト

Tr[#-1]+1&

Haskell、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バイト

"?;)!@
+(

オンラインでお試しください！

通常の入門書：

• Labyrinthは2Dおよびスタックベースです。スタックの下部には無限の数のゼロがあります。
• 命令ポインタがジャンクションに到達すると、スタックの最上部をチェックして、次にどこを向くかを決定します。負は左、ゼロは順方向、正は右です。

ここでは、左上"から何もせずに右に向かっていきます。次は?STDINからintを読み取ります（スペースなどの整数として解析できない文字を破棄します）。現在、2つのケースがあります。

入力が正の場合、右に曲がり、以下を実行します。

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

入力がゼロ（EOFで発生）の場合、次のように実行します。

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

Pyth、5バイト

hstMQ

increment（sum（map（decrement、input））））

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では数字をプッシュするのは高価です...

Bash + GNUユーティリティ、16

N電源タップがある場合N-1は、コンマ区切りの入力リストに区切り文字が必要です。必要なことは、セパレータを置き換えて- 1 +、算術的に評価することだけです：

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

または同じトリックを使用します：

Pure Bash（外部ユーティリティなし）、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);}

Perl 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

Perl 6、20バイト

put 1+sum --«@*ARGS

（の<<代わりに使用できます«）

使用法：

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

Perl 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シーケンスのすべての要素に関数を適用し、その間に何らかの状態を保持することができます。最初の要素に適用された関数の結果は、2番目の要素の関数に設定される状態を示します。たとえば、リストを要約するには[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(($,_)=>$+--_)

Mornington Crescent、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

オンラインでお試しください！

Python 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）にパイプされ、結果を出力します。

Perl、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 cord」レジスタ。既存のアウトレットの値を1増やすことで開始します。次に、延長コードごとに、プラグが使用されているため値から1を引き、プラグの数だけ値を増やします。

ほとんどのオンラインインタープリターは、生のバイト入力モードでは動作しません。オンラインでテストするには、次のコードを使用します。

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