Problem:

Biorąc pod uwagę zestaw liczb całkowitych, znajdź w nim sumę wszystkich dodatnich liczb całkowitych.

Wejście:

• t - liczba przypadków testowych [ t <1000]
• W każdym z kolejnych t wierszy liczba całkowita N [-1000 ≤ N ≤ 1000]

Wynik

Program powinien wypisać sumę wszystkich liczb całkowitych dodatnich.

Sprawdź swój kod w internetowym sądzie

Wynik

Wynik jest równy rozmiarowi kodu źródłowego twojego programu, z wyjątkiem symboli z kodem ASCII ≤ 32.

Oto lista najlepszych wyników: Najlepsze wyniki w Pythonie (najlepszy wynik to 29)

Biała spacja, 0

Nie mogłem się oprzeć. S= spacja, T= tab, N= nowa linia, wszystkie mają kody ASCII <= 32.

SSSSNSSSSNTTSSSSSTNTNTTNSSSNSSSSTNTTTNTSTNSSSSTNSSSSTNTTTSSSSTNTSSTTTSSSSSTSNTNTTSSSSTSNTTTNTTSNSSSSNSSSSTSNTTTSSSSNTTTTSSSTTSNSNSNNSSTNSSSSNTTTTNSTSSSSTSTSNTNSSNNN

Kodowane w standardzie Base64 dla łatwego kopiowania i wklejania.

ICAgIAogICAgCgkJICAgICAJCgkKCQkKICAgCiAgICAJCgkJCQoJIAkKICAgIAkKICAgIAkKCQkJ
ICAgIAkKCSAgCQkJICAgICAJIAoJCgkJICAgIAkgCgkJCQoJCSAKICAgIAogICAgCSAKCQkJICAg
IAoJCQkJICAgCQkgCiAKIAoKICAJCiAgICAKCQkJCQogCSAgICAJIAkgCgkKICAKCgo=

Element, 17 znaków plus 1 spacja

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

To jest mój pierwszy skonstruowany język. Został zaprojektowany tak, aby był bardzo kompaktowy i czytelny dla człowieka. Wszystkie instrukcje mają długość jednego znaku i spełniają jedną funkcję.

Element ma dwa stosy i skrót jako struktury pamięci. Dwa stosy nazywane są stosem głównym i stosem kontrolnym. Główny stos to miejsce, w którym występuje manipulacja arytmetyczna, we / wy i mieszania. Stos sterujący to miejsce, w którym zachodzą operacje logiczne, a stos ten steruje pętlą while i for.

Podstawową ideą elementu jest to, że istnieje skrót przechowujący liczby / ciągi znaków, podczas gdy stos służy do wykonywania obliczeń na tych liczbach. Wyniki tych obliczeń mogą następnie przypisać określone miejsce w haszu do przyszłego wykorzystania. Różne treści skrótu są nazywane elementami, więc jest podobny do tablicy, ale może mieć nazwy nienumeryczne.

EDIT: Można znaleźć tłumacza Element (napisany w Perlu) tutaj .

Oto lista operatorów: W niektórych z tych przykładów min oznaczają liczby już na stosie.

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 \

Oto przewodnik na temat działania programu:

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

Wywołaj jak rubinowa nazwa skryptu 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

Prawidłowo działa tylko na tliczbach całkowitych. Nie uruchomiłem tego przeciwko Spojowi, bo po prostu nie mam ochoty się tam zarejestrować.

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

kod w C 89 znaków

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

Dużo próbowałem zredukować mój kod do mniej niż 63 bajtów, ale mogę go zmniejszyć tylko do 89 bajtów. Pomóż mi zmniejszyć go do 63 bajtów lub nawet mniej.

Perl, 33

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

Chociaż przestrzeń jest niezbędna, dziwne wydaje się jej nie liczenie. No cóż, reguły są zasadami.

Hmm Prawdopodobnie mógłbym odejść od używania nazwy zmiennej, która również nie liczy się do sumy. Chodzi o to, że nie jestem pewien, jak wkleiłbym kod.

Clojure, 71

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

Na pamiątkę Dennis M. Ritchie

unix 57¹ 72:

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

zakładając, że i jest plikiem zawierającym ints.

¹) było błędne, zawierało liczbę linii i dodało 1 linię za mało.

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

(dodatkowe spacje dla przejrzystości, ponieważ się nie liczą)

Haskell jest ... interesujący, ponieważ masz tendencję do otrzymywania programów ze znaczną liczbą potrzebnych miejsc.

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

Po kolejnym dużym wysiłku kod jest o jeden znak mniej, pomóż mi bardziej go zmniejszyć.

Befunge-98 (24)

(Upewnij się, że używasz interpretera, który może odczytywać liczby ujemne (wydaje się to być dość powszechnym błędem, ale RcFunge działa))

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

Perl (25)

(Perl zezwala na znaki sterujące w nazwach zmiennych, nazwałem swoją zmienną ^ B (ASCII 2), aby nie liczyć się do celu.)

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

(Wariant normalny (27 znaków)):

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

APL (10)

+/{0⌈⎕}¨⍳⎕

Wyjaśnienie:

• ⍳⎕: przeczytaj wiersz, podaje listę [1..N] dla danych wejściowych użytkownika N
• ¨: dla każdego elementu na tej liście ... (tzn. wykonaj N razy)
• 0⌈⎕: przeczytaj wiersz, zwróć maksymalnie 0 i wprowadzony N
• Mamy teraz listę wszystkich pozytywnych N wprowadzonych przez użytkownika i 0, gdzie użytkownik wpisał coś negatywnego.
• +/ daje sumę tej listy.
• Wynik jest domyślnie wyprowadzany (ponieważ nie robimy z nim nic innego).

Mathematica: 18 16

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

PowerShell, 44

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

Pytanie 12

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

przykładowe użycie

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

befunge, 35 24

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

z niewielką inspiracją, widząc odpowiedź marinus, udało mi się również 24 znaki. ale mam zupełnie inne podejście.

PYTHON 2.x, 50 znaków

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

C, 70 72 znaków

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

Wyniki na stronie SPOJ zdecydowanie wydają się nierealne - nie mam pojęcia, jak sprowadzić to do 63.

Jednak w niektórych kompilatorach można osiągnąć 68 znaków poprzez nadużywanie niezdefiniowanego zachowania. Poniższe działa w systemie Linux x86 z 32-bitowym gcc, na którym wszystkie stosy są przekazywane na stos.

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

policz t w A1, reszta danych a2 i w dół

Clojure, 108

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

Naprawdę chciałbym uniknąć tej java.io.BufferedReader.części, ponieważ sama kosztuje 24 znaki. Ale AFAIK bez tego nie ma możliwości odczytu linii ze STDIN.

Perl, 20

Wiem, że jest stary i trywialny, ale odpowiedź na Perla można jeszcze poprawić:

#!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 znaków. Potrzebujesz zoptymalizować do 90. Jakieś sugestie?

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