ลองนึกภาพนาฬิกา 24 ชั่วโมงต่อไปนี้ที่สามารถควบคุมได้โดยปุ่มลูกศร:

╔══╗ ┌──┐
║00║:│00│
╚══╝ └──┘
 HH   mm

การกดลูกศรขึ้นสองครั้ง ( ↑↑) จะเพิ่มอินพุตชั่วโมงที่โฟกัสในขณะนี้:

╔══╗ ┌──┐
║02║:│00│
╚══╝ └──┘
 HH   mm

กดปุ่มลูกศรขวา ( →) เพื่อโฟกัสไปที่อินพุตอื่น

┌──┐ ╔══╗
│02│:║00║
└──┘ ╚══╝
 HH   mm

การกดปุ่มลูกศรลงสามครั้ง ( ↓↓↓) จะลดอินพุตนี้ลง

┌──┐ ╔══╗
│02│:║57║
└──┘ ╚══╝
 HH   mm

ใส่สั้น ๆ :

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

ความท้าทาย

นาฬิกาเริ่มต้นที่00:00การป้อนชั่วโมงทำงาน (ดูแผนผังแรก) รับรายการคำสั่งอินพุตเอาต์พุตเวลาผลลัพธ์ในHH:mmรูปแบบ
อินพุตอาจเป็นสตริงหรือรายการ (หรือเทียบเท่าภาษาของคุณ) ซึ่งทิศทางการป้อนข้อมูลที่แตกต่างกันอาจเป็นหนึ่งในตัวเลือกด้านล่าง:

• ↑↓←→
• udlr
• ^v<>
• กดปุ่มลูกศรจริงถ้าโปรแกรมของคุณมี GUI

ช่องโหว่มาตรฐานใช้

กรณีทดสอบ

↑↑→↓↓↓ = 02:57
↓→↑←↑→↓ = 00:00
↓→→↓ = 23:59
←←←←→↑ = 00:01
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓→↓ = 23:59

HTML บน Google Chrome 67 เป็นภาษาจีน (ตัวย่อ) 39 ไบต์

<input type=time value=00:00 autofocus>

Chrome แสดงองค์ประกอบ UI ที่แตกต่างในภาษาอื่น แม้แต่การป้อนเวลาแบบเรียบง่าย: AM / PM จะปรากฏขึ้นหากคุณใช้ภาษาอังกฤษ หากคุณต้องการทดสอบสิ่งนี้โดยการเปลี่ยนภาษาของ Chrome อย่าทำอย่างนี้ให้มากไปกว่านี้

C (gcc) , 117 107 ไบต์

• บันทึกสิบไบต์ด้วยl4m2 l4m2

t,i,m[8];e(char*_){for(*m=i=2[m]=0;t=*_++;t<63?i=t%4:(i[m]+=t&8?1:'w'));printf("%02d:%02d",*m%24,2[m]%60);}

ลองออนไลน์!

Stax , 36 35 33 32 ไบต์

áXò↑─↨√▓|êóÇiU&≡Q#┤Æ⌡⌠╟C▐╜√⌡∟▄╩╠

เรียกใช้และแก้ไขข้อบกพร่อง

การใช้ประโยชน์ lrudการใช้ประโยชน์

คำอธิบาย:

'l/{'r/Bs$2lmM{${:14-m|+i36*24+%2|zm':* Full program,
'l/                                     Split the string on "l"
   {        m                           Map over the resulting array
    'r/                                   Split at "r"
       B                                  Uncons left, first on TOS (top of stack)
        s                                 Swap to get tail to top
         $                                Flatten; this removes multiple 'r's
          2l                              Listify two items, BOS (bottom of stack) is first element
             M                          Transpose: get [hour commands, minute commands]
              {                    m    Map:
               $                          Flatten
                {    m                    Map over single commands:
                 :1                         Number of set bits: 5 for 'u', 3 for 'd'
                   4-                       Subtract 4: u -> 1, d -> -1
                      |+                  Sum
                        i                 Iteration index: hours -> 0, minutes -> 1
                         36*24+           Multiply by 36, add 24: 0 -> 24, 1 -> 60
                               %          Modulo, this does -5 % 60 = 55
                                2|z       Stringify, left-padding with "0" to length 2
                                    ':* Join on ":"
                                        Implicit output

Python 2 , 105 ไบต์

h=m=p=0
for c in map(' ^<>'.find,input()):w=1/c;m+=w*p;h+=w-w*p;p=[c-2,p][w]
print'%02d:%02d'%(h%24,m%60)

ลองออนไลน์!

JavaScript (Node.js) , 103 ไบต์

udlrจะเข้าเป็นสตริงโดยใช้

s=>(Buffer(s).map(n=>n%6?s%4?m+=n%2||59:h+=n%2||23:s=n,h=m=0),g=n=>('0'+n).slice(-2))(h%24)+':'+g(m%60)

ลองออนไลน์!

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

s=>{var p=0;int[]h={0,0};foreach(var c in s)h[p=c<63?c/2%2:p]+=c>62?c>95?-1:1:0;return$"{(h[0]%24+24)%24:D2}:{(h[1]%60+60)%60:D2}";}

ลองออนไลน์!

การใช้ ^v<>การใช้

สิ่งนี้ทำให้ฉันรู้ว่าตัวดำเนินการโมดูโลใน C # ไม่ทำงานอย่างที่คาดไว้เพราะใน C # -1 % 60 = -1ดังนั้นฉันต้องดำเนินการแปลก ๆ ในตอนท้าย

Lua (กรอบความรัก 2 มิติ), 311 308 ไบต์

l,b,d,t,f,a=love,{24,60},{1,-1},{0,0},1,{"left","right","up","down"}function c(n,i)t[f]=(n+d[i])%b[f]end function l.draw()h,m=t[1],t[2]l.graphics.print((h<10 and 0 ..h or h)..":"..(m<10 and 0 ..m or m),0,0)end function l.keypressed(k)for i,n in pairs(a)do f=k==n and(i>2 and(c(t[f],i-2)or f)or i)or f end end

เวอร์ชันที่ไม่ได้บีบอัด:

--initialize all needed values
l,b,d,t,f,a=love,{24,60},{1,-1},{0,0},1,{"left","right","up","down"}

--increase the numbers depending on the focus and up or down
function c(n,i)
  t[f]=(n+d[i])%b[f]
end 

--draw the time to the screen
function l.draw()
  h,m=t[1],t[2]
  l.graphics.print((h<10 and 0 ..h or h)..":"..(m<10 and 0 ..m or m),0,0)
end

--get the keys and check if it is an arrow key
function l.keypressed(k)
  for i,n in pairs(a)do
    f=k==n and(i>2 and(c(t[f],i-2)or f)or i)or f 
  end 
end

อาจจะยังคงอ่านได้ไม่ 100% เพราะ ifs ทั้งหมดมีการสลับกับคำสั่ง trinary (.. และ .. หรือ .. )

หากเริ่มต้นใน main.lua ด้วยความรักมันจะปรากฏขึ้นในหน้าต่างและคุณสามารถกดปุ่มลูกศรเพื่อเปลี่ยนตัวเลข

MATL , 57 56 55 ไบต์

1Oi9\"@5<?y@3-ZS*+}wx7@-X^w]]wx&Zjh24 60h\'%02d:%02d'YD

ลองออนไลน์!

แสดงชั่วโมงและนาทีโดยใช้ตัวเลขที่ซับซ้อนโดยส่วนจริงเป็นชั่วโมงและนาทีส่วนจินตภาพ

ด้วยความคิดเห็น:

1     % Push 1 on the stack
      % represents which timer box we're in, starts at hour box
      % imaginary number j would represent minutes box
O     % Push initial hour and minutes 0+0j
i9\   % Fetch input, mod each character's ASCII value by 9.
      % Gives 4 1 8 6 for ^ v > < respectively
"     % iterate through (modded) input
  @5<?     % Push current input, see if it's < 5 
           % if so, it's an up or down time change
    y        % so copy out the box indicator (1 or j)
    @3-      % Subtract 3 from the current input
    ZS       % Take the result's sign (-1 for v, 1 for ^)
    *        % Multiply indicator with that
    +        % Add the result to the time value
  }        % else, it's a right or left arrow
    wx       % so bring out the box indicator and delete it
    7@-      % Subtract current input from 7. 1 for < and -1 for >
    X^       % Take the square root of that. 1 for < and j for >
    w        % switch stack to bring time value on top again
  ]       % end if
]     % end loop
wx    % bring box indicator out, delete it
&Zj   % split the complex time value to real and imaginary
h     % then concatenate them into an array
24 60h\ % mod hour and minute values by 24 and 60 respectively
'%02d:%02d'YD % sprintf the time array with 0-padding

PHP , 145 134 133 ไบต์

(-11 ไบต์โดยการเล่นกอล์ฟมากขึ้น)

(-1 ไบต์โดยใช้วิธีวนรอบของDavіd )

<?for($h=$m=0,$a=h;$c=$argv[++$i];)$c<l?$$a--:($c>r?$$a++:$a=$c<r?h:m);$h%=24;$m%=60;printf('%02d:%02d',$h<0?$h+24:$h,$m<0?$m+60:$m);

วิธีเรียกใช้:

php -n -d error_reporting=0 <filename> <command_1> <command_2> ... <command_n>

ตัวอย่าง:

php -n -d error_reporting=0 time_setter.php u u r d d d l d

หรือ ลองออนไลน์!

หมายเหตุ:

• หากต้องการบันทึกบางไบต์ฉันได้ใช้สตริงโดยไม่มีการเสนอราคาเดียว / สองครั้งเป็น wrapper สตริง ดังนั้นerror_reporting=0ตัวเลือกที่ใช้ในการไม่ส่งคำเตือน
• คำสั่งอินพุต: u d l r

JavaScript, 104 103 ไบต์

<>^vจะเข้าเป็นอาร์เรย์ของตัวอักษรโดยใช้

a=>(a.map(z=>z<"^"?a=z<">":a?x+=z<"v"||23:y+=z<"v"||59,x=y=0),g=n=>`0${n}`.slice(-2))(x%24)+`:`+g(y%60)

ลองออนไลน์

Haskell, 236 ไบต์

f=u 0 0
k _ _ _ _ _ h m[]=z h++':':z m
k a b c d e h m(q:s)=case q of{'^'->e(a h)(b m)s;'v'->e(c h)(d m)s;'>'->v h m s;'<'->u h m s}
u=k(o(+)24)id(o(-)24)id u
v=k id(o(+)60)id(o(-)60)v
o f m x=mod(f x 1)m
z n|n<10='0':show n
z n=show n

fเป็นฟังก์ชั่นหลักและมีประเภทString -> String:

*Main> f "^^>vvv"
"02:57"
*Main> f "v>^<^>v"
"00:00"
*Main> f "v>>v"
"23:59"
*Main> f "<<<<>^"
"00:01"
*Main> f "vvvvvvvvvvvvvvvvvvvvvvvvv>v"
"23:59"

เป็นหลักuและมีฟังก์ชั่นเวียนเกิดร่วมกันจากประเภทv Integer -> Integer -> String -> Stringพวกเขาใช้เวลาชั่วโมงนาทีและรายชื่อตัวละครในชุด{v,^,<,>}และกลับสตริงเวลา uทำหน้าที่ราวกับว่ามีการเน้นเวลาเป็นชั่วโมงโทรซ้ำuถ้าหัวของรายการอยู่ใน{v,^}และvถ้าหัวของรายการอยู่ใน{<,>}ถ้าหัวของรายการที่อยู่ในvคล้ายกัน แต่สำหรับการโทรแบบนาที

อย่างอื่นก็แค่บันทึกตัวละคร

Lua , 132 ไบต์

loadstring's,t,m=1,{0,0},{24,60}for c in(...):gmatch"."do t[s]=(t[s]+(("d u"):find(c)or 2)-2)%m[s]s=("lr"):find(c)or s end return t'

ลองออนไลน์!

คำอธิบาย

นี่คือฟังก์ชั่นที่ไม่ระบุตัวตน (วิธีการใช้มันจะปรากฏบนลิงค์)

s=1 -- s will control the selection (1 is hour and 2 min)
t={0,0} -- is the time itself
m={24,60} -- is the maximum for each 'box' (hour or min)
-- I've actually used Lua's multiple variable assignment: s,t,m=1,{0,0},{24,60}

for c in (...):gmatch(".") do -- go through each character of the input
  t[s] = (t[s] + (("d u"):find(c) or 2)-2) % m[s] -- set the current 'box' as
          t[s] +   -- itself plus ...
                  ("d u"):find(c) or 2   -- it's index on the string "d u" (that means it's going to be 1 or 3)
                                         -- or 2 if it wasn't found (if the current character doesn't sum or subtract from the box)
                                       -2   -- this adjusts the result 1, 2 or 3 to being -1, 0 or 1
                                            -- making the inputs 'd' and 'u' as -1 and +1 respectively, and an input different from both as 0
         (                               ) % m[s]   -- modulo of the maximum of the selected 'box'

  s=("lr"):find(c) or s
    ("lr"):find(c)   -- if the current input character is l or r, then set 's' (the 'box' selection) to being 1 or 2.
                   or s   -- else let it as is
end
return t -- returns 't', a table with hour and minutes respectively

Java 8, 121 ไบต์

c->{int i=0,m[]={0,0,0};for(int t:c)if(t<63)i=t%4;else m[i]+=(t&8)>0?1:119;return"".format("%02d:%02d",m[0]%24,m[2]%60);}

พอร์ตของโจนาธาน Frech 's C คำตอบ ^v<>ยอมรับ ลองออนไลน์ได้ที่นี่

เยลลี่ 36 ไบต์

^{ผมเชื่อว่าO%5;4ṣ3œṡ€4Z%3’§§%"“ð<‘DŻ€ṫ€-j”:ควรจะทำงานให้ 32 แต่ดูเหมือนว่าในขณะนี้มีข้อผิดพลาดœṡ}

O%5;4ṣ3i€4$œṖ"$Z%3’§§%"“ð<‘DŻ€ṫ€-j”:

โปรแกรมเต็มรูปแบบการพิมพ์ผลลัพธ์ไปยัง STDOUT (เป็นลิงก์ monadic จริง ๆ แล้วมันจะส่งคืนรายการจำนวนเต็มแบบผสม (แม้ว่าจะเป็นเลขหลักเดียว) และตัวอักษร ( : )

ใช้udlrตัวเลือกสำหรับการป้อนข้อมูล

ลองออนไลน์! หรือดูชุดทดสอบการทดสอบในตัว

อย่างไร?

O%5;4ṣ3i€4$œṖ"$Z%3’§§%"“ð<‘DŻ€ṫ€-j”: - Link: list of characters (in 'udlr')
O                                    - to ordinals
 %5                                  - modulo five  ...maps u:2, d:0, l:3, r:4
   ;4                                - concatenate a 4 (to always end up with both hrs & mins - even when no r is ever pressed)
     ṣ3                              - split at threes (the l presses)
       i€4$œṖ"$                      - a replacement for œṡ€4 (split each at first occurrence of)...
              $                      - | last two links as a monad:
          $                          - |   last two links as a monad:
         4                           - |     literal four
       i€                            - |     for €ach get first index of (4) else yield 0
             "                       - |   zip with:
           œṖ                        - |     partition at indices
               Z                     - transpose (to get a list of two lists of lists)
                %3                   - modulo by three. To replace any 4(r) with 1
                                     -  ...while keeping any 0(d) as 0, or 2(u) as 2
                  ’                  - decrement. All r are now 0, d are -1 and u are 1
                   §                 - sum each
                    §                - sum each. Now we have the total increase value as
                                     -    ...integers for each of hrs and mins
                       “ð<‘          - code-page indices list = [24,60]
                      "              - zip with:
                     %               -   modulo
                           D         - to decimal lists
                            Ż€       - prepend each with a zero (to cater for values less than ten)
                              ṫ€-    - tail each from index -1. Keeps rightmost two digits of each only)
                                  ”: - literal character ':'
                                 j   - join
                                     - as full program implicit print (smashes the digits and characters together)

APL (Dyalog Classic) , 97 84 ไบต์

5↑∊{¯3↑'0',':',⍨⍕⍵}¨24 60|A⊣⍎¨'⎕IO←1' '⎕IO←0' 'A[1]+←1' 'A[1]-←1'['←→↑'⍳⍞,'←']⊣A←0 0

ลองออนไลน์!

ต้องใช้ ⎕IO←1

QBasic , 229 ไบต์

สคริปต์ที่รับอินพุตเป็น keystrokes และเอาต์พุตไปยังคอนโซล

หมายเหตุ: เทอร์มินัล"จะรวมอยู่ในการเน้นไวยากรณ์เท่านั้นและไม่สนับสนุน bytecount

z$=CHR$(0)
DO
x=0
y=0
SELECT CASE INKEY$
CASE z$+"K"
r=0
CASE z$+"M"
r=1
CASE z$+"H"
x=1
y=1
CASE z$+"P"
x=23
y=59
END SELECT
IF r THEN m=(m+y)MOD 60ELSE h=(h+x)MOD 24
CLS
?RIGHT$("00000"+LTRIM$(STR$(h*1000+m)),5)
LOCATE 1,3
?":"
LOOP

ความคิดเห็น

z$=CHR$(0)                                      ''  Set var to null char
DO                                              ''
    x=0                                         ''  Set Hours Shift to 0 
    y=0                                         ''  Set Minutes Shift to 0 
    SELECT CASE INKEY$                          ''  Take keystroke input
        CASE z$+"K"                             ''  If is Left Arrow
            r=0                                 ''    Bool to modify right (minutes) 
        CASE z$+"M"                             ''  If is Right Arrow
            r=1                                 ''    Bool to modify left (hours)
        CASE z$+"H"                             ''  If is Up Arrow
            x=1                                 ''    Set Hours Shift to 1 
            y=1                                 ''    Set Minutes Shift to 1
        CASE z$+"P"                             ''  If is Down Arrow
            x=23                                ''    Set Hours Shift to 23 
            y=59                                ''    Set Minutes Shift to 23 
    END SELECT                                  ''
    IF r THEN m=(m+y)MOD 60ELSE h=(h+x)MOD 24   ''  Shift Minutes If `r=1` Else Shift Hours
    CLS                                         ''  Clear Screen
    ?RIGHT$("00000"+LTRIM$(STR$(h*1000+m)),5)   ''  Use math to concat Hours and Minutes 
                                                ''  then Convert to String and prepend 0s 
                                                ''  to a length of 5
    LOCATE 1,3                                  ''  Cursor to the the third digit
    ?":"                                        ''  Overwrite that digit with a `:`
LOOP                                            ''  Loop

Powershell, 109 103 ไบต์

-6 ไบต์ขอบคุณ AdmBorkBork

$t=0,0
$args|%{$t[+$i]+=. @{l={$i=0};r={$i=1};u={1};d={119}}.$_}
"{0:00}:{1:00}"-f($t[0]%24),($t[1]%60)

สคริปต์ทดสอบ:

$f = {

$t=0,0
$args|%{$t[+$i]+=. @{l={$i=0};r={$i=1};u={1};d={119}}.$_}
"{0:00}:{1:00}"-f($t[0]%24),($t[1]%60)

}

@(
    ,('02:57',('u','u','r','d','d','d'))
    ,('00:00',('d','r','u','l','u','r','d'))
    ,('23:59',('d','r','r','d'))
    ,('00:01',('l','l','l','l','r','u'))
    ,('23:59',('d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','d','r','d'))
) | % {
    $e, $c = $_
    $r = &$f @c
    "$($r-eq$e): $r"
}

เอาท์พุท:

True: 02:57
True: 00:00
True: 23:59
True: 00:01
True: 23:59

คำอธิบาย

แนวคิดพื้นฐานคือการใช้ a [hashtable]ซึ่งkeysเป็นคำสั่งควบคุมและvaluesเป็น scriptblocks รหัสรัน scriptblock สำหรับแต่ละคำสั่งจากข้อโต้แย้ง

เพิร์ล 6 , 101 91 89 86 ไบต์

{$/=[];$!=0;$_>2>($!=$_-3)||($/[$!]+=$_-1)for .ords X%5;($0%24,$1%60).fmt("%02d",":")}

ลองออนไลน์!

บล็อกโค้ดแบบไม่ระบุชื่อที่ใช้สตริงของuldrอักขระและส่งคืนในรูปแบบที่กำหนด

perl -F // -E, 72 ไบต์

$x=H;/u/?$$x++:/d/?$$x--:($x=/l/?H:M)for@F;printf"%02d:%02d",$H%24,$M%60

Python ขนาด 120 ไบต์

o,i=[0,0],0
for s in list(input()):i=(i+(s=='r')-(s=='l')>=1);o[i]+=(s=='u')-(s=='d')
print'%02d:%02d'%(o[0]%24,o[1]%60)

Haskell , 186 ไบต์

f(0,0)'<'
f t i('^':r)=f(i#t$1)i r
f t i('v':r)=f(i#t$ -1)i r
f t i(x:r)=f t x r
f(h,m)_ _=s h++':':s m
('<'#(h,m))n=(mod(24+n+h)24,m)
(_#(h,m))n=(h,mod(60+n+m)60)
s n=['0'|n<10]++show n

ลองออนไลน์!

R, 368 355 ไบต์

f=function(){C=as.character
i=ifelse
p=paste0
r=1:10
h=C(0:23);m=C(0:59)
h[r]=p(0,h[r])
m[r]=p(0,m[r])
x=y=z=1
while(T){print(p(h[x],":",m[y]))
v=1
n="[UDLRS]"
while(!grepl(n,v))v=toupper(readline(n))
if(v=="L")z=1 else if(v=="R")z=0
if(v=="S")T=F
if(v=="U")if(z)x=i(x==24,1,x+1)else y=i(y==60,1,y+1)
if(v=="D")if(z)x=i(x==1,24,x-1)else y=i(y==1,60,y-1)}}

ไม่ใช่วิธีที่ดีที่สุด แต่ใช้งานได้ดี

ฟังก์ชั่น: เรียกใช้ฟังก์ชั่นพิมพ์ตัวอักษรแต่ละตัวไปที่ (ใน / de) ย่นหรือเลื่อนไปทางซ้าย / ขวาพิมพ์ "s" สิ้นสุด "เกม" การจับก็คือมันจะยอมรับทีละหนึ่งตัวอักษรเท่านั้น

-13 ไบต์รวมค่าบางค่าไว้ในหนึ่งแถวเขียนทับ T เป็น F แทนที่จะใช้ตัวแบ่งพบช่องว่างหลายช่องเพื่อกำจัดและสตริงที่เก็บไว้ในตัวแปรแทน

f=function(){C=as.character                             # Abbreviate functions
i=ifelse
p=paste0
r=1:10                                                  # Initialize and format values
h=C(0:23);m=C(0:59)
h[r]=p(0,h[r])
m[r]=p(0,m[r])
x=y=z=1
while(T){print(p(h[x],":",m[y]))                        # Begin while loop and print time
v=1                                                     # Initial value reset each iteration to retrieve a new direction
n="[UDLRS]"                                             # Used for verification and request
while(!grepl(n,v))v=toupper(readline(n))                # Will only accept proper directions or stopping rule
if(v=="L")z=1 else if(v=="R")z=0                        # Evaluate for hour or minute
if(v=="S")T=F                                           # Stopping rule, overwrite True to False
if(v=="U")if(z)x=i(x==24,1,x+1)else y=i(y==60,1,y+1)    # Rules for Up
if(v=="D")if(z)x=i(x==1,24,x-1)else y=i(y==1,60,y-1)}}  # Rules for Down

ฉันกำลังแก้ไขรูปแบบอื่นเพื่อยอมรับสตริง R และ / หรือเวกเตอร์ซึ่งจะโพสต์ในสัปดาห์หน้า

SmileBASIC ขนาด 123 ไบต์

@L
B=BUTTON(2)D=(B==1)-(B==2)S=S+!S*(B>7)-S*(B==4)H=(H+D*!S+24)MOD 24WAIT
M=(M+D*S+60)MOD 60?FORMAT$("%02D:%02D",H,M)GOTO@L

BUTTON() ส่งคืนเลขจำนวนเต็มโดยที่แต่ละบิตแทนปุ่ม

1 = up
2 = down
4 = left
8 = right
...

BUTTON(2) ส่งกลับเฉพาะปุ่มที่เพิ่งกด (ไม่ค้าง)

WAITจำเป็นต้องมีเนื่องจากBUTTONอัปเดตหนึ่งครั้งต่อหนึ่งเฟรม (1/60 ของวินาที) ไม่เช่นนั้นการกดปุ่มเดียวกันจะตรวจจับได้หลายครั้ง

นี่อาจสั้นกว่านี้อย่างแน่นอน

05AB1E , 38 37 ไบต์

'l¡ε'r¡}0ζćs˜‚€S„udS1®‚:OŽ9¦2ä%T‰J':ý

ใช้udlrสำหรับเส้นทาง แต่ยังสามารถใช้^v<>กับจำนวนไบต์เดียวกันได้ (ตัวอักษร↑↓←→ไม่ได้เป็นส่วนหนึ่งของเพจรหัสของ 05AB1E ดังนั้นการใช้งานจะเพิ่มจำนวนไบต์เป็นจำนวนมากเนื่องจากการเข้ารหัสควรเปลี่ยนเป็น ASCII)

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

คำอธิบาย:

'l¡            '# Split the (implicit) input on "l"
                #  i.e. "lllrurulddd" → ["","","","ruru","ddd"]
   ε   }        # Map each item to:
    'r¡        '#  Split the item on "r"
                #   i.e. ["","","","ruru","ddd"] → [[""],[""],[""],["","u","u"],["ddd"]]
        0ζ      # Zip/transpose; swapping rows/columns, with "0" as filler
                #  i.e. [[""],[""],[""],["","u","u"],["ddd"]]
                #   → [["","","","","ddd"],["0","0","0","u","0"],["0","0","0","u","0"]]
ć               # Head extracted: pop and push the remainder and head-item to the stack
                #  i.e. [["","","","","ddd"],["0","0","0","u","0"],["0","0","0","u","0"]]
                #   → [["0","0","0","u","0"],["0","0","0","u","0"]] and ["","","","","ddd"]
 s              # Swap to get the remainder
  ˜             # Flatten it
                #  i.e. [["0","0","0","u","0"],["0","0","0","u","0"]]
                #   → ["0","0","0","u","0","0","0","0","u","0"]
   ‚            # Pair the head and remainder back together
                #  i.e. ["","","","","ddd"] and ["0","0","0","u","0","0","0","0","u","0"]
                #   → [["","","","","ddd"],["0","0","0","u","0","0","0","0","u","0"]]
    €S          # Convert each item to a list of characters
                # (implicitly flattens and removes empty strings)
                #  i.e. [["","","","","ddd"],["0","0","0","u","0","0","0","0","u","0"]]
                #   → [["d","d","d"],["0","0","0","u","0","0","0","0","u","0"]]
      „udS1®‚:  # Replace all "u" with "1" and all "d" with "-1"
                #  i.e. [["d","d","d"],["0","0","0","u","0","0","0","0","u","0"]]
                #   → [["-1","-1","-1"],["0","0","0","1","0","0","0","0","1","0"]]
              O # Then take the sum of each inner list
                #  i.e. [["-1","-1","-1"],["0","0","0","1","0","0","0","0","1","0"]]
                #   → [-3,2]
Ž9¦             # Push compressed integer 2460
   2ä           # Split into two parts: [24,60]
     %          # Modulo the two lists
                #  i.e. [-3,2] and [24,60] → [21,2]
      T‰        # Divmod each with 10
                #  i.e. [21,2] → [[2,1],[0,2]]
        J       # Join each inner list together
                #  i.e. [[2,1],[0,2]] → ["21","02"]
         ':ý   '# Join the list with ":" delimiter
                #  i.e. ["21","02"] → "21:02"
                # (and output the result implicitly)

ดู 05AB1E นี้เคล็ดลับของฉัน (ส่วนวิธีการบีบอัดจำนวนเต็มขนาดใหญ่? )จะเข้าใจว่าทำไมเป็นŽ9¦2460