Проблема:

Давши набір цілих чисел, знайдіть у ньому суму всіх натуральних чисел.

Вхід:

• 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~+]]`

Це моя перша побудована мова. Він розроблений, щоб бути дуже компактним і читабельним для людини. Всі інструкції мають один символ і виконують одну функцію.

Element має два стеки та хеш як структури пам'яті. Два стеки називаються основним стеком і контрольним стеком. Основний стек - це те, де відбувається арифметика, введення / виведення та хеш-маніпуляція. Контрольний стек - це місце, де відбуваються логічні операції, і цей стек контролює час і цикл.

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

EDIT: Ви можете знайти перекладача для 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

Перл, 31

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

Рубін 1.9.2, 37

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

Телефонуйте як ім'я сценарію рубіну 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 байт або навіть менше.

Перл, 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
• Тепер у нас є список із усіма позитивними Ns, які ввів користувач, та 0s, де користувач ввів щось негативне.
• +/ дає суму цього списку.
• Результат виводиться за замовчуванням (тому що ми з ним нічого іншого не робимо).

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

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

PowerShell, 44

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

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

підраховують t в 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 без нього.

Перл, 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;

Пітон: (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]))

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