Проблема:

Учитывая набор целых чисел, найдите сумму всех положительных чисел в нем.

Входные данные:

• t - количество тестов [ t <1000]
• В каждой из следующих t строк целое число N [-1000 ≤ N ≤ 1000]

Выход

Программа должна вывести сумму всех натуральных чисел.

Проверьте свой код в онлайн-судье

Гол

Оценка равна размеру исходного кода вашей программы, за исключением символов с кодом ASCII ≤ 32.

Вот список лучших результатов: Лучшие результаты Python (лучший результат - 29)

Пробел, 0

Я не мог устоять. S= пробел, T= табуляция, N= перевод строки, все имеют коды ASCII <= 32.

SSSSNSSSSNTTSSSSSTNTNTTNSSSNSSSSTNTTTNTSTNSSSSTNSSSSTNTTTSSSSTNTSSTTTSSSSSTSNTNTTSSSSTSNTTTNTTSNSSSSNSSSSTSNTTTSSSSNTTTTSSSTTSNSNSNNSSTNSSSSNTTTTNSTSSSSTSTSNTNSSNNN

Base64 кодируется для легкого копирования и вставки.

ICAgIAogICAgCgkJICAgICAJCgkKCQkKICAgCiAgICAJCgkJCQoJIAkKICAgIAkKICAgIAkKCQkJ
ICAgIAkKCSAgCQkJICAgICAJIAoJCgkJICAgIAkgCgkJCQoJCSAKICAgIAogICAgCSAKCQkJICAg
IAoJCQkJICAgCQkgCiAKIAoKICAJCiAgICAKCQkJCQogCSAgICAJIAkgCgkKICAKCgo=

Элемент, 17 символов плюс 1 пробел

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

Это мой первый построенный язык. Это разработано, чтобы быть очень компактным и удобочитаемым. Все инструкции состоят из одного символа и выполняют одну функцию.

Элемент имеет два стека и хэш в качестве структуры памяти. Два стека называются основным стеком и стеком управления. Основной стек - это место, где происходит арифметика, ввод-вывод и манипулирование хешем. В стеке управления выполняются логические операции, и этот стек управляет циклами while и for.

Основная идея Element заключается в том, что есть хеш, который хранит числа / строки, в то время как стек используется для вычисления этих чисел. Результаты этих вычислений затем могут быть назначены определенное место в хеш для будущего использования. Разное содержимое хеша называется элементами, поэтому оно похоже на массив, но может иметь нечисловые имена.

РЕДАКТИРОВАТЬ: Вы можете найти переводчика для элемента (написанный на 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

Хаскелл, 58

Правильно оперирует только tцелыми числами. Я не спровоцировал это против Споя, потому что я просто не хочу там регистрироваться.

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

Памяти Денниса М. Ричи

Unix 57¹ 72:

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

при условии, что я - файл, содержащий целые числа.

¹) ошибся, включил количество строк и добавил на 1 строку меньше.

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

Хаскелл, 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)

(Убедитесь, что вы используете интерпретатор, который может читать отрицательные числа (кажется, довольно распространенная ошибка, но RcFunge работает))

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

Perl (25)

(Perl позволяет управлять символами в именах переменных, я назвал свою переменную ^ B (ASCII 2), чтобы она не учитывалась для достижения цели.)

<>; $ ^ B + = $ _ *! / - / для <>; выведите $ ^ B

(Нормальный вариант (27 символов)):

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

APL (10)

+/{0⌈⎕}¨⍳⎕

Объяснение:

• ⍳⎕: прочитать строку, выдает список [1..N] для ввода пользователем N
• ¨: для каждого элемента в этом списке ... (т.е. сделать N раз)
• 0⌈⎕: прочитать строку, вернуть максимум 0 и введенное N
• Теперь у нас есть список всех положительных N, введенных пользователем, и 0, где пользователь ввел что-то отрицательное.
• +/ дает сумму этого списка.
• Результат выводится по умолчанию (потому что мы ничего не делаем с ним).

Математика: 18 16

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

PowerShell, 44

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

Вопрос, 12

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

пример использования

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

befunge, 35 24

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

с небольшим вдохновением, увидев ответ Маринус, я также управлял 24 персонажами. но у меня совершенно другой подход.

PYTHON 2.x, 50 символов

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

C 70 72 символов

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

Результаты на сайте SPOJ определенно кажутся нереальными - я понятия не имею, как снизить это до 63.

Тем не менее, 68 символов достижимы в некоторых компиляторах, злоупотребляя неопределенным поведением. Следующее работает на x86 Linux с 32-битным gcc, в котором все аргументы передаются в стек.

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

считать т в A1, остальные данные a2 и вниз

Clojure, 108

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

Я действительно хотел бы избежать этой java.io.BufferedReader.части, так как она стоит 24 символа. Но AFAIK нет возможности читать строки из STDIN без него.

Perl, 20

Я знаю, что он старый и тривиальный, но ответ на Perl можно улучшить:

#!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 символов в длину. Нужно оптимизировать его до 90. Есть предложения?

PHP, 71

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

Python: (92 символа)

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

Скала 55 54:

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

С

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

Руби, 42

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

(основываясь на ответе david4dev)

Лучший результат для Руби на спой: http://www.spoj.com/ranks/SIZECON/lang=RUBY

45 символов в питоне

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