แยกสคริปต์ของเช็คสเปียร์


13

Mr. William Shakespeare เขียนบทละคร มีบทละครมากมาย ในtarballนี้มีผลงานเดี่ยวของเขาทุกบทละครของเขาแต่ละไฟล์ยาวหนึ่งไฟล์
มันจะต้องแบ่งออกเป็นฉากเพื่อผลิตเวที เนื่องจากนักแสดงมีความอดทนรหัสของคุณจะต้องสั้นที่สุด

งาน:

งานของคุณคือการเขียนโปรแกรมหรือฟังก์ชั่นเพื่อแยกการเล่นที่มีอยู่ในไฟล์นี้เป็นไฟล์ที่แยกกันโดยเริ่มจากหมายเลข1ที่แต่ละฉากมีฉาก คุณควรรักษาช่องว่างและชื่อทั้งหมด

การป้อนข้อมูล:

อินพุตจะเล่นแบบครั้งเดียวผ่านstdinหรือชื่อไฟล์เป็นพารามิเตอร์ คุณสามารถเลือก. การเล่นจะมีลักษณะดังนี้:

 TITUS ANDRONICUS


    DRAMATIS PERSONAE


SATURNINUS  son to the late Emperor of Rome, and afterwards
    declared Emperor.

BASSIANUS   brother to Saturninus; in love with Lavinia.

TITUS ANDRONICUS    a noble Roman, general against the Goths.

MARCUS ANDRONICUS   tribune of the people, and brother to Titus.


LUCIUS  |
    |
QUINTUS |
    |  sons to Titus Andronicus.
MARTIUS |
    |
MUTIUS  |


Young LUCIUS    a boy,
[...]
ACT I



SCENE I Rome. Before the Capitol.


    [The Tomb of the ANDRONICI appearing; the Tribunes
    and Senators aloft. Enter, below, from one side,
    SATURNINUS and his Followers; and, from the other
    side, BASSIANUS and his Followers; with drum and colours]

SATURNINUS  Noble patricians
[...]
ACT I



SCENE II    A forest near Rome. Horns and cry of hounds heard.


    [Enter TITUS ANDRONICUS, with Hunters, &c., MARCUS,
    LUCIUS, QUINTUS, and MARTIUS]

TITUS ANDRONICUS    The hunt is up, the morn is bright and grey,
    The fields are
[...]
ACT II



SCENE I Rome. Before the Palace.


    [Enter AARON]

AARON   Now climbeth Tamora
[...]

เอาท์พุท:

ผลลัพธ์ควรมีลักษณะดังนี้:

ACT I



ฉากที่ฉันโรม ก่อนที่ศาลากลาง


    [สุสานของ ANDRONICI ปรากฏ; Tribunes
    และวุฒิสมาชิกสูงขึ้น เข้าด้านล่างจากด้านหนึ่ง
    ดาวเสาร์และผู้ติดตามของเขา; และจากที่อื่น
    ด้าน BASSIANUS และผู้ติดตามของเขา; กับกลองและสี]

SATRICNINUS ขุนนางผู้ดี ...
ACT I



ฉากที่สองป่าใกล้กรุงโรม ได้ยินเสียงแตรและสุนัขล่าเนื้อ


    [ป้อน TITUS ANDRONICUS พร้อมกับ Hunters, & c., MARCUS,
    LUCIUS, QUINTUS และ MARTIUS]

TITUS ANDRONICUS การล่าสัตว์ขึ้นตอนเช้าสดใสและสีเทา
    เขตข้อมูลคือ ...
ACT II



ฉากที่ฉันโรม ก่อนที่วัง


    [ใส่ AARON]

AARON ตอนนี้ปีน Tamora ...

เป็นต้น

ส่งออกเป็นไฟล์ที่มีหมายเลขหรือไปที่stdoutสตรีม (กลับมาที่ฟังก์ชั่น) โดยมีตัวคั่นที่คุณเลือก

โบนัส:

  • 10% ถ้าคุณบันทึกบิตก่อน 1 0พระราชบัญญัติลงในแฟ้ม หมายเหตุ: มันจะต้องไม่แตกถ้าบิตก่อน Act 1 ว่างเปล่า
  • 15% ถ้าคุณสามารถใช้ทั้งstdinพารามิเตอร์อินพุตไฟล์พา ธ
  • 20% หากคุณสามารถส่งออกทั้งในไฟล์และเพื่อstdout/ กลับ
  • 200 ชื่อเสียงถ้าคุณสามารถสร้างโปรแกรม SPL ที่เล็กที่สุด เงินรางวัลนี้ได้รับรางวัล

ลีดเดอร์

