Hedef

Bir giriş numarası verildiğinde, bir anlamlı rakamla en yakın sayıya yuvarlayın.

Gereksinimler

Giriş

• Kayan nokta sayısı.
• Giriş numarasının veri türünün sınırları dahilinde bir çıktıyla sonuçlandığını varsayın (yani taşma hatalarını yok sayın.)
• 0 geçersiz bir giriş.
• Kayan nokta veri türünde (örn. "0.35"Olarak depolanmakta 0.3499999) tam olarak temsil edilemeyen sayıların desteklenmesi gerekmez.

Çıktı

• Sıfır olmayan bir basamak ve herhangi bir sayıda sıfır basamaktan oluşan en yakın sayı.
• Sonuç, negatif sayıları ve kesirli sayıları desteklemelidir.
• Giriş tam olarak olası iki çıkış arasında olduğunda, sıfırdan uzaklaşın.

Sunum

Odak, sunumdan ziyade hesaplama üzerinedir. Çıktı bir kayan nokta veri türü olabilir. Tam ya da bilimsel gösterimde metin olabilir. Belirli bir yol sunmanın bayt sayınızı azalttığı bir boşluk bulursanız, kudos size!

Örnekler

9
-3000
.2
0.2
-.2
7e12
5e-15
1e0

Test Durumları

Input     Output
1         1
10        10
17        20
99        100
54321     50000
56789     60000
-123      -100
-789      -800
0.23      0.2
0.25      0.3
-0.25     -0.3
4.56e23   5e23
4.56e-23  5e-23

puanlama

Bir hafta sonra en az bayt sayısına sahip olan kod kazanır.

MATL , 3 bayt

1&V

Çevrimiçi deneyin! Veya tüm test senaryolarını doğrulayın .

0.25TIO üzerinde Octave'de çalışan derleyici için test durumu başarısız oluyor, ancak Windows'ta Matlab'da çalışıyor:

Farklı davranış, sprintfplatforma bağlı olarak Octave / Matlab'ın "banker yuvarlama" veya "sıfırdan 5,5" yuvarlama kullanan işlevinden kaynaklanır . Daha fazla bilgi ve test burada bulunabilir .

İçin 6 bayt ,

1t3$Yo

hem Octave'de hem de Matlab'da çalışıyor. Tüm test senaryolarını doğrulayın .

C # (.NET Core) , 19 bayt

n=>n.ToString("G1")

Çevrimiçi deneyin!

Örnekler:

Input     Output
----------------
 54321     5E+04
-56789    -6E+04
 99        1E+02
 0.23      0.2
 0.25      0.3
-0.25     -0.3
 4.56e23   5E+23
 4.56e-23  5E-23

Javascript, 19 bayt

x=>x.toPrecision(1)

Retina , 63 62 bayt

1`[1-9]
$*#
#\.?[5-9]
#$&
T`d`0`#[\d.]+
0(\.?)#{10}
1$1
#+
$.0

Çevrimiçi deneyin!

PHP , 45 bayt

<?=round($x=$argv[1],-floor(log10(abs($x))));

Çevrimiçi deneyin!

Python 2 cevabımla aynı yöntem.

Ayrıca doğru şekilde işlemek gibi görünüyor 0.35, bu da JS cevabının üzerine bir peg koyar: D

T-SQL, 27 bayt

SELECT FORMAT(i,'G1')FROM t

Carlos Alejo'nun C # cevabı ile aynı .Net formatlama kodunu kullanarak . Girdi ila şamandıra kolon i önceden var olan Tablo içinde t , bizim ES standartlarına göre

Test senaryoları:

Input         Output
------------ --------
1             1
10            1E+01
17            2E+01
99            1E+02
54321         5E+04
56789         6E+04
-123         -1E+02
-789         -8E+02
0.23          0.2
0.25          0.3
-0.25        -0.3
4.56E+23      5E+23
4.56E-23      5E-23

(Giriş tablosunu tüm bu değerlerle önceden yükleyebilir ve bir kerede çalıştırabilirim.

Python 2 , 62 bayt

lambda x:round(x,-int(floor(log10(abs(x)))))
from math import*

Çevrimiçi deneyin!

Python golf için kullanılmaz, ancak bu çalışır.

0.35Kayan nokta yanlışlıkları nedeniyle başarısız olur .

Bunun Python 2'de doğru çalıştığını belirten Anders Kaseorg'a teşekkürler

Guile , 23 bayt

(format #t"~,0e"(read))

Çevrimiçi deneyin!

Excel, 14 bayt

=ROUNDUP(A1,1)

Perl 5 , 15 bayt

printf"%.1g",<>

Çevrimiçi deneyin!

Zsh , 14 bayt

Perl cevabının limanı. Çevrimiçi deneyin!

printf %.1g $1

İleri (gforth) , 24 bayt

: f 1 set-precision f. ;

Çevrimiçi deneyin!

Kayan nokta yığınında giriş bekleniyor. Çıktı stdout olacak

Kayan nokta çıktı işlevlerinin küresel (bu örnek için) hassasiyetinde değişiklik yapmaktan hoşlanmıyorum, ancak sonunda önceki değeri geri yüklemek zorunda kalmamak için çok fazla bayt kaydediyor. Girdi ne olursa olsun mühendislik veya bilimsel gösterimde çıktı oluşturmaz.

Not: Herhangi bir nedenle, bölüm tercüman dönüştürür için 0.25için 0.2benim yerel kurulum dönüştürür ederken, 0.25hiç 0.3. Bunun neden olduğundan tam olarak emin değilim, ancak yerel olarak doğru sonucu aldığım için cevabımı olduğu gibi bırakıyorum

: f                   \ start a new word definition
  1 set-precision     \ set the floating point output words to use 1 significant digit
  f.                  \ output the top of the floating point stack
;                     \ end the word definition