Bu basit bir zorluktur: Bir tam sayı dizisi verildiğinde, içindeki tüm tam sayıların toplamını bulun.

Ancak bir bükülme ile. Puanınız, kodunuz ile aşağıdaki ifade arasındaki (meydan okuma) Levenshtein mesafesidir :

Bir tam sayı kümesi verildiğinde, içindeki tüm tam sayıların toplamını bulun.

Girişte yeni satırlar veya takip boşlukları olmadığını varsayabilirsiniz.

Örnek giriş / çıkış:

Input: 1 5 -6 2 4 5
Output: 11
Input: 1 -2 10
Output: 9

Levenshtein mesafesi için çevrimiçi bir hesap makinesini burada bulabilirsiniz: http://planetcalc.com/1721/

Python, mesafe 3

#Given a set of integers, find the 
sum#of all integers in it.

Bu, sumbenzer bir kümeyi toplayabilen yerleşik işlevi verir sum({3,5,7})==17. Kalan kısımlar yorumlandı. Bu, 3 düzenleme ile 3 mesafesine sahiptir:

• İlk ekle #
• Yeni satır ekle
• Sonra boşluk değiştirin sumile#

Julia, uzaklık 27 26

Yorum yok!

Given(a)=(Set;of;integer; find; [sum(a),all,integer,in][1])

Bu, bir Givendiziyi kabul eden ve öğelerinin toplamını döndüren bir işlev oluşturur . Pek çok Julia yerleşikinin ilgili adları olduğundan (ancak buradaki hesaplama ile ilgisi yoktur), yalnızca noktalı virgülle ayrılmış birkaç tane listeleyebiliriz. Listelenen son şey olmadıkları sürece iade edilmezler. Son bölüm aslında toplamı ve üç işlevi içeren bir dizi yapar ve ilk elemanı, toplamı seçer.

APL, mesafe 6 3

3 mesafe kaydedildi ...? Dennis'e teşekkürler!

+/⍝en a set of integers, find the sum of all integers in it.

Bu verilen bir diziyi ( +/) toplar . Cümlenin geri kalanı, bir yorum ( ⍝) kullanılarak sonuna eklenir .

GolfScript, 5

~{Given a set of integers+ find the sum of all integers in it}*

Bu, yorum kullanmayan tam bir programdır (ancak birçok isim).

Çevrimiçi olarak Web GolfScript'te deneyin .

R, Mesafe 37 36 34

Yorum kullanmadan :)

 as.integer ( sum (scan(,integer( ) )))

Dikkat başında bir boşluk var.

Mathematica, mesafe 17

Given a set of integers find the sum of all integers in it*0+Total@Input[]

Herhangi bir yorum ya da no-op kullanmıyor, bunun yerine tüm kelimeleri değişken olarak ilan ediyor ve ardından sıfır ile çarparak onlardan kurtuluyor.

Ayrıca girdi olarak bir tam sayı kümesi alan tek cevap olma avantajına da sahiptir .

Giriş {1,2,3}, çıkışı 6beklendiği gibi sağlar.

Ne yazık ki, Mathematica Sumişlevi söz konusu görevi yerine getirmiyor, bu nedenle daha fazla sayıda bayt gerektiriyor.

Java - 43 41

Denedim.

float a_set_of(int[] r){return IntStream.of(r).sum()}//n it.
Given a set of integers, find the sum of all integers in it.

Java: S.

RProgN , Mesafe 2.

Given aset of integers, ;find the sum of all integers in it.

RProgN'de, a, set, find ve sum komutlarının tümüdür. Diğer her şey varsayılan olarak sözdiziminde yoksayılır. a, alfabeyi yığına iter, bu da toplamın başarısız olmasına neden olur. Set hiçbir zaman yeterli argümanlara sahip değildir, bu yüzden daima hata yapar, hata yapar. Bul ya yanlış sayıda argüman var ya da alfabeyi işe yaramayan giriş yığınıyla karşılaştırmaya çalışıyor.

a ve set, aralarındaki boşluğu kaldırarak 'sabitlenebilir', aset bir fonksiyon değildir, bu yüzden göz ardı edilir. Bul, sadece başlangıçta eklenen fazladan bir karaktere sahiptir, bu da tanınmamasına ve göz ardı edilmesine neden olur. Giriş yığınının içeriğini uygun şekilde toplayan, yalnızca toplama bırakılır.

Sonunda, RProgN bir şeyler kazanabilir!

Çevrimiçi Deneyin!

CJam, 7 6 5

{:+}e# a set of integers, find the sum of all integers in it.

Bu, diziden yığından çıkan ve karşılığında bir tamsayı bırakan isimsiz bir fonksiyondur.

