গল্ফ আমার শেক্সপিয়ারের উদ্ধৃতি উল্লেখ


45

শেক্সপিয়ারের জন্য আমার প্রবন্ধটি লেখার সময়, আমি বুঝতে পেরেছিলাম যে আমার উদ্ধৃতি উল্লেখগুলি আরও পরিচালনাযোগ্য দৈর্ঘ্যের জন্য ছোট করা দরকার। আমি আগে এই লেখা ছিল:

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

তবে আমাকে এখন এগুলি লিখতে বলা হয়েছে:

(I.ii.345-6)

স্পষ্টতই, আমার শেক্সপিয়ারের উদ্ধৃতি রেফারেন্সগুলি কিছুটা নীচে গল্ফ করার জন্য আমার কিছু গল্ফ কোড দরকার।

কাজটি

টেমপ্লেট 1 বা 2 অনুসরণ করে একটি স্ট্রিং ইনপুট দেওয়া এমন একটি প্রোগ্রাম বা ফাংশন লিখুন, যথাক্রমে টেমপ্লেট 3 বা 4 এর পরে একটি স্ট্রিং মুদ্রণ করুন বা প্রত্যাবর্তন করুন। আপনাকে কেবল আইন 1 থেকে 5 এবং দৃশ্য 1 থেকে 9 এর সমর্থন করতে হবে।

টেমপ্লেট

টেম্পলেট 1

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

আপনি ধরে নিতে পারেন যে xকখনই 5 এর বেশি হয় না, yকখনও 9 এর বেশি হয় না aএবং bসর্বদা ইতিবাচক পূর্ণসংখ্যার হয় আপনার ভাষার সর্বাধিক ইতিবাচক মানক পূর্ণসংখ্যার মানটি অতিক্রম করে না এবং aসর্বদা এর চেয়ে কম হয় b

টেমপ্লেট 2

(Act x, Scene y, Line a)

টেমপ্লেট 1 হিসাবে একই শর্তাদি তথ্য বাদ দিয়ে b

টেম্পলেট 3

(x.y.a-b)

xমূলধন রোমান সংখ্যা যেখানে , yএকটি ছোট হাতের রোমান সংখ্যা, aএবং bসংখ্যার, এবং bএটির থেকে সমান তাত্পর্যপূর্ণ প্রথম বিচ্ছিন্নতম অঙ্কের চেয়ে কম সংখ্যায় কম করা হয় a

টেম্পলেট 4

(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

পাঠ্য ফাইল অনুমোদিত?
ডেটা

21
আমি সত্যিই এসপিএলে একটি উত্তর আশা করছি।
L3viathan

5
পরীক্ষার কেস:(Act 1, Scene 2, Lines 345-3499)
ডিজাইমা

11
শেক্সপিয়ারে উত্তরের জন্য কে?
তিতাস

1
@ গ্রিমি ফিক্সড # 1, # 2 ভাল?
অ্যাডিসন

উত্তর:


12

শেক্সপিয়ার প্রোগ্রামিং ভাষা (অ-প্রতিযোগিতামূলক)

আমি এই প্রশ্নটি সত্যিই পছন্দ করেছি এবং শেক্সপিয়ার-ভাষার উত্তরের সাথে কিছু আগ্রহ ছিল বলে এখানে একটি one

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!

(এটি 6০০০ বাইটেরও বেশি দীর্ঘ)) সেখানে কিছু কৌশল আছে তবে আমি এটির খুব বেশি গল্ফ দেওয়ার চেষ্টা করিনি, কারণ: (১) আমি ইতিমধ্যে অন্য উত্তরে গল্ফ করার ক্ষেত্রে আমার অংশকে অবদান রেখেছি, এবং (২) সমস্ত অক্ষরকে "পৃষ্ঠাতে পরিবর্তন করেছি" "এবং" পাক "বা" বড় বড় বড় বড় বিড়াল "এর সমস্ত বাক্যাংশ মজাদার নষ্ট করে বলে মনে হচ্ছে। রোমান সংখ্যার সাথে যে অংশটি আমি ব্যবহার করি সেগুলির পরিবর্তে আমি রোমান ইত্যাদি বর্ণ ব্যবহার করেছি typ :-)

