Bu NCPC 2005'ten bir problem . Roy'un tek bir elektrik prizine sahip bir dairesi var, ama bir sürü elektrik prizine sahip. Sahip olduğu güç şeritlerini kullanarak sahip olabileceği maksimum çıkış sayısını hesaplayın. Güç şeridi başına çıkış sayısı giriş olarak verilmiştir.

Sırasıyla, şeritlerin çıkış sayısı sırasıyla

o zaman çıkış sayısı ,

veya

Program veya fonksiyona giriş boş olmayan bir pozitif tamsayı dizisidir.

Örnekler

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

Jöle, 3 bayt

’S‘

Düşüş (tümü), toplam, artış. Burada dene.

Retina , 3 bayt

 1

Sondaki satır besleme kayda değerdir.

Giriş, boşlukla ayrılmış bir tek sayıların listesidir .

Çevrimiçi deneyin!

açıklama

Kod basitçe tüm boşlukları ve 1bunlardan sonra dizgiden çıkarır . İşte bu işe yarıyor:

Tekdüze toplama basittir: sınırlandırıcıları kaldırmakla aynı sayıları birleştirmek. 1 ile düşürmek de basittir: sadece 1her sayıdan bir tane kaldırın . Ancak, azaltılmış girdilerin toplamından 1 tane daha istiyoruz, bu nedenle yalnızca 1boşluklardan sonra bulduğumuz s'leri sileriz, böylece ilk girişi düştük.

Altıgen , 18 14 bayt

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

Kırımsız:

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

Çevrimiçi deneyin!

Ben yandan uzunluğu 2 olası olduğunu düşünmüyorum, ama orada olmalı bu, daha verimli bir yan uzunluk 3 çözüm olabilir.

Bu, olağan "hepsini azaltma, toplam, artırma" yaklaşımıdır, ancak Hexagony'de tam olarak nasıl çalıştığını göstermek için daha sonra diyagramlar ekleyeceğim.

Python, 24 bayt

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

Çevrimiçi deneyin

Mathematica, 9 bayt

