गोल्फ मेरे शेक्सपियर उद्धरण संदर्भ


45

शेक्सपियर के लिए अपना निबंध लिखते समय, मुझे एहसास हुआ कि मुझे अधिक प्रबंधनीय लंबाई के लिए अपने उद्धरण के संदर्भ को छोटा करने की आवश्यकता है। मैं पहले यह लिख रहा था:

(Act 1, Scene 2, Lines 345-346)

लेकिन मुझे अब उन्हें इस तरह लिखने के लिए कहा गया है:

(I.ii.345-6)

जाहिर है, मुझे अपने शेक्सपियर उद्धरण संदर्भों को थोड़ा नीचे करने के लिए कुछ गोल्फ कोड की आवश्यकता है।

काम

एक प्रोग्राम या फ़ंक्शन लिखें, जिसे टेम्पलेट 1 या 2 के बाद एक स्ट्रिंग इनपुट दिया गया है, क्रमशः टेम्पलेट 3 या 4 के बाद एक स्ट्रिंग प्रिंट या वापस करें। आपको केवल अधिनियम 1 को 5 से और दृश्यों को 9 के माध्यम से समर्थन करना है।

टेम्पलेट्स

खाका १

(Act x, Scene y, Lines a-b)

आप मान सकते हैं कि xकभी भी 5 से अधिक नहीं होता है, yकभी भी 9 से अधिक नहीं होता है, aऔर bहमेशा सकारात्मक पूर्णांक हैं जो आपकी भाषा के अधिकतम सकारात्मक मानक पूर्णांक मान से अधिक नहीं है, और aहमेशा विशेष रूप से कम है b

खाका २

(Act x, Scene y, Line a)

टेम्प्लेट 1 के समान स्थिति, के बारे में जानकारी को छोड़कर b

खाका ३

(x.y.a-b)

जहां xएक राजधानी रोमन अंक है, yएक लोअरकेस रोमन अंक है, aऔर bसंख्याएं हैं, और bकेवल अंकों से छोटा है जो कि समान महत्व के पहले अलग-अलग अंकों से कम है a

खाका ४

(x.y.a)

टेम्प्लेट 3 के समान स्थिति, के बारे में जानकारी को छोड़कर b

परीक्षण के मामलों

f(s)टास्क में परिभाषित फ़ंक्शन होने दें । ""एक स्ट्रिंग मान को दर्शाता है।

>>> f("(Act 1, Scene 2, Lines 345-346)")
"(I.ii.345-6)"

>>> f("(Act 3, Scene 4, Lines 34-349)")
"(III.iv.34-349)"

>>> f("(Act 5, Scene 9, Lines 123-234)")
"(V.ix.123-234)"

>>> f("(Act 3, Scene 4, Line 72)")
"(III.iv.72)"

>>> f("(Act 2, Scene 3, Lines 123-133)")
"(II.iii.123-33)"

>>> f("(Act 4, Scene 8, Lines 124-133)")
"(IV.viii.124-33)"

इस चुनौती के प्रयोजनों के लिए, रोमन अंक अनुवाद के लिए निम्नलिखित अरबी का समर्थन किया जाना चाहिए:

1 i     I
2 ii    II
3 iii   III
4 iv    IV
5 v     V
6 vi    (you do not have to support past 5)
7 vii
8 viii
9 ix

क्या पाठ फ़ाइलों की अनुमति है?
Dat

21
मैं वास्तव में एसपीएल में जवाब की उम्मीद कर रहा हूं।
L3viathan

5
परीक्षण का मामला:(Act 1, Scene 2, Lines 345-3499)

11
शेक्सपियर में जवाब के लिए कौन है?
टाइटस

1
@Grimy फिक्स्ड # 1, # 2 अच्छा है?
एडिसन क्रम्प

जवाबों:


12

शेक्सपियर प्रोग्रामिंग लैंग्वेज (गैर-प्रतिस्पर्धात्मक)

मुझे वास्तव में यह सवाल पसंद आया, और शेक्सपियर-भाषा के जवाब में कुछ दिलचस्पी थी, यहाँ एक है।

A Tale of Two Cites (sic).

Julius Caesar, the first citizen of the Roman Republic.
Brutus, a traitor -- member of the Fifth Column.
Cicero, the greatest Roman orator.
Cleopatra, a proud queen, whom the Romans want to make one of their own.
Romeo, a man who's sometimes there.
Juliet, a maiden who can follow Romeo or stand on her own.


           Act I: Imperium Romanum.


           Scene I: Cleopatra puts men in their place.

[Enter Cleopatra and Julius Caesar]

Julius Caesar:
    Thou art as lovely as the sum of an amazing delicious gentle blossoming warm angel and a charming noble reddest rose.
    Speak your mind. Open your mind. Open your mind. Open your mind! Open your mind!

Cleopatra:
    You are as stuffed as the sum of a hard old green horse and the sum of a grandmother and
    a normal tiny bottomless furry small purple roman.

[Exit Julius Caesar]
[Enter Brutus]

Cleopatra:
    You are as sorry as the difference between a rich morning and a leech.
    You are as smelly as the difference between yourself and a sunny rural blue bold uncle.
    You are as vile as the difference between Julius Caesar and yourself.