প্রোগ্রামটি বেশিরভাগ সহজবোধ্য হওয়া উচিত তবে একটি বলি বলার মতো বিষয় হ'ল আমি যখন এটি লিখেছিলাম তখন আমি ধরে scanfনিয়েছিলাম যে কোনও পূর্ণসংখ্যা পড়া এমনভাবে কাজ করবে : (1) ইনপুট থেকে কেবলমাত্র একটি অক্ষরের সাথে কোনও পূর্ণসংখ্যার সাথে মিলিত হয় এবং (2) ক্ষেত্রে ব্যর্থতা, পরিবর্তনশীল অপরিবর্তিত ছেড়ে। (আমি এই দ্বিতীয় সম্পত্তিটি দ্বিতীয় আইনে টেমপ্লেট 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
upvote বোতামটি বারবার চড় মারে
অ্যাডিসন ক্রম্প

9

ল্যাটেক্স, 513 364 259 226 215 178 159 বাইটস

ভাল প্রবন্ধগুলি সর্বদা লটেক্সে লেখা উচিত।

\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}

(যদি আপনি আসলে এটি ব্যবহারের জন্য যথেষ্ট পাগল হন তবে আপনাকে ম্যাক্রোর নামগুলি কমপক্ষে উগলফ করতে হবে single একক চরিত্রের ম্যাক্রোগুলিকে ওভাররাইট করা খারাপ অভ্যাস)

অবহেলিত এবং মন্তব্য করেছেন:

\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( \stripcommaঅব্যক্ত সংস্করণে): আপনি ঠিক করতে পারেন \def\t#1 #2, #3 #4, #5 #6এবং টেক্স কমাগুলি সরিয়ে নেওয়ার যত্ন নেবে। (সুতরাং আপনি এর পরিবর্তে 1 টি বাইট সংরক্ষণ করে ~ট্রিকটি ব্যবহার করতে পারেন \t))
শ্রীভাতসার

@ শ্রীভাতসার আপনাকে ধন্যবাদ কমা প্রত্যাখ্যানকে কীভাবে ইনলাইন পাবেন তা আপনি বুঝতে পেরেছিলেন এবং আমার চেষ্টা করা যেকোন কিছু থেকে এটি সহজ ছিল। অ্যাক্টিভ সহ কৌতুকটি ~কিছুটা বাজে কিন্তু আমি এখানে এটি পছন্দ করি। এর অর্থ হ'ল আমাকে ডকুমেন্টক্লাসটি পরিবর্তন করতে হয়েছিল ( .clsআমি ইনস্টল করা অন্যান্য 3-অক্ষরের ফাইলগুলির মধ্যে একটিতে )
ক্রিস এইচ

1
হ্যাঁ, আমি 182 বাইট গণনা করি, যা কেবল পাইথন উত্তরই নয়, রুবি, পিএইচপি এবং পার্লের একটির উত্তর দেয় :-)
শ্রীভাতসার আর

1
@ শ্রীভাতসার আরও উত্তম: 178 হিসাবে \@roman এবং তর্কটির \@Romanচারপাশে ধনুর্বন্ধনী প্রয়োজন নেই।
ক্রিস এইচ

1
সমস্ত মূল xstringধারণা আপনার ছিল :-) এটি একসাথে গল্ফ করা মজাদার ছিল!
শ্রীভাত্সআর

8

জাভাস্ক্রিপ্ট (ES6), 210 183 178 177 171 বাইট

বিশিষ্ট প্যারামিটারগুলি এনআরোলিং করে 27 বাইট সংরক্ষণ করা হয়েছে ( ETH প্রোডাকশনের জন্য ধন্যবাদ )

উদ্বোধনী পেরেনটির সাথে মেলে না এবং রোমান অঙ্কের প্রজন্মকে টুইট করে 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*দিয়ে থাকেন তবে এটি এখনও কার্যকর হয় .*?
প্যাট্রিক রবার্টস

এটা হতে পারে; আমি চেষ্টা করতে দ্বিধা বোধ করছিলাম কারণ জাভাস্ক্রিপ্ট ডিফল্টরূপে লোভী মিলকে নিয়োগ করে। আমি আজ এটি পরে পরীক্ষা করব এবং এটি কাজ করে কিনা আপনাকে তা জানান।
gyre

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
এটি জেলি স্ক্রিপ্টের জন্য
একরকম

@ মিকিটি এখন নেই, আমি ওখানে অনেকক্ষণ বাইরে এসেছি ...
জোনাথন অ্যালান

