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

Змагання

• Візьміть дані через будь-яку розумну форму (stdin, функція тощо) одного додатного чи негативного реального числа.

• Заокруглюйте це число "до нуля" - це означає, що якщо воно позитивне, ви округлите, а якщо воно негативне - то округлите його.

• Поверніть номер або виведіть його на консоль.

Тестові справи

 1.1   =>  1
-1.1   => -1
 500.4 =>  500
-283.5 => -283
 50    =>  50
-50    => -50

Правила

• Це код-гольф , тому найменший бал виграє в байтах.

• Пам’ятайте про стандартні лазівки .

Веселіться! _{^{ще найближчі виклики Джиммі}}

Желе , 1 байт

r

Повна програма (як монадійна Посилання повертає список по довжині).

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

Як?

r - Main Link: number, X           e.g. -7.999
r - inclusive range between left (X) and right (X) (implicit cast to integer of inputs)
  -  = [int(X):int(X)] = [int(X)]       [-7]
  - implicit (smashing) print            -7

Python 3 , 3 байти

int

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

Скорочує цифри після коми після коми.

ПРИМІТКА. Це тривіальна відповідь. Будь ласка, подивіться на інші відповіді, перш ніж подавати заявку

Python 2 , 3 байти

int

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

Perl 5 -p056l15 , 2 байти

<>

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

Як це працює?

-056   # (CLI) Make "." the input record separator
-l15   # (CLI) Make "\n" the output record separator
       # (otherwise it would use the input separator)
-p     # (CLI) Implicitly read $_ from STDIN
<>     # Read the second input field and do nothing with it
-p     # (CLI) Output $_ to STDOUT

Або якщо ви віддаєте перевагу більш традиційну відповідь:

Perl 5 , 6 байт

$_=int

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

Лабіринт і шестикутник , 3 байти

Завдяки FryAmTheEggman за те, що він вказав, що я написав кілька шестикутників!

?!@

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

Як?

Лабіринт і Гексагонія розкажуть вам якомога раніше! ...

? - read and discard from STDIN until a digit, a - or a + is found. Then read as many characters as possible to form a valid (signed) decimal integer and push its value
! - pop a value and write its decimal representation to STDOUT
@ - exit the labyrinth

мозковий ебать , 26 байт

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

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

Виводи з проміжком, .якщо число було десятковим

Немає великого спекулятивного гольфу, за винятком того, що замість того, щоб відняти 46, щоб перевірити, чи є символ а ., я додаю 5 і помножую на 5, щоб отримати 255, а потім додаю ще один, щоб перекинутись на нуль. Віднімання 3, множення на 6 і віднімання 2 - це одне і те ж число

C (tcc), 39 21 10 байт

Я насправді був дуже здивований, ніхто не думав використовувати C.

f(float i){}

Це не функція ідентичності, як здається. Неявний тип int функції f скорочує плаваючу точку.

ТІО

Менш ймовірність обдурити людей, але має меншу довжину байтів:

f(int i){}

ТІО

J , 6 байт

**<.@|

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

Підпишіть *рази *за <.рівнем абсолютного значення вниз@|

Perl 6 , 4 байти

*+|0

Анонімна функція.

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

Java (OpenJDK 8) , 15 байт 9 байт

s->(int)s

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

завдяки @ kevin-cruijssen

Excel, 10 байт

=TRUNC(A1)

TRUNC обрізає число до цілого числа, видаляючи дробову частину числа.

R , 13 5 байт

Дякую Робіну Райдер

trunc

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

Сітківка 0,8,2 , 5 байт

\..*

Спробуйте в Інтернеті! Посилання включає тестові випадки.

Рубін , 11 байт

proc &:to_i

Я вибрав цю, тому що вона відрізняється від лямбдашів, якими зазвичай користуються гольфісти Рубі (на щастя, вона мала такий самий облік, як і "традиційне" рішення):

->n{n.to_i}

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

ReRegex , 12 байт

\..+//#input

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

ReRegex - мова програмування, яка збігається і заміняється знову і знову, поки не знайдеться відповідностей.

MATCH
    \.                                      The literal period/full stop char
    .+                                      Followed by one or more characters
REPLACE
    (nothing)                               Equivalent to removing the input
STRING TO REPEATEDLY MATCH/REPLACE UNTIL THERE ARE NO MATCHES
    #input                                  The input

JavaScript, 6 байт

x=>x^0

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

JavaScript, 8 байт

Використання вбудованого на 2 байти довше ...

parseInt

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

K (oK) , 3 байти

