ปัญหา:

ให้ชุดของจำนวนเต็มหาผลรวมของจำนวนเต็มบวกทั้งหมดในนั้น

การป้อนข้อมูล:

• t - จำนวนกรณีทดสอบ [ t <1,000]
• ในแต่ละถัดเสื้อเส้นจำนวนเต็มN [-1000 ≤ N ≤ 1000]

เอาท์พุต

โปรแกรมควรแสดงผลรวมของจำนวนเต็มบวกทั้งหมด

ตรวจสอบรหัสของคุณในการตัดสินออนไลน์

คะแนน

คะแนนเท่ากับขนาดของซอร์สโค้ดของโปรแกรมยกเว้นสัญลักษณ์ที่มีรหัส ASCII ≤ 32

นี่คือรายการคะแนนที่ดีที่สุด: Python Best Scores ( คะแนนที่ดีที่สุดคือ 29)

ช่องว่าง 0

ฉันไม่สามารถต้านทาน S= space, T= tab, N= newline ทั้งหมดมีรหัส ASCII <= 32

SSSSNSSSSNTTSSSSSTNTNTTNSSSNSSSSTNTTTNTSTNSSSSTNSSSSTNTTTSSSSTNTSSTTTSSSSSTSNTNTTSSSSTSNTTTNTTSNSSSSNSSSSTSNTTTSSSSNTTTTSSSTTSNSNSNNSSTNSSSSNTTTTNSTSSSSTSTSNTNSSNNN

Base64 เข้ารหัสเพื่อให้คัดลอกและวางได้ง่าย

ICAgIAogICAgCgkJICAgICAJCgkKCQkKICAgCiAgICAJCgkJCQoJIAkKICAgIAkKICAgIAkKCQkJ
ICAgIAkKCSAgCQkJICAgICAJIAoJCgkJICAgIAkgCgkJCQoJCSAKICAgIAogICAgCSAKCQkJICAg
IAoJCQkJICAgCQkgCiAKIAoKICAJCiAgICAKCQkJCQogCSAgICAJIAkgCgkKICAKCgo=

องค์ประกอบ, 17 อักขระบวก 1 ช่องว่าง

_'[_ 2:n;0>[n~+]]`

นี่เป็นภาษาที่ฉันสร้างขึ้นเป็นครั้งแรก มันถูกออกแบบมาให้มีขนาดกะทัดรัดและอ่านง่าย คำแนะนำทั้งหมดมีความยาวหนึ่งตัวอักษรและดำเนินการฟังก์ชันเดียว

องค์ประกอบมีสองกองและแฮชเป็นโครงสร้างหน่วยความจำ ทั้งสองกองจะเรียกว่ากองหลักและกองควบคุม สแต็กหลักคือตำแหน่งที่การคำนวณทางคณิตศาสตร์ I / O และการแฮชเกิดขึ้น สแต็กควบคุมเป็นที่ที่การดำเนินการทางตรรกะเกิดขึ้นและสแต็กนี้จะควบคุม while และ for loop

แนวคิดพื้นฐานที่อยู่เบื้องหลังองค์ประกอบคือมีแฮชที่เก็บหมายเลข / สตริงในขณะที่สแต็กใช้สำหรับคำนวณตัวเลขเหล่านี้ ผลลัพธ์จากการคำนวณเหล่านี้สามารถกำหนดสถานที่บางแห่งในแฮชเพื่อใช้ในอนาคต เนื้อหาที่แตกต่างกันของแฮชเรียกว่าองค์ประกอบดังนั้นจึงคล้ายกับอาร์เรย์ แต่อาจมีชื่อที่ไม่ใช่ตัวเลข

แก้ไข: คุณสามารถค้นหาล่ามธาตุ (เขียนใน Perl) ความที่นี่

นี่คือรายการของโอเปอเรเตอร์: ในตัวอย่างเหล่านี้บางรายการ m และ n แสดงหมายเลขอยู่แล้วในสแต็ก

