Круглий від нуля

Натхненний Раундом до нуля .

З огляду на введення числа будь-яким розумним методом, округніть число "далеко від нуля" - додатні числа округлюються, а від'ємні числа - округлюються вниз.

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

Ви можете вивести номер з плаваючою комою з десятковою точкою (наприклад, 42.0), якщо потрібно. (Або навіть у деяких тестових випадках виводиться з плаваючою комою та деяким цілим виходом, якщо це робить вашу відповідь коротшою.)

Стандартні лазівки не дозволяються тощо

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

-99.9 => -100
-33.5 => -34
-7    => -7
-1.1  => -2
0     => 0
2.3   => 3
8     => 8
99.9  => 100
42.0  => 42
-39.0 => -39

Пісочниця Посилання

Excel, 13 байт

=ROUNDUP(A1,)

Альтернатива

=EVEN(A1*2)/2

R, 32 байти

x=scan()
sign(x)*ceiling(abs(x))

Желе , 4 байти

ĊṠ¡Ḟ

Монадична посилання, що приймає число, яке дає ціле число.

Спробуйте в Інтернеті! Або подивіться тестовий набір .

Як?

ĊṠ¡Ḟ - Link: number, N
  ¡  - repeat...
 Ṡ   - ...number of times: sign of N (repeating -1 is the same as 0 times)
Ċ    - ...action: ceiling
   Ḟ - floor (that)

Python 3 , 23 байти

lambda i:i-i%(1|-(i>0))

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

-1 байт завдяки xnor

Желе , 5 4 байти

AĊ×Ṡ

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

Відповідь Stax цього рекурсивного порту в Jelly, тому перевірте цю відповідь для пояснення.

-1 байт завдяки Ніку Кеннеді

Желе , 6 5 байт

ĊḞ>?0

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

-1 байт завдяки Джонатану Аллану

Як це працює

ĊḞ>?0 - Monadic link. Takes a float, x, as argument

   ?  - If:
  > 0 -   x > 0
      - Then:
Ċ     -   ceil(x)
      - Else:
 Ḟ    -   floor(x)

Java (JDK) , 18 байт

d->d.setScale(0,0)

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

Пояснення

Використовує a BigDecimalяк вхід і вихід. BigDecimalмає метод, setScaleякий встановлює масштаб числа. Перший параметр - це кількість цифр після крапкового роздільника, другий - режим округлення. ROUND_UPє округленням "від нуля" і має значення, 0тому я жорстко кодую це значення.

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

:s/-/-<Space>
:g/\..*[1-9]/norm <C-v><C-a>lD
:s/<Space><cr>

Спробуйте в Інтернеті! або Перевірте всі тестові випадки!

Пояснення:

:s/             " Replace...
   -            "   A dash
    /-<Space>   "   With a dash and a space

:g/                             " On Every line matching this regex...
   \.                           "   A dot
     .*                         "   Followed By anything
       [1-9]                    "   Followed by a digit other than 0
            /norm               " Run the following keystrokes...
                  <C-v><C-a>    "   Increment the number by 1
                                "   This also conveniently places our cursor just before the dot
                            l   "   Move one character right
                             D  "   Delete everything after the cursor

:s/             " Replace...
   <Space>      "   A space
                "   (With nothing)

J , 6 байт

**>.@|

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

Лише зміна 1 символу з моєї відповіді на питання кузена .

C # (Visual C # компілятор) , 41 байт 27 байт 24 байти

s=>(int)s+Math.Sign(s%1)

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

Перший пост тут, весело з ним, сподіваюся, вам сподобається. Ніби відчував, що C # тут порожнє

Від -14 tnx до даних, що минув,
-3 tnx до @ night2

Рунічні чари , 18 16 байт

1µ-i:'-A{*+'.A@

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

"Додає" (далеко від нуля) 0,999999 і додає результат. µє найближчим до нескінченного малого в операторах мови. За допомогою правильно функціонуючої Trunc(x)команди відповідь тепер підтримується 0як вхід.

Стакс , 6 байт

å├╪∙Bß

Запустіть і налагоджуйте його

Порядок:

1. Абсолютне значення
2. Стеля
3. Помножте на оригінальний знак

C, 94 43 39 байт

завдяки стельовій коті на 39 байт

#define f(n)(int)(n>0?ceil(n):floor(n))

ТІО

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

\.0+
.
\b9+\..
0$&
T`9d`d`.9*\..
\..*

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

\.0+
.

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

\b9+\..
0$&

Якщо цілою частиною є всі 9s, префікс a, 0щоб дозволити приріст переповнювати.

T`9d`d`.9*\..

Збільшити цілу частину числа.

\..*

Видаліть дробову частину числа.

05AB1E , 6 байт

ÄîI.±*

Однозначно має бути можливий 5-байтний ..

Спробуйте в Інтернеті або перевірте всі тестові випадки .

Пояснення:

Ä       # The absolute value of the (implicit) input,
 î      # ceiled
     *  # And then multiplied by
   .±   # the signum
  I     # of the input
        # (after which the result is output implicitly)

JavaScript (ES6), 20 байт

n=>n%1?n<0?~-n:-~n:n

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

Прокоментував

n =>        // n = input
  n % 1 ?   // if n is not an integer:
    n < 0 ? //   if n is negative:
      ~-n   //     return -(floor(-n) + 1) = -floor(-n) - 1
    :       //   else:
      -~n   //     return -(-(floor(n) + 1)) = floor(n) + 1
  :         // else:
    n       //   return n unchanged

Perl 6 , 18 байт

{$_-.abs%-1*.sign}

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

Пояснення

{                }  # Anonymous block
    .abs  # Absolute value
        %-1  # Modulo -1
           *.sign  # Multiply by sign
 $_-  # Subtract from original

MathGolf , 5 байт

‼σ±ü*

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

Пояснення

Приємно знайти використання ‼оператора.

‼       apply next two operators to (implicit) input
 σ      sign (-1, 0, or 1)
  ±     absolute value
   ü    ceiling of that absolute value
    *   multiply the rounded absolute value with the sign

PHP , 30 байт

<?=0^$argn-=0<=>fmod($argn,1);

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

Якщо число не ціле, на нього додається знак -1 (для від'ємних десяткових знаків) або 1 (для додатних десяткових знаків), після чого друкується ціла частина нового числа.

PHP , 32 байти

<?=[ceil,floor][$argn<0]($argn);

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

В основному виводи floorвводу, якщо він менше 0, в іншому випадку ceil.

PHP , 34 байти

<?=($argn>0?:-1)*ceil(abs($argn));

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

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

⌋₁ℤ₁|⌉₁

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

або ⌉₁ℕ₁|⌋₁.

⌋₁         The input rounded down
  ℤ₁       is an integer less than -1
    |      and the output, or, the input
     ⌉₁    rounded up is the output.

Мова Вольфрама (Mathematica) , 18 байт

Sign@#⌈Abs@#⌉&

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

Фактор , 57 байт

: f ( x -- x ) [ signum ] [ abs ceiling ] bi * >integer ;

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

APL (Dyalog Unicode) , 15 байт

{⍎'⌈⌊'[0>⍵],⍕⍵}

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

Простий Dfn. Використання ⎕IO←0.

Як:

{⍎'⌈⌊'[0>⍵],⍕⍵} ⍝ Main function, argument ⍵.
            ⍕⍵  ⍝ Stringified argument
           ,    ⍝ Appended to
      [0>⍵]     ⍝ This item... (0 if ⍵ is positive or 0, else 1)
  '⌈⌊'          ⍝ of this string (which are the functions Ceiling and Floor, respectively)
 ⍎              ⍝ Executed as APL code.

sed, 131 байт + 2 байти для -rпрапора

/^-?[^.]*(\.0*)?$/bQ
s/^(-?)9/\109/
s/([0-8]9*)\..*$/_\1/
h
s/.*_//
y/0123456789/1234567890/
G
s/(.*)\n(.*)_(.*)/\2\1/
:Q
s/\..*$//

Безумовно

#!/bin/sed -rf

# identify integers
/^-?[^.]*(\.0*)?$/ b isInt

# add a leading 0 if we'll need it later
s/^(-?)9/\109/

# convert to format: -?[0-9]_[0-8]9*
s/([0-8]9*)\..*$/_\1/

# move the part that will remain constant into the hold buffer
h
s/.*_//

# [0-8]9* can be incremented via character substitution
y/0123456789/1234567890/

# reassemble parts
G
s/(.*)\n(.*)_(.*)/\2\1/

:isInt
# Get rid of anything after the decimal point
s/\..*$//

Perl 5 -pF/\./ , 35 байт

$_&&=$F[0]+($_!=int&&$_*(@F-1)/abs)

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

JavaScript (node.js), 30 23 21 байт

s=>~~s+Math.sign(s%1)

Натхненний відповіддю C #.

Завдяки @Value Ink та @Gust van de Wal за -7 байт!

Ще раз дякую, @Gust van de Wal, ще -2 байти!

Perl 6 , 19 байт

{$_+|0+.sign*?/\./}

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

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

Java (OpenJDK 8) , 43 байти

a->{return(int)((int)a/a<1?a>0?a+1:a-1:a);}

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

Japt , 6 байт

Î*Ua c

Спробуйте тут

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

func[n][(pick[0 1]n = t: to 0 n)*(sign? n)+ t]

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

Трохи більш читабельна версія на 2 байти довше (ці довгі назви функцій!):

func[n][to 1(sign? n)* round/ceiling absolute n]

Скала , 16 байт

_.setScale(0,UP)

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

Скала , 22 байти

x=>x.signum*x.abs.ceil

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