Giriş

Dizi.

Çıktı

Satırdaki tüm tam sayıların toplamı.

Kısıtlamalar

1≤ Çizgi uzunluğu≤500

Örnek test örneği

Giriş

the 5is 108 seCONd4 a

Çıktı

117

açıklama

Toplam: 5 + 108 + 4 = 117

Javascript, 34 32 bayt

s=>eval(s.match(/\d+/g).join`+`)

Tüm rakamları eşleştirin ve +5 + 108 + 4'e çevirerek onlara katılın , sonucu değerlendirin.
Yalnızca pozitif tamsayılarda çalışır.

Arnauld sayesinde 2 bayt tasarruf edildi

f=
    s=>eval(s.match(/\d+/g).join`+`)

g=()=>b.innerHTML = f(a.value)
g()

<input id=a value="the 5is 108 seCONd4 a" onkeyup="g()">
<pre id=b>

Perl 6 , 14 bayt

{sum m:g/\d+/}

Çevrimiçi deneyin!

Tüm rakam serilerinin toplamını döndüren anonim kod bloğu

05AB1E , 11 6 bayt

þмS¡þO

Çevrimiçi deneyin.

Açıklama:

þм       # Only leave the non-digits of the (implicit) input-string
         #  i.e. "the 5is 108 seCONd4 a" → "the is  seCONd a"
  S      # Split it into a list of characters
         #  → ["t","h","e"," ","i","s"," "," ","s","e","C","O","N","d"," ","a"]
   ¡     # Split the (implicit) input-string by each of these characters
         #  → ["","","","","5","","","108","","","","","","","4","",""]
    þ    # Remove the empty strings by only leaving the digits
         #  → ["5","108","4"]
     O   # And sum these numbers (which is output implicitly)
         #  → 117

R , 64 48 45 bayt

PowerShell girişini gördükten sonra bu daha golf başardı.

function(s)eval(parse(,,gsub('\\D+','+0',s)))

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 11 bayt

Anonim zımni prefic fonksiyonu

+/#⍎¨∊∘⎕D⊆⊢

Çevrimiçi deneyin!

⊢ argüman

⊆ bölümlenmiş (True'nun parçaları parça haline gelir, False'nin çalışması ayırıcılardır) tarafından

∊ üyelik
∘ ait
⎕D basamak kümesi

#⍎¨ kök ad alanındaki her birini değerlendirin

+/ toplam

Retina 0.8.2 , 8 bayt

\d+
$*
1

Çevrimiçi deneyin!

• İlk satır tüm rakamlarla eşleşir
• İkinci satır bunları 1s ile değiştirir, adı geçen kez tekrarlanır
• Son satır bir eşleşmedir ve dizedeki toplam 1 sayısını sayar

PowerShell , 29 bayt

($args-replace'\D+','+0')|iex

Çevrimiçi deneyin!

Kömür , 5 bayt

ＩΣ⁺ψＳ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama: Kömür Sumoperatörü otomatik olarak bir dizeden sayıları ayıklar, ancak dize sayısal olmayan karakterler içermiyorsa bunun yerine dijital toplamı alır, bu nedenle bunu önlemek için boş bir bayt birleştiririm. Sonuç daha sonra örtük çıktı için dizeye geri döndürülür.

Haskell , 50 bayt

sum.map read.words.map f
f x|'/'<x,x<':'=x
f _=' '

Çevrimiçi deneyin!

Muhtemelen daha iyi bir yol var, ama bu en açık yol.

Zsh , 21 bayt