[Exit Brutus]
[Enter Cicero]

Cleopatra:
    You are as half-witted as the difference between Brutus and the bluest death.


           Scene II: How do you solve a problem like Cleopatra?

[Exeunt]
[Enter Cleopatra and Julius Caesar]

Julius Caesar:
    Listen to your heart!

[Exit Cleopatra]
[Enter Brutus]

Julius Caesar:
    Is Cleopatra more pretty than a fair charming noble angel?

Brutus:
    If so, we must proceed to Scene IV. Is Cleopatra not worse than the sweetest small aunt?

Julius Caesar:
    If so, let us proceed to Scene III.

Brutus:
    Speak your mind.

Julius Caesar:
    Is Cleopatra nicer than the moon?

Brutus:
    If so, speak your mind.

Julius Caesar:
    Is Cleopatra better than a golden King?

Brutus:
    If so, speak your mind.

Julius Caesar:
    We shall proceed to Scene V.


          Scene III: Brutus and his friends.
Julius Caesar:
    Is Cleopatra as fair as the blossoming smooth sky?

Brutus:
    If so, speak your mind!

Julius Caesar:
    Speak your mind!

Julius Caesar:
    Is Cleopatra jollier than the sum of a yellow sweet road and a summer's day?

Brutus:
    If so, speak your mind!

Julius Caesar:
    Is Cleopatra friendlier than the sum of a sweet large angel and a white cow?

Brutus:
    If so, speak your mind!

Julius Caesar:
    Is Cleopatra as furry as a rich handsome huge mistletoe?

Brutus:
    If so, speak your mind!

Julius Caesar:
    We shall proceed to Scene V.


          Scene IV: Cicero is asked to speak.
[Exit Brutus]
[Enter Cicero]

Julius Caesar:
    Is Cleopatra as beautiful as the sum of a small furry white angel and a summer's day?

Cicero:
    If so, speak your mind!

Julius Caesar:
    Speak YOUR mind!


          Scene V: A period piece -- Cleopatra's reprisal.
[Exeunt]
[Enter Cleopatra and Julius Caesar]

Julius Caesar:
    You are as beautiful as the sum of a embroidered sweetest sunny delicious trustworthy Lord
    and a reddest charming mighty honest King.
    You are as healthy as the difference between yourself and a embroidered Lord. Speak your mind!
    Open your mind! Open your mind! Open your mind! Open your mind! Open your mind! Open your mind!

Cleopatra:
    Are you jollier than the sum of a little rural white bottomless blue blue sky and a rural furry white green old morning?

Julius Caesar:
    If so, we must proceed to Act II. Open your mind! Open your mind!

Cleopatra:
    You are as damned as the difference between yourself and a half-witted dusty snotty rotten oozing death.

[Exit Julius Caesar]
[Enter Brutus]

Cleopatra:
    You are as rotten as the difference between yourself and a rural rotten bottomless evil miserable famine.

[Exit Brutus]
[Enter Cicero]

Cleopatra:
    You are as fatherless as the difference between Brutus and a normal pig. Let us return to Scene II.



          Act II: Lovers' arithmetick.

          Scene I: Our lovers discuss what they have in common.

[Exeunt]
[Enter Romeo and Juliet]

Romeo:
    Thou art as bold as a curse. Listen to your heart!

Juliet:
    Am I better than nothing? If so, let us proceed to Scene III.

Romeo:
    Open your mind. Open your mind.

Juliet:
    Listen to your heart! Open your heart!

Romeo:
    Thou art as amazing as the product of the difference between a handsome white proud white grandfather and an aunt
    and the sum of a loving niece and the Heaven. Speak your mind! Open your mind.
    Listen to your heart. Is the quotient between yourself and the sum of the sum of
    a noble noble mighty blossoming embroidered good father
    and a gentle large large normal old joy and an old happy squirrel as yellow as the quotient between
    myself and the sum of the sum of a pretty beautiful yellow green bold charming kingdom and
    a beautiful blue normal cute large nephew and a pretty big cousin?

Juliet:
    If not, we shall proceed to Scene II.

Romeo:
    You are as sweet as the remainder of the quotient between yourself and the sum of the sum of
    a blossoming bottomless golden peaceful noble healthy nose and
    a happy honest sunny green healthy hero and a hard blue fellow.

Juliet:
    YOU are as sweet as the remainder of the quotient between yourself and the sum of the sum of
    a blossoming bottomless golden peaceful noble healthy nose and
    a happy honest sunny green healthy hero and a hard blue fellow.


          Scene II: Tense times.
Juliet:
    Is the quotient between yourself and the sum of a good beautiful delicious grandmother
    and a noble wind as amazing as the quotient between myself and the sum of
    a smooth furry embroidered roman and a honest sister?

Romeo:
    If so, you are as amazing as the remainder of the quotient between
    yourself and the sum of a cute healthy smooth kingdom and a normal mother.


          Scene III: Parting is such sweet sorrow.
Romeo:
    Open your heart! You are as noble as the sum of a honest charming smooth peaceful fine rose and the sum of
    a cute amazing trustworthy summer's day and an angel. Speak your mind!

