ฉันหิว. ลองทำอะไรซักอย่างที่ไมโครเวฟกันเถอะ กำหนดอินพุตตัวเลขระหว่าง 1 ถึง 4 หลักส่งออกจำนวนวินาทีที่ไมโครเวฟควรทำงาน

รายละเอียด

เคล็ดลับคือการหาว่าผู้ใช้ป้อนวินาทีหรือรวมของวินาทีและนาที สถานที่และสถานที่นับสิบควรตีความว่าเป็นวินาทีและสถานที่นับแสนควรเป็นนาที ตัวอย่างเช่นค่า1234ควรถูกตีความเป็น 12 นาที, 34 วินาทีและ9876ควรเป็น 98 นาที, 76 วินาที การพิมพ์130และ90ควรส่งผลให้เวลาทำอาหาร 90 วินาที

ต่อไปนี้เป็นอินพุตและเอาต์พุตอื่นสองสามรายการ:

• 1 = 1
• 11 = 11
• 111 = 71
• 1111 = 671
• 9 = 9
• 99 = 99
• 999 = 639
• 9999 = 6039

กฎระเบียบ

นี่คือโค้ดกอล์ฟดังนั้นโปรแกรมที่สั้นที่สุดในหน่วยไบต์ชนะ ไม่อนุญาตช่องโหว่มาตรฐาน รายการที่ชนะจะต้องส่งคืนคำตอบที่ถูกต้องเมื่อได้รับอินพุตจำนวนเต็มตั้งแต่ 1 ถึง 9999

Python 2 , 19 ไบต์

lambda t:t-t/100*40

ลองออนไลน์!

Japt , 6 ไบต์

ìL ì60

ทดสอบออนไลน์! ìLแปลงไปยังฐาน-100 และì60แปลงกลับไปที่ฐาน 60 floor(n/100)*60 + n%100ส่งผลให้ใน ใช้ได้กับชั่วโมง ( 10000 -> 3600จำนวนวินาทีในหนึ่งชั่วโมง)

C, C ++, Java, C #, D: 36 ไบต์

D: 35 ไบต์

C: 28 ไบต์

ครั้งแรกที่ฉันมีคำตอบสั้น ๆ !

int r(int i){return i/100*60+i%100;}

D สามารถมีการเพิ่มประสิทธิภาพพิเศษเนื่องจากระบบแม่แบบ golfy:

T r(T)(T i){return i/100*60+i%100;}

C มีการเพิ่มประสิทธิภาพพิเศษด้วย int โดยนัย:

r(i){return i/100*60+i%100;}

รหัสที่จะทดสอบ

ในC (ต้องรวมstdio.h):

int main() {
    int testArr[] = {1,11,111,1111,9,99,999,9999};
    for(int i=0;i<8; ++i) {
        printf("%d = %d\n",testArr[i],r(testArr[i]));
    }
    return 0;
}

ลิงก์ TIO

ในC ++ (ต้องรวมiostream):

int main() {
    std::initializer_list<int> testList{
        1,11,111,1111,9,99,999,9999
    };

    for (auto x : testList) {
        std::cout << r(x) << '\n';
    }
}

ลองออนไลน์!

ในJava :

public class MainApp {

    int r(int i){return i/100*60+i%100;}

    public static void main(String[]a) {
        MainApp m = new MainApp();
        int testArr[] = new int[]{
                1,11,111,1111,9,99,999,9999
        };

        for (int v : testArr) {
            System.out.println(v + " = " + m.r(v));
        }
    }
}

ลองออนไลน์!

ในC #

class Program {
    int r(int i){return i/100*60+i%100;}
    static void Main(string[] args) {
        var p = new Program();
        int[] testArr = new int[8]
        {
            1,11,111,1111,9,99,999,9999
        };
        foreach(int a in testArr) {
            Console.WriteLine(a + " = " + p.r(a));
        }
    }
}

ในD (ต้องนำเข้าstd.stdio) (แน่นอนว่าฉันไม่รู้วิธีใช้อาร์เรย์ใน D):

void main() {
    int[] arr = [1,11,111,1111,9,9,999,9999];
    for(int i = 0; i < arr.length; i++)
        writeln(arr[i]," = ",r(arr[i]));
} 

ลิงก์ TIO

Pyth - 9 8 ไบต์

แปลงอินพุตเป็นฐาน 100 จากนั้นตีความว่าเป็นหมายเลขฐาน 60

ijQ*TT60

Test Suite

TI-Basic (83 series), 8 ไบต์