<<<$[${1//[^0-9]/+0}]

Çevrimiçi deneyin!

  ${1           }  # the 5is 108 seCONd4 a
  ${1//[^0-9]/+0}  # +0+0+0+05+0+0+0108+0+0+0+0+0+0+04+0+0
$[${1//[^0-9]/+0}] # 117

Ne yazık ki, bash şikayet ediyor çünkü 0108sekizli olarak yorumluyor . Zsh yapmaz (sürece setopt octalzeroes)

Bash, 43 bayt

for n in ${1//[!0-9]/ };{((s+=n));};echo $s

Sayı olmayan her yeri bir boşlukla değiştirir ve sonra bunları toplar.

GammaFunction sayesinde -5 bayt

Python 3 , 63 59 56 bayt

Neden olmasın. Zorunlu normal ifade cevabı. Muhtemelen Python 2 kullanarak 6 rıhtım olabilir, ama ne olursa olsun. Harita kullanmak yerine bir değerlendirme yaklaşımı kullandığım için artık geçerli değil.

import re;x=lambda y:eval('+'.join(re.findall('\d+',y)))

Açıklama:

import re; # Import regex module
x=lambda y: eval(                                 ) # Run as Python code
                  '+'.join(                     ) # Joined by '+'
                            re.findall('\d+',y) # A list of all matches of regex \d+ in string y

Çevrimiçi deneyin!

Java 10, 66 bayt

Bu bir lambda Stringiçin int.

s->{var r=0;for(var n:s.split("\\D"))r+=new Long("0"+n);return r;}

Negatif tamsayılar desteklenmez. Muhtemelen sorun değil.

Çevrimiçi Deneyin

Teşekkür

• Cehalet Düzeni sayesinde -3 byte

Ruby, 32 27 karakter

->s{eval s.scan(/\d+/)*?+}

Teşekkür

• Conor O 'Brien sayesinde -5 bayt

Cubix , 17 bayt

?|i.I!/s+q;;>p.O@

Çevrimiçi deneyin!

    ? |
    i .
I ! / s + q ; ;
> p . O @ . . .
    . .
    . .

Koşmasını izle

Oldukça basit bir tane. Icubix içinde girişteki ilk tamsayıyı alır ve yığına iter. Bunun tüm karakterleri atlama etkisi vardır. Geri kalanı ek ile ilgileniyor ve girişin sonunu tespit ediyor.

• I! Bir tam sayı girin ve 0 için test edin
• s+q;;Sıfır değilse, TOS'u (kuvvetler ve ilk 0) değiştirin ve ekleyin. Sonucu yığının altına doğru itin ve üstünü temizleyin. Başlangıca dön.
• /i? Sıfırsa, yönlendirmek ve kontrol etmek için bir karakter girişi yapın
• |?;/Pozitif (karakter) sağa bir yansımaya dönüşürse, bu daha sonra denetleyiciden geriye doğru iter ?ve TOS'ta 0 bırakarak yığıntan sağa doğru döner. IP daha sonra ana döngüye yeniden yönlendirilir.
• I>p.O@ negatif (giriş sonu) sola dönerse, tamsayı girişi yapın, yığının altını üste, çıktıya ve durdurmaya getirin.

PHP ,40 39 bayt

<?=array_sum(preg_split('(\D)',$argn));

Çevrimiçi deneyin!

php -nFGirdi ile çalıştır STDIN'den. Misal:

$ echo the 5is 108 seCONd4 a | php -nF sumint.php    
117

Haskell , 43 bayt

f s|[(n,r)]<-reads s=n+f r|h:t<-s=f t|1>0=0

Çevrimiçi deneyin!

Kullanır reads.

Önde 13 bayt

Bunun nedeni I, giriş akışını yalnızca sayıya benzeyen bir sonraki belirteç için tarar ve başka bir şeyi yok sayar.

~Ilj~#
 >K+O@

Çevrimiçi deneyin!

QuadR , 9 bayt

+/⍎⍵
\D
 

Çevrimiçi deneyin!

+/ toplamı

⍎ APL olarak değerlendirme

⍵ sonucu

\D rakam olmayan her bir öğeyi

 bir boşluk

Japt -x , 5 bayt

f/\d+

Çevrimiçi deneyin!

Ataşe , 23 bayt

Sum##N=>MatchAll&"\\d+"

Çevrimiçi deneyin!

Daha ilginç ama dolaylı bir cevap (37 bayt): {Sum!Reap[ReplaceF[_,/"\\d+",Sow@N]]}

açıklama

Sum##N=>MatchAll&"\\d+"

Bu şu şekildedir:

f##g=>h&x

genişletildiğinde ve parantez içine alındığında:

f ## (g => (h&x))

##iki işlevi birlikte =>oluşturur, sol işlevi sağ işlevin sonucu üzerinden eşleyen bir işlev oluşturur ve bir işlevi bir işlevin &bir kenarına bağlar. Girdi için _bu şuna eşdeğerdir:

{ f[Map[g, h[_, x]]] }

İlk olarak, MatchAllrakam karakterleri ( \\d+) çalıştırıyoruz. Daha sonra, Nfonksiyonu kullanarak her bir çalışmayı gerçek bir tam sayıya dönüştürürüz . Son olarak, bu sayıların toplamını kullanarak Sum.

APL (NARS), karakter 13, bayt 26

{+/⍎¨⍵⊂⍨⍵∊⎕D}

Ölçek:

  f←{+/⍎¨⍵⊂⍨⍵∊⎕D}
  f 'the 5is 108 seCONd4 a'
117

C # (Görsel C # Etkileşimli Derleyici), 117111 bayt

a=>System.Text.RegularExpressions.Regex.Replace(a,@"\D+"," ").Split(' ').Select(x=>x==""?0:int.Parse(x)).Sum();

Çevrimiçi deneyin.

Perl 5 -p , 17 bayt

s/\d+/$\+=$&/eg}{

Çevrimiçi deneyin!

Japt v2.0a0 -x, 3 bayt

(Çok WIP) tercümanım için başka bir test sürüşü.

q\D

Dene

q\D     :Implicit input of string
q       :Split on
 \D     :  Non-digit characters (/[^0-9]/)
        :Implicitly reduce by addition and output

Java 8, 53 130 bayt

Normal ifade için 105 bayt + 25 bayt

s->{long c=0;for(Matcher m=Pattern.compile("\\d+").matcher(s);m.find();c+=new Long(m.group()));return c;}

Çevrimiçi deneyin!
açıklama

s->{                                                    // Lambda function
    long c=0;                                           // Sum is zero
    for(Matcher m=Pattern.compile("\\d+").matcher(s);   // Prepare regex matcher
        m.find();                                       // While the string contains unused matches...
        c+=new Long(m.group()));                        // Add those matches to the output
    return c;                                           // Return the output
   }

SNOBOL4 (CSNOBOL4) , 81 bayt

	S =INPUT
D	S SPAN('0123456789') . N REM . S	:F(O)
	O =O + N	:(D)
O	OUTPUT =O
END

Çevrimiçi deneyin!

Swift, 109 bayt

func s(a:String){var d=0,t=0;a.forEach{(c) in if let e=Int(String(c)){d=d*10+e}else{t+=d;d=0}};t+=d;print(t)}

Çevrimiçi deneyin!

Pip , 6 bayt

$+a@XI

-123Negatif bir tamsayı olarak davranır . Çevrimiçi deneyin!

  a     Command-line input
   @XI  Regex find all integers (XI is a variable predefined as the regex `-?\d+`)
$+      Fold on +

Eksi işaretleri olarak muamele görmek yerine kısa çizgiler göz ardı edilirse, 7 bayt için aşağıdakiler çalışır :

$+a@+XD

XDaşağıdakiler için önceden ayarlanmış bir değişkendir `\d`; +XDregex +değiştiricisini ekleyerek 1 veya daha fazla basamakla eşleşmesini sağlar.

Java (JDK) , 98 94 93 bayt

s->java.util.Arrays.stream(s.split("\\D")).filter(t->!t.isEmpty()).mapToLong(Long::new).sum()

Çevrimiçi deneyin!

-4 bytesLong::newyerine kullanarak Long::valueOf.
-1 byteregex'i kısaltarak - daha sonra boş dizeleri kaldırıyorsak, bölme iyi olduğunda bazı ekstralar yaparız.

Açıklaması

s->                            // Lambda (target type is ToLongFunction<String>)
    java.util.Arrays.stream(   // Stream the result of
        s.split("\\D")        // splitting on non-digits
    )
    .filter(t->!t.isEmpty())   // Discard any empty strings
    .mapToLong(Long::new)      // Convert to long
    .sum()                     // Add up the stream's values.