Viết mã ngắn nhất để tìm tổng các số nguyên tố giữa avà b(bao gồm).

Đầu vào

1. avà bcó thể được lấy từ dòng lệnh hoặc stdin (ngăn cách không gian)
2. Giả sử 1 <= a <= b <=10 ⁸

Đầu ra Chỉ cần in tổng với một ký tự dòng mới.

Điểm thưởng

1. Nếu chương trình chấp nhận nhiều phạm vi (in một tổng trên mỗi dòng), bạn sẽ nhận được thêm điểm. :)

J, ^{41 32} 19 ký tự:

Cập nhật

(rây đơn giản)

g=:+/@(*1&p:)@-.&i.

ví dụ

100 g 1
1060
250000x g 48
2623030823

Trước

h=:3 :'+/p:i.(_1 p:>:y)'
f=:-&h<:

ví dụ:

100 f 1
1060

Mathicala 7 (31 ký tự trong văn bản thuần túy)

Nếu giải pháp PARI / GP cho phép, thì:

Plus@@Select[Range[a,b],PrimeQ]

C (117 bao gồm NL)

main(a,b,s,j){
s=0,scanf("%d%d",&a,&b);
for(a+=a==1;a<=b;a++)
for(s+=a,j=2;j<a;)
s-=a%j++?0:(j=a);
printf("%d",s);
}

C # (294 ký tự):

using System;class P{static void Main(){int a=int.Parse(Console.ReadLine()),b=int.Parse(Console.ReadLine());long t=0;for(int i=a;i<=b;i++)if(p(i))t+=i;Console.WriteLine(t);}static bool p(int n){if((n%2<1&&n!=2)||n<2)return 0>1;for(int i=3;i<=Math.Sqrt(n);i+=2)if(n%i==0)return 0>1;return 1>0;}}

PARI / GP (44 ký tự)

sum(x=nextprime(a),precprime(b),x*isprime(x))

Vỏ BASH

47 nhân vật

seq 1 100|factor|awk 'NF==2{s+=$2}END{print s}'

Chỉnh sửa: Chỉ cần nhận ra số tiền tràn ra và bị ép làm đôi.

52 50 ký tự

Đây là giải pháp dài hơn một chút, nhưng xử lý tràn

seq 1 100|factor|awk NF==2{print\$2}|paste -sd+|bc

C #, 183 ký tự

using System;class P{static void Main(string[] a){long s=0,i=Math.Max(int.Parse(a[0]),2),j;for(;i<=int.Parse(a[1]);s+=i++)for(j=2;j<i;)if(i%j++==0){s-=i;break;}Console.WriteLine(s);}}

Thời gian này sẽ ngắn hơn nhiều nếu không phải kiểm tra 1 hoặc nếu có cách tốt hơn để ... Ở định dạng dễ đọc hơn:

using System;
class P 
{ 
    static void Main(string[] a) 
    { 
        long s = 0,
             i = Math.Max(int.Parse(a[0]),2),
             j;

        for (; i <= int.Parse(a[1]);s+=i++)
            for (j = 2; j < i; )
                if (i % j++ == 0)
                {
                    s -= i;
                    break;
                }

        Console.WriteLine(s); 
    }
}

Haskell (80)

c=u[2..];u(p:xs)=p:u[x|x<-xs,x`mod`p>0];s a b=(sum.filter(>=a).takeWhile(<=b))c

s 1 100 == 1060

Ruby 1.9, 63 ký tự

require'prime';p=->a,b{Prime.each(b).select{|x|x>a}.inject(:+)}

Sử dụng như thế này

p[1,100] #=> 1060

Sử dụng Primelớp cảm giác như gian lận, nhưng vì các giải pháp Mathicala đã sử dụng các hàm nguyên tố tích hợp ...

Perl, 62 ký tự

<>=~/\d+/;map$s+=$_*(1x$_)!~/^1$|(^11+)\1+$/,$&..$';print$s,$/

Cái này sử dụng regex số nguyên tố.

Nhiệm vụ bình thường (Python 3): 95 ký tự

a,b=map(int,input().split())
r=range
print(sum(1%i*all(i%j for j in r(2,i))*i for i in r(a,b+1)))

Nhiệm vụ tiền thưởng (Python 3): 119 ký tự

L=iter(map(int,input().split()))
r=range
for a,b in zip(L,L):print(sum(1%i*all(i%j for j in r(2,i))*i for i in r(a,b+1)))

Pari / GP (24 ký tự)

s=0;forprime(i=a,b,s+=i)

Giống như một số giải pháp khác, điều này không đáp ứng đúng các yêu cầu, avà bkhông được đọc từ stdin hoặc dòng lệnh. Tuy nhiên, tôi nghĩ rằng nó là một giải pháp thay thế tốt cho các giải pháp Pari / GP và Mathicala khác.

Lisp thường gặp: (107 ký tự)

(flet((p(i)(loop for j from 2 below i never (= (mod i j) 0))))(loop for x from(read)to(read)when(p x)sum x))

chỉ hoạt động cho điểm bắt đầu> = 1

APL (25 ký tự)

