ฉันแน่ใจว่าคุณรู้เกี่ยวกับรูปแบบราคา $ 9.99 แทนที่จะใช้ $ 10 ในงานใหม่ของคุณในฐานะผู้ดูแลระบบ sys ที่ร้านค้าปลีกขนาดใหญ่พวกเขาต้องการให้ราคาเป็นไปตามรูปแบบที่คล้ายกัน:

• ราคาทั้งหมดเป็นดอลลาร์ทั้งหมดไม่มีเซนต์
• ราคาทั้งหมดควรลงท้ายด้วย 5 หรือ 9 โดยปัดเศษให้ใกล้เคียงที่สุด แต่ขึ้นอยู่กับหลักสุดท้ายที่ถูกต้องระหว่าง 5 ถึง 9 (ใช้กับหลักสุดท้าย 2 และ 7)
• อินพุตต่ำสุดคือ $ 1 และราคาเอาต์พุตต่ำสุดควรเป็น $ 5

ข้อมูลที่คุณป้อนเป็นรายการจำนวนเต็ม:

12
8
41
27
144
99
3

และผลลัพธ์ควรเป็นรายการราคาใหม่ ในกรณีข้างต้น:

15
9
39
29
145
99
5

Brainfuck, 4428 ไบต์ (ไม่ถูกต้อง)

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

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

มันจัดการกรณีพิเศษทั้งหมด ( $1, $20/$21 -> $19ฯลฯ ) ดูมันทำงานสำหรับหมายเลข4ที่นี่ (ประมาณ 3 นาทีวิดีโอสั้นลง):

รหัส

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

CJam, 19 17 ไบต์

q~{2-Ab)4>59s=N}/

ทดสอบที่นี่

รับอินพุตเป็นรายการสไตล์ CJam และส่งคืนบรรทัดใหม่ของเอาต์พุตที่คั่น

คำอธิบาย

qN/{   e# Run this block for each line of the input...
  ~    e#   Evaluate the current line to get the integer.
  2-   e#   Subtract 2 to get all but the last digit right.
  Ab)  e#   Convert to base 10 (discarding a potential minus sign) and split off
       e#   the last digit.
  4>   e#   Test if it's greater than 4.
  59s= e#   Select the correct digit from the string "59" based on this result.
  N    e#   Push a line feed.
}/

Python 2, 47

lambda l:[max(5,(n+3)/5*5-(n-2)/5%2)for n in l]

หากเราดูลำดับของค่าที่ปัดเศษแล้วเราจะเห็นว่ามันมาในบล็อก 5

... 25, 29, 29, 29, 29, 29, 35, 35, 35, 35, 35, 39, ...

เราพบสิ่งที่เรากำลังบล็อกหมายเลข(n+3)/5(เรียกค่านี้J) จากนั้นเราได้ค่าพหุคูณ5ด้วยJ*5และปรับสิ่งต่าง ๆ เช่น30ลงไป29โดยการลบ1เมื่อใดก็ตามที่Jมีค่าเท่ากัน

เพื่อกรณีพิเศษ1ให้5มากกว่าเราผ่านผลให้-1max(5,_)

เรติน่า 32 ไบต์

ยอมรับอินพุตในรายการที่คั่นด้วยเครื่องหมายจุลภาค จะต้องมีเครื่องหมายจุลภาคต่อท้าย เอาต์พุตในรูปแบบเดียวกัน

T`d`aa555559`.,
T+`da`ad`\da
a
5

คำอธิบาย:

T`               #Transliteration mode.
  d`aa555559`    #Map the digits 0-9 to aa55555999
             .,  #Map only the trailing digits.
T+`              #Do until input does not change.
   da`ad`        #Map a to 9, 0 to a, and 1-9 to 0-8
         \da     #Only do this to each a and the character before each a.
a                #Match all leftover a's. This only happens when the input contains the integer 1.
5                #Replace them with 5.

R, 51 49 47 43 ไบต์

(f=((n=scan()-2)%/%5+1+(n<0))*5)-(f%%10==0)

ควรมีพื้นที่สำหรับปรับปรุงสิ่งนี้ แต่ฉันคิดว่ากลยุทธ์ที่ต่างออกไปอาจดีกว่า รับเวกเตอร์ของจำนวนเต็มจากการสแกนและแสดงผลเวกเตอร์ของจำนวนเต็ม โดยพื้นฐานแล้วจะใช้การหารจำนวนเต็มเพื่อปัดเศษตัวเลขลงเพิ่ม 1 และทวีคูณเป็นห้า ทุกสิ่งที่หารด้วย 10 ได้นำ 1 ออกไป ถ้า n = 1 จะเป็นการหารจำนวนเต็มทีละ 1

