Wejście

Sznurek

Wynik

Suma wszystkich liczb całkowitych w wierszu.

Ograniczenia

1 ≤ Długość linii ≤ 500

Przykładowy przypadek testowy

Wejście

the 5is 108 seCONd4 a

Wynik

117

Wyjaśnienie

Suma wynosi: 5 + 108 + 4 = 117

JavaScript, 34 32 bajty

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

Dopasuj wszystkie cyfry i połącz je, +zmieniając go na 5 + 108 + 4, aby sprawdzić wynik.
Działa tylko na dodatnich liczbach całkowitych.

Zaoszczędź 2 bajty dzięki Arnauldowi

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 bajtów

{sum m:g/\d+/}

Wypróbuj online!

Anonimowy blok kodu, który zwraca sumę wszystkich serii cyfr

05AB1E , 11 6 bajtów

þмS¡þO

Wypróbuj online.

Wyjaśnienie:

þм       # 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 bajtów

Po zobaczeniu wpisu PowerShell mogłem dalej grać w golfa.

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

Wypróbuj online!

APL (Dyalog Unicode) , 11 bajtów

Anonimowa ukryta funkcja pref

+/#⍎¨∊∘⎕D⊆⊢

Wypróbuj online!

⊢ argument

⊆ podzielone na partycje (przebiegi True stają się częściami, przebiegi False są separatorami) według

∊ członków
∘ z
⎕D zestawem cyfr

#⍎¨ oceń każdy w głównej przestrzeni nazw

+/ suma

Retina 0.8.2 , 8 bajtów

\d+
$*
1

Wypróbuj online!

• Pierwszy wiersz pasuje do wszystkich liczb
• Drugi wiersz zastępuje je 1s, powtarzając wspomnianą liczbę razy
• Ostatni wiersz jest dopasowaniem i zlicza całkowitą liczbę 1 w ciągu

PowerShell , 29 bajtów

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

Wypróbuj online!

Węgiel drzewny , 5 bajtów

ＩΣ⁺ψＳ

Wypróbuj online! Link jest do pełnej wersji kodu. Objaśnienie: SumOperator Charcoal automatycznie wyodrębnia liczby z ciągu, jednak jeśli ciąg nie zawiera znaków innych niż cyfry, wówczas pobiera sumę cyfrową, więc łączę bajt zerowy, aby tego uniknąć. Wynik jest następnie rzutowany z powrotem do łańcucha w celu uzyskania niejawnego wyniku.

Haskell , 50 bajtów

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

Wypróbuj online!

Prawdopodobnie jest lepszy sposób, ale jest to najbardziej oczywisty.

Zsh , 21 bajtów

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