(यह 6000 बाइट्स से अधिक लंबा है।) वहाँ कुछ तरकीबें हैं, लेकिन मैंने इसे बहुत अधिक गोल्फ करने की कोशिश नहीं की है, क्योंकि: (1) मैंने पहले से ही एक और जवाब पर अपने हिस्से की गोल्फिंग में योगदान दिया है, और (2) सभी पात्रों को "पेज" में बदल दिया है। "और" पक ", या" बड़ी बड़ी बड़ी बड़ी बड़ी बिल्ली "के लिए सभी वाक्यांश, मज़ा खराब करने के लिए लगता है। इसके बजाय उस भाग के लिए जो रोमन अंकों से संबंधित है, मैंने उन पात्रों का उपयोग किया है जो रोमन हैं, आदि। मैंने कुछ टाइपिंग को बचाने के लिए पात्रों और निर्देशों का पुन: उपयोग किया। :-)

कार्यक्रम ज्यादातर सीधा होना चाहिए, लेकिन उल्लेख के लायक एक शिकन यह है कि जब मैंने यह लिखा था तो मैंने अनुमान लगाया था कि पूर्णांक पढ़ने की तरह काम करेगा scanf: (1) इनपुट से केवल कई वर्णों का उपभोग करता है जैसा कि एक पूर्णांक से मेल खाता है, और (2) मामले में विफलता के, चर को अपरिवर्तित छोड़ दें। (मैंने इस दूसरी प्रॉपर्टी का इस्तेमाल एक्ट II में टेम्प्लेट 1 और 2 के बीच अंतर करने के लिए किया था, "लाइन" तक पढ़ने और एक पूर्णांक पढ़ने का प्रयास करके।) दुर्भाग्य से यह पता चला है कि मूल कार्यान्वयन में एक बग (जो मैं मानता हूं) एक बग है। वह भाषा जहाँ पूर्णांक को पढ़ने से पंक्ति के अंत तक सब कुछ समाप्त हो जाता है और यदि यह विफल हो जाता है तो एक त्रुटि होती है, इसलिए इसे अधिक व्यवहार करने केlibspl.c लिए एक पैच की आवश्यकता होती हैint_inputscanf

और इसके साथ, यह काम करता है:

% spl2c < good.spl > good.c
% gcc -lspl -o good good.c                                    
% for f in in-*; do cat $f; echo "->"; ./good < $f; echo "\n"; done    
(Act 1, Scene 2, Lines 345-346)
->
(I.ii.345-6)

(Act 3, Scene 4, Lines 34-349)
->
(III.iv.34-349)

(Act 5, Scene 9, Lines 123-234)
->
(V.ix.123-234)

(Act 3, Scene 4, Line 72)
->
(III.iv.72)

(Act 2, Scene 3, Lines 123-133)
->
(II.iii.123-33)

(Act 4, Scene 8, Lines 124-133)
->
(IV.viii.124-33)

कुछ हद तक उच्च-स्तरीय छद्मकोश, जिनसे मैंने काम किया, किसी को समझने में मदद करने के लिए:

Print `(`=40
Read 5 chars
Read Int A
Output A in Roman
Output `.`=46
Read 8 chars
Read Int S
Output S in roman
Output `.`=46
Read 6 chars
Set N to -1
Read Int N
If N ≠ -1 goto finish
Read 2 chars
Read Int M
Output Int M
Output `-`=45
Read 1 char
Read Int N
Reduce N wrt M
finish:
Output N
Print `)`=41

उपरोक्त को अंतिम कोड से जोड़कर एक अभ्यास के रूप में छोड़ दिया जाता है। :-) ध्यान दें कि शेक्सपियर ने अंकगणित और स्टैक और गोटो हैं, लेकिन कोई संकेत (केवल लेबल) नहीं हैं, इसलिए रोमन में रूपांतरण की तरह "सबरूटीन्स" को लागू करना थोड़ा दिलचस्प है।


वाह, यह सुंदर है। धन्यवाद! :)
स्टीव बेनेट

1
अपवोट बटन को बार
Addison Crump

9

लाटेक, 513 364 259 226 215 178 159 बाइट्स

अच्छे निबंध हमेशा LaTeX में लिखे जाने चाहिए।

\documentclass{tui}\makeatletter\input{xstring}\def~#1 #2, #3 #4, #5 #6){(\@Roman#2.\@roman#4.\StrCut{#6}-\A\B\A\if\B\else-\fi\StrCompare\A\B[\P]\StrMid\B\P9)}

यह xstring पैकेज का उपयोग करता है क्योंकि बिलकुल स्ट्रिंग हैंडलिंग नहीं बनाया गया है। प्लस साइड में बिल्ट-इन \Romanफॉर्मेटिंग के लिए ऊपरी सीमा उस समय की तुलना में बड़ी होती है, जब हमें (यहां तक ​​कि सॉनेट के लिए भी) की आवश्यकता होती है 2^31-1। मैंने \documentclass{ecv}गिनती में शामिल किया है, लेकिन परीक्षण कोड में से कोई भी नहीं:

\begin{document}
\t(Act 1, Scene 2, Lines 345-346) 

\t(Act 3, Scene 4, Lines 34-349)