Tr[#-1]+1&

Haskell, 17 15 bayt

foldl1$(+).pred

Kullanım örneği: ( foldl1$(+).pred ) [2,4,6]-> 10.

Eski versiyon, farklı bir yaklaşım, 17 bayt: succ.sum.map pred.

J, 6 bayt

+/+1-#

Toplam artı bir eksi uzunluk. Parantezleyin ve uygulayın, şöyle:

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

Labirent , 9 bayt

"?;)!@
+(

Çevrimiçi deneyin!

Her zamanki astar:

• Labirent 2B ve yığın tabanlı. Yığınların altında sonsuz sayıda sıfır vardır.
• Komut işaretçisi bir kavşağa ulaştığında, bir sonraki duracak yeri belirlemek için yığının üstünü kontrol eder. Negatif sol, sıfır ileri ve pozitif haklıdır.

Burada sol üst ", no-op, sağa doğru ilerliyoruz. Sırada, ?STDIN'den int (okuma yapan) (tamsayı olarak ayrıştırılamayan karakterleri atmak, örneğin boşluklar). Şimdi iki vakamız var:

Girdi pozitifse, sağa dönerek aşağıdakileri gerçekleştiririz:

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

Girdi sıfırsa (EOF'da gerçekleşir), dümdüz ilerleyerek, şöyle devam ediyoruz:

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

Pyth, 5 bayt

hstMQ

artış (toplam (harita (azalma, giriş)))

ES6, 25 bayt

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

MATL, 3 bayt

qsQ

Çevrimiçi deneyin.

açıklama

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

05AB1E , 4 bayt

Kod:

E<O>

Açıklama:

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

Bir dizi gibi girdi alır (örn. [3, 4, 5]).

Yıldızlı , 26 24 bayt

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

Yeni satır ayrılmış tam sayıları bekler. Çevrimiçi deneyin!

@ MartinBüttner'e -2 bayt için teşekkürler.

,           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

Döngü açılır, böylece ilk sayı azalmaz, bu da artış ihtiyacını ortadan kaldırır. Starry'de rakamları zorlamak ...

Bash + GNU yardımcı programları, 16

Varsa Ngüç kabloları, daha sonra olmalıdır N-1virgülle ayrılmış giriş listesinde ayırıcılar. Tek yapmamız gereken ayırıcıları değiştirmek - 1 +ve aritmetik olarak değerlendirmek:

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

Veya aynı numarayı kullanarak:

Saf Bash (harici yardımcı program yoktur), 19

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

APL (NARS 2000), 13 10 bayt

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

Düzenleme: Lynn'in (daha iyi) yaklaşımıyla 10'a kadar.

{1++/1-⍨⍵}

gs2, 5 bayt

(Cp437 kodlanmış.)

W&Φd'

Bu read-nums dec m1 sum inc.

CJam, 7 bayt

q~:(:+)

Burada test et.

Lynn'inkiyle aynı yaklaşım (hepsini azaltma, toplam, artış). Bu da 8 bayt için çalışır (ve belki biraz daha ilginçtir):

q~{(+}*

Bu, listenin üzerine "azaltma, ekleme" katlanır. Bunu yaparak, azaltma, yalnızca birincisi dışındaki tüm öğelere uygulanır, böylece artışa ayrı ayrı bakmamıza gerek kalmaz.

C, 60 59 55 bayt

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

Perl 6, 14 bayt

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

kullanım

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

Cidden, 7 bayt

,;l@Σ-u

Çevrimiçi deneyin!

Açıklama:

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

Perl 6 , 20 bayt

put 1+sum --«@*ARGS

(Kullanabilirsiniz <<yerine «)

Kullanımı:

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

Perl 5 23 + 2 = 25 veya 19 + 2 = 21

-apBayraklar gerektirir :

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

Bir dosyaya kaydedildi ve olarak çalıştır

perl -ap file.pl

EDIT: Başka bir cevap, daha küçük (19 + 2) fakat temelde geçersiz yanıttan kopyalandı:

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

F #, 25 bayt

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

Bu, tamsayıların bir dizi / liste / sırasını alan ve istenen sonucu döndüren bir işlevdir.

Nasıl çalışır:

Seq.foldBir dizinin her bir elemanına bir işlev uygulamanıza izin verirken bir halini taşırken bu durumu bir arada uygulayabilirsiniz. Birinci elemana uygulanan işlevin sonucu, ikinci elemana ilişkin işleve getirilecek olan durumu vb. Verir. Örneğin, listeyi özetlemek için şöyle yazardınız [1; 3; 4; 10]:

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

Hangi şekilde uygulanacak:

// 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

Son hali ile dönüş değeri Seq.fold.

5 karakter / 7 bayt

ï⒭+‡_

Try it here (Firefox only).

10 bitlik karakterlerle özel bir kodlama kullanır (thx @Dennis!). encode('ï⒭+‡_')Kodlanmış formu almak ve decode(/*ENCODED TEXT HERE*/)kodlanmış formu çözmek için JS konsolunda çalıştırın .

açıklama

Javascript ES6'ya şu şekilde çevirir:

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

Mornington Crescent , 1909 1873 1839 bayt

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

Çevrimiçi deneyin!

Python 3, 79 bayt

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

Yakut, 30 bayt

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

Yeterince basit - 1'den başlayarak, her biri -1 olan verilen sayıları toplayın (komut satırları girilir $*). Utanç injectçok uzun bir kelimedir.

PowerShell, 19 bayt

$args-join'-1+'|iex

Not 1 + p1-1 + p2-1 + ... + pn-1eşdeğerdir p1-1 + p2-1 + ... + pn.

İle girişi ayrı bir komut satırı argümanı olarak alır $args. Biz gibi bir dize oluşturmak için -joinbir -1+sınırlayıcı ile birlikte 2-1+3-1+4. Dize daha sonra Invoke-Expression(benzer şekilde eval) iletilir ve sonucu verir.

Perl, 21 + 2 = 23 bayt

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

Gerektirir -ave -E:

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

Brainfuck, 15 bayt

Varsayım: Tüm girdiler tükendiğinde, operatör 0 döndürür ve 0 fişli uzatma kablosu yoktur. Ayrıca, IO'nun ASCII karakter kodları yerine bayt değerlerinde olması gerekir.

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

Açıklama: Bu 2 kayıt kullanır. Takılabilen cihaz sayısını temsil eden bir "Değer" akümülatör kaydı ve mevcut kablonun değerini izleyen bir "mevcut kablo" kaydı. Mevcut çıkış için değeri 1 oranında artırarak başlar. Ardından, her uzatma kablosu için, bir fiş alındığından beri değerden bir tane çıkarır, ardından değeri fiş sayısıyla artırır.

Çoğu çevrimiçi tercüman ham bayt giriş modunda çalışmaz. Çevrimiçi sınamak için bu kodu kullanın:

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