दिए गए पाठ को टाइप करने के लिए न्यूनतम कीस्ट्रोक्स की आवश्यकता होती है


45

हम सभी जानते हैं कि प्रोग्रामर आलसी होते हैं। अपने खाली समय को अधिकतम करने के लिए, आप एक ऐसे प्रोग्राम को लिखने का निर्णय लेते हैं, जो इसमें दिए गए पाठ के लिए न्यूनतम संख्या में कीस्ट्रोक्स को आउटपुट करता है।

इनपुट : टेक्स्ट जिसे किस्ट्रोक्स में बदलना है। आप पाठ (इनपुट में दिए गए फ़ाइल से STDIN / रीडिंग) का इनपुट कैसे तय कर सकते हैं

आउटपुट : निम्नलिखित प्रारूप में आवश्यक कार्य:

  • उनकी संख्या होनी चाहिए
  • Hयह: एक कुंजी दबाने और तुरंत इसे जारी करना
  • Press: किसी कुंजी को दबाना और उसे जारी नहीं करना (यह तब कभी इष्टतम नहीं होगा जब कुंजी Rअगले कीस्ट्रोक के रूप में समाप्त हो जाए)
  • Release: एक Pकुंजी को जारी करना

उदाहरण :

इनपुट:

Hello!

आउटपुट:

एक भोला समाधान होगा:

1 P Shift
2 H h
3 R Shift
4 H e
5 H l
6 H l
7 H o
8 P Shift
9 H 1
10 R Shift

यह अधिक कुशल होगा:

1 P Shift
2 H h
3 H 1
4 R Shift
5 H Left
6 H e
7 H l
8 H l
9 H o

वातावरण:

  • संपादक एक मोनोस्पॉन्टेड फ़ॉन्ट का उपयोग करता है
  • पाठ को 80 वर्णों पर लपेटा जाता है
  • ऊपर तीर और नीचे तीर सुरक्षित करें, भले ही बीच में छोटी रेखाएं हों
  • क्लिपबोर्ड को खाली माना जाता है
  • अंक लॉक सक्षम होना माना जाता है
  • कैप्स लॉक को अक्षम माना जाता है
  • कैप्स लॉक केवल अक्षरों के लिए काम करता है (यानी कोई शिफ्ट लॉक नहीं)

हॉटकी / शॉर्टकट :

  • Home: वर्तमान लाइन की शुरुआत के लिए कूदो
  • End: वर्तमान लाइन के अंत में कूदें
  • Ctrl+ A: सब कुछ चिह्नित करें
  • Ctrl+ C: कॉपी करें
  • Ctrl+ X: कट
  • Ctrl+ V: पेस्ट करें
  • Shift+ कर्सर ले जाना: चिह्नित करना
  • Ctrl+ F: एक खोज संवाद खोलता है।
    • स्थिर पाठ मिलान, कोई नियमित अभिव्यक्तियाँ नहीं
    • अक्षर संवेदनशील
    • चारों ओर खोजें लपेटती हैं
    • खोज के लिए सिंगल लाइन टेक्स्ट इनपुट
    • इनपुट को वर्तमान चयन के साथ प्रीफ़िल्ड किया जाता है, जब तक कि बीच में कोई नईलाइन न हो, पूरा इनपुट चुना जाता है
    • कॉपी / पेस्ट करना हमेशा की तरह काम करता है
    • दबाने Enterप्रदर्शन खोज, वर्तमान कर्सर स्थिति के बाद पहला मैच का चयन
  • F3: अंतिम खोज दोहराएं
  • Ctrl+ H: एक प्रतिस्थापित संवाद खोलता है
    • स्थिर पाठ मिलान, कोई नियमित अभिव्यक्तियाँ नहीं
    • अक्षर संवेदनशील
    • चारों ओर लपेट के साथ, सभी बदलें
    • एकल पंक्ति पाठ इनपुट
    • वर्तमान चयन के साथ खोज इनपुट पूर्वनिर्धारित है, जब तक कि बीच में कोई नई रेखा न हो, पूरा इनपुट चुना जाता है
    • प्रतिस्थापित इनपुट खाली है
    • कॉपी / पेस्ट करना हमेशा की तरह काम करता है
    • Tab बदलें इनपुट के लिए कूदता है
    • दबाने से Enterसब बदल जाता है। कर्सर को अंतिम प्रतिस्थापन के बाद रखा जाता है

नियम :

  • समाधान एक पूर्ण कार्यक्रम होना चाहिए जो कि आगे / संशोधन को संकलित / क्रियान्वित करता है
  • ऊपर प्रदर्शित कीबोर्ड उपयोग करने के लिए कीबोर्ड है
    • यह उन वर्णों को संभालने के लिए आवश्यक नहीं है जिन्हें इसके साथ टाइप नहीं किया जा सकता है
  • हर कुंजी को अंत में जारी किया जाना चाहिए
  • कर्सर को फ़ाइल के अंत में अंत में होने की आवश्यकता नहीं है

स्कोरिंग :

आपका स्कोर निम्नलिखित ग्रंथों को टाइप करने के लिए आवश्यक क्रियाओं की राशि है। विजेता सबसे कम अंक वाला हल है। मेरे भोले समाधान का उपयोग करके मुझे मिलता है 1371 + 833 + 2006 = 4210। इसे हरायें! मैं दो सप्ताह में एक विजेता चुनूंगा।

1 मेरा भोला समाधान

number = 1

H = (char) -> console.log "#{number++} H #{char}"
P = (char) -> console.log "#{number++} P #{char}"
R = (char) -> console.log "#{number++} R #{char}"

strokes = (text) ->
    shiftActive = no

    for char in text
        if /^[a-z]$/.test char
            if shiftActive
                R "Shift"
                shiftActive = no

            H char
        else if /^[A-Z]$/.test char
            unless shiftActive
                P "Shift"
                shiftActive = yes

            H char.toLowerCase()
        else
            table =
                '~': '`'
                '!': 1
                '@': 2
                '#': 3
                '$': 4
                '%': 5
                '^': 6
                '&': 7
                '*': 8
                '(': 9
                ')': 0
                '_': '-'
                '+': '='
                '|': '\\'
                '<': ','
                '>': '.'
                '?': '/'
                ':': ';'
                '"': "'"
                '{': '['
                '}': ']'

            if table[char]?
                unless shiftActive
                    P "Shift"
                    shiftActive = yes

                H table[char]
            else
                H switch char
                    when " " then "Space"
                    when "\n" then "Enter"
                    when "\t" then "Tab"
                    else
                        if shiftActive
                            R "Shift"
                            shiftActive = no

                        char
    R "Shift" if shiftActive

input = ""

process.stdin.on 'data', (chunk) -> input += chunk
process.stdin.on 'end', -> strokes input

2 आसान पुनरावृत्ति

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK
LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM

3 अधिक जटिल पुनरावृत्ति

We're no strangers to love
You know the rules and so do I
A full commitment's what I'm thinking of
You wouldn't get this from any other guy
I just wanna tell you how I'm feeling
Gotta make you understand

Never gonna give you up
Never gonna let you down
Never gonna run around and desert you
Never gonna make you cry
Never gonna say goodbye
Never gonna tell a lie and hurt you

We've known each other for so long
Your heart's been aching but
You're too shy to say it
Inside we both know what's been going on
We know the game and we're gonna play it
And if you ask me how I'm feeling
Don't tell me you're too blind to see

Never gonna give you up
Never gonna let you down
Never gonna run around and desert you
Never gonna make you cry
Never gonna say goodbye
Never gonna tell a lie and hurt you

Never gonna give you up
Never gonna let you down
Never gonna run around and desert you
Never gonna make you cry
Never gonna say goodbye
Never gonna tell a lie and hurt you

(Ooh, give you up)
(Ooh, give you up)
(Ooh)
Never gonna give, never gonna give
(Give you up)
(Ooh)
Never gonna give, never gonna give
(Give you up)

We've know each other for so long
Your heart's been aching but
You're too shy to say it
Inside we both know what's been going on
We know the game and we're gonna play it

I just wanna tell you how I'm feeling
Gotta make you understand

Never gonna give you up
Never gonna let you down
Never gonna run around and desert you
Never gonna make you cry
Never gonna say goodbye
Never gonna tell a lie and hurt you

Never gonna give you up
Never gonna let you down
Never gonna run around and desert you
Never gonna make you cry
Never gonna say goodbye
Never gonna tell a lie and hurt you

Never gonna give you up
Never gonna let you down
Never gonna run around and desert you
Never gonna make you cry
Never gonna say goodbye
Never gonna tell a lie and hurt you

आप अपने समाधानों का परीक्षण करने के लिए मेरे द्वारा लिखे गए रिप्ले कार्यक्रम का उपयोग कर सकते हैं (ध्यान दें: यह अभी तक खोज / प्रतिस्थापन का समर्थन नहीं करता है, बाकी सब काम करेंगे)।


6
मुझे विम के लिए इस तरह का एक कार्यक्रम देखना अच्छा लगेगा।
ब्रैडेन बेस्ट

4
आम तौर पर मैं उन चीजों के हिस्से के लिए माउस का उपयोग करता हूं।
विक्टर स्टैफुसा

1
बहुत ही रोचक। मैं सुबह जाऊँगा; 3
cjfaure

2
आप वास्तव में रिक रोल करने के लिए हमारे पास नहीं था, क्या तुमने? :)
फिलीप हगलुंड

1
मैं @ B1KMusic के साथ थोड़े हूं। मेरे लिए यह अधिक दिलचस्प होगा कि विमग्लोप का समाधान उत्पन्न किया जाए। (जो आप यहाँ केवल vim कमांड का उपयोग करके करने की कोशिश कर रहे हैं, उसके बराबर है।) हालांकि यह एक मजेदार विचार है कि कीस्ट्रोक्स को कम करने में बहुत मुश्किल लगता है (या कम से कम मुझे लगता है कि यह है) क्योंकि चयन के लिए सटीक आंदोलन मुश्किल है। यह प्रतिलिपि बनाता है और चिपकाना वास्तव में कठिन काम है और जिस चीज को आप कॉपी करने की कोशिश कर रहे थे वह लगभग कीस्ट्रोक्स लेता है। (या कम से कम यह है कि मैं कैसे पढ़ रहा हूं कि कॉपी और पेस्ट कैसे काम करता है)। और मैं कुंजी स्ट्रोक को कम करने के कई अन्य तरीके नहीं देखता हूं।
FDinoff

जवाबों:


11

हास्केल 1309 + 457 + 1618 = 3384

अंत में, एक उत्तर (स्कोर में बहुत सुधार हुआ जब मैंने महसूस किया कि आपके पहले टेस्ट में टैब हैं-उन्हें देखने के लिए प्रश्न को संपादित करना था)। के साथ संकलित करें ghc, स्टड पर आपूर्ति इनपुट। उदाहरण:

$ ghc keyboard.hs && echo hello|./keyboard
1 H h
2 H e
3 H l
4 H l
5 H o
6 H Enter

मैंने दीजकस्ट्रा जैसे स्पष्ट सामान की कोशिश की, लेकिन यह केवल धीमी चाल के लिए ब्रांचिंग को कम करने के बाद भी बहुत धीमा था, जो हैं: अगली कुंजी को आउटपुट करें, या लाइन की शुरुआत से कॉपी करें (Shift + Home, Ctrl + C,) अंत), या पेस्ट।

तो, यह दृष्टिकोण एक निश्चित-लंबाई वाले क्लिपबोर्ड का उपयोग करता है, प्रतियां जब एक पंक्ति उपसर्ग 'उपयोगी' बनने वाली होती हैं, और जब तक वह अगली पंक्तियों के उपसर्गों की तुलना में अधिक पंक्तियों पर चिपकाने योग्य नहीं होगा, तब तक वह उपसर्ग का उपयोग करता रहता है। जब यह क्लिपबोर्ड का उपयोग नहीं कर सकता है, तो यह भोले समाधान पर वापस गिरता है, इसलिए इसे एक बार की नकल की लागत से अधिक होने पर इसे हरा देने की गारंटी है।

न्यूनतम स्कोर तब प्राप्त किया जाता है जब उपसर्ग लंबाई को "नेवर गिव" फिट करने के लिए चुना जाता है। इस पर सुधार करने के तरीके हैं, लेकिन मैंने रिक एस्टले को पढ़ने के लिए पर्याप्त है।

import Data.List (isPrefixOf,isInfixOf)
import Control.Monad (foldM)
plen=12
softlines text=sl 0 [] text
  where
    sl n [] [] = []
    sl n acc [] = [(n,reverse acc)]
    sl n acc (x:xs)
      |x=='\n'||length acc==79=(n,reverse (x:acc)):(sl (n+1) [] xs)
      |otherwise=sl n (x:acc) xs
pasteable (a,b) (c,d)=(c>a && b`isInfixOf`d)
                      || (c==a && b`isInfixOf`(drop (length b) d))
findprefixes l=filter (\(a,b,c)->c/=[])
               $ map (\(a,b)->(a, b, map fst $ filter (pasteable (a,b)) l))
               $ filter (\(a,b)->length b==plen && last b/='\n')
               $ map (\(a,b)->(a, take plen b)) l
mergePrefixes [] = []
mergePrefixes (p:ps) = mergePrefixes' p ps
 where mergePrefixes' p [] = [p]
       mergePrefixes' (a,x,b) ((c,y,d):qs) =
         if length (filter (>=c) b) >= length d then
           mergePrefixes' (a,x,b) qs
         else
           (a, x, (filter (<c) b)):(mergePrefixes' (c,y,d) qs)
uc = ("~!@#$%^&*()_+<>?:{}|\""++['A'..'Z'])
lc = ("`1234567890-=,./;[]\\'"++['a'..'z'])
down c = case [[lo]|(lo,hi)<-zip lc uc,c==hi] of []->error [c];p->head p
applyPrefixToLine prefix [] s=return s
applyPrefixToLine [] line s=emit line s
applyPrefixToLine prefix line@(ch:rest) s=
 if prefix`isPrefixOf`line then
   do { s<-emitPaste s; applyPrefixToLine prefix (drop (length prefix) line) s}
 else
   do { s<-emitch s ch; applyPrefixToLine prefix rest s}
type Keystroke = (Char, [Char])
key action k (n, shift) = do
  putStrLn ((show n)++" "++[action]++" "++k)
  if k=="Shift" then return (n+1, (not shift))
  else return (n+1, shift)
emitch (m, shift) ch=
  case ch of
    '\t'->key 'H' "Tab" (m,shift)
    '\n'->key 'H' "Enter" (m,shift)
    ' '->key 'H' "Space" (m,shift)
    _->
      if shift && ch`elem`lc then
        do { key 'R' "Shift" (m, True); key 'H' [ch] (m+1, False) }
      else if not shift && ch`elem`uc then
             do { key 'P' "Shift" (m, False); key 'H' (down ch) (m+1, True) }
           else if ch`elem`lc
                then key 'H' [ch] (m, shift)
                else key 'H' (down ch) (m, shift)
emit line s = foldM emitch s line
emitPaste s = do
  s<-key 'P'"Ctrl" s
  s<-key 'H' "v" s
  key 'R' "Ctrl" s
emitCopy s = do
  s<-key 'H' "Home" s
  s<-key 'P'"Ctrl" s
  s<-key 'H' "c" s
  s<-key 'R' "Ctrl" s
  s<-key 'R' "Shift" s
  key 'H' "End" s
applyPrefix pf ((a,b):xs) p@((c,y,d):ps) s=
  if (c==a) then
    do
      s@(n, shift) <- emit y s
      s <- if shift then return s else key 'P' "Shift" s
      s <- emitCopy s
      s <- applyPrefixToLine y (drop (length y) b) s
      applyPrefix y xs ps s
  else
    do
      s<-applyPrefixToLine pf b s
      applyPrefix pf xs p s
applyPrefix "" ((a,b):xs) [] s=
  do
    s <- emit b s
    applyPrefix "" xs [] s
applyPrefix pf ((a,b):xs) [] s=
  do
    s<-applyPrefixToLine pf b s
    applyPrefix pf xs [] s
applyPrefix _ [] _ s=return s

main=do
  input <- getContents
  let lines = softlines input
  let prefixes = mergePrefixes (findprefixes lines)
  (n,shift) <- applyPrefix "" lines prefixes (1, False)
  if shift then
    key 'R' "Shift" (n, shift)
  else
    return(n,shift)

बहुत अच्छा समाधान :) Btw: आप पास्ट्स (यदि संभव हो तो) के संयोजन से कुछ और पात्रों को शेव कर सकते हैं।
तिमौला

यह केवल वास्तव में उदाहरण 2 को प्रभावित करता है - मेरे पास एक दिक्जस्ट्रा एल्गोरिथ्म संस्करण था जो इसे पाता है, लेकिन इसकी पहली 3 लाइनों के खिलाफ केवल प्रयोग करने योग्य है। आप विभिन्न उपसर्ग आकारों की कोशिश करके सभी परीक्षणों के लिए मेरे समाधान में सुधार कर सकते हैं; समाधान का तेज पर्याप्त है कि आप इसे क्रूर बल द्वारा कर सकते हैं, केवल 10 रनों की आवश्यकता है। हालांकि हैसेल में है कि रिफ्लेक्टर के लिए अजीब।
चकाचौंध
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.