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

Вхідні дані

Ваше введення складається у формі будь-якого додатного цілого числа, що перевищує або дорівнює 1.

Вихід

Ви повинні вивести суму всіх цілих чисел між 1 і включаючи 1 та числом введення.

Приклад

 In: 5
     1+2+3+4+5 = 15
Out: 15

OEIS A000217 - Трикутні числа: a (n) = двочлени (n + 1,2) = n (n + 1) / 2 = 0 + 1 + 2 + ... + n.

Таблиця лідерів

Запустіть фрагмент коду нижче, щоб переглянути таблицю лідерів відповідей на це питання. (Дякуємо програмісту 5000 та Стінбергу за те, що вони запропонували це, та Мартіну Ендеру за його створення.)

var QUESTION_ID=133109,OVERRIDE_USER=69148;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px} /* font fix */ body {font-family: Arial,"Helvetica Neue",Helvetica,sans-serif;} /* #language-list x-pos fix */ #answer-list {margin-right: 200px;}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Pyth , 2 байти

sS

Спробуйте в Інтернеті! Неявне введення. Sє 1-індексованим діапазоном і sє сумою.

Лушпиння , 1 байт

Σ

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

Вбудований! Σв Husk зазвичай використовується для отримання суми всіх елементів списку, але при застосуванні до числа воно точно повертається n*(n+1)/2.

Піт , 161 байт / 16 коделів

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

Масштабована версія вихідного зображення:

Пояснення

highlightedТекст показує поточний стек (зростає зліва направо), припускаючи , що вхідний користувач 5:

Введіть число і натисніть на стек

5

Скопіюйте це число на стеку

5 5

Натисніть 1 (розміром із темно-червоної області) на стек

5 5 1

Додайте перші два числа

5 6

Помножте два найкращих числа

30

Чорна зона гарантує, що курсор рухається вниз направо до світло-зеленого кодера. Цей перехід штовхає 2 (розміром із темно-зеленого) на стек

30 2

Розділіть друге число на стеку на перше

15

Поп і виведіть верхнє число (інтерпретується як число)

[empty]

Вставивши білу область, перехід є a nop, чорний захоплює наш курсор. На цьому завершується виконання програми.

Оригінальний файл (тут занадто мало):

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

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

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

Це одна з небагатьох речей, у яких справді добре працює мозок .

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

# Push the sum of all of this code. In brain-flak, every snippet also returns a
# value, and all values inside the same brackets are summed
(
    # Loop and accumulate. Initially, this snippet return 0, but each time the
    # loop runs, the value of the code inside the loop is added to the result.
    {
        # Push (and also return)...
        (
            # The value on top of the stack
            {}

            # Plus the negative of...
            [
                # 1
                ()
            ]

        # The previous code pushes n-1 on to the stack and returns the value n-1
        )

        # 1
        # This code has no side effect, it just returns the value 1 each loop.
        # This effectively adds 1 to the accumulator
        ()

    # The loop will end once the value on top of the stack is 0
    }

    # Pop the zero off, which will also add 0 to the current value
    {}

# After the sum is pushed, the entire stack (which only contains the sum)
# will be implicitly printed.
)

Оазис , 3 байти

n+0

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

Як це працює

n+0
  0    a(0)=0
n+     a(n)=n+a(n-1)

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

#(#+1)/2&

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