นี่คือตัวอย่างข้อมูลเพื่อสร้างทั้งกระดานผู้นำปกติและภาพรวมของผู้ชนะตามภาษา

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มคำตอบด้วยหัวข้อโดยใช้เทมเพลต Markdown ต่อไปนี้:

# Language Name, N bytes

ที่Nมีขนาดของส่งของคุณ หากคุณปรับปรุงคะแนนของคุณคุณสามารถเก็บคะแนนเก่าไว้ในบรรทัดแรกโดยการตีพวกเขาผ่าน ตัวอย่างเช่น

# Ruby, <s>104</s> <s>101</s> 96 bytes

หากคุณต้องการรวมหลายตัวเลขไว้ในส่วนหัวของคุณ (เช่นเนื่องจากคะแนนของคุณคือผลรวมของสองไฟล์หรือคุณต้องการแสดงรายการการลงโทษการตั้งค่าสถานะของล่ามแยกต่างหาก) ตรวจสอบให้แน่ใจว่าคะแนนจริงเป็นตัวเลขสุดท้ายในส่วนหัว:

# Perl, 43 + 2 (-p flag) = 45 bytes

นอกจากนี้คุณยังสามารถตั้งชื่อภาษาให้เป็นลิงค์ซึ่งจะปรากฏในตัวอย่างกระดานแต้มนำ:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table><script>var QUESTION_ID=68997,OVERRIDE_USER=43394;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?([\d\.]+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;</script>


16
ฉันจะมอบเงินรางวัล +200 ให้กับการส่งภาษาของ Shakespeare Programming ที่ถูกต้องเป็นครั้งแรก
แมว

3
มาเลยทุกคนรู้ว่า CodeGolf ไม่เร็ว ทำไมไม่พูดว่า "tarball เต็มแล้วดังนั้นรหัสของคุณควรสั้นที่สุด"?
J_F_B_M

1
@trichoplax ผลิตภัณฑ์ ฉันคิดว่านั่นเป็นวิธีที่ทุกคนทำ! ข้ามไปในสมุดบันทึก
wizzwizz4

1
@ แมวไปเลย! codegolf.stackexchange.com/a/69360/43394
wizzwizz4

2
@cat - เปิดทิ้งไว้ ฉันแน่ใจว่ามีโซลูชั่นเชคสเปียร์ที่เล็กกว่าของฉัน Mine เป็นอ้วนเหมือนแมวใหญ่โตตัวใหญ่และตัวโต
Robert Fraser

คำตอบ:


38

ภาษาการเขียนโปรแกรมของเช็คสเปียร์ 1.2.1 , 930 895 887 - 10% = 798.3 ไบต์

G.Ajax,a.Puck,a.Page,a.Ford,a.Act I:a.Scene I:a.[Enter Ajax and Puck]Puck:Open thy mind.Ajax:Open thy mind.[Exit Puck][Enter Page]Ajax:Open thy mind.SCENE II:b.[Exeunt][Enter Puck and Ajax]Ajax:Am I as fat as the sum of the cube of a big big cat and a cat?Puck:If not,let us return to scene III.Am I as fat as the sum of you and a big cat?[Exit Puck][Enter Page]Page:If not,let us return to scene III.Am I as fat as the sum of the sum of the cube of a big big cat and a big big big big cat and a big big cat?[Exit Page][Enter Ford]Ajax:If not,let us return to scene III.You is a big big big big big big cat.Speak thy mind.Scene III:c.[Exeunt][Enter Ajax and Puck]Puck:Speak thy mind.You is as fat as I.[Exit Ajax][Enter Page]Page:You is as fat as I.Puck:Open thy mind.Is you as fat as a hog?[Exit Page][Enter Ajax]Puck:If not,let us return to Scene II.Speak thy mind.Ajax:Speak thy mind.

Ungolfed และเขียนใหม่ในภาษา Sharkspearean:

Four Gentlemen of Verona.

Ajax, a master code-golfer with years of experience.
Puck, a young Java programmer and a strong believer in object-oriented design patterns.
Page, a rapscallion of ill repute.
Ford, a car manufacturer.

Act I: A one-act masterpiece.

Scene I: In which many minds are opened, possibly via the consumption of psychadelic drugs.
[Enter Ajax and Puck]
Puck: Open thy mind.
Ajax: Open thy mind.
[Exit Puck]
[Enter Page]
Ajax: Open thy mind.

SCENE II: In which things are compared.
[Exeunt]
[Enter Puck and Ajax]
Ajax: Am I as hairy as the sum of the cube of a furry purple chihuahua and a summer's day?
Puck: If not, let us proceed to scene III. Am I as half-witted as the sum of you and a cunning squirrel?
[Exit Puck]
[Enter Page]
Page: If not,let us proceed to scene III. Am I as delicious as the sum of the sum of the cube of a warm healthy hamster and a proud handsome charming noble nose and a big old aunt?
[Exit Page]
[Enter Ford]
Ajax: If not, let us proceed to scene III. You are the cube of a tiny small pony. Speak thy mind.

Scene III: In which minds are spoken.
[Exeunt]
[Enter Ajax and Puck]
Puck: Speak thy mind. You are as smelly as I.
[Exit Ajax]
[Enter Page]
Page: You are as oozing as I.
Puck: Open thy mind. Are you as disgusting as a Microsoft?
[Exit Page]
[Enter Ajax]
Puck: If not,let us return to Scene II. Speak thy mind.
Ajax:Speak thy mind.

ใน psuedocode แบบ C:

Scene_I:
    Ajax = getchar()
    Puck = getchar()
    Page = getchar()
Scene_II:
    if(Ajax != 'A')
        goto Scene_III
    if(Puck != 'C')
        goto Scene_III
    if(Page != 'T')
        goto Scene_III
    Ford = '@'
    putchar(Ford)
Scene_III:
    putchar(Ajax)
    Ajax = Puck
    Puck = Page
    Page = getchar()
    if(Page != -1)
        goto Scene_II
    putchar(Ajax)
    putchar(Puck)

ต้องใช้ไฟล์อินพุตที่มีอักขระอย่างน้อย 3 ตัว ใช้ "@" เป็นตัวคั่นและรายงานผลลัพธ์เป็น stdout ฉันรับโบนัส 10% ตั้งแต่ตอนก่อนฉากแรกจะเป็นก่อนหน้า "@" ครั้งแรกเหมือนกับการแก้ปัญหาของ Martin Büttnerด้านบน

วิธีการทำงานคือใส่ "@" หากเห็นอักขระสามตัว "ACT" ติดกัน หมายเหตุนี่หมายความว่ามันจะแปลง "ENACTED" เป็น "EN @ ACTED" สิ่งนี้สามารถแก้ไขได้ที่ราคาไม่กี่ร้อยไบต์ แต่โชคดีที่ดูเหมือนว่า "ACT" ในบทละครที่กำหนด (อย่างน้อยที่สุดฉันก็ตรวจสอบไม่กี่ครั้ง) คือจุดเริ่มต้นของฉาก

ทดสอบกับ 1.2.1 SPL ที่ลิงก์ด้านบน ฉันไม่แน่ใจว่ามันจะทำงานกับล่ามเว็บหรือไม่ สคริปต์ที่ใช้ในการทดสอบคือ:

#!/bin/bash
set -e
SCRIPT_DIR=`dirname "$0"`
cd "$SCRIPT_DIR"
spl/bin/spl2c <splits.spl >splits.c
gcc -O2 -Wall -Wno-unused -I./spl/include -L./spl/lib -lm -lspl -o splits splits.c
./splits <measureforemeasure >measure.split.txt

ส่วน "ความลับ" ของ SPL เมื่อคุณผ่านไวยากรณ์คือการสับของตัวแปรใน "สเตจ" (โดยทั่วไปคุณต้องการให้มีเพียงสองตัวอักษรบนเวทีในแต่ละครั้ง) และเป็นตัวแทนของตัวเลขคงที่ มีคำศัพท์การนำเข้า 6 รายการที่มาพร้อมกับการแจกจ่าย: คำคุณศัพท์เชิงบวกคำคุณศัพท์เป็นกลางคำคุณศัพท์เชิงลบคำนามเชิงบวกคำนามที่เป็นกลางและคำนามเชิงลบ คำนามเชิงบวก / เป็นกลาง (เช่นพลัมหรือกำแพงหิน) คือ 1 และคำนามเชิงลบ (เช่นเจ้าชู้ - ปลาหรือ Microsoft) คือ -1 คำคุณศัพท์บวก / เป็นกลาง (เช่นปักหรือไม่มีก้น) คูณจำนวน 2 และคำคุณศัพท์เชิงลบ (เช่นไขมันไตหรือไร้พ่อ) คูณด้วย -2 รายการคำมีค่อนข้างเศร้าเศร้ามีเพียง 10-20 รายการแต่ละรายการ

ในการประชุมครั้งต่อไปของฉันฉันจะแนะนำให้เราย้ายรหัสการผลิตทั้งหมดของเราไปที่เช็คสเปียร์เพราะมันแสดงออกได้ดีกว่าสกาลา


2
ตีกอล์ฟให้ได้มากที่สุด โปรด!
wizzwizz4

1
แมวศักดิ์สิทธิ์ฉันไม่คิดว่าจะมีใครจริง! ฉันจะให้รางวัลนี้ใน 24 ชั่วโมงซึ่งเร็วที่สุดเท่าที่จะทำได้ :)
แมว

