เป้าหมาย

กำหนดหมายเลขอินพุตให้ปัดเศษให้ใกล้กับตัวเลขที่มีค่ามากที่สุด

ความต้องการ

อินพุต

• จำนวนจุดลอยตัว
• สมมติว่าตัวเลขอินพุตส่งผลให้เกิดเอาต์พุตภายในขีด จำกัด ของชนิดข้อมูล (เช่นละเว้นข้อผิดพลาดมากเกินไป)
• 0 คืออินพุตที่ไม่ถูกต้อง
• ตัวเลขที่ไม่สามารถแสดงอย่างถูกต้องในประเภทข้อมูลจุดลอยตัว (เช่น"0.35"การจัดเก็บเป็น0.3499999) ไม่จำเป็นต้องได้รับการสนับสนุน

เอาท์พุต

• ตัวเลขที่ใกล้ที่สุดซึ่งประกอบด้วยตัวเลขที่ไม่ใช่ศูนย์หนึ่งหลักและหมายเลขศูนย์ใด ๆ
• ผลลัพธ์ต้องรองรับตัวเลขติดลบและเศษส่วน
• เมื่ออินพุตอยู่ระหว่างสองเอาต์พุตที่เป็นไปได้ให้ปัดออกจากศูนย์

การเสนอ

โฟกัสอยู่ที่การคำนวณมากกว่าการนำเสนอ ผลลัพธ์อาจเป็นชนิดข้อมูลจุดลอย อาจเป็นข้อความทั้งแบบเต็มหรือในทางวิทยาศาสตร์ หากคุณพบช่องโหว่ที่การนำเสนอวิธีการลดจำนวนไบต์ของคุณรุ่งโรจน์กับคุณ!

ตัวอย่าง

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

กรณีทดสอบ

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

เกณฑ์การให้คะแนน

รหัสที่มีจำนวนไบต์น้อยที่สุดหลังจากหนึ่งสัปดาห์ชนะ

MATL , 3 ไบต์

1&V

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

กรณีทดสอบ0.25ล้มเหลวสำหรับคอมไพเลอร์ที่ทำงานใน Octave บน TIO แต่ทำงานใน Matlab บน Windows:

พฤติกรรมที่แตกต่างนั้นเกิดจากsprintfฟังก์ชั่นของ Octave / Matlab โดยใช้การปัดเศษ "banker rounding" หรือ ".5 ห่างจากศูนย์" ขึ้นอยู่กับแพลตฟอร์ม สำหรับข้อมูลเพิ่มเติมและการทดสอบสามารถพบได้ที่นี่

สำหรับ6 ไบต์ ,

1t3$Yo

ทำงานได้ทั้งคู่และบน Matlab ตรวจสอบกรณีทดสอบทั้งหมด

C # (. NET Core) , 19 ไบต์

n=>n.ToString("G1")

ลองออนไลน์!

ตัวอย่าง:

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 ไบต์

x=>x.toPrecision(1)

เรติน่า , 63 62 ไบต์

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

ลองออนไลน์!

PHP , 45 ไบต์

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

ลองออนไลน์!

วิธีการเดียวกันกับคำตอบของฉันหลาม 2

ดูเหมือนว่าจะจัดการได้อย่างถูกต้อง0.35ซึ่งทำให้เป็นหมุดเหนือคำตอบของ JS ด้วย: D

T-SQL, 27 ไบต์

SELECT FORMAT(i,'G1')FROM t

โดยใช้รหัสเดียวกันการจัดรูปแบบสุทธิเป็นC # คำตอบที่คาร์ลอ การป้อนข้อมูลจากลอยคอลัมน์ฉันในที่มีอยู่ก่อนตารางที , ตามมาตรฐาน IO ของเรา

กรณีทดสอบ:

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

(มีประโยชน์มากที่ฉันสามารถโหลดตารางอินพุตล่วงหน้าด้วยค่าเหล่านี้ทั้งหมดและรันได้ในครั้งเดียว)

Python 2 , 62 ไบต์

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

ลองออนไลน์!

ไม่คุ้นเคยกับการเล่นหลามกอล์ฟ แต่ใช้งานได้

ล้มเหลว0.35เนื่องจากความไม่ถูกต้องของจุดลอย

ขอบคุณ Anders Kaseorg ที่ชี้ให้เห็นว่าวิธีนี้ทำงานได้อย่างถูกต้องใน Python 2

Guile , 23 ไบต์

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

ลองออนไลน์!

Excel, 14 ไบต์

=ROUNDUP(A1,1)

Perl 5 , 15 ไบต์

printf"%.1g",<>

ลองออนไลน์!

Zsh , 14 ไบต์

พอร์ตของคำตอบ perl ลองออนไลน์!

printf %.1g $1

Forth (gforth) , 24 ไบต์

: f 1 set-precision f. ;

ลองออนไลน์!

คาดว่าจะมีการป้อนข้อมูลในสแต็กจุดลอยตัว เอาต์พุตคือ stdout

ฉันไม่ชอบการเปลี่ยนแปลงความแม่นยำระดับโลก (สำหรับอินสแตนซ์นี้) ของฟังก์ชั่นเอาท์พุทจุดลอย แต่มันช่วยประหยัดไบต์จำนวนมากเพื่อไม่ต้องเรียกคืนค่าก่อนหน้าในตอนท้าย ไม่ส่งออกในทางวิศวกรรมหรือสัญลักษณ์ทางวิทยาศาสตร์โดยไม่คำนึงถึงการป้อนข้อมูล

หมายเหตุ: ด้วยเหตุผลบางอย่างที่ติ้วล่ามแปลง0.25ไป0.2ในขณะที่แปลงติดตั้งในพื้นที่ของฉันไป0.25 0.3ฉันไม่แน่ใจทั้งหมดว่าทำไมถึงเป็นเช่นนี้ แต่เนื่องจากฉันได้รับผลลัพธ์ที่ถูกต้องในท้องถิ่นฉันจึงทิ้งคำตอบตามที่เป็นอยู่

: 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