`i$

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

Машинний код FPU Intel 8087, 14 байт

D9 2E 010C      FLDCW CW_RNDZ   ; modified CW register for round towards zero
D9 06 010E      FLD  A          ; load single precision value A into ST(0)
DF 16 0112      FIST B          ; store integer value of ST(0) into B

CW_RNDZ   DW    0F7FH           ; control word to round down

Введення - це значення однієї точності в місці пам'яті A(a DD), вихід - ціле значення у місці пам'яті B(a DW).

8087 спочатку потрібно перевести в кругле напрямок до нуля, встановивши керуюче слово ( 0F7FH). Потім завантажте значення з плаваючою комою і зберігайте назад до цілого числа.

Червоний , 4 байти

to 1

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

Просто перетворює поплавок на ціле число (перетворення за прототипом)

Zsh , 10 байт

<<<$[0^$1]

xor with 0. I came across this during another challenge recently. Try it online!

Does not work in Bash or POSIX sh (dash).

V (vim), 4 bytes

Á.#D

Try it online!

Thanks @DJMcMayhem, 1 byte saved.

Keg, 19 17 13 bytes

This outputs some trailing unprintable characters. Also, this exits with an error. (Now we need reversed input!)

?'(:\.>')"([,

Whitespace (with vii5ard compiler), 18 17 bytes

[S S N
_Push_0][S N
S _Duplicate_0][T   N
T   T   _Read_STDIN_as_integer][T   T   T   _Retrieve_input][T  N
S T _Print_as_integer]

Letters S (space), T (tab), and N (new-line) added as highlighting only.
[..._some_action] added as explanation only.

Try it online. You'll have to copy-paste the code yourself (note that SE converts the tabs to a bunch of spaces!) in order to run the code at the online Whitespace-compiler vii5ard. When clicking run, it will ask for an input (i.e. -285.5), and after clicking enter it will continue and output -283.

Explanation in pseudo-code:

Integer i = STDIN as integer
Print i as integer

Whitespace can only use I/O as integers or single characters, so in this case it would read the input as integer and ignore any other trailing characters. I.e. -283.5 or -283abc5 would both be input (and thus output) as -283.

Unfortunately this above doesn't work on TIO for two reasons (all Whitespace compilers are slightly different..):

1. It will give a no parse error when we try to read an input as integer, which isn't an a valid integer. So, instead we'll read one character at a time, and stop (with an error) as soon as we've encountered the . or there is no more input (i.e. 50/-50).
2. In the vii5ard compiler it's also possible to push 0 with just SSN, whereas on TIO it requires an additional S or T: SSSN/SSTN. The first S is Enable Stack Manipulation; the second S is Push what follows as integer; the third S/T is positive/negative respectively; and any S/T after that (followed by an N) is the number we want to push in binary, where S=0 and T=1. For integer 0 this binary part doesn't matter, since it's 0 by default. But on TIO we'd still have to specify the positive/negative, and with most other Whitespace compilers like vii5ard not.

Whitespace (with TIO compiler), 48 bytes

[N
S S N
_Create_Label_LOOP][S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   S _Read_STDIN_as_character][T   T   T   _Retrieve_input][S N
S _Duplicate_input][S S S T S T T   T   S N
_Push_46_.][T   S S T   _Subtract][N
T   S S N
_If_0_Jump_to_Label_EXIT][T N
S S _Print_as_character][N
S N
N
_Jump_to_Label_LOOP]

Letters S (space), T (tab), and N (new-line) added as highlighting only.
[..._some_action] added as explanation only.

Try it online (with raw spaces, tabs and new-lines only).

Explanation in pseudo-code:

Start LOOP:
  Character c = STDIN as character
  If(c == '.'):
    Exit program
  Print c as character
  Go to the next iteration of LOOP

Pip, 5 bytes

a//:1

Try it online!

C# (Visual C# Interactive Compiler), 9 bytes

n=>(int)n

Try it online!

Scala, 7 bytes

_.toInt

Try it online!

05AB1E, 1 byte

ï

In the legacy version (which is written in Python), the cast to integer builtin works as expected to truncate the decimal values.

Try it online.

In the new version of 05AB1E (written in Elixir) it only works on strings (even though integers/decimals/strings should all be interchangeable, unless sorting lexicographical vs numeric for example). Guess I can report a bug to @Adnan..

Try it online to compare integer/decimal input (giving incorrect result) vs string inputs (giving correct results).

Aheui (esotope), 9 bytes

방망희

Try it online!

Basic idea from that of triangular answer (or any other languages takes numeric input as integer).

Fun fact. 방망희(pronounced bang-mang-heui(a of ark)) sounds almost same as 방망이(pronounced bang-mang-i(a of ark, i sounds like E), which means bat.

How does it works?

방 takes number as integer.

망 prints value as number.

희 terminates program.

PowerShell, 19 bytes

$args-replace'\..*'

Try it online!

PowerShell by default does bankers' rounding, which is pretty much the opposite of how many other languages do rounding. So, traditionally we'd use [Math]::Truncate() to strip the decimal point and any decimal part and achieve the "to zero" rounding we're interested in here. However, that's a bit long, so using this tip, we can round-toward-zero by implicitly casting the input to a string, performing a regex -replace to get rid of the period and anything after it, and leaving the output on the pipeline for implicit printing.

Triangular, 3 bytes

$.%

Try it online!

Triangular takes numeric input as an integer; any decimal values are truncated. If it's acceptable to just leave the input on the stack without printing it, then this solution can instead be:

Triangular, 1 byte

$

Try it online!