Mesafeyi 1 kısaltmak için @AboveFire'a teşekkürler .

Çevrimiçi deneyin.

Matlab, mesafe 29 28

Given_a_set_of_integers=@(findthe)sum(all(1)*findthe)

Herhangi bir yorum kullanmadan :-)

Kod anonim bir işlev biçimindedir. Girişin sayıların bir vektörü (1D-array) olduğunu farz ediyorum.

Örnek:

>> Given_a_set_of_integers=@(findthe)sum(all(1)*findthe)
Given_a_set_of_integers = 
    @(findthe)sum(all(1)*findthe)

>> Given_a_set_of_integers([1 5 -6 2 4 5])
ans =
    11

O , 5

M] + o "Bir tam sayı kümesi göz önüne alındığında, içindeki tüm tam sayıların toplamını bulun.

Sayılar onaltılık ve ters negatif gösterimde olmalıdır:

• -6 => 6_
• -4 => 4_
• -10 => A_

Çevrimiçi deneyin

K, 60 5

+/ / Given a set of integers, find the sum of all integers in it.

Sanırım semboller Leve-ne olursa olsun mesafe ile iyi gitmiyor ...

Hahaha. Başlangıçta, LeveXXX mesafesinin ne olduğu konusunda hiçbir fikrim yoktu, bu yüzden 60 aldım. O zaman, faydalı yorumlar sayesinde 5'e düştü.

F #, mesafe 21

let ``Given a set of integers, find the sum of all integers in it`` x = Seq.sum x

Bir fonksiyonun içinde boşluklar olan bir isim vermek için çift tik kullanma kabiliyetini sevmelisin.

Kullanımı:

[1;2;3] |> ``Given a set of integers, find the sum of all integers in it`` |> printfn "%i"

6

Pip, mesafe 3

Önemsiz no-yorumlar-ama-çok-no-no-ops golflangıcı kulübüne katılmak ...

Given a set of integers, find the sum of all integers in $+g

Pip için GitHub deposu

Kod pratikte kendisini belgeliyor; belki s/in/using/daha doğru bir açıklama için. Komut satırı argümanları olarak verilen tamsayılar g, buraya eklenip katlanan ve otomatik olarak yazdırılan listeye okunur . Geriye kalan her şey, sadece op olmayan değişkenlerdir.