Wypróbuj online!

  ${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

Niestety bash narzeka, ponieważ interpretuje 0108jako ósemkowy. Zsh nie (chyba że setopt octalzeroes)

Bash, 43 bajty

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

Zastępuje każdą liczbę nie będącą liczbą spacją, a następnie sumuje je razem.

-5 bajtów dzięki GammaFunction

Python 3 , 63 59 56 bajtów

Dlaczego nie. Obowiązkowa odpowiedź wyrażenia regularnego. Prawdopodobnie mógłby zadokować 6 za pomocą Pythona 2, ale cokolwiek. Nie ma już zastosowania, ponieważ używam ewaluacyjnego podejścia zamiast mapy.

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

Wyjaśnienie:

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

Wypróbuj online!

Java 10, 66 bajtów

To jest lambda od Stringdo int.

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

Ujemne liczby całkowite nie są obsługiwane. Prawdopodobnie w porządku.

Wypróbuj online

Podziękowanie

• -3 bajty dzięki Embodiment of Ignorance

Ruby, 32 27 znaków

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

Podziękowanie

• -5 bajtów dzięki Conor O 'Brien

Cubix , 17 bajtów

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

Wypróbuj online!

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

Zobacz, jak biegnie

Dość prosty. Iw cubix weźmie pierwszą liczbę całkowitą na wejściu i wypchnie ją na stos. To powoduje pomijanie wszystkich postaci. Reszta zajmuje się dodatkowym i wykrywaniem końca wejścia.

• I! Wpisz liczbę całkowitą i przetestuj ją na 0
• s+q;;Jeśli nie zero, zamień TOS (siły i początkowe 0) i dodaj. Przesuń wynik na spód stosu i wyczyść górę. Wróć do początku.
• /i? Jeśli zero, przekieruj i wprowadź znak, aby sprawdzić
• |?;/Jeśli dodatni (znak) skręca w prawo w odbicie, to popycha go z powrotem przez szachownicę ?i skręca w prawo na pop ze stosu, pozostawiając 0 na TOS. Następnie adres IP zostaje przekierowany z powrotem do głównej pętli.
• I>p.O@ jeśli ujemny (koniec wejścia) skręca w lewo, wprowadź liczbę całkowitą, przenieś spód stosu na górę, wyjdź i zatrzymaj.

PHP ,40 39 bajtów

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

Wypróbuj online!

Uruchom z php -nFwejściem pochodzi ze STDIN. Przykład:

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

Haskell , 43 bajty

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

Wypróbuj online!

Wykorzystuje reads.

Z przodu 13 bajtów

Działa to, ponieważ Ipo prostu skanuje strumień wejściowy w poszukiwaniu następnego tokena, który wygląda jak liczba, ignorując wszystko inne.

~Ilj~#
 >K+O@

Wypróbuj online!

QuadR , 9 bajtów

+/⍎⍵
\D
 

Wypróbuj online!

+/ suma

⍎ ocena jako APL z

⍵ wynik

\D zamieniając każdą cyfrę na inną

 przestrzeń

Japt -x , 5 bajtów

f/\d+

Wypróbuj online!

Attache , 23 bajty

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

Wypróbuj online!

Bardziej interesująca, ale pośrednia odpowiedź (37 bajtów): {Sum!Reap[ReplaceF[_,/"\\d+",Sow@N]]}

Wyjaśnienie

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

Ma to postać:

f##g=>h&x

która po rozwinięciu i nawiasie staje się:

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

##tworzy dwie funkcje razem, =>tworzy funkcję odwzorowującą funkcję lewą na wynik funkcji prawej i &wiąże argument z boku funkcji. W przypadku danych wejściowych _jest to równoważne z:

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

Najpierw MatchAlluruchamiamy cyfry ( \\d+). Następnie konwertujemy każdy przebieg na rzeczywistą liczbę całkowitą za pomocą Nfunkcji. Na koniec bierzemy sumę tych liczb za pomocą Sum.

APL (NARS), znaki 13, bajty 26

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

test:

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

C # (interaktywny kompilator Visual C #), 117 111 bajtów

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

Wypróbuj online.

Perl 5 -p , 17 bajtów

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

Wypróbuj online!

Japt v2.0a0 -x, 3 bajty

Kolejna jazda próbna dla mojego interpretera (bardzo WIP).

q\D

Spróbuj

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 bajtów

105 bajtów + 25 bajtów na import wyrażenia regularnego

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

Wypróbuj online!
Wyjaśnienie

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 bajtów

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

Wypróbuj online!

Szybki, 109 bajtów

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)}

Wypróbuj online!

Pip , 6 bajtów

$+a@XI

Traktuje -123jako ujemną liczbę całkowitą. Wypróbuj online!

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

Jeśli łączniki powinny być ignorowane, a nie traktowane jako znaki minus, to następujące działanie działa dla 7 bajtów :

$+a@+XD

XDjest predefiniowaną zmienną dla `\d`; +XDdodaje +do niego modyfikator wyrażenia regularnego , dopasowując go do 1 lub więcej cyfr.

Java (JDK) , 98 94 93 bajtów

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

Wypróbuj online!

-4 bytesza pomocą Long::newzamiast Long::valueOf.
-1 byteprzez skrócenie wyrażenia regularnego - jeśli później usuwamy już puste ciągi, tworzenie dodatków przy dzieleniu jest w porządku.

Wyjaśniono

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.