এটি মাথা ব্যথা প্ররোচিত করে। এটি 0-10 পড়বেন না। : পি
এরিক আউটগলফার

নিবন্ধন করুন
জোনাথন অ্যালান

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]))

এটি অনলাইন চেষ্টা করুন! - নোট যে elটিআইওতে কাজ করে না এবং এটি প্রতিস্থাপন করা হয়েছে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যথাযথ রোমান সংখ্যার জন্য এইগুলির সাথে মেলে । তারপরে আমরা প্রথম রোমান অঙ্ককে বড় করে দেখি। অবশেষে আমরা হাইফেনের আগে এবং হাইফেনের পরে যতটা সম্ভব সংখ্যার সাথে মিল রাখি যাতে সংখ্যায় অঙ্কের সংখ্যা একই হয়। তারপরে আমরা দ্বিতীয় নম্বর থেকে সেই উপসর্গটি সরিয়ে ফেলি।


প্রতিস্থাপন করা হচ্ছে iiiiiসঙ্গে v, iiiiসঙ্গে ivএবং vivসঙ্গে ixবাইট দুয়েক রক্ষা বলে মনে হয়।
নীল

তবে আপনার লাইন নম্বরটি সংক্ষিপ্ত করে মনে হচ্ছে এটি ভুল হয়ে গেছে 345-356- আমি আশা করছিলাম 345-56
নীল

@ নীল ওফস, ক্লিনের প্রসারণ ভুলে গেছেন। যাইহোক টিপ জন্য ধন্যবাদ!
FryAmTheEggman

\bপ্রতিস্থাপনের পুনরাবৃত্তিটি এড়াতে আপনি কি সর্বশেষ প্রতিস্থাপনের শেষে ব্যবহার করতে পারেন )?
নীল

@ নীল আমি ভাবিনি যে এটি কাজ করবে কারণ আমি ভেবেছিলাম আমার ব্যবহার করা দরকার \dতবে এটি অন্যথায় শব্দের সীমানা না থাকায় এটি কাজ করবে বলে মনে হয়। ধন্যবাদ!
FryAmTheEggman

4

পিএইচপি> = 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,")";

Testcases

সম্প্রসারিত

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পরীক্ষার ক্ষেত্রে অপ্রয়োজনীয়; সুতরাং এটি 10 ​​টি নয়, 17 বাইট সঞ্চয় করে। আপনার এখনও 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 টিরও বেশি লাইন রয়েছে তবে এএফআইএইকে কোনও শেক্সপিয়ারের দৃশ্যগুলি এত দীর্ঘ নয়;)

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।


এই পোস্টিংয়ের সময়, আরও একটি পার্ল উত্তর রয়েছে ( কোডগল্ফ.স্ট্যাকেক্সেঞ্জারএইচএ / 123400/6484 ), তবে এটি 186 বাইট দীর্ঘ এবং খুব আলাদা ধারণা ব্যবহার করে, তাই আমার মনে হয়েছিল একটি পৃথক উত্তর দেওয়া উপযুক্ত ছিল।
গ্রিমি

এটি 5 টি অতিক্রম করে রোমান সংখ্যার বিধান নেয় বলে এটি অপব্যয় বলে মনে হচ্ছে
হ্যাগেন ভন ইটজেন

2
@ হ্যাগেভনএইটজেন চ্যালেঞ্জটি উল্লেখ করে যে আপনাকে 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)]
Chas ব্রাউন

এবং আরও 5 এর [0]+'i,ii,iii,iv,v,vi,vii,viii,ix'.split(',')পরিবর্তে ব্যবহার করে [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']
চ্যাস ব্রাউন

ওহ, হাহ, আপনি জানেন না যে আপনি এটি করতে পারেন। ধন্যবাদ!
সম্পূর্ণরূপে

0উদ্ধৃতি ভিতরে রেখে সুন্দর ঝাপটায় । একটা শেষ ছোটখাট খামচি দেখতে পাচ্ছি: আপনি ব্যবহার করছেন: s,r=XXX,YYY;b,c,d,e,f=s.groups();আপনি পরিবর্তে equivalently বলছে অন্য 4 বাইট সংরক্ষণ করতে পারেন: b,c,d,e,f=XXX.groups();r=YYY;। সুতরাং আপনি আমার জমা চেয়ে 81 বাইট কম শেষ! :)
চ্যাস ব্রাউন

2

কিউ / কেডিবি +, 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 মধ্যে আছে আত
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.