İlk başta s, fşikayet etmeden çalıştığım için biraz şaşırdım , çünkü fana fonksiyona atıfta bulunuyor ve bir kod bloğunun menzilini anlamıyor. Ama sonra farkettim: ,range operatörü, bir fonksiyon argümanı verildiğinde, sadece başka bir fonksiyon inşa eder (Pip'deki birçok operatörde olduğu gibi). Yani bence s, fdeğerlendirir {Given a set of integers, find the sum of all integers in " ",$+g}. (Bu daha sonra zaten atılır.)

Son bir nokta: bu kod, Ghenüz hiçbir şeye atanmadığım Pip sürümüyle çalışır . Gelecekteki bazı sürümlerde Gikili veya üçlü bir operatör yaparsam , o zaman bir mesafe-4 sürümü gerekli olacaktır. givenBunun yerine kullanmak Givengüzel çalışırdı.

Haskell, mesafe 11

Yorum yok!

const sum"Given a set of integers, find the sum of all integers in it."

Kullanımı:

> const sum"Given a set of integers, find the sum of all integers in it." $ [1..10]
55

Cubix , Mesafe 9

@ivOn a ;et I+ i?tegers, fu;d <he sum of all integers in it.

Çevrimiçi deneyin!

Bu küp üzerine sarılır

      @ i v
      O n a
      ; e t
I + i ? t e g e r s , f
u ; d < h e s u m o f a
l l i n t e g e r s i n
      i t .
      . . .
      . . .

Operasyon kodu

• I+i Bir tamsayı girin, TOS'a ekleyin ve sonra bir karakter girin.
• ?Test karakteri değeri. -1 (girişin sonu) için sola veya başka bir şey için sağa yönlendirme (0 giriş yapılamaz)
  • ;O@ pop tos, çıkış toplamı ve çıkış
  • <;u yönlendirmek, pop to TOS ve u dönüşü başlatmak

Pyth - 4

Sadece asıl kodu, sQboşluk tarafından kullanılmayan dizginin önüne koyar .

sQ "Given a set of integers, find the sum of all integers in it.

Burada çevrimiçi deneyin .

PHP4.1, mesafe 25

Bu, oldukça uzun bir süre ve gerçekten geç kalıyor.

Ama yine de, işte burada:

<?=$n_a_set_of_integers_fi=array_sum($f_all_integers_in_i);

Bunun çalışması için, tuşunu kullanarak POST / GET / COOKIE / session üzerine bir dizi iletmeniz yeterlidir f_all_integers_in_i.

Pyt , mesafe 1

Given a set of integers, find the Ʃum of all integers in it.

Tüm alfanümerik karakterler Pyt’de kullanılamaz ve bir listenin toplamı yalnızca bir karakter alır::

Çevrimiçi deneyin!

C ++ 17, mesafe 44 29

Variadic Jenerik Lambda FTW

[](auto...t){return(t+...);}//the sum of all integers in it.

Önceki çözüm

template<class...t>int s(t...l){return(...+l);}//gers in it.

05AB1E, mesafe 3

#O,Given a set of integers, find the sum of all integers in it.

Çevrimiçi deneyin!

Pyke , Puan 3

sK"Given a set of integers, find the sum of all integers in it.

Burada dene!

Ly , skor 4

&+#Given a set of integers, find the sum of all integers in it.

Sondaki yeni satırı not alın.

Çevrimiçi deneyin!

Kod oldukça açıklayıcı. &+Ly'nin özetleme operatörü, #yorum ise. Bir yorum satırına sahip bir programın sonlandırılmasının, yorumlayıcıda aslında bir özellik çağıracağım bir hata olan Ly'nin örtük çıktısını "yorumlayacağı" nedeniyle izleyen bir yeni satır eklemek zorunda olmam talihsiz bir durum.

dc, 14

?[+z1 <f]d  sf xp#egers, find the sum of all integers in it.

yorumlar:

?                   # read numbers
 [                  # start macro
  +                 # add up last two things on stack
   z1 <f            # if stack size is more than 1, execute macro at register 'f'
        ]           # end macro
         d          # dupe it
            sf      # saving one copy to register 'f'
               x    # and executing another
                p   # printing result

TIO

1 sayı girerseniz yığının boş olduğundan şikayet eder, ancak yine de çalışır ve 0 kaldırılması 2 fark kazandırır.

Excel VBA, Mesafe: 11

[a:a]ActiveSheet nesnesindeki aralıktan girdi alan ve VBE anlık penceresine çıkış yapan anonim VBE acil pencere işlevi

?[Sum(a:a)] 'f integers, find the sum of all integers in it.

Beyin Flakı , 20

(([]){[{}]{}([])}{})ers, find the sum of all integers in it.

Çevrimiçi deneyin!

açıklama

Orijinal metinde parantez olmadığından, Brain-Flak'ta kod-golf problemine neden olur. Ancak bu hala Brain-Flak'taki cevaplar gibi, bu cevabı önemsiz yapmaz.

Birinin ilk sezgisi muhtemelen aşağıdaki kod olacaktır.

({{}})

Hangisi çalışır ... yığında sıfır olmadıkça , bu durumda sıfıra kadar toplar. Bu sorunu aşmak için yığının boş olmadığını kontrol etmek için yığının yüksekliğini kullanmamız gerekir. Bu böyle ayarlanabilir

([])    #{ Push stack height }
(       #{ Start Push }
{       #{ Loop until zero }
 <{}>   #{ Silently Pop the last height }
 {}     #{ Grab a value from the stack }
 <([])> #{ Silently push the stack height again }
}       #{ End loop }
{}      #{ Remove last stack height }
)       #{ Push the result }

Bu işe yarıyor, ama yanlış bir şey var. Popları ve halkalardaki baskıları susturmaya devam ediyoruz, ancak neredeyse eşit olduklarından onları iptal etmenin bir yolu olmalı. Eğer denersek

([])({[{}]{}([])}{})

nHer seferinde sona eriyoruz . Öyleyse işte hile, zaten netrafta oturmuş bir sitemiz var, işleri dengelemek için onu zorluyoruz.

(([]){[{}]{}([])}{})

İleri , 17

>jLIve>   K+O @f integers, find the sum of all integers in it.
^ >j<l

Çevrimiçi deneyin!

Jöle , Mesafe: 2

Given a set of integers, find the sum of all integers in it.
S

Çevrimiçi deneyin!

Jelly yalnızca ana bağlantıyı (son satır) değerlendirir ve açık komutlar diğer bağlantıları (diğer satırlar) çalıştırır.

Son satır Sgirdiyi toplar.

İlk satır gerçeklenmedi çünkü ana linkte referans yok.

Aksi! 4.2.2.9 (+ Araçlar), scratchblocks3 sözdizimi, mesafe 35

Bu bir fonksiyondur. integers, find the sum of all inteGirdi.

for each(et)of(integers, find the sum of all inte
change[s v]by(et
end
report(s