Ans-40int(sub(Ans

ต้องใช้ระบบปฏิบัติการเวอร์ชั่น 1.15 หรือสูงกว่า

dc , 10 ไบต์

?9A~r60*+p

ลองออนไลน์!

คำอธิบาย:ใน dc เมื่อคุณกด sth บนสแต็คมันจะอยู่ด้านบน

?         # read and push the input number on the stack
9A        # push 100: 9 * 10^1 + A[10] * 10^0 :D
~         # divide 2nd nr. by the top nr., push quotient, then remainder
r60*      # swap top 2 nr., then multiply the top by 60
+p        # add top 2 nr., then print result

Bash bc + sed, 30 28 ไบต์

-2 ไบต์ขอบคุณที่@seshoumara

bc<<<0`sed 's/..\?$/*60+&/'`

ลองออนไลน์!

รับอินพุตจาก stdin ใช้วิธีการสร้างสรรค์มากขึ้น: แทรก*60+ก่อนหลัก 1 หรือ 2 หลักและเติม0จุดเริ่มต้นเพื่อบัญชีสำหรับอินพุตที่มีเพียง 1 หรือ 2 หลัก bcผลที่ได้คือผ่านไปแล้ว

C (gcc) , 50 ไบต์

t;f(){scanf("%d",&t);printf("%d",t%100+t/100*60);}

ลองออนไลน์!

Perl 5, 15 + 1 (-p) ไบต์

/..$/;$_-=40*$`

• -l switch ไม่ถูกนับเนื่องจากสำหรับการทดสอบการอ่าน

ลองออนไลน์

Java 8, 13 ไบต์

n->n-n/100*40

ท่าเรือ@ovsที่น่าตื่นตาตื่นใจงูหลาม 2 สูตร

ลองที่นี่

JavaScript ขนาด 21 ไบต์

a=>(a/100^0)*60+a%100

ลองออนไลน์!

J , 12 ไบต์

-40*&<.%&100

เป็นโซลูชัน Python 2 ของ ovs 'ที่แสดงใน J ประกอบด้วยตะขอและส้อม:

┌─┬───────────────────────┐
│-│┌──┬────────┬─────────┐│
│ ││40│┌─┬─┬──┐│┌─┬─┬───┐││
│ ││  ││*│&│<.│││%│&│100│││
│ ││  │└─┴─┴──┘│└─┴─┴───┘││
│ │└──┴────────┴─────────┘│
└─┴───────────────────────┘

       %&100  - divides the number by 100
   *&<.       - finds the floor of the left argument and multiplies it to the left arg.
 40           - 
-             - subtracts the result of the above fork from the input 

ลองออนไลน์!

แบตช์ 23 ไบต์

@cmd/cset/a%1-%1/100*40

Haskell , 18 ไบต์

f t=t-t`div`100*40

ลองออนไลน์!

ท่าเรืออโนธา

โซลูชัน Pointfree ขนาด 21 ไบต์

(-)<*>(*40).(`div`40)

เขาวงกต , 19 ไบต์

?:_100%}#00/_60*{+!

ลองออนไลน์!

คำอธิบาย

?      Read input.
:      Duplicate.
_100%  Mod 100.
}      Move off to auxiliary stack.
#00/   Divide by 100, using the stack depth to get a 1, instead of _1.
_60*   Multiply by 60.
{+     Retrieve the earlier result and add it.
!      Print.

จากนั้น IP ก็จะเข้าสู่จุดตายและเริ่มเคลื่อนที่ไปข้างหลัง เมื่อมันมาถึง/มันจะพยายามหารด้วยศูนย์ซึ่งจะยุติโปรแกรม

เยลลี่ 5 ไบต์

เป็นลิงก์ monadic (ขอบคุณสำหรับ heads-up, caird!):

b³ḅ60

ลองออนไลน์!

... หรือเป็นโปรแกรมเต็มรูปแบบ:

bȷ2ḅ60

สามารถโอนย้ายได้อย่างง่ายดายไปที่ 05AB1E ดังนั้น:

05AB1E , 5 ไบต์

тв60β

ลองออนไลน์!

เพียงแปลงจำนวนเต็มอินพุตเป็นฐาน100จากนั้นแปลงผลลัพธ์จากฐาน60เป็นจำนวนเต็ม ดังนั้นมันจึงเท่ากับInput% 100 + 60 * putInput / 100⌋

Excel VBA ขนาด 29 ไบต์

ฟังก์ชันหน้าต่าง VBE แบบไม่ระบุชื่อทันทีที่รับอินพุตจากช่วง[A1]และเอาต์พุตไปยังหน้าต่างทันที VBE

?[A1]Mod 1E2+60*[Int(A1/100)]

APL (Dyalog) , 11 10 ไบต์

60⊥0 100⊤⊢

ลองออนไลน์!

อย่างไร?

0 100⊤- การเข้ารหัสในฐาน 100 หยุดที่สอง LSB, n ÷ 100, n % 100การผลิตได้อย่างมีประสิทธิภาพ

60⊥ - ถอดรหัสที่ฐาน 60

PARI / GPขนาด 16 ไบต์

ตรงไปตรงมา:

n->n\100*60+n%100

น่าเสียดายที่วิธีการที่ดีนี้ใช้นานเกินไป:

n->[60,1]*divrem(n,100)

รุก , 10 9 ไบต์

เควินทำตัวฉันเป็นภาษาของตัวเอง ... (ใช้แนวทางจากคำตอบของovs )

2dH/40*-#

ลองออนไลน์!

10 ไบต์

sjvj60*^+#

ลองออนไลน์!

s             \ Split input into digits
 jvj          \ Join the first two and the last two
    60*       \ Multiply the first by 60
       ^+     \ Add the values
         #    \ Print

11 ไบต์

อีกหนึ่งไบต์เราสามารถใช้Input % 100 + 60 * ⌊Input / 100⌋วิธีนี้ได้:

H2d%}/60*+#

ลองออนไลน์!

05AB1E , 9 ไบต์

т÷60*¹т%+

ลองออนไลน์!

คำอธิบาย:

т÷60*¹т%+

т         // Push number 100
 ÷        // Integer division with the input
  60      // Push number 60
    *     // Multiply with the previous result
     ¹    // Push input
      т   // Push 100 again
       %  // Modulo
        + // Add the first and the second result

อาจมีเคล็ดลับบางประการเกี่ยวกับการแปลงฐานซึ่งสามารถทำได้ใน 05AB1E แต่ฉันหามันไม่เจอ

ทุบตี, 20 ไบต์

echo $[$1-$1/100*40]

ลองออนไลน์

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

.{100}
60$*

ลองออนไลน์!

เข้าและส่งออกในเอก ชุดทดสอบจะแปลงจากและเป็นทศนิยมเพื่อความสะดวก

การแปลงฐานแบบนี้ให้มากถึงสองหลักทำได้ง่ายอย่างน่าประหลาดใจ เราแค่จับคู่การวิ่ง 100 1วินาทีและแทนที่ด้วย 60 1วินาที อะไรก็ตามที่เหลือจะตรงกับตัวเลขสองหลักสุดท้ายในการแทนทศนิยมและยังคงไม่เปลี่ยนแปลง

อลิซอายุ 19 ไบต์

/o
\i@/.'d%~'d:'<*+

ลองออนไลน์!

คำอธิบาย

น่าเสียดายที่ฉันลบDivmodออกจากภาษาฉันเดาว่า ...

/o
\i@/...

นี่เป็นเพียงกรอบงานปกติสำหรับโปรแกรมเชิงเส้นที่มีทศนิยม I / O ที่ทำงานแบบหมดจดในโหมด Cardinal (เลขคณิต)

.     Duplicate input.
'd%   Mod 100.
~     Swap with other copy.
'd:   Divide by 100.
'<*   Multiply by 60.
+     Add.

ทางช้างเผือก 10 ไบต์

':Z/v40*-!

การใช้งาน: ./mw code.mwg -i 9999

คำอธิบาย:

code       explanation                          stack

'          push input to stack                  [input]
 :         duplicate ToS                        [input, input]
  Z        push 100                             [input, input, 100]
   /v      integer division (divide and floor)  [input, ⌊input/100⌋]
     40    push 40                              [input, ⌊input/100⌋, 40]
       *   multiply                             [input, ⌊input/100⌋*40]
        -  subtract                             [input - ⌊input/100⌋*40]
         ! print

R , 21 ไบต์

x=scan();x-x%/%100*40

ลองออนไลน์!

Lisp ทั่วไป, 34 ไบต์

(lambda(n)(- n(*(floor n 100)40)))

ลองออนไลน์!

ท่าเรืออีกสูตร @ovs'

REXX ขนาด 25 ไบต์

arg t
say t%100*60+t//100

(เป็นเพียงการแปลอีก @ovs)

05AB1E , 7 ไบต์

т‰ć60*+

ลองออนไลน์!

คำอธิบาย

         command                              current stack
т‰ć60*+  full program. push input implicitly  [1234]
т        push 100                             [1234] [100]
 ‰       push divmod                          [12, 34]
  ć      push head extracted (n[1:], n[0])    [34] [12]
   60*   multiply by 60                       [34] [720]
      +  add and display implicitly           [754]

Python สัญลักษณ์ , 66 ไบต์

___=-~-~_-_
__=___*___
__=__*__*___+___*__
_=_-_/(__+__+__/___)*__

ลองออนไลน์!

คำอธิบาย

Symbolic Python          values

___=-~-~_-_              ___=2
__=___*___               __=2*2=4
__=__*__*___+___*__      __=4*4*2+2*4=32+8=40
_=_-_/(__+__+__/___)*__  _=_-_/(40+40+40/2)*40=_-_/100*40