Розглянемо потік / файл з одним цілим числом на рядок. Наприклад:

123
5
99

Ваш код повинен виводити суму цих чисел, тобто 227.

Формат введення - строго одне ціле число на рядок. Наприклад, ви не можете припустити, що вхід знаходиться в одному рядку як масив цілих чисел.

Ви можете взяти дані або з STDIN, у формі імені файлу, або з файлу з вибором імені; ви можете вибрати, який із них. Інші способи отримання інформації не дозволені.

Вхід буде містити щонайменше одне ціле число. Можна припустити, що всі цілі числа є негативними і що їх загальна сума менша за .232

05AB1E , 2 байти

|O

Пояснення:

|   Get input as array
 O  Sum

Спробуйте в Інтернеті!

Bash + coreutils, 16 байт

xargs|tr \  +|bc

Спробуйте в Інтернеті!

Є два пробіли після \. Це працює і для від’ємних чисел.

Пояснення:

xargs             # known trick to turn newlines into spaces, while adding a
                  #trailing newline when printing the result (needed for bc)
|tr \  +          # turn spaces into '+'s
|bc               # calculates the sum

Вам може бути цікаво, чому tr \\n +|bcце не краще, оскільки він перетворює нові рядки прямо у "+". Що ж, це 2 непередбачені помилки:

• якщо на вході є зворотний новий рядок, то він перетворюється на кінцевий '+', отже, після його додавання немає цифри
• і найдивніше питання полягає в тому, що для bc потрібен останній рядок після введення, але ви просто замінили всі вхідні рядки на "+".

MATL , 2 байти

Us

Це очікує введення в текстовому файлі під назвою defin.

Gif або цього не сталося :

Або спробуйте в Інтернеті! ( дякую Деннісу за налаштування! )

Пояснення

Коли програма MATL запускається, якщо definзнайдений названий файл (назва посилається на "введення за замовчуванням"), його вміст автоматично завантажується у вигляді тексту та висувається до стеку як рядок перед виконанням коду.

Функція Uоцінює рядок, щоб перетворити його у векторний стовпець чисел і sобчислює суму, яка неявно відображається.

Japt , 2 байти

Nx

Пояснення

     Implicit: parse STDIN into array of numbers, strings, and arrays
N    Get the resulting parsed array.
 x   Sum.
     Implicit: output result of last expression

Спробуйте в Інтернеті!

Вставити + bc, 13 байт

paste -sd+|bc

Пояснення:

paste -s        Take one line at a time from input
        d+      Joining by '+'
          |bc   Pass as expression to bc

Ще одна відповідь оболонки!

Perl 6 , 13 байт

say sum lines

Спробуй це

Пояснення

• lines()повертає список рядків з $*INабо $*ARGFILESмагічної ручки введення командного рядка.
• sum(…)додано до Perl 6, щоб дозволити [+] Listоптимізувати позиції, які можуть обчислити їх суму, не генеруючи всі їхні значення, як-от 1..100000
  (я просто думав, що sumтут занадто мило, щоб використовувати, [+]як я б зазвичай)
• say(…)виклик .gistметоду на його вхід і друкує його додатковим новим рядком.

C, 53 байти

r;main(i){for(;~scanf("%d",&i);r+=i);printf("%d",r);}

Python 3 , 28 байт

print(sum(map(int,open(0))))

Взято з цієї поради . Мені сказали, що це не буде працювати в Windows.

Спробуйте в Інтернеті!

Сітківка , 11 7 байт

-4 завдяки Мартіну Ендеру

.*
$*
1

Спробуйте в Інтернеті!

Перетворити в одинарний:

.*
$*

Порахуйте кількість 1s:

1

Мозок-Флак , 20 байт

(([]){[{}]{}([])}{})

Спробуйте в Інтернеті!

Пояснення

Це гольф рішення, яке зробив Райлі в чаті . Його рішення було:

([])({<{}>{}<([])>}{})

Якщо ваш знайомий з Brain-Flak, це досить зрозуміло. Він підштовхує висоту стека і показує одне значення, коли воно відлічується, в кінці воно висуває суму всіх прогонів.

Це досить хороший гольф, але він нулі і те, {}і ([])однак у них будуть значення, які відрізняються лише на одне, тому якщо замість цього ми знімемо маски і зробимо одну з двох негативних, їх слід майже скасувати.

([])({[{}]{}([])}{})

Оскільки вони завжди відрізняються одна від одної, у нас є нещасна обставина, коли наша відповідь завжди відхилена висотою стека. Щоб виправити це, ми просто переміщаємо початок натискання, щоб охопити першу висоту стека.

(([]){[{}]{}([])}{})

Python 2, 40 байт

import sys;print sum(map(int,sys.stdin))

R, 11 байт

sum(scan())

scanприймає вхід, по одному номеру на рядок. І sum, ну сум.

Perl 5 , 9 байт

8 байт коду + -pпрапор.

$\+=$_}{

Спробуйте в Інтернеті!

З -p, вхід зчитується по одному рядку, що зберігається в $_кожен раз. Ми використовуємо $\як акумулятор, тому що завдяки -pпрапору він неявно друкується в кінці. Незрівняні }{використовуються, тому -pпрапор друкується лише $\один раз в кінці замість друку, $_і $\на кожному рядку він читається так, як це робиться зазвичай.

Чистий Баш, 37 36 байт

Дякуємо @KevinCruijssen за байт!

while read a;do((b+=a));done;echo $b

Спробуйте в Інтернеті!

Haskell, 32 байти

interact$show.sum.map read.lines

Спробуйте в Інтернеті! .

interactзбирає весь вхід зі stdin, передає його функції, заданій як його аргумент, і друкує рядок, який він отримує від цієї функції. Функція:

            lines   -- split input into list of lines at nl
      map read      -- convert every line to a number (read is polymorphic,
                    -- but as want to sum it later, the type checker knows
                    -- it has to be numbers)
    sum             -- sum the list of numbers
show                -- convert back to string

PHP, 22 байти

<?=array_sum(file(t));

Це передбачає, що існує файл з назвою "t" зі списком цілих чисел.

file()відкриває файл і повертає масив з кожним рядком, що зберігається окремим елементом у масиві. array_sum()підсумовує всі елементи в масиві.

Awk, 19 байт

{s+=$1}END{print s}

Пояснення:

{s+=$1}                For all lines in the input, add to s
        END             End loop
           {print s}    Print s

постійного струму , 14 байт

0[+?z2=a]dsaxp

Спробуйте в Інтернеті!

Пояснення:

 [      ] sa   # recursive macro stored in register a, does the following:
  +            # - sum both numbers on stack
               #   (prints to stderr 1st time since there's only 1)
   ?           # - read next line, push to stack as number
    z          # - push size of stack
     2         # - push 2
      =a       # - if stack size = 2, ? yielded something, so recurse
               # - otherwise end macro (implicit)
0              # push 0 (accumulator)
         d     # duplicate macro before storing it
            x  # Call macro
             p # The sum should be on the stack now, so print it

CJam , 5 байт

q~]1b

Спробуйте в Інтернеті!

Як це працює

q     e# Read all input from STDIN.
 ~    e# Evaluate that input, pushing several integers.
  ]   e# Wrap the entire stack in an array.
   1b e# Convert from base 1 to integer.
      e# :+ (reduce by sum) would work as well, but 1b handles empty arrays.

Пітон, 38 30 байт

lambda n:sum(map(int,open(n)))

У python файли відкриваються open('filename')(очевидно). Однак вони ітерабельні. Кожен раз, коли ви повторюєте файл, ви отримуєте наступний рядок. Отже, карта повторюється над кожним списком, викликаючи intйого, а потім підсумовує отриманий список.

Телефонуйте з ім'ям файлу як вхідним. (тобто f('numbers.txt'))

8 байтів, збережених за допомогою map(int, open(n))розуміння списку. Оригінальний код:

lambda n:sum([int(i)for i in open(n)]) 

Математика, 19 байт

Передбачає середовище ноутбука Mathematica.

Tr[#&@@@Import@"a"]

Очікує, що вхід буде у файлі a.

Желе , 9 8 байт

ƈFпFỴVS

STDIN насправді не є джеллі ...

Спробуйте в Інтернеті!

Як це працює

ƈFпFỴVS  Main link. No arguments. Implicit argument: 0

  п      While loop; while the condition returns a truthy value, execute the body
          and set the return value to the result. Collect all results (including 0,
          the initial return value) in an array and return that array.
ƈ           Body: Yield a character from STDIN or [] if the input is exhausted.
 F          Condition: Flatten, mapping 0 to [], '0' to "0", and [] to [] (falsy).
    F     Flatten the result.
     Ỵ    Split at newlines.
      V   Evaluate the resulting strings.
       S  Take the sum.

Брахілог , 4 байти

ṇịᵐ+

Спробуйте в Інтернеті!

Пояснення

ṇ         Split the Input on linebreaks
 ịᵐ       Map: String to Integer
   +      Sum

Чистий баш, 30

read -d_ b
echo $[${b//'
'/+}]

Спробуйте в Інтернеті.

• reads вхідний файл за один перехід до змінної b. -d_повідомляє, readщо роздільник ліній _замістьnewline
• ${b//'newline'/+}замінює нові рядки в bна+
• echo $[ ... ] арифметично оцінює отриманий вираз і виводить його.

Vim, 16 байт / натискання клавіш

:%s/\n/+
C<C-r>=<C-r>"<C-h>

Оскільки V назад сумісний, ви можете спробувати його в Інтернеті!

Pyth , 3 байти

s.Q

Спробуйте в Інтернеті!

 .Q  Read all of standard input, evaluating each line.
s    Take the sum.

jq , 5 байт

add, плюс прапор командного рядка -s.

Наприклад:

% echo "1\n2\n3\n4\n5" | jq -s add
15

Власне , 2 байти

kΣ

Спробуйте в Інтернеті!

Пояснення:

kΣ
    (implicit input - read each line, evaluate it, and push it to the stack)
k   pop all stack elements and push them as a list
 Σ  sum
    (implicit output)

DC, 22

[pq]sq0[?z2>q+lmx]dsmx

Це здається довше, ніж має бути, але важко визначити, коли буде досягнуто кінець файлу. Єдиний спосіб, з якого я можу це зробити, - це перевірити довжину стека після ?команди.

Спробуйте в Інтернеті .

[pq]                    # macro to `p`rint top-of-stack, then `q`uit the program
    sq                  # save the above macro in the `q` register
      0                 # push `0` to the stack.  Each input number is added to this (stack accumulator)
       [         ]      # macro to:
        ?               # - read line of input
         z              # - push stack length to stack
          2             # - push 2 to the stack
           >q           # - if 2 > stack length then invoke macro stored in `q` register
             +          # - add input to stack accumulator
              lmx       # - load macro stored in `m` register and execute it
                  d     # duplicate macro
                   sm   # store in register `m`
                     x  # execute macro

Зверніть увагу, макрос mназивається рекурсивно. Сучасні dcреалізують хвостові рекурсії для подібних речей, тому не повинно бути ніяких побоювань щодо переповнення стека.

Пайк , 4 байти

zbrs

Спробуйте в Інтернеті!

z    -   input()
 b   -  int(^)
  r  - if no errors: goto start
   s - sum(stack)