\t(Act 5, Scene 9, Lines 123-234)

\t(Act 3, Scene 4, Line 72)

\t(Act 2, Scene 3, Lines 123-133)

\t(Act 4, Scene 8, Lines 124-133)
\end{document}

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

असंबद्ध और टिप्पणी:

\documentclass{ecv}%We have to have a documentclass
\makeatletter %treat the @ sign as a normal character (it's used in "internal" macro names)
\input{xstring} %use the xstring package
\def\shortref#1 #2, #3 #4, #5 #6){ %macro with 6 positional arguments searated by spaces and commas 
    (%print the open bracket
    \@Roman#2 %arg 2 is the Act,  print uppercase Roman
    .%print the full stop
    \roman#4 %arg 4 is the Scene, lowercase roman
    .%print the full stop
    \StrCut{#6}{-}{\A}{\B}%split arg 6 (Lines) at the hyphen, into macros \A and \B
    \A %print the bit before the hyphen
    \ifx\B\empty%if \B has nothing in it do nothing
    \else %otherwise
        - %we need to print a hyphen
    \fi%endif
    \StrCompare{\A}{\B}[\P] %returns (in macro \P) the position at which \A and \B first differ
    \StrMid{\B}{\P}{9}%print \B starting from position \P (9 > the number of remaining characters)
)}%print the closing bracket

ध्यान दें कि इस संस्करण में टिप्पणियों की आवश्यकता होती है अन्यथा न्यूलाइन को व्हॉट्सएप के रूप में व्याख्या की जाती है और एक स्थान पर फैल जाती है।


आप के ~बजाय अपने मैक्रो नाम के रूप में उपयोग करके तीन बाइट्स बचा सकता है \s। लेकिन वास्तव में आपको \s( \stripcommaungolfed संस्करण में) बिल्कुल भी ज़रूरत नहीं है : आप बस \def\t#1 #2, #3 #4, #5 #6और TeX कॉमा को अलग करने का ध्यान रखेंगे। (इसलिए आप 1 बाइट की बचत के बजाय ~ट्रिक का उपयोग कर सकते हैं \t।)
श्रीवत्सआर

@ श्रीवत्सआर धन्यवाद। आपको पता चला कि कॉमा अस्वीकृति इनलाइन कैसे प्राप्त करें और यह मेरे द्वारा की गई किसी भी कोशिश से अधिक सरल था। सक्रिय के साथ चाल ~थोड़ा बुरा है, लेकिन मुझे यह पसंद है। इसका मतलब था कि मुझे डॉक्यूमेंटक्लास को बदलना था (अन्य 3-लेटर .clsफ़ाइलों में से एक जिसे मैंने स्थापित किया था)
क्रिस एच

1
हां, मैं 182 बाइट्स गिनता हूं, जो न केवल पायथन के उत्तर को हराता है, बल्कि रूबी, पीएचपी और पर्ल के उत्तर में से एक है :-)
श्रीवत्सआर

1
@ श्रीवत्सआर अभी भी बेहतर है: 178 के रूप में \@roman और \@Romanतर्क के आसपास ब्रेसिज़ की आवश्यकता नहीं है।
क्रिस एच

1
सभी मुख्य xstringविचार आपके थे :-) यह एक साथ मज़ेदार था!
श्रीवत्सआर

8

जावास्क्रिप्ट (ईएस 6), 210 183 178 177 171 बाइट्स

बाकी मापदंडों को नियंत्रित करके 27 बाइट्स सहेजे गए ( ETHproductions के लिए धन्यवाद )

ओपनिंग परन से मेल नहीं खाकर और रोमन अंक पीढ़ी को जोड़कर 5 बाइट्स बचाए

अंतिम टर्नरी अभिव्यक्ति को समायोजित करके 1 बाइट को बचाया

दो मिलान समूहों को मिलाकर 6 बाइट्स सहेजे गए

s=>s.replace(/Act (\d)\D*(\d)\D*(\d*)(\d*-?)\3(\d*)/,(_,a,b,c,d,e)=>'IIIV'.slice(a>3&&a-2,a)+'.'+'iiiviiix'.slice('233336'[b-4],b-(b>4))+'.'+c+d+(d.length>e.length?e:c+e))

परीक्षण के मामलों:

let f = s=>s.replace(/Act (\d)\D*(\d)\D*(\d*)(\d*-?)\3(\d*)/,(_,a,b,c,d,e)=>'IIIV'.slice(a>3&&a-2,a)+'.'+'iiiviiix'.slice('233336'[b-4],b-(b>4))+'.'+c+d+(d.length>e.length?e:c+e))

;[
  ["(Act 1, Scene 2, Lines 345-346)", "(I.ii.345-6)"],
  ["(Act 3, Scene 4, Lines 34-349)", "(III.iv.34-349)"],
  ["(Act 5, Scene 9, Lines 123-234)", "(V.ix.123-234)"],
  ["(Act 3, Scene 4, Line 72)", "(III.iv.72)"],
  ["(Act 2, Scene 3, Line 123-133)", "(II.iii.123-33)"],
  ["(Act 4, Scene 8, Line 124-133)", "(IV.viii.124-33)"],
  ["(Act 1, Scene 2, Lines 345-3499)", "(I.ii.345-3499)"]
].map(([a,b]) => console.log(`${a} => ${f(a)} (${f(a) == b ? 'Pass' : 'Fail'})`))
.as-console-wrapper { min-height: 100% }


