Problema:

Dado um conjunto de números inteiros, encontre a soma de todos os números inteiros positivos.

Entrada:

• t - número de casos de teste [ t <1000]
• Em cada uma das próximas linhas t , um número inteiro N [-1000 ≤ N ≤ 1000]

Resultado

O programa deve gerar a soma de todos os números inteiros positivos.

Verifique seu código no juiz online

Ponto

A pontuação é igual ao tamanho do código fonte do seu programa, exceto os símbolos com código ASCII ≤ 32.

Aqui está a melhor pontuação: Python Best Scores (Best score is 29)

Espaço em branco, 0

Eu não pude resistir. S= espaço, T= tabulação, N= nova linha, todos têm códigos ASCII <= 32.

SSSSNSSSSNTTSSSSSTNTNTTNSSSNSSSSTNTTTNTSTNSSSSTNSSSSTNTTTSSSSTNTSSTTTSSSSSTSNTNTTSSSSTSNTTTNTTSNSSSSNSSSSTSNTTTSSSSNTTTTSSSTTSNSNSNNSSTNSSSSNTTTTNSTSSSSTSTSNTNSSNNN

Codificado em Base64 para fácil copiar e colar.

ICAgIAogICAgCgkJICAgICAJCgkKCQkKICAgCiAgICAJCgkJCQoJIAkKICAgIAkKICAgIAkKCQkJ
ICAgIAkKCSAgCQkJICAgICAJIAoJCgkJICAgIAkgCgkJCQoJCSAKICAgIAogICAgCSAKCQkJICAg
IAoJCQkJICAgCQkgCiAKIAoKICAJCiAgICAKCQkJCQogCSAgICAJIAkgCgkKICAKCgo=

Elemento, 17 caracteres mais 1 espaço

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

Esta é a minha primeira linguagem construída. Ele foi projetado para ser muito compacto e legível por humanos. Todas as instruções têm um caractere e executam uma única função.

O elemento possui duas pilhas e um hash como estruturas de memória. As duas pilhas são chamadas de pilha principal e pilha de controle. A pilha principal é onde ocorre a manipulação aritmética, de E / S e de hash. A pilha de controle é onde as operações lógicas ocorrem, e essa pilha controla o tempo e os loops.

A idéia básica por trás do Element é que existe um hash que armazena números / strings, enquanto a pilha é usada para realizar cálculos nesses números. Os resultados desses cálculos podem ser atribuídos a um determinado local no hash para uso futuro. Os diferentes conteúdos do hash são chamados de elementos, portanto, é semelhante a uma matriz, mas pode ter nomes não numéricos.

EDIT: Você pode encontrar um intérprete para Element (escrito em Perl) aqui .

Aqui está a lista de operadores: Em alguns desses exemplos, m e n representam números já na pilha.

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 \

Aqui está uma explicação de como o programa funciona:

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

Chame como 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

Funciona corretamente apenas em tnúmeros inteiros. Não joguei contra Spoj porque eu simplesmente não me importo em me registrar lá.

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

código em caracteres 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; }

Eu tentei muito reduzir meu código para menos de 63 bytes, mas posso reduzi-lo apenas para 89 bytes. Por favor, ajude-me a reduzi-lo para 63 bytes ou até menos.

Perl, 33

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

Embora o espaço seja necessário, parece estranho não contar. Bem, as regras são as regras.

Hmm. Eu provavelmente poderia usar um nome de variável que também não conta para o total. O problema é que não tenho certeza de como colaria o código então.

Clojure, 71

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

Em memória Dennis M. Ritchie

unix 57¹ 72:

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

assumindo que i é o arquivo, contendo as entradas.

Was) estava errado, incluiu o número de linhas e adicionou 1 linha a menos.

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

(espaços extras para maior clareza, pois não contam)

Haskell é ... interessante, pois você tende a obter programas com um número significativo de espaços necessários.

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

Após outro grande esforço, o código tem um caractere a menos, por favor, ajude-me a reduzi-lo mais.

Befunge-98 (24)

(Certifique-se de usar um intérprete que possa ler números negativos (parece ser um bug um tanto comum, mas o RcFunge funciona))

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

Perl (25)

(O Perl permite caracteres de controle em nomes de variáveis, nomeei minha variável ^ B (ASCII 2) para que não conte para o objetivo.)

<>; $ ^ B + = $ _ *! / - / para <>; imprime $ ^ B

(Variante normal (27 caracteres)):

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

APL (10)

+/{0⌈⎕}¨⍳⎕

Explicação:

• ⍳⎕: lê uma linha, fornece uma lista [1..N] para a entrada do usuário N
• ¨: para cada elemento nesta lista ... (ou seja, N vezes)
• 0⌈⎕: leia uma linha, retorne o máximo de 0 e o N inserido
• Agora temos uma lista com todos os Ns positivos inseridos pelo usuário e 0s em que o usuário inseriu algo negativo.
• +/ dá a soma desta lista.
• O resultado é produzido por padrão (porque não estamos fazendo mais nada com ele).

Mathematica: 18 16

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

PowerShell, 44

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

Q, 12

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

uso de amostra

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

befunge, 35 24

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

com um pouco de inspiração ao ver a resposta de marinus, também consegui 24 caracteres. mas eu tenho uma abordagem completamente diferente.

PYTHON 2.x, 50 caracteres

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

C, 70 72 caracteres

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

Os resultados no site do SPOJ definitivamente parecem irreais - não tenho idéia de como reduzir isso para 63.

No entanto, 68 caracteres são acessíveis em alguns compiladores, abusando de comportamentos indefinidos. O seguinte funciona no Linux x86 com gcc de 32 bits, no qual todos os argumentos são transmitidos na pilha.

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

contar t em A1, restante dos dados a2 e abaixo

Clojure, 108

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

Eu realmente gostaria de poder evitar a java.io.BufferedReader.peça, uma vez que custa 24 caracteres. Mas o AFAIK não tem a possibilidade de ler linhas do STDIN sem ele.

Perl, 20

Eu sei que é antigo e trivial, mas a resposta Perl ainda pode ser melhorada:

#!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 caracteres. Precisa otimizá-lo para 90. Alguma sugestão?

PHP, 71

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

Python: (92 caracteres)

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

(com base na resposta de david4dev)

Melhor pontuação para Ruby no spoj: http://www.spoj.com/ranks/SIZECON/lang=RUBY

45 caracteres em python

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