+/((R≥⎕)^~R∊R∘.×R)/R←1↓⍳⎕

Đây là một sửa đổi của một thành ngữ nổi tiếng (xem trang này để được giải thích) để tạo danh sách các số nguyên tố trong APL.

Thí dụ:

      +/((R≥⎕)^~R∊R∘.×R)/R←1↓⍳⎕
⎕:
      100
⎕:
      1
1060

Yếu tố -> 98

:: s ( a b -- n )
:: i ( n -- ? )
n 1 - 2 [a,b] [ n swap mod 0 > ] all? ;
a b [a,b] [ i ] filter sum ;

Đầu ra:

( scratchpad ) 100 1000 s

--- Data stack:
75067

R, 57 ký tự

a=scan();b=a[1]:a[2];sum(b[rowSums(!outer(b,b,`%%`))==2])

Japt , 7 byte

òV fj x

Hãy thử nó ở đây.

Perl, 103 ký tự

while(<>){($a,$b)=split/ /;for($a..$b){next if$_==1;for$n(2..$_-1){$_=0if$_%$n==0}$t+=$_;}print"$t\n";}

Nó sẽ chấp nhận nhiều dòng phân tách không gian và đưa ra câu trả lời cho mỗi dòng: D

Trong Q (95):

d:{sum s:{if[2=x;:x];if[1=x;:0];$[0=x mod 2;0;0=min x mod 2+til floor sqrt x;0;x]}each x+til y}

Sử dụng mẫu:

q)d[1;100]
1060

C # 302

using System;namespace X{class B{static void Main(){long x=long.Parse(Console.ReadLine()),y=long.Parse(Console.ReadLine()),r=0;for(long i=x;i<=y;i++){if(I(i)){r+=i;}}Console.WriteLine(r);}static bool I(long n){bool b=true;if(n==1){b=false;}for(long i=2;i<n;++i){if(n%i==0){b=false;break;}}return b;}}}

Toán học , 27

Được xác định trước avà b:

a~Range~b~Select~PrimeQ//Tr

Là một hàm (cũng 27):

Tr[Range@##~Select~PrimeQ]&

R (85 ký tự)

x=scan(nmax=2);sum(sapply(x[1]:x[2],function(n)if(n==2||all(n %% 2:(n-1)))n else 0))

Vô cùng kém hiệu quả! Tôi khá chắc chắn rằng nó mất thời gian O (n ^ 2). Nó có thể đưa ra cảnh báo về việc ép một cú đúp thành logic.

Khử nhiễu:

x <- scan(nmax=2)
start <- x[1]
end <- x[2]

#this function returns n if n is prime, otherwise it returns 0.
return.prime <- function(n) {
  # if n is 2, n is prime. Otherwise, if, for each number y between 2 and n, n mod y is 0, then n must be prime
  is.prime <- n==2 || all(n%% 2:(n-1))
  if (is.prime)
    n
  else
    0
} 
primes <- sapply(start:end, return.prime)
sum(primes)

Python 3.1 (153 ký tự):

from sys import*
p=[]
for i in range(int(argv[1]),int(argv[2])):
 r=1
 for j in range(2,int(argv[2])):
  if i%j==0and i!=j:r=0
 if r:p+=[i]
print(sum(p))

GolfScript, 27 24 byte

~,>{:x,{)x\%!},,2=},{+}*

Điều này dựa trên thuật toán số nguyên tố của @ w0lf .

05AB1E , 5 byte

ŸDp*O

Hãy thử trực tuyến!

Ÿ      Push the list [a, ..., b]
 D     Push a duplicate of that list
  p    Replace primes with 1 and everything else with 0
   *   Element-wise multiply the two lists [1*0, 2*1, 3*1, 4*0, ...]
    O  Sum of the final list of primes

Python: 110 ký tự

l,h=map(int,raw_input().split())
print sum(filter(lambda p:p!=1 and all(p%i for i in range(2,p)),range(l,h)))

Con trăn, 133

Một chút phép thuật:

x,y=map(int,raw_input().split())
y+=1
a=range(y)
print sum(i for i in[[i for a[::i]in[([0]*y)[::i]]][0]for i in a[2:]if a[i]]if i>=x)

133 ký tự, Lua (không có hàm is_prime trong chế tạo)

for i=m,n,1 do
if i%2~=0 and i%3~=0 and i%5~=0 and i%7~=0 and i%11~=0 then
s=s+1
end
end
print(s)

Đây là một ví dụ trong đó tôi đã thêm dòng "print (i)" để hiển thị tất cả các số nguyên tố được tìm thấy và tổng ở cuối chúng: http://codepad.org/afUvYHnm .

PowerShell - 94

$a,$b=$args[0,1]
(.{$p=2..$b
while($p){$p[0];$p=@($p|?{$_%$p[0]})}}|
?{$_-gt$a}|
measure -s).sum

F # (141)

Một phần ba mã là để phân tích cú pháp đầu vào.

let[|a;b|]=System.Console.ReadLine().Split(' ')
{int a..int b}|>Seq.filter(fun n->n>1&&Seq.forall((%)n>>(<>)0){2..n-1})|>Seq.sum|>printfn"%A"