text  --pushes the string "text" onto the main stack
'     --pops from main stack and pushes onto control stack
"     --pops from control stack and pushes onto main stack
#     --pops from main stack and destroys
[]    --FOR statement (view the top number number from control stack and eval those many times)
{}    --WHILE (loop until top number on control stack is 0)
(     --pops from main stack, removes first character, pushes the remaining string onto stack, and pushes the removed character onto stack
)     --pops from main stack, removes last character, pushes the remaining string onto stack, and pushes the removed character onto stack
~     --pops from main stack, pushes contents of the element with that name
+-*/%^ --pops two most recently named elements, adds/negates/multiplies/divides/modulates/exponentiates them, and places the result on the stack
mn;   --pops m and n and assigns element n the value of m
mn@   --pops m and n and moves mth thing in stack to move to place n in stack
m$    --pops m and pushs size of m onto the stack
mn:   --pops m and n and pushes m onto the stack n times
mn.   --pops m and n and pushes m concatonated with n
m?    --pops m and pushes 0 onto control stack if m is '0' or and empty string, else pushes 1 
\     --escapes out of next character, so it isn't an operator and con be pushed onto the stack
><=   --pops two numbers off of stack and tests, pushes 1 onto control stack if true and 0 if false
`     --pops from main stack and prints
&|    --pops two items from control stack, performs and/or respectively, and pushes result back onto control stack
!     --pops a number off of control stack, pushes 1 if 0 or empty string, 0 otherwise
_     --inputs a word and pushes onto main stack
m,    --pops m from main stack, coverts it to char and pushes, converts to num and pushes
Newlines and spaces separate different elements to be pushed onto the stack individually, but can pushed onto the stack using \

นี่คือคำแนะนำวิธีการทำงานของโปรแกรม:

_'[    --take the first line of input, transfer it to the control stack, and start a for loop
_ 2:   --take one more line of input, and duplicate it so that there are two copies
n;     --take one copy and put into element n
0>     --push a zero onto the stack, remove the zero and the other copy of the input, and compare. A 1 will be placed on the control stack if the input was greater than zero, a 0 otherwise.
[      --starts another for loop if the comparison was true. This loop will be repeated once if the comparison was true and no times if it was false, so it is the same as an IF statement.
n~     --pushes n onto the main stack, then pops it ans replaces it with the contents of n, which is the number stored earlier
+      --takes the number and adds it to the running total, which is contained as the last item on the stack
]      --ends the inner for loop
]      --ends the outer for loop
`      --print the top item (also the only item) on the stack to output

Perl, 31

<>;$i+=$_*($_>0)while<>;print$i

ทับทิม 1.9.2, 37

p eval [*$<].join.gsub(/\A\d+|-\d+|\n/, '+0')

เรียกเช่น ruby ​​scriptname file_with_ints

ทับทิม, 52

t=gets.to_i;s=0;t.times{i=gets.to_i;s+=i if i>0};p s

Haskell, 58

ทำงานอย่างถูกต้องกับtจำนวนเต็มเท่านั้น ยังไม่ได้เรียกใช้กับ Spoj เพราะฉันไม่สนใจที่จะลงทะเบียนที่นั่น

f (x:l) = take x l
main = interact $ show . sum . f . map (max 0.read) . lines

รหัสในC 89 ตัวละคร

x="%d";  main(b,a,t)  {  
  for(scanf(x,&t);t;t--)
    {  scanf(x,&a); a>0?b+=a:a; }  printf(x,b-1);
       return 0; }

ฉันพยายามมากที่จะลดรหัสของฉันน้อยกว่า 63 ไบต์ แต่ฉันสามารถลดได้เพียง 89 ไบต์ โปรดช่วยฉันลดให้เหลือ 63 ไบต์หรือน้อยกว่านั้น

Perl, 33

<>;while(<>){$i+=$_ if$_>0}print$i

ถึงแม้ว่าจำเป็นต้องใช้พื้นที่ดังนั้นมันจึงดูแปลกที่จะไม่นับ โอ้กฎเป็นกฎ

อืมมม ฉันอาจจะหนีด้วยการใช้ชื่อตัวแปรซึ่งไม่นับรวมทั้งหมดเช่นกัน ฉันไม่แน่ใจว่าฉันจะวางรหัสได้อย่างไร

Clojure, 71