ทดสอบการทำงาน

> (f=((n=scan()-2)%/%5+1+(n<0))*5)-(f%%10==0)
1: 1
2: 12
3: 8
4: 41
5: 27
6: 144
7: 99
8: 3
9: 
Read 8 items
[1]   5  15   9  39  29 145  99   5
> 

Python 3, 74 82 ไบต์

a=eval(input())
for i in a:print(round(i,-1)+[5,-1][max(4,i-2)%10>4])

ฉันพยายามหาค่าน้อยกว่า 11 และความต้องการของ 1 ในการประเมินถึง 5

Pyth, 21 18 29 28 ไบต์

ขอบคุณ @Jakube สำหรับการตัด 3 ไบต์!

KeQJ-QKI<K2tJ.q;I<K6+J5;E+J9

ลองที่นี่

แก้ไข:เห็นได้ชัดว่ามันไม่ถูกต้อง ฉันแก้ไขมันด้วยราคา 11 ไบต์; ฉันจะลองเล่นกอล์ฟให้มากกว่านี้

Pyth, 21 ไบต์

m?tdtt+d@jC"²a<"6ed5Q

น่าเศร้าที่ฉันต้องจ่าย 4 ไบต์เพื่อจัดการอย่างถูกต้อง $ 1

Pyth, 18 ไบต์

m-|*K5hJ/-d2K6%J2Q

ลองใช้ออนไลน์: การสาธิตหรือชุดทดสอบ

คำตอบนี้ขึ้นอยู่กับโซลูชัน Python / Pyth ของ @ xor ความแตกต่างหลักคือว่าฉันจัดการกรณีพิเศษ1แตกต่างกัน ผลที่เกิดขึ้นจริงจะเป็น1 0 - 1 = -1ใช้เป็นงูหลามorผมสามารถแทนที่0มีผลในการ6 6 - 1 = 5สิ่งนี้จะช่วยลดความเจ็บปวดจากการรับผลสูงสุด5และผลลัพธ์

คำอธิบาย:

m-|*K5hJ/-d2K6%J2Q
m                Q   map each number d of the input list Q to:
    K5                  K = 5
       J/-d2K           J = (d - 2) / K
   *K hJ                   K * (J + 1)
  |                     or
             6             6 # if K*(J+1)==0
 -            %J2       minus (J mod 2)

ฮัสเซียม , 133 ไบต์

func main(){i=[12,8,41,27,144,99,3];foreach(e in i){f=e%10;if(!(e/10==0))print(e/10);if(f<5)r=5;else if(f>5)r=9;elser=f;println(r);}}

เรียกใช้และดูการขยายออนไลน์: http://hmiumlang.com/Hanium/index.php?code=4f1c14f4d699b11da7a6392a74b720c4

TI-BASIC, 19 ไบต์

int(Ans/5+.6
max(5,5Ans-not(fPart(Ans/2

ใช้อัลกอริทึมของ xnor TI-BASIC ได้รับ vectorization และการคูณฟรี แต่เราใช้เวลาอีกไม่กี่ไบต์เพราะไม่มีโมดูโล

Haskell, 114 ไบต์

g n
 |n>6=9-n
 |n>1=5-n
 |1>0=(-n-1)
f n=show$(read n)+(g$read$(:[])$last n)
main=interact(unlines.(map f).lines)

คำอธิบาย:

ฟังก์ชั่นgผลตอบแทน9-nถ้าn>6หรืออื่น ๆ5-nหากหรืออื่น ๆn>1 ได้รับตัวเลขหลักสุดท้ายและส่งคืนสิ่งที่ควรเพิ่มลงในหมายเลขอินพุต ใช้เพื่อรับโซลูชัน (รวมถึงการจัดการสตริงจำนวนมาก) เอาต์พุตผลลัพธ์ของสำหรับอินพุตแต่ละบรรทัด-n-1gfgmainf

ทับทิม, 55 50 + 1 ไบต์

เรียกใช้มันกับธงเช่นดังนั้น:n ruby -n prices.rbป้อนราคาแต่ละรายการในบรรทัดแยกต่างหาก

x=$_.to_i
p x<7?5:(x-2).round(-1)+(~/[2-6]$/?5:-1)