Вхідні дані

Рядок.

Вихідні дані

Сума всіх цілих чисел у рядку.

Обмеження

1≤довжина рядка≤500

Зразок тесту

Вхідні дані

the 5is 108 seCONd4 a

Вихідні дані

117

Пояснення

Сума: 5 + 108 + 4 = 117

Javascript, 34 32 байти

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

Зіставте всі цифри і приєднайтеся до них, +перетворивши їх на 5 + 108 + 4, оцініть результат.
Працює лише з натуральними числами.

Збережено 2 байти завдяки Арнольду

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 байт

{sum m:g/\d+/}

Спробуйте в Інтернеті!

Блок анонімного коду, який повертає суму всіх рядів цифр

05AB1E , 11 6 байт

þмS¡þO

Спробуйте в Інтернеті.

Пояснення:

þм       # 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 байт

Побачивши запис PowerShell, я зміг подати гольф далі.

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

Спробуйте в Інтернеті!

APL (Dyalog Unicode) , 11 байт

Анонімна мовчазна прихильна функція

+/#⍎¨∊∘⎕D⊆⊢

Спробуйте в Інтернеті!

⊢ аргумент

⊆ розділений (твори True стають шматками, запуск False є роздільниками) на

∊ членство
∘ в
⎕D наборі цифр

#⍎¨ оцініть кожного в кореневій області імен

+/ сума

Сітківка 0,8,2 , 8 байт

\d+
$*
1

Спробуйте в Інтернеті!

• Перший рядок відповідає всім числам
• Другий рядок замінює їх на 1, повторюючи вказану кількість разів
• Останній рядок - це збіг і підраховує загальну кількість 1 в рядку

PowerShell , 29 байт

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

Спробуйте в Інтернеті!

Вугілля деревне , 5 байт

ＩΣ⁺ψＳ

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення: SumОператор « Вугільного вугілля» автоматично витягує числа з рядка, однак якщо рядок не містить нецифрових символів, то натомість вона бере цифрову суму, тому я з'єдную нульовий байт, щоб уникнути цього. Потім результат повертається до рядка для неявного виводу.

Haskell , 50 байт

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

Спробуйте в Інтернеті!

Можливо, є кращий спосіб, але це найбільш очевидний.

Zsh , 21 байт

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

Спробуйте в Інтернеті!

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

На жаль, Баш скаржиться, бо інтерпретує його 0108як восьмеричний. Zsh не робить (якщо тільки setopt octalzeroes)

Баш, 43 байти

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

Замінює кожне нечисло пробілом, а потім підсумовує їх разом.

-5 байт завдяки GammaFunction

Python 3 , 63 59 56 байт

Чому ні. Обов’язковий зворотній відповідь. Можливо, міг би стикувати 6 за допомогою Python 2, але що завгодно. Більше не застосовується, оскільки я використовую підхід eval замість карти.

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

Пояснення:

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

Спробуйте в Інтернеті!

Java 10, 66 байт

Це лямбда від Stringдо int.

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

Негативні цілі числа не підтримуються. Імовірно, це нормально.

Спробуйте це в Інтернеті

Подяка

• -3 байти завдяки втіленню невігластва

Рубі, 32 27 символів

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

Подяка

• -5 байт завдяки Conor O 'Brien

Cubix , 17 байт

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

Спробуйте в Інтернеті!

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

Дивіться, як це працює

Досить простий. Iв кубікс візьме перше ціле число на вході і натисне його на стек. Це спричиняє пропуск усіх персонажів. Інша частина стосується додаткового та виявлення кінця вводу.

• I! Введіть ціле число і протестуйте його на 0
• s+q;;Якщо немає нуля, поміняйте TOS (сили та початкові 0) та додайте. Підсуньте результат до нижньої частини стіни і очистіть верх. Повернутися до початку.
• /i? Якщо нуль, переадресуйте і зробіть введення символів для перевірки
• |?;/Якщо позитив (персонаж) перетвориться направо на відображення, це відштовхує його назад через шашку ?і повертає право на поп зі стека, залишаючи 0 на TOS. Потім IP перенаправляється назад в основний цикл.
• I>p.O@ якщо від'ємний (кінець введення) поверніть ліворуч, зробіть ціле введення, доведіть нижню частину стека до верху, виведіть і зупиніть

PHP ,40 39 байт

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

Спробуйте в Інтернеті!

Запуск із php -nFвведенням - від STDIN. Приклад:

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

Haskell , 43 байти

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

Спробуйте в Інтернеті!

Використовує reads.

Попереду , 13 байт

Це працює, тому що Iпросто сканує вхідний потік для наступного маркера, який виглядає як число, ігноруючи все інше.

~Ilj~#
 >K+O@

Спробуйте в Інтернеті!

QuadR , 9 байт

+/⍎⍵
\D
 

Спробуйте в Інтернеті!

+/ сума

⍎ оцінка як APL від

⍵ результат

\D замінюючи кожну нецифрову на

 простір

Japt -x , 5 байт

f/\d+

Спробуйте в Інтернеті!

Attache , 23 байти

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

Спробуйте в Інтернеті!

Більш цікава, але непряма відповідь (37 байт): {Sum!Reap[ReplaceF[_,/"\\d+",Sow@N]]}

Пояснення

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

Він має форму:

f##g=>h&x

який при розширенні та зміні в дужках стає:

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

##складається дві функції разом, =>створює функцію, що відображає ліву функцію над результатом правої функції, і &прив'язує аргумент до сторони функції. Для введення _це еквівалентно:

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

Спочатку ми виконуємо MatchAllрозрядні символи ( \\d+). Після цього ми перетворюємо кожен запуск у фактичне ціле число за допомогою Nфункції. Нарешті, ми беремо суму цих чисел за допомогою Sum.

APL (NARS), символи 13, байти 26

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

тест:

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

C # (Visual C # Interactive Compiler), 117 111 байт

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

Спробуйте в Інтернеті.

Perl 5 -p , 17 байт

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

Спробуйте в Інтернеті!

Japt v2.0a0-x , 3 байти

Ще один тестовий диск для мого (дуже WIP) перекладача.

q\D

Спробуй це

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 байт

105 байт + 25 байт для імпорту регулярного виразу

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

Спробуйте в Інтернеті!
Пояснення

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 байт

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

Спробуйте в Інтернеті!

Свіфт, 109 байт

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

Спробуйте в Інтернеті!

Піп , 6 байт

$+a@XI

Трактується -123як від’ємне ціле число. Спробуйте в Інтернеті!

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

Якщо дефіси слід ігнорувати, а не трактувати як мінусові знаки, то наступні дії для 7 байт :

$+a@+XD

XDє заданою змінною для `\d`; +XDдодає +до нього модифікатор регулярного вираження , що відповідає 1 або більше цифрам.

Java (JDK) , 98 94 93 байт

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

Спробуйте в Інтернеті!

-4 bytesза допомогою Long::newзамість Long::valueOf.
-1 byteскорочуючи регулярний вираз - якщо ми пізніше вже видаляємо порожні рядки, робимо додаткові додатки під час розщеплення.

Пояснив

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.