2
@ wizzwizz4 - แน่นอน; ฉันจะให้มันยิงเมื่อฉันไม่ได้มีงานที่ต้องทำจริง :-) มันจะรวบรัดเหมือนกับว่ามันถูกเขียนโดยกวีเอง
Robert Fraser

2
ตอนนี้ฉันสามารถจ้างใครเพื่อแสดงบนเวทีนี้ได้บ้าง
แมว

3
@cat - รับแค่สามคนที่ไม่ปลอดภัยเกี่ยวกับน้ำหนักของพวกเขาและแสดงรูปแมว
Robert Fraser

12

เรติน่า 9 - 10% = 8.1 ไบต์

จำนวนไบต์ถือว่าการเข้ารหัส ISO 8859-1

¶ACT 
=$0

แทรก a =(เป็นตัวคั่น) ต่อหน้าทุกACTบรรทัดที่นำหน้าด้วย linefeed และตามด้วยช่องว่าง

ลองออนไลน์! (แต่คุณจะต้องคัดลอกอินพุตด้วยตัวเองเนื่องจากขนาดของมัน)


ขอแสดงความยินดีที่จะตอบ 69,000 (ตามแชร์ลิงค์)
J_F_B_M

@J_F_B_M โพสต์ 69000 นั่นคือคำถามและคำตอบ
wizzwizz4

