Sum of integers in string, separated by non-numericals such as 'a' and 'Y'

Question

Create a program which sums all integers found in a string which is set as a variable in the program (thus, the program doesn't have to handle any input). The integer numbers are separated by non-numericals (anything but 0, 1, 2, 3...9).

Examples:

• e7rde f ,fe 43 jfj 54f4sD = 7+43+54+4=108
• 5 = 5
• 64 545,5445-32JIFk0ddk = 64+545+5445+32+0=6086
• 0ab0 = 0+0 = 0

Extra notes:

• Unicode support is not necessary, but allowed
• -n (where n is an integer) is not counted as a negative n, but as a hyphen followed by n.

The answer may be printed on the screen (but not required).

Shortest answer (in characters) win.

Answer 1

Perl, 15

Input in $_, sum in $c:

s/\d+/$c+=$&/ge

Answer 2

Ruby 1.9, 21 characters

eval a.scan(/\d+/)*?+

To print the solution to stdout, 2 additional characters are required:

p eval a.scan(/\d+/)*?+

And to read from stdin instead of using a predefined variable, another 3 characters have to be used:

p eval gets.scan(/\d+/)*?+

For Ruby 1.8, replace ?+ with "+" to get a working solution in 22 characters.

Answer 3

Ruby - 36 34 chars

s.scan(/\d+/).map(&:to_i).reduce:+

36 chars if you want the result printed.

p s.scan(/\d+/).map(&:to_i).reduce:+

Assumes the input is present as a string in s.

Answer 4

Python (60)

import re;print sum(map(int,filter(len,re.split(r'\D',s))))

Answer 5

Windows PowerShell, 23 25 29 31

With output.

$x-replace'\D','+0'|iex

In fact, without output is exactly the same, you'd just pipe it somewhere else where it's needed.

Answer 6

Java

out of the contest ;)

public static long sum(String s) {
    long sum = 0;
    String p = "";
    char[] ch = s.toCharArray();
    for (int i = 0; i < ch.length; i++) {
        boolean c = false;
        if (Character.isDigit(ch[i])) {
            if (i + 1 < ch.length) {
                if (Character.isDigit(ch[i + 1])) {
                    p += ch[i];
                    c = true;
                }
            }
            if (!c) {
                p += ch[i];
                sum += Integer.valueOf(p);
                p = "";
                c = false;
            }
        }
    }
    return sum;
}

Answer 7

J - 40 38 characters

Lazy version. Requires the string library.

+/".(,' ',.~a.-.'0123456789')charsub y

Answer 8

PHP - 37

Without printing;

<?array_sum(@split("[^0-9]+",`cat`));

With printing (38):

<?=array_sum(@split("[^0-9]+",`cat`));

Answer 9

Perl, 16 chars

s/\d+/$r+=$&/ge;

Takes input in $_, output goes on $r. Last semicolon is superfluous, but it will probably be needed when the program does more things. Add say$r for output.