मैं अभी परीक्षण नहीं कर सकता, लेकिन क्या यह अभी भी काम करता है यदि आप प्रतिस्थापित करते हैं Act और प्रत्येक के \D*साथ .*?
पैट्रिक रॉबर्ट्स

ये हो सकता है; मैं कोशिश करने में संकोच कर रहा था क्योंकि जावास्क्रिप्ट डिफ़ॉल्ट रूप से लालची मिलान को नियोजित करता है। मैं आज बाद में इसका परीक्षण करूंगा और आपको बता दूंगा कि क्या यह काम करता है।
ग्यार

8

जेली ,  87 86  85 बाइट्स

DµU=/œr1LCṫ@Ṫ
Ṗ,Çj”-µ⁸L’$?W
⁾-,yḲḊm2Ṗ€Vµ“¬Q:’ṃ⁾IV;”X“¤|ʂ’BṚ¤œṗị@µ1,2¦Œl2¦µ;ṪÇ$“(..)”ż

इसे ऑनलाइन आज़माएं! या एक परीक्षण सूट देखें

कैसे?

DµU=/œr1LCṫ@Ṫ - Link 1, toPageShort: list of numbers [fromPage, toPage]  e.g.  [345,365]
D             - cast to decimal lists                                 [[3,4,5],[3,6,5]]
 µ            - monadic chain separation (call that d)
  U           - reverse each                                          [[5,4,3],[5,6,3]]
   =/         - reduce by equality                                              [1,0,1]
     œr1      - strip any 1s from the right                                       [1,0]
        L     - length                                                                2
         C    - complement (1-z)                                                     -1
            Ṫ - tail d                                                          [3,6,5]
          ṫ@  - tail from index (swap @rguments)                                  [6,5]

Ṗ,Çj”-µ⁸L’$?W - Link 2, format page number(s): number or list of two numbers
           ?  - if:
          $   -   last two links as a monad:
        L     -     length
         ’    -     decremented (0 for a number, 1 for a list of two numbers)
      µ       - then:
Ṗ             -   pop (list without the last item, i.e. just the from page)
  Ç           -   call the last link (1) as a monad with the list as its argument
 ,            -   pair
    ”-        -   literal '-'
   j          -   join
              - else:
       ⁸      -   link's left argument (the single page number)
            W - wrap the result in a list (for ease of post-formatting in Main)

⁾-,yḲḊm2Ṗ€Vµ ... µ1,2¦Œl2¦µ;ṪÇ$“(..)”ż - Main link: string s
⁾-,                                    - literal ['-',',']
   y                                   - map (change '-' to ',')
    Ḳ                                  - split at spaces
     Ḋ                                 - dequeue (get all but 1st)
      m2                               - mod-index-2 (1st,3rd,5th)
        Ṗ€                             - pop €ach (ditch last char)
          V                            - evaluate - list of numbers
                                       -   either [act,scene,page] or
                                       -   [act,scene,[from,to]]
           µ     µ   ¦                 - apply to indexes:
                  1,2                  - [1,2]
             ...                       -   see monadic chain " ... ", below
                        2¦             - apply to index 2:
                      Œl               -   lowercase
                          µ            - monadic chain separation
                              $        - last 2 links as a monad:
                            Ṫ          -   tail (page(s))
                             Ç         -   call last link (2) as a monad
                           ;           - concatenate
                               “(..)”  - literal ['(','.','.',')']
                                     ż - zip together
                                       - implicit print

“¬Q:’ṃ⁾IV;”X“¤|ʂ’BṚ¤œṗị@ - monadic chain " ... " from Main
                         -   Get Roman numeral: number n (n>0, n<10) (act or scene)
“¬Q:’                    - base 250 literal 520559
      ⁾IV                - literal ['I','V']
     ṃ                   - base decompression -> "IIIIIIIVVVIVIIVIIII"
          ”X             - literal 'X'
         ;               - concatenate -> "IIIIIIIVVVIVIIVIIIIX"
                   ¤     - nilad followed by link(s) as a nilad:
            “¤|ʂ’        -   base 250 literal 281418
                 B       -   convert to a binary list
                  Ṛ      -   reverse
                    œṗ   -   split at truthy indexes i.e: I II III IV V VI VII VIII IX
                      ị@ -   index into (swap @arguments) using n

1
यह एक जैली स्क्रिप्ट के लिए किसी प्रकार का रिकॉर्ड है
मिकी

@ मिकट नोप I अब वहाँ है ...
जोनाथन एलन

यह सिरदर्द को प्रेरित करता है। इसे 0/10 न पढ़ें। : पी
एरिक आउटगोल्फर

@EriktheOutgolfer क्षमा करें !!
जोनाथन एलन