(reduce + (filter pos? (map #(Integer/parseInt %) (next (line-seq *in*)))))

ใน memoriam Dennis M. Ritchie

unix 57¹ 72:

n=$(head -n1 i); echo $(($(head -n $((n+1)) i | tail -n $n | grep -v "-" | tr '\n' '+')0))

สมมติว่า i เป็นไฟล์ที่มี ints

¹) ผิดรวมจำนวนบรรทัดและเพิ่ม 1 บรรทัดน้อยเกินไป

echo $ (($ (cat i | head -n $ (head -n1 i) | grep -v "-" | tr '\ n' '+') 0))

Haskell, 51

main = interact $ show . f . lines
f (x:l) = foldl (+) 0 $ map read l

(ช่องว่างเพิ่มเติมเพื่อความชัดเจนเนื่องจากไม่นับ)

Haskell เป็น ... น่าสนใจเนื่องจากคุณมักจะได้รับโปรแกรมที่มีช่องว่างที่จำเป็นจำนวนมาก

C, 88

x="%d";  main(b,a,t)  {  
for(scanf(x,&t);t--;)  
{  scanf(x,&a); a>0?b+=a:0; }  printf(x,b-1);
return 0; }

หลังจากใช้ความพยายามครั้งใหญ่รหัสน้อยกว่าตัวละครหนึ่งตัวโปรดช่วยฉันลดให้มากขึ้น

Befunge-98 (24)

(Make sure you use an interpreter that can read negative numbers (seems to be a somewhat common bug, but RcFunge works))

<;-1\+*`0:&\_\#;.@;:;#&0 

Perl (25)

(Perl allows control characters in variable names, I named my variable ^B (ASCII 2) so that it does not count towards the goal.)

<>;$^B+=$_*!/-/for<>;print$^B

(Normal variant (27 chars)):

<>;$B+=$_*!/-/for<>;print$B

APL (10)

+/{0⌈⎕}¨⍳⎕

Explanation:

• ⍳⎕: read a line, gives a list [1..N] for user's input N
• ¨: for each element in this list... (i.e. do N times)
• 0⌈⎕: read a line, return the maximum of 0 and the entered N
• We now have a list with all positive Ns the user entered, and 0s where the user entered something negative.
• +/ gives the sum of this list.
• The result is output by default (because we're not doing anything else with it).

Mathematica: 18 16

Boole[#>0]&/@x.x

PowerShell, 44

($i=$input|%{+$_})[1..$i[0]]-gt0-join'+'|iex

Q,12

{0+/x(&)x>0}

sample usage

q){0+/x(&)x>0} 1 -1 2 3 -1
6

befunge, 3524

:0`j&1-\&:0`*+\:0`3*j$.@

with a little inspiration by seeing marinus answer, I've also managed 24 characters. but I've got a completely different approach.

PYTHON 2.x, 50 chars

r=input
print sum(i for i in (r() for j in range(r())) if i>0)

C, 70 72 characters

s;main(i,c){for(;c--;i>0?s+=i:0)scanf("%d",s?&i:&c);printf("%d",s-1);}

The results on the SPOJ site definitely seem unreal - I have no idea how to get this down to 63.

However, 68 characters is reachable on some compilers by abusing undefined behaviour. The following works on x86 Linux with 32-bit gcc, on which all arguments are passed on the stack.

s;main(i,c){for(;c--;i>0?s+=i:0)scanf("%d",&i+!s);printf("%d",s-1);}

excel, 27

=SUM(INDIRECT("A2:A"&1+A1))

count t in A1, rest of data a2 and down

Clojure, 108

(let [[n & m] (->> *in* java.io.BufferedReader. line-seq (map read-string))]
  (->> m (take n) (filter pos?) (apply +) println))

I really wish I could avoid the java.io.BufferedReader. part, since it costs 24 chars itself. But AFAIK there's no facility to read lines from STDIN without it.

Perl, 20

I know it is old and trivial, but the Perl answer can be still improved:

#!perl -p
$.<2or$\+=$_*!/-/}{

C++:

#include<iostream>
using namespace std;
int main()
{
    int c,n,s=0;cin>>c;
    while(c--)
    {
        cin>>n;s+=n*(n>0);
    }
cout<<s;return 0;
}

115 characters long. Need to optimize it to 90. Any suggestions ?

PHP, 71

<?for($s=0,$t=fgets(STDIN)+0;$t--;$s+=($n=fgets(STDIN))>0?$n:0);echo$s;

Python: (92 characters)

t = int(raw_input())
n = [int(raw_input()) for i in range(t)]
print(sum([n[i] for i in range(t) if n[i]>0]))

scala 55 54:

println ((for (r <- 1 to readInt;
  i=readInt;
    if i>0) yield i)sum)

C

void main()
{
int n;
scanf("%d",&n);
for(int i=0;i<n;i++)
     {
     if(i>0)
     sum=sum+i;
     }
printf("sum of positive numbers is %d",sum);
}

Ruby, 42

s=0
gets.to_i.times { 
    i=gets.to_i
    s+=i if i>0
}
p s

(based on david4dev's answer)

Best score for Ruby on spoj: http://www.spoj.com/ranks/SIZECON/lang=RUBY

45 chars in python

c=0
j=input
for i in j()*[0]:
    b=j()
    c+=b*(b>0)
print c