Masalah:

Diberikan satu set bilangan bulat, temukan jumlah semua bilangan bulat positif di dalamnya.

Memasukkan:

• t - jumlah kasus uji [ t <1000]
• Pada setiap baris t berikutnya , sebuah bilangan bulat N [-1000 ≤ N ≤ 1000]

Keluaran

Program harus menampilkan jumlah semua bilangan bulat positif.

Periksa kode Anda di juri online

Skor

Skor sama dengan ukuran kode sumber program Anda kecuali simbol dengan kode ASCII ≤ 32.

Berikut adalah daftar skor terbaik: Skor Terbaik Python ( Skor terbaik adalah 29)

Spasi, 0

Saya tidak bisa menolak. S= spasi, T= tab, N= baris baru, semua memiliki kode ASCII <= 32.

SSSSNSSSSNTTSSSSSTNTNTTNSSSNSSSSTNTTTNTSTNSSSSTNSSSSTNTTTSSSSTNTSSTTTSSSSSTSNTNTTSSSSTSNTTTNTTSNSSSSNSSSSTSNTTTSSSSNTTTTSSSTTSNSNSNNSSTNSSSSNTTTTNSTSSSSTSTSNTNSSNNN

Base64 disandikan untuk mudah disalin & tempel.

ICAgIAogICAgCgkJICAgICAJCgkKCQkKICAgCiAgICAJCgkJCQoJIAkKICAgIAkKICAgIAkKCQkJ
ICAgIAkKCSAgCQkJICAgICAJIAoJCgkJICAgIAkgCgkJCQoJCSAKICAgIAogICAgCSAKCQkJICAg
IAoJCQkJICAgCQkgCiAKIAoKICAJCiAgICAKCQkJCQogCSAgICAJIAkgCgkKICAKCgo=

Elemen, 17 karakter plus 1 spasi

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

Ini adalah bahasa buatan saya yang pertama. Ini dirancang agar sangat kompak dan dapat dibaca manusia. Semua instruksi panjangnya satu karakter dan melakukan satu fungsi.

Elemen memiliki dua tumpukan dan hash sebagai struktur memori. Dua tumpukan disebut tumpukan utama dan tumpukan kontrol. Tumpukan utama adalah tempat aritmatika, I / O, dan manipulasi hash terjadi. Tumpukan kontrol adalah tempat operasi logika terjadi, dan tumpukan ini mengontrol while dan untuk loop.

Ide dasar di balik Elemen adalah bahwa ada hash yang menyimpan angka / string, sementara tumpukan digunakan untuk melakukan perhitungan pada angka-angka ini. Hasil perhitungan ini kemudian dapat menetapkan tempat tertentu dalam hash untuk digunakan di masa mendatang. Konten hash yang berbeda disebut elemen, sehingga mirip dengan array tetapi dapat memiliki nama non-numerik.

EDIT: Anda dapat menemukan penerjemah untuk Elemen (ditulis dalam Perl) di sini .

Berikut adalah daftar operator: Dalam beberapa contoh ini, m dan n mewakili angka yang sudah ada di tumpukan.

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 \

Berikut ini adalah panduan tentang cara kerja program:

_'[    --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

Ruby 1.9.2, 37

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

Sebut seperti ruby ​​scriptname file_with_ints.

Ruby, 52

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

Haskell, 58

Hanya beroperasi dengan benar pada tbilangan bulat. Belum menjalankannya terhadap Spoj karena saya hanya tidak mau mendaftar di sana.

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

kode dalam C 89 karakter

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

Saya mencoba banyak untuk mengurangi kode saya kurang dari 63 byte, tetapi saya bisa menguranginya hanya menjadi 89 byte. Tolong bantu saya untuk menguranginya menjadi 63 byte atau bahkan kurang.

Perl, 33

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

Meskipun ruang itu diperlukan, jadi rasanya aneh untuk tidak menghitungnya. Oh well, aturannya adalah aturannya.

Hmm. Saya mungkin bisa lolos dengan menggunakan nama variabel yang tidak diperhitungkan total. Masalahnya, saya tidak yakin bagaimana saya akan menempelkan kode itu.

Clojure, 71

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

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

dengan asumsi saya adalah file, yang berisi int.

¹) salah, termasuk jumlah baris, dan menambahkan 1 baris terlalu sedikit.

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

(ruang ekstra untuk kejelasan, karena tidak diperhitungkan)

Haskell menarik ..., karena Anda cenderung mendapatkan program dengan jumlah ruang yang signifikan.

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

Setelah upaya besar lainnya, kode kurang satu karakter, tolong bantu saya untuk mengurangi lebih banyak.

Befunge-98 (24)

(Pastikan Anda menggunakan juru bahasa yang bisa membaca angka negatif (sepertinya bug yang agak umum, tetapi RcFunge berfungsi))

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

Perl (25)

(Perl memungkinkan karakter kontrol dalam nama variabel, saya menamai variabel saya ^ B (ASCII 2) sehingga tidak dihitung ke arah tujuan.)

<>; $ ^ B + = $ _ *! / - / untuk <>; cetak $ ^ B

(Varian normal (27 karakter)):

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

APL (10)

+/{0⌈⎕}¨⍳⎕

Penjelasan:

• ⍳⎕: baca baris, berikan daftar [1..N] untuk input pengguna N
• ¨: untuk setiap elemen dalam daftar ini ... (mis. lakukan N kali)
• 0⌈⎕: baca baris, kembalikan maksimal 0 dan masukkan N
• Kami sekarang memiliki daftar dengan semua Ns positif yang dimasukkan pengguna, dan 0s di mana pengguna memasukkan sesuatu yang negatif.
• +/ memberikan jumlah daftar ini.
• Hasilnya adalah keluaran secara default (karena kami tidak melakukan hal lain dengannya).

Mathematica: 18 16

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

PowerShell, 44

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

Q, 12

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

penggunaan sampel

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

befunge, 35 24

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

dengan sedikit inspirasi dengan melihat jawaban marinus, saya juga sudah mengelola 24 karakter. tapi saya punya pendekatan yang sama sekali berbeda.

PYTHON 2.x, 50 karakter

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

C, 70 72 karakter

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

Hasil di situs SPOJ jelas tampak tidak nyata - Saya tidak tahu cara mendapatkan ini hingga 63.

Namun, 68 karakter dapat dijangkau pada beberapa kompiler dengan menyalahgunakan perilaku yang tidak terdefinisi. Berikut ini berfungsi pada x86 Linux dengan 32-bit gcc, di mana semua argumen dilewatkan di 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))

hitung t dalam A1, sisa data a2 dan turun

Clojure, 108

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

Saya benar-benar berharap bisa menghindari java.io.BufferedReader.bagian itu, karena harganya 24 karakter itu sendiri. Tapi AFAIK tidak ada fasilitas untuk membaca baris dari STDIN tanpanya.

Perl, 20

Saya tahu ini sudah lama dan sepele, tetapi jawaban Perl masih dapat ditingkatkan:

#!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 karakter. Perlu mengoptimalkannya hingga 90. Ada saran?

PHP, 71

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

Python: (92 karakter)

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

(berdasarkan jawaban david4dev)

Skor terbaik untuk Ruby di spoj: http://www.spoj.com/ranks/SIZECON/lang=RUBY

45 karakter dalam python

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