Sıfırdan uzağa yuvarla

Yuvarlak sıfıra doğru esinlenerek .

Herhangi bir makul yöntemle bir sayı girişi verildiğinde, "sıfırdan uzağa" sayısının yuvarlanması - artı sayılar yukarı ve negatif sayılar aşağı yuvarlayın.

Girdiyi bir dizge olarak almak istiyorsanız (örneğin STDIN aracılığıyla), sayıları ondalık basamağı olan veya olmayan olarak kullanabilmelisiniz. Sayı olarak alırsanız, en azından kayan nokta hassasiyetini (çift hassasiyet gerekli değildir) veya rasyonel sayıları kullanabilmelidir.

İsterseniz ondalık noktayla (ör. 42.0) bir kayan noktalı sayı çıkarabilirsiniz. (Ya da cevabınızı kısaltırsa, bazı test durumlarında kayan nokta ve bazı çıktı tam sayılarına sahip olmalısınız.)

Standart boşluklara vb. İzin verilmez.

Test durumları

-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

Sandbox Bağlantısı

Excel, 13 bayt

=ROUNDUP(A1,)

Alternatif

=EVEN(A1*2)/2

R, 32 bayt

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

Jöle , 4 bayt

ĊṠ¡Ḟ

Bir tamsayı veren bir sayıyı kabul eden bir monadik Link.

Çevrimiçi deneyin!Veya bir test odasına bakın .

Nasıl?

ĊṠ¡Ḟ - 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 bayt

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

Çevrimiçi deneyin!

Xnor sayesinde -1 bayt

Jöle , 5 4 bayt

AĊ×Ṡ

Çevrimiçi deneyin!

Bu portlar, Stax'ın Jelly'e cevabını tekrarladı , bu yüzden bir açıklama için bu cevabı kontrol et.

Nick Kennedy sayesinde -1 bayt

Jöle , 6 5 bayt

ĊḞ>?0

Çevrimiçi deneyin!

Jonathan Allan sayesinde -1 bayt

Bu nasıl çalışır?

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

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

Java (JDK) , 18 bayt

d->d.setScale(0,0)

Çevrimiçi deneyin!

açıklamalar

Bir BigDecimalgiriş ve çıkış olarak kullanır . sayının ölçeğini ayarlayan BigDecimalbir yöntemi setScalevardır. İlk parametre nokta ayırıcıdan sonraki hane sayısı, ikincisi de yuvarlama modudur. ROUND_UP"sıfırdan uzakta" yuvarlamadır ve bir değeri vardır, 0bu yüzden bu değeri kodlarım.

Vim, 36 bayt / tuş vuruşları

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

Çevrimiçi deneyin! veya Tüm Test Durumlarını Doğrulayın!

Açıklama:

: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 bayt

**>.@|

Çevrimiçi deneyin!

Kuzenle ilgili soruma cevabımdan sadece 1 karakterlik bir değişiklik .

C # (Visual C # Derleyici) , 41 bayt 27 bayt 24 bayt

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

Çevrimiçi deneyin!

Burada ilk yazı, onunla eğlendim, umarım beğenirsiniz. Tür burada C # yerinin boş olduğunu düşünüyor

-14 tnx
ila @ süresi dolmuş veri -3 tnx ila @ gece2

Runik Büyüleri , 18 16 bayt

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

Çevrimiçi deneyin!

"Ekler" (sıfırdan uzak) 0.999999 ve sonucu kaplar. µdilin işleçlerinde sonsuzluğa en yakın şey budur. Düzgün işleyen bir Trunc(x)komutla, cevap şimdi 0girdi olarak desteklemektedir .

Stax , 6 bayt

å├╪∙Bß

Koş ve hata ayıkla

Prosedür:

1. Mutlak değer
2. Tavan
3. Orijinal işaretiyle çarp

C, 94 43 39 bayt

39 bayt için ceilingcat sayesinde

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

TIO

Retina 0.8.2 , 38 bayt

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

Çevrimiçi deneyin! Link, test durumlarını içerir. Açıklama:

\.0+
.

Sayının tam sayı olmadığından emin olmak için ondalık noktasından sonra sıfırları silin; Ondalık noktadan sonra haneler yoksa sonraki iki eşleşme başarısız olur.

\b9+\..
0$&

Tamsayı kısmının tümü 9s ise, 0artışın taşmasına izin vermek için a öneki .

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

Sayının tamsayı kısmını artırın.

\..*

Sayının kesirli bölümünü silin.

05AB1E , 6 bayt

ÄîI.±*

5 bayt kesinlikle mümkün olmalı ..

Çevrimiçi deneyin veya tüm test durumlarını doğrulayın .

Açıklama:

Ä       # 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 bayt

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

Çevrimiçi deneyin!

Yorumlananlar

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 bayt

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

Çevrimiçi deneyin!

açıklama

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

MathGolf , 5 bayt

‼σ±ü*

Çevrimiçi deneyin!

açıklama

‼Operatör için kullanım bulmak güzel .

‼       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 bayt

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

Çevrimiçi deneyin!

Sayı tamsayı değilse, -1 (negatif ondalık değerler için) işaretine göre veya 1 (pozitif ondalık değerler için) buna eklenir ve ardından yeni sayının tam sayı kısmı yazdırılır.

PHP , 32 bayt

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

Çevrimiçi deneyin!

Temel olarak floor, 0'dan küçükse ceil, bunun dışında girdilerin çıkışı .

PHP , 34 bayt

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

Çevrimiçi deneyin!

Brachylog , 7 bayt

⌋₁ℤ₁|⌉₁

Çevrimiçi deneyin!

veya ⌉₁ℕ₁|⌋₁.

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

Wolfram Dili (Mathematica) , 18 bayt

Sign@#⌈Abs@#⌉&

Çevrimiçi deneyin!

Faktör , 57 bayt

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

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 15 bayt

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

Çevrimiçi deneyin!

Basit dfn. Kullanır ⎕IO←0.

Nasıl:

{⍎'⌈⌊'[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 için, 131 bayt + -rbayrak için 2 bayt

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

Ungolfed

#!/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 bayt

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

Çevrimiçi deneyin!

JavaScript (node.js), 30 23 21 bayt

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

C # cevabından esinlenmiştir.

-Value Ink ve @Gust van de Wal'e -7 bayt için teşekkürler!

Tekrar teşekkürler, başka bir -2 bayt için @Gust van de Wal!

Perl 6 , 19 bayt

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

Çevrimiçi deneyin!

En kısa çözüm değil, ama üzerinde çalışıyorum. Temel olarak bu sayıyı kısaltır, ardından sayı tam olarak başlamazsa sıfırdan bir tanesini ekler.

Java (OpenJDK 8) , 43 bayt

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

Çevrimiçi deneyin!

Japt , 6 bayt

Î*Ua c

Burada dene

Kırmızı , 46 bayt

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

Çevrimiçi deneyin!

Biraz daha okunabilir sürüm 2 bayt daha uzundur (bu uzun işlev adları!):

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

Scala , 16 bayt

_.setScale(0,UP)

Çevrimiçi deneyin!

Scala , 22 bayt

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

Çevrimiçi deneyin!