問題：

整数のセットが与えられたら、その中のすべての正の整数の合計を見つけます。

入力：

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

これが私の最初の構築言語です。非常にコンパクトで人間が読めるように設計されています。命令はすべて1文字の長さで、1つの機能を実行します。

要素には、メモリ構造として2つのスタックとハッシュがあります。2つのスタックは、メインスタックおよびコントロールスタックと呼ばれます。メインスタックは、算術演算、I / O、およびハッシュ操作が行われる場所です。制御スタックは論理演算が発生する場所であり、このスタックはwhileループとforループを制御します。

Elementの背後にある基本的な考え方は、数値/文字列を保存するハッシュがあり、スタックはこれらの数値の計算を実行するために使用されるということです。これらの計算の結果は、将来の使用のためにハッシュ内の特定の場所に割り当てることができます。ハッシュのさまざまなコンテンツは要素と呼ばれるため、配列に似ていますが、数値以外の名前を持つことができます。

編集：ここでは、Perlで記述されたElementのインタープリターを見つけることができます。

演算子のリストは次のとおりです。これらの例の一部では、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

Ruby 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整数のみで正しく動作します。Spojに対しては実行しないでください。登録する気にならないからです。

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

追Inデニス・M・リッチー

UNIX 57¹ 72：

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

iがintを含むファイルであると仮定します。

¹）が間違っていて、行数を含めて、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; }

別の大きな努力の後、コードは1文字少なくなりました。もっと減らすために私を助けてください。

Befunge-98（24）

（必ず、負の数を読み取れるインタープリターを使用してください（多少一般的なバグのようですが、RcFungeは機能します））

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

Perl（25）

（Perlでは変数名に制御文字を使用できます。目標にカウントされないように、変数に^ B（ASCII 2）という名前を付けました。）

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

（通常のバリアント（27文字））：

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

APL（10）

+/{0⌈⎕}¨⍳⎕

説明：

• ⍳⎕：行を読み取り、ユーザーの入力Nのリスト[1..N]を提供します
• ¨：このリストの各要素に対して...（つまり、N回実行）
• 0⌈⎕：行を読み取り、0の最大値と入力されたNを返します
• これで、ユーザーが入力したすべての正のNと、ユーザーが負の値を入力した0のリストができました。
• +/ このリストの合計を示します。
• 結果はデフォルトで出力されます（他に何もしていないため）。

Mathematica：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文字に到達できます。以下は、すべての引数がスタックで渡される32ビットgccを備えたx86 Linuxで機能します。

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

エクセル、27

=SUM(INDIRECT("A2:A"&1+A1))

A1のtをカウントし、残りのデータ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文字かかるので、この部分を避けることができればと思っています。しかし、知る限りでは、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)

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

ルビー、42

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

（david4devの回答に基づく）

spojでのRubyの最高スコア：http : //www.spoj.com/ranks/SIZECON/lang=RUBY

Pythonで45文字

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