4

awk, 51 * .9 * .85 * .8 = 31.2

แยกเป็นหลายไฟล์ ขาออกบนคั่นด้วยstdout=

/^ACT/{f++;$0="="$0}{system("echo \""$0"\">>"f*1)}1

+1 สิ่งที่คุณต้องทำตอนนี้คือการส่งออกไฟล์ทั้งหมดเพื่อstdoutคั่นด้วยอักขระเฉพาะและคุณทำเสร็จแล้ว!
wizzwizz4

เสร็จสิ้น ด้วยโบนัสมันมีความยาวเกือบเท่ากัน
Rainer P.

+2 ... +2 ........ +2 ............ ไม่ระบบไม่อนุญาต :-( ฉันจะแนะนำให้แยกพวกเขาด้วยอักขระ นั่นเป็นเรื่องธรรมดาที่น้อยกว่าเช่น¬หรือ ¦.
wizzwizz4

3

JavaScript ES6, 28 - 10% = 25.2 ไบต์

s=>s.replace(/\nACT/g,"=$&")

ไม่ใช่แม้แต่เปลือก JS ที่มีไฟล์ I / O ดังนั้นสิ่งนี้จึงไม่สามารถรับโบนัส -20%

ลองออนไลน์ได้ที่นี่ (คุณจะต้องวางข้อมูลลงในตัวคุณเอง)


ฉันคิดว่าคุณสามารถนำไปTบันทึกหนึ่งไบต์
Mama Fun Roll

ไม่ได้แทนที่การลบบรรทัด ACT ใช่ไหม
wizzwizz4

@ wizzwizz4 เพราะฉันไม่มี$&มัน
Downgoat

@ Doᴡɴɢᴏᴀᴛคุณเรียนรู้สิ่งใหม่ทุกวัน!
wizzwizz4

3

Perl, 66 - 10% - 20% = 47.52 ไบต์

BEGIN{open(S,">0");}++$?,open(S,">$?"),print"=\n"if/^ACT/;print S

เพิ่มหนึ่งสำหรับ-pตัวเลือก


1

Ruby, 30 - 10% - 15% = 23.715 22.95 ไบต์

$การป้อนข้อมูลแยกบน ใช้โบนัส 15% เนื่องจากการเปลี่ยนเส้นทางของ Ruby ไป$<ยังจุดที่ไฟล์ถูกส่งเข้ามาARGVโดยค่าเริ่มต้นหากมีการระบุไว้หรือSTDINไม่ได้

-1 ไบต์โดยใช้ประโยชน์จากgsubวิธีแก้ปัญหา @Downgoat ES6 แต่ฉันยังคงใช้ความหวังว่าACTจะปรากฏที่ฉลาก ACT และไม่ได้อยู่ในคำอื่น ๆ เพียงเพราะ

$><<$<.read.gsub("ACT","$ACT")

นอกจากนี้โซลูชันไบต์41.004ของฉัน(เดิม 67) ของฉันที่ยังทำไฟล์เอาท์พุท นำแสดงโดยอาจจะเป็นเวลาเพียงeachคำสั่งบันทึกไบต์มากกว่าmapในรูบีเพราะผลตอบแทนอาร์เรย์ผ่านบริสุทธิ์หลังจากใช้บล็อกที่ไม่เหมือนeachmap

i=-1;$><<$<.read.split(/(?=ACT)/).each{|s|open("#{i+=1}",?w)<<s}*?$
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.