เขียนรหัสที่สั้นที่สุดสำหรับการหาผลรวมของช่วงเวลาระหว่างaและb(รวม)

อินพุต

1. aและbสามารถนำมาจากบรรทัดคำสั่งหรือ stdin (ช่องว่างแยก)
2. สมมติว่า1 <= a <= b <=10 ⁸

ผลลัพธ์ เพียงพิมพ์ผลรวมด้วยอักขระบรรทัดใหม่

คะแนนโบนัส

1. หากโปรแกรมยอมรับหลายช่วง (พิมพ์หนึ่งผลรวมในแต่ละบรรทัด) คุณจะได้รับคะแนนพิเศษ :)

J, ^{41 32} 19 ตัวอักษร:

ปรับปรุง

(ตะแกรงง่าย)

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

เช่น

100 g 1
1060
250000x g 48
2623030823

ก่อน

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

เช่น:

100 f 1
1060

Mathematica 7 (31 ตัวอักษรเป็นข้อความธรรมดา)

หากอนุญาตให้ใช้โซลูชัน PARI / GP ดังนั้น:

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

C (117 รวมถึง 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 ตัวอักษร):

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 ตัวอักษร)

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

BASH Shell

47 ตัวอักษร

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

แก้ไข: เพิ่งรับรู้ผลรวมล้นและถูกบังคับเป็นสองเท่า

52 50 ตัวละคร

นี่เป็นวิธีแก้ปัญหาที่ใช้เวลานานกว่าเล็กน้อย แต่จัดการได้ดีเช่นกัน

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

C #, 183 ตัวอักษร

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

นี่จะสั้นกว่านี้มากหากไม่ต้องตรวจสอบ 1 หรือถ้ามีวิธีที่ดีกว่าใน ... ในรูปแบบที่อ่านได้มากขึ้น:

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 chars

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

ใช้แบบนี้

p[1,100] #=> 1060

การใช้Primeชั้นเรียนรู้สึกเหมือนโกง แต่เนื่องจากโซลูชัน Mathematica ใช้ฟังก์ชั่นสำคัญในตัว ...

Perl, 62 ตัวอักษร

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

อันนี้ใช้เลขเอกสิทธิ์ regex

งานปกติ (Python 3): 95 ตัวอักษร

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

งานโบนัส (Python 3): 119 chars

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 ตัวอักษร)

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

เช่นเดียวกับการแก้ปัญหาอื่น ๆ บางอย่างนี้ไม่ได้เคร่งครัดตอบสนองความต้องการที่เป็นaและbไม่ได้อ่านจาก stdin หรือบรรทัดคำสั่ง ฉันคิดว่ามันเป็นทางเลือกที่ดีในการแก้ปัญหา Pari / GP และ Mathematica อื่น ๆ

เสียงกระเพื่อมสามัญ: (107 ตัวอักษร)

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

ใช้งานได้เฉพาะกับจุดเริ่มต้น> = 1

APL (25 ตัวอักษร)

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

นี่คือการดัดแปลงของสำนวนที่รู้จักกันดี (ดูหน้านี้สำหรับคำอธิบาย) เพื่อสร้างรายการของช่วงเวลาใน APL

ตัวอย่าง:

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

ปัจจัย -> 98

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

เอาท์พุท:

( scratchpad ) 100 1000 s

--- Data stack:
75067

R, 57 ตัวอักษร

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

Japtap , 7 ไบต์

òV fj x

ลองที่นี่

Perl, 103 ตัวอักษร

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

มันจะยอมรับหลายช่องว่างคั่นบรรทัดและให้คำตอบสำหรับแต่ละ: D

ใน 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}

ตัวอย่างการใช้งาน:

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

Mathematica , 27

กำหนดไว้ล่วงหน้าaและb:

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

ในฐานะที่เป็นฟังก์ชั่น (เช่น 27):

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

R (85 ตัวอักษร)

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

ไม่มีประสิทธิภาพมาก! ฉันค่อนข้างแน่ใจว่ามันต้องใช้เวลา O (n ^ 2) มันอาจให้คำเตือนเกี่ยวกับการบีบบังคับคู่กับตรรกะ

Deobfuscated:

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 ตัวอักษร):

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 ไบต์

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

นี้จะตามออก @ w0lf เป็นอัลกอริทึมจำนวนเฉพาะ

05AB1E , 5 ไบต์

ŸDp*O

ลองออนไลน์!

Ÿ      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 ตัวอักษร

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

Python, 133

เวทมนตร์เล็กน้อย:

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 chars, Lua (ไม่มีฟังก์ชั่น is_prime ในตัว)

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)

นี่คือตัวอย่างที่ผมเพิ่มบรรทัด "พิมพ์ (i)" เพื่อแสดงช่วงเวลาทั้งหมดที่พบและผลรวมในตอนท้ายของพวกเขาที่: 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)

หนึ่งในสามของรหัสคือการแยกวิเคราะห์อินพุต

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"