(#^2+#)/2&

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

Tr@Range@#&

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

i~Sum~{i,#}&

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

(автор @ user71546)

1/2/Beta[#,2]&

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

Tr[#&~Array~#]&

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

Binomial[#+1,2]&

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

(автор @Not a tree)

⌊(2#+1)^2/8⌋&

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

PolygonalNumber@#&

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

#+#2&~Fold~Range@#&

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

(автор @Not a tree)

f@0=0;f@i_:=i+f[i-1]

JavaScript (ES6), 10 байт

n=>n*++n/2

Приклад

let f =

n=>n*++n/2

console.log(f(5))

x86_64 машинна мова (Linux), 9 8 байт

0:   8d 47 01                lea    0x1(%rdi),%eax
3:   f7 ef                   imul   %edi
5:   d1 e8                   shr    %eax
7:   c3                      retq 

Для того, щоб спробувати його в Інтернеті! компілювати та запускати наступну програму C.

#include<stdio.h>
const char f[]="\x8d\x47\x01\xf7\xef\xd1\xe8\xc3";
int main(){
  for( int i = 1; i<=10; i++ ) {
    printf( "%d %d\n", i, ((int(*)())f)(i) );
  }
}

Завдяки @CodyGray та @Peter для -1.

Python 2 , 24 16 байт

-8 байт завдяки FryAmTheEggman.

lambda n:n*-~n/2

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

C # (.NET Core) , 10 байт

n=>n++*n/2

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

Java (OpenJDK 8) , 10 байт

n->n++*n/2

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

Октава , 22 19 байт

Тому що арифметичні операції нудні ...

@(n)nnz(triu(e(n)))

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

Пояснення

З огляду на nце, створюється матриця n× nзі всіма записами, рівними кількості e ; робить записи нижче діагонального нуля; і виводить кількість ненульових значень.

Желе , 2 байти

RS

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

Пояснення

RS

    implicit input
 S  sum of the...
R   inclusive range [1..input]
    implicit output

Сума Гаусса, 3 байти

‘×H

Пояснення

‘×H

     implicit input
  H  half of the quantity of...
‘    input + 1...
 ×   times input
     implicit output

APL, 3 байти

+/⍳

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

+/- сума (зменшення +), ⍳- діапазон.

Haskell , 13 байт

Це найкоротший (я думаю, що думав):

f n=sum[1..n]

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

Прямий, 17 13 байт

f n=n*(n+1)/2

Дякуємо @WheatWizard за -4байти!

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

Безпосередній прямий, 15 байт

(*)=<<(/2).(+1)

Дякую @nimi за ідею!

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

Pointfree via sum, 16 байт

sum.enumFromTo 1

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

Рекурсивно, 22 18 байт

f 0=0;f n=n+f(n-1)

Дякуємо @maple_shaft за ідею та @Laikoni за те, що ми пограли у неї!

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

Стандарт fold, 19 байт

f n=foldr(+)0[1..n]

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

Зоряний , 27 22 байт

5 байт збережено завдяки @miles !

, + +  **       +   *.

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

Пояснення

,             Read number (n) from STDIN and push it to the stack
 +            Duplicate top of the stack
 +            Duplicate top of the stack
  *           Pop two numbers and push their product (n*n)
*             Pop two numbers and push their sum (n+n*n)
       +      Push 2
   *          Pop two numbers and push their division ((n+n*n)/2)
.             Pop a number and print it to STDOUT

05AB1E , 2 байти

LO

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

Як це працює

     #input enters stack implicitly
L    #pop a, push list [1 .. a]
 O   #sum of the list
     #implicit output 

Сума Гаусса, 4 байти

>¹*;

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

Як це працює

>       #input + 1
 ¹*     #get original input & multiply
   ;    #divide by two 

Java (OpenJDK 8) , 10 байт

a->a++*a/2

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

Взяв хвилинку, щоб покататися на гольфі, n->n*(n+1)/2бо я повільний.

Але це не справжня відповідь Java. Це, безумовно, недостатньо багатослівно.

import java.util.stream.*;
a->IntStream.range(1,a+1).sum()

Непогано, але ми можемо зробити і краще.

import java.util.stream.*;
(Integer a)->Stream.iterate(1,(Integer b)->Math.incrementExact(b)).limit(a).reduce(0,Integer::sum)

Я люблю Java.

Перевірка , 5 байт

:)*$p

Перевірка не є навіть мовою для гри в гольф, але вона б'є CJam!

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

Пояснення:

Вхідний номер розміщується на стеці. :дублює це, щоб дати n, n. Потім він збільшується ), даючи n, n+1. *помножує два разом, а потім $ділить результат на 2. pдрукується результат і програма припиняється.

MATL , 2 байти

:s

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

Не щасливий смайлик.

Таксі , 687 байт

Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:s 1 l 1 r.Pickup a passenger going to Cyclone.Go to Cyclone:n 1 l 1 l 2 r.[a]Pickup a passenger going to Addition Alley.Pickup a passenger going to The Underground.Go to Zoom Zoom:n.Go to Addition Alley:w 1 l 1 r.Pickup a passenger going to Addition Alley.Go to The Underground:n 1 r 1 r.Switch to plan "z" if no one is waiting.Pickup a passenger going to Cyclone.Go to Cyclone:n 3 l 2 l.Switch to plan "a".[z]Go to Addition Alley:n 3 l 1 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:n 1 r 1 r.Pickup a passenger going to Post Office.Go to Post Office:n 1 l 1 r.

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

Без гольфу з коментарями:

[ n = STDIN ]
Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: south 1st left 1st right.
Pickup a passenger going to Cyclone.
Go to Cyclone: north 1st left 1st left 2nd right.

[ for (i=n;i>1;i--) { T+=i } ]
[a]
Pickup a passenger going to Addition Alley.
Pickup a passenger going to The Underground.
Go to Zoom Zoom: north.
Go to Addition Alley: west 1st left 1st right.
Pickup a passenger going to Addition Alley.
Go to The Underground: north 1st right 1st right.
Switch to plan "z" if no one is waiting.
Pickup a passenger going to Cyclone.
Go to Cyclone: north 3rd left 2nd left.
Switch to plan "a".

[ print(T) ]
[z]
Go to Addition Alley: north 3rd left 1st left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: north 1st right 1st right.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st left 1st right.

_{Це на 22,6% менше байтів, ніж для використання x*(x+1)/2}

Джулія, 10 байт

n->n*-~n/2

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

11 байт (працює також на Julia 0.4)

n->sum(1:n)

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

Brainfuck, 24 байт.

I / O обробляється як байти.

,[[->+>+<<]>[-<+>]<-]>>.

Пояснив

,[[->+>+<<]>[-<+>]<-]>>.
,                           # Read a byte from STDIN
 [                  ]       # Main loop, counting down all values from n to 1
  [->+>+<<]                 # Copy the i value to *i+1 and *i+2
           >[-<+>]          # Move *i+1 back to i
                  <-        # Move back to i, lower it by one. Because *i+2 is never reset, each iteration adds the value of i to it.
                     >>.    # Output the value of *i+2

,,, 6 байт

:1+×2÷

Пояснення

:1+×2÷

:       ### duplicate
 1+     ### add 1
   ×    ### multiply
    2÷  ### divide by 2

Якщо незабаром я впроваджую діапазон ...

rΣ

Сітківка , 13 байт

.+
$*
1
$`1
1

Спробуйте в Інтернеті! Пояснення: Перший і останній етапи є просто унітарним ⇔ десятковим перетворенням. Середній етап замінює кожне 1числом 1s вліво плюс іншим 1для 1себе, таким чином рахуючи від 1до n, підсумовуючи значення неявно.

> <> , 7 + 3 = 10 байт

Обчислює n (n + 1) / 2 .
3 байти додано для прапора -v

:1+2,*n

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

Або якщо введення можна сприймати як код символу:

> <> , 9 байт

i:1+2,*n;

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

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

d1+*2/p

АБО

d2^+2/p

АБО

dd*+2/p

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

PHP, 19 байт

<?=$argn*-~$argn/2;
<?=$argn/2*++$argn;
<?=$argn*++$argn/2; # this one fails

використовуючи вбудовані, 29 байт:

<?=array_sum(range(1,$argn));

цикл, 31 байт:

while($argn)$s+=$argn--;echo$s;

Cubix , 12 10 байт

*,)2I://O@

Початкова версія

....I:)*2,O@

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

Пояснення

Розгорнутий на куб, код виглядає приблизно так:

    * ,
    ) 2
I : / / O @ . .
. . . . . . . .
    . .
    . .

Покажчик інструкцій (IP) починається на I, рухаючись на схід. Він продовжує рухатися на схід, поки не натикається на /дзеркало, яке відбиває його на північ. Коли IP доходить до вершини коду, він завертається до останнього .на третьому рядку, рухаючись на південь. Потім він завертається до передостаннього .на останній лінії, рухаючись на північ. Потім воно /знову доходить до дзеркала, яке відбиває його на схід, лише для наступного, /щоб знову відбити його на північ. Цього разу IP переходить до передостаннього .на третьому рядку, а потім останньому .в останньому рядку.

Інструкції виконуються в наступному порядку.

I:)*2,O@ # Explanation
I        # Take input as an integer and push it to the stack
 :       # Duplicate the input
  )      # Increment one of the inputs
   *     # Multiply the input by input+1
    2    # Push 2 to the stack
     ,   # Integer devide the multiplication result by 2
      O  # Output the result
       @ # End program

x86-64 Машинний код, 7 байт

31 C0
01 C8
E2 FC
C3  

Вищеописані байти визначають функцію, яка приймає один параметр, nі повертає значення, що містить суму всіх цілих чисел від 1 до n.

Він записується до конвенції про виклики Microsoft x64 , яка передає параметр у ECXрегістр. Повертається значення залишається EAX, як і всі умови викликів x86 / x86-64.

Невикольована збірна мнемоніка:

       xor  eax, eax    ; zero out EAX
Next:  add  eax, ecx    ; add ECX to EAX
       loop Next        ; decrement ECX by 1, and loop as long as ECX != 0
       ret              ; return, with result in EAX

Спробуйте в Інтернеті!
_{(Виклик функції C там позначається атрибутом, який змушує GCC викликати його за допомогою угоди про виклик Microsoft, яку використовує мій код складання. Якби TIO надав MSVC, це не було б необхідним.)}

За незвичайними стандартами кодового гольфу ви бачите, що цей ітеративний циклічний підхід є кращим перед підходами, які використовують більш розумну математичну формулу ( n(n+1) / 2), хоча він, очевидно, є менш ефективним з точки зору швидкості руху.

Використовуючи теорію чисел, реалізацію стельової кішки все одно можна обіграти на один байт. Кожна з цих інструкцій є важливою, але існує трохи коротше кодування, IMULяке використовується EAX неявно як операнд призначення (насправді він використовує EDX:EAX, але ми можемо просто ігнорувати верхні 32 біти результату). Це лише 2 байти для кодування, вниз від 3.

LEAтакож займає три байти, але насправді цього немає, тому що нам потрібно наростити , зберігаючи початкове значення. Якби ми зробили MOVкопію, тоді INCми знаходимося в 4 байти. (У x86-32, де INCє лише 1 байт, ми знаходимося на тих же 3 байтах, що і LEA.)

Кінцевий зсув правої частини потрібен для ділення результату навпіл і, безумовно, більш компактний (і більш ефективний), ніж множення. Тим НЕ менше, код повинен бути дійсно використовуючи shrзамість sar, так як це передбачає , що значення вхідного сигналу, n, це беззнаковое ціле число. (Це припущення, звичайно, справедливо згідно з правилами, але якщо ви знаєте, що вхід не підписаний, то вам не слід робити підписаний арифметичний зсув, оскільки верхній біт, встановлений у великому неподписаному значенні, спричинить результат бути невірним.)

8D 41 01                lea    eax, [rcx+1]
F7 E9                   imul   ecx
D1 E8                   shr    eax, 1
C3                      ret

Зараз лише 8 байт (завдяки Пітеру Кордесу). Все-таки 8> 7.