2
मजाक एक तरफ, मुझे लगता है कि कोड में कुछ वास्तव में अद्वितीय सामान देख सकते हैं, जैसे œr, Ṗ,Ç, Ṗ€V, ṪÇ$, Wएक सहायक लिंक पर पिछले लिंक, संभवतः भी दूसरों, अच्छा प्रयास के रूप में! यह आपकी सामान्य रूप से 80-जेली सबमिशन नहीं है, यह जेली लोगों के बीच विशेष मान्यता के योग्य है।
बजे द एग्रीग्राफर

6

आर , 94 126 112 166 बाइट्स

और अब यह पहले की तुलना में wordier है :(, इसे आगे गोल्फ की कोशिश करने के लिए वापस। पेज संदर्भ को कम करने के लिए Regex बेशर्मी से @FryAmTheEggman से उधार चोरी हो गया

अब मुझे वास्तव में बाइट्स वापस पाने के लिए कुछ काम करने की आवश्यकता है, लेकिन यह अब दूसरे मामले के लिए काम करता है।

R=as.roman;i=sub(',','',scan(,''));sprintf('(%s.%s.%s',R(i[2]),tolower(R(i[4])),`if`(!diff(c(nchar(el(strsplit(i[6],'-'))),0))-1,sub('((.+).*-)\\2','\\1',i[6]),i[6]))

इसे ऑनलाइन आज़माएं! - ध्यान दें कि elTIO पर काम नहीं करता है और इसे बदल दिया गया हैunlist

R=as.roman;                              # Used to convert to roman numeral class
i=sub(',','',scan(,''));                 # Get input, splits on spaces, remove ,'s
sprintf('(%s.%s.%s',                     # Use sprintf to format the output.
    R(i[2]),                             # Convert to roman numeral
    tolower(R(i[4])),                    # Convert to roman numeral and lowercase
    `if`(                                #
       !diff(                            # Test if the lengths of the last string
       c(nchar(el(strsplit(i[6],'-'))),0)# split on the hyphen are different (extra 0 to appease diff)
       )-1,                              # taking into account the trailing )
       sub('((.+).*-)\\2','\\1',i[6]),   # on true use regex to reduce range
       i[6]                              # else output as is
    )
)

4

रेटिना ,89 88 बाइट्स

T`, lL`._
2`(\d+)
$*i
i{5}
v
i{4}
iv
viv
ix
1T`l`L`\w+
(\b(.+)(.)*-)\2((?<-3>.)*)\b
$1$4

इसे ऑनलाइन आज़माएं!

नील को धन्यवाद देकर 3 बाइट्स बचाए।

वर्णों के ब्लॉक के साथ पहले दो नंबरों को बदलने से पहले अनावश्यक वर्णों को स्ट्रिप्स करें i। फिर यह iउपयुक्त रोमन अंकों को बनाने के लिए इन s के विखंडन से मेल खाता है । फिर हम पहले रोमन अंक का पूंजीकरण करते हैं। अंत में हम हाइफ़न से पहले और हाइफ़न के बाद जितनी संख्या में हो सकते हैं, उतने मिलान करते हैं, जैसे कि अंक में अंकों की संख्या समान है। हम फिर दूसरे नंबर से उस उपसर्ग को हटा देते हैं।


की जगह iiiiiके साथ v, iiiiके साथ ivऔर vivसाथ ixबाइट्स के एक जोड़े को बचाने के लिए लगता है।
नील

हालाँकि, आपका लाइन नंबर छोटा होना गलत प्रतीत हो रहा है 345-356- मैं उम्मीद कर रहा था 345-56
नील

@ नील व्होप्स, क्लीने विस्तार को भूल गए। वैसे भी टिप के लिए धन्यवाद!
FryAmTheEggman

क्या आप \bप्रतिस्थापन )में दोहराने से बचने के लिए अंतिम प्रतिस्थापन के अंत में उपयोग कर सकते हैं ?
नील

@ नील मुझे नहीं लगा कि मैं काम करूंगा क्योंकि मुझे लगा कि मुझे उपयोग करने की आवश्यकता होगी, \dलेकिन यह काम करने लगता है क्योंकि कोई अन्य शब्द सीमा नहीं है। धन्यवाद!
FryAmTheEggman

4

PHP> = 7.1, 195 बाइट्स

preg_match_all("#\d+#",$argn,$t);[[$a,$s,$b,$e]]=$t;for(;$e&&~$c=$e[$k-=1];$p="-".substr($e,$i))$c>$b[$k]&&$i=$k;echo"(",strtoupper(($r=[_,i,ii,iii,iv,v,vi,vii,viii,ix])[$a]),".$r[$s].$b",$p,")";

परीक्षण के मामलों

विस्तारित

preg_match_all("#\d+#",$argn,$t); # match for all groups of digits
[[$a,$s,$b,$e]]=$t; # shorter variables names for these groups
for(;$e&&~$c=$e[$k-=1];$p="-".substr($e,$i)) # prepare the seceond line if exists
  $c>$b[$k]&&$i=$k; 
echo"(" # print the char (
,strtoupper(($r=[_,i,ii,iii,iv,v,vi,vii,viii,ix])[$a]) # print the upper roman digit for Act
,".$r[$s].$b" # print the lower roman digit for Scene and the first line with trailing "."
,$p # print shorted second Line
,")"; #Print the closing )

1
preg_match_all("#\d+#",$argn,$m);[$a,$s,$b,$e]=$m[0];दो बाइट बचाता है। if($e){for(;$b[$i]==$e[$i];$i++);echo"-",substr($e,$i);}echo")";46 बचाना चाहिए (you do not have to support past 5)। 15 बाइट बचाता है।
टाइटस

1
".$r[$s].$b"एक और 5 बाइट्स बचाता है; और [[$a,$s,$b,$e]]=$m;एक और एक। दुर्भाग्य से, सरणी असाइनमेंट संदर्भ (अभी तक) से काम नहीं करते हैं।
टाइटस

if($e&&$e-$b){for($x=str_pad($b,strlen($e),0,0);$x[$i]==$e[$i];$i++);echo"-",substr($e,$i);}10 बाइट्स बचाता है और काम कर सकता है।
टाइटस

मुझे ठीक लग रहा है । और &&$e-$bपरीक्षण मामलों के लिए अनावश्यक है; तो यह 17 बाइट बचाता है, 10. Btw नहीं। आपको अभी भी रोमन 6 से 9 तक की ज़रूरत नहीं है;)
टाइटस

1
आप के for(;str_pad($b,strlen($e),0,0)[$i]==$e[$i];)$i++;साथ बदल सकता है for(;$e&&~$c=$e[-++$k];)$c>$b[-$k]&&$i=-$k;
क्रिस्टोफ

3

पर्ल 5, 185 + 1 = 186 बाइट्स

आवश्यक -nध्वज के लिए 1 बाइट जुर्माना ।

कुछ परीक्षण मामलों के लिए असफल हो सकते हैं, जहां दृश्य में 10 ^ 11 से अधिक लाइनें हैं, लेकिन AFAIK नो शेक्सपियर के दृश्य काफी लंबे हैं;)

y/A-z //d;while($x++<9){s/,(\d+)(\d{$x})-\g1(\d{$x}\))/,$1$2-$3/};@F=split/,/;for($F[0],$F[1]){$_.='i'while(y/2-91/1-8/d);s/i{5}/v/g;s/i{4}/iv/;s/v(i)?v/$1x/;s/$/,/};$F[0]=uc$F[0];say@F

पठनीय रूप में:

y/A-z //d; #Delete all characters besides numbers, parenthesis, and comma
while($x++<9){s/,(\d+)(\d{$x})-\g1(\d{$x}\))/,$1$2-$3/}; #Shortens the line numbers. Super ugly, but my simpler code broke on test case 2- that fix added 26 bytes :( I'll revisit this later, perhaps...
@F=split/,/; #Splits the input into an array so we can mess with the act and scene without messing with the lines
for($F[0],$F[1]){ #For loop over the act and scene
    $_.='i'while(y/2-91/1-8/d); #Recursively turn numbers into naive Roman numerals (i.e. 9 would be iiiiiiiii)
    s/i{5}/v/g;s/i{4}/iv/;s/v(i)?v/$1x/;s/$/,/ #Substitution rules to convert naive Roman numerals into real Roman numerals and add a comma to the end
}
$F[0]=uc$F[0]; #Convert act to uppercase
say@F #Output


2

पायथन 2.7 298 बाइट्स

import re
r=lambda n:'iiiviiix'[2*(n>3)+(n>4)+3*(n>8):n-(n>4)]
o=lambda x,y,n=0:n*(len(x)==len(y))if not x or x[0]!=y[0]else o(x[1:],y[1:],n+1)
q=lambda a,s,g,h:(r(int(a)).upper(),r(int(s)),g+'-'+h[o(g,h):]if h else g)
f=lambda p:'(%s.%s.%s)'%q(*re.match('\D*(\d)\D*(\d)\D*(\d+).(\d*)',p).groups())

2

पर्ल, 99 बाइट्स

/(.+)(-\1|.(?2).)\b/;@r=(s/-$1/-/,I,II,III,IV,V,VI,VII,VIII,IX);s/Act(.+)(.,).+ /$r[$1].\L$r[$2]./

के साथ भागो perl -pe। 98 बाइट्स (स्रोत) + 1 बाइट ( pध्वज) = 99।


इस पोस्टिंग के समय, एक और पर्ल उत्तर ( codegolf.stackexchange.com/a/123400/6484 ) है, लेकिन यह 186 बाइट लंबा है और बहुत अलग विचारों का उपयोग करता है, इसलिए मुझे लगा कि एक अलग उत्तर देना उचित था।
ग्रैमी

यह बेकार लग रहा है क्योंकि यह रोमन अंकों के लिए 5 से परे प्रावधान लेता है
हेगन वॉन एटिजन

2
@HagenvonEitzen चुनौती यह निर्दिष्ट करती है कि आपको 9. 9 तक के रोमन अंकों का समर्थन करना होगा। टेस्ट केस 3 में "सीन 9" है, और टेस्ट केस 6 में "सीन 8" है; दोनों विफल हो जाएगा अगर मैं केवल रोमन अंकों 5 पर अप समर्थित
ग्रिमी

2

पायथन 2 , 301 259 252 221 बाइट्स

चास ब्राउन को धन्यवाद -31 बाइट्स।

तो, उह, यह ... बहुत लंबा है ... मुझे लगता है कि मैं इसे गोल्फ कर सकता हूं लेकिन मैं थोड़ी देर के लिए अपने दिमाग को मिटा रहा हूं।

import re
def f(s):s,r=re.match(r'.*?(\d),.*?(\d), .*? (\d*)(\d*-?)\3(\d*)',s),'0 i ii iii iv v vi vii viii ix'.split();b,c,d,e,f=s.groups();print'(%s.%s.%s)'%(r[int(b)].upper(),r[int(c)],d+e+(f if len(e)>len(f)else d+f))

इसे ऑनलाइन आज़माएं!

टूट - फूट

import re                     # re module for regex stuff

def f(s):                     # function that accepts one argument

    s, r = (re.match(r'.*?(\d),.*?(\d), .*? (\d*)(\d*-?)\3(\d*)', s),
           # match the string and capture the important parts using regex

           '0 i ii iii iv v vi vii viii ix'.split()
           # array that stores roman numerals

    b, c, d, e, f = s.groups()
                    # all the numbers from the match to variables

    print '(%s.%s.%s)' % (
                              r[int(b)].upper(),
                              # get the respective roman numeral and make it uppercase

                              r[int(c)],
                              # get the respective roman numeral

                              d + e + (f if len(e) > len(f) else d + f)
                              # shorten the second number if it's shorter than the first number
                         )

आप b,c,d,e,f=s.groups()इसके बजाय का उपयोग करके थोड़ा बचा सकते हैंa,b,c,d,e,f=[s.group(n) for n in range(6)]
चास ब्राउन

और के [0]+'i,ii,iii,iv,v,vi,vii,viii,ix'.split(',')बजाय का उपयोग करके एक और 5 [s,'i','ii','iii','iv','v','vi','vii','viii','ix']
चास ब्राउन

संशोधित - और के बजाय का उपयोग करके एक और 8[0]+'i ii iii iv v vi vii viii ix'.split()[s,'i','ii','iii','iv','v','vi','vii','viii','ix']
चास ब्राउन

ओह, हुह, नहीं जानता कि आप ऐसा कर सकते हैं। धन्यवाद!
totallyhuman

0उद्धरणों के अंदर लगा अच्छा ट्वीक । एक आखिरी मामूली ट्वीक मैं देख सकता हूं: आप उपयोग कर रहे हैं: s,r=XXX,YYY;b,c,d,e,f=s.groups();आप एक और 4 बाइट्स को बजाए समान रूप से कह सकते हैं b,c,d,e,f=XXX.groups();r=YYY;:। तो आप मेरी सबमिशन से 81 बाइट्स कम लेते हैं! :)
चास ब्राउन

2

q / kdb +, 200 187 बाइट्स

उपाय:

f:{R:(($:)N:(!)11)!($:)``i`ii`iii`iv`v`vi`vii`viii`ix`x;S:","vs x inter .Q.n,",-";L:"-"vs P:S 2;"(",("."sv(upper R S 0;R S 1;$[{x[y]=x z}[#:;F:L 0;T:L 1];F,"-",((*:)N(&:)F<>T)_T;P])),")"}

उदाहरण:

q)f "(Act 1, Scene 2, Lines 345-346)"
"(I.ii.345-6)"
q)f "(Act 3, Scene 4, Lines 34-349)"
"(III.iv.34-349)"
q)f "(Act 5, Scene 9, Lines 123-234)"
"(V.ix.123-234)"
q)f "(Act 3, Scene 4, Line 72)"
"(III.iv.72)"
q)f "(Act 2, Scene 3, Lines 123-133)"
"(II.iii.123-33)"
q)f "(Act 4, Scene 8, Lines 124-133)"
"(IV.viii.124-33)"

स्पष्टीकरण: (थोड़ा अपढ़)

f:{
  // create map of 0->10 to roman numerals, e.g. "5" -> "v"
  R:(($:)N:(!)11)!($:)``i`ii`iii`iv`v`vi`vii`viii`ix`x;
  // remove everything from the input string except -, then split on ,
  S:","vs x inter .Q.n,",-";
  // split the final field on '-', also save final field in variable P
  L:"-"vs P:S 2;
  // if the length of from/to lines are the same then find the first character
  // where they differ, and cut this many characters from the 'to' string
  M:$[{x[y]=x z}[#:;F:L 0;T:L 1];F,"-",((*:)N(&:)F<>T)_T;P];
  // join everything together, use act/scene to index into 
  // the roman numeral map, uppercase the act
  "(",("."sv(upper R S 0;R S 1;M)),")"
  }

टिप्पणियाँ:

तकनीकी रूप से यह 2 बाइट्स छोटा हो सकता है (इसकी कोई आवश्यकता नहीं है f:) लेकिन इस तरह से उदाहरण दिखाना आसान बनाता है।

संपादन:

  • -13 बाइट्स; प्रतिस्थापित stringके साथ $:, countके साथ #:, tilके साथ (!)और firstसाथ (*:), तार करने के लिए आर के सूचकांक डाली तो हम कलाकारों अधिनियम / दृश्य ints में करने की ज़रूरत नहीं
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.