รหัสกอล์ฟ

backstory จริงทั้งหมด : ฉันเป็นผู้รับเหมาทำงานบนเว็บไซต์ www Sky.Netและหนึ่งในภารกิจของเราในการสร้างโปรแกรมที่รู้ตัวเองหรืออะไรบางอย่างฉันไม่รู้ว่าฉันไม่ได้ฟังเจ้านายจริงๆ อย่างไรก็ตามในความพยายามที่จะทำให้โค้ดของเราตระหนักถึงตนเองมากขึ้นเราต้องการให้ฝ่ายไอทีสามารถรู้ได้ว่าโค้ดใดบ้างที่อยู่ในแต่ละหมายเลขบรรทัด

ท้าทาย

สร้างโปรแกรมหรือฟังก์ชั่นที่ใช้เวลาการป้อนข้อมูลและส่งกลับรหัสของโปรแกรมพูดหรือฟังก์ชั่นในบรรทัดnn

กฎระเบียบ

program โปรแกรมหรือฟังก์ชั่นของคุณจะต้องมีความยาวอย่างน้อย 4 บรรทัด แต่ละบรรทัดต้องไม่ซ้ำกัน

➋คุณอาจสมมติว่าอินพุตจะเป็นจำนวนเต็มบวกมากกว่าหรือเท่ากับ 1 และน้อยกว่าหรือเท่ากับจำนวนบรรทัดในโปรแกรม / ฟังก์ชันของคุณ

➌บรรทัดแรกในโปรแกรม / ฟังก์ชั่นของคุณคือบรรทัดที่ 1 ไม่ใช่บรรทัดที่ 0

➍คุณไม่สามารถเข้าถึงไฟล์ที่โปรแกรมของคุณเปิดอยู่ (หากมีคนถามว่า "นี่ไม่ใช่การละเมิดกฎ # 4" หรืออาจเป็น)

➎บรรทัดต้องไม่ว่างเปล่า(รวมถึงช่องว่างถ้าช่องว่างไม่ได้ทำอะไรในภาษาของคุณ)

➏เส้นไม่สามารถ // ความคิดเห็น (/ * ของรูปแบบ <! - ใด ๆ )

นี่เป็นความท้าทายที่คล้ายกับควิน
นี่คือรหัสกอล์ฟดังนั้นการส่งผู้เล่นที่มีจำนวนไบต์น้อยที่สุดจะเป็นผู้ชนะ!

เป็นกลุ่ม 7 ไบต์

1
2
3
4

ลองออนไลน์!

เท่าที่ฉันสามารถบอกได้สิ่งนี้เป็นไปตามกฎทั้งหมด ตามค่าเริ่มต้นโปรแกรมเปล่าจะพิมพ์อินพุตทั้งหมด ตั้งแต่

<N><CR>

คือ noop ไม่มีอะไรเปลี่ยนแปลงข้อความอินพุตและเนื่องจากอินพุตแต่ละรายการตรงกับเอาต์พุตที่ต้องการวิธีการเดียวกันนี้ทำงานกับจำนวนบรรทัดใด ๆ

Ruby, 71 70 66 ไบต์

ลองออนไลน์!

->n{
k=["}", "k[-n]%%k.inspect", "k=%s", "->n{"]
k[-n]%k.inspect
}

โหมด "โกง": 7 + 1 = 8 ไบต์

ต้องการ-pแฟล็กสำหรับ +1 ไบต์ สำเนาคำตอบ Vอย่างแท้จริง พิมพ์หมายเลขที่ป้อนเข้า โปรแกรมทั้งหมดเป็นเพียงแค่ไม่มีประสิทธิภาพ

1
2
3
4

Haskell, 69 59 ไบต์

(lines(s++show
 s)
 !!)
s="\n(lines(s++show\n s)\n !!)\ns="

ขึ้นอยู่กับมาตรฐาน Haskell Quine การแสดงออกครั้งแรก (แผ่กระจายไปทั่วสามบรรทัดแรก) เป็นฟังก์ชั่นที่ไม่มีชื่อที่เลือกบรรทัดที่ n จากสตริง quinified s( s++show s) +2 ไบต์สำหรับการจัดทำดัชนีแบบ 1 (เป็นกฎที่ไม่จำเป็น)

สำหรับลองออนไลน์! รุ่นฉันต้องตั้งชื่อฟังก์ชั่นซึ่งเพิ่ม 4 ไบต์

PowerShell , 184 172 ไบต์

$v=0,
'$v=0,',
"'`$v=0',",(($q='"{0}`$v=0{0},",(($q={0}{1}{0})-f([char]39),$q)')-f([char]39),$q),
(($z='(($z={0}{1}{0})-f([char]39),$z;$v[$args]')-f([char]39),$z);$v[$args]

ลองออนไลน์!

คำอธิบาย

เริ่มต้นด้วยการสร้างอาร์เรย์$vในบรรทัดแรก ในบรรทัดเดียวกันนั้น0องค์ประกอบที่หนึ่ง( th) ถูกตั้งค่าเป็น0และเครื่องหมายจุลภาค,ยังคงคำจำกัดความ

บรรทัดถัดไปตั้งค่าองค์ประกอบถัดไป ( 1) ของอาร์เรย์เป็นสตริงที่แสดงเนื้อหาของบรรทัดแรกของสคริปต์เพื่อให้$v[1]ส่งคืนบรรทัดแรก

บรรทัดที่ 3 ตั้งค่าองค์ประกอบที่ 3 ของอาร์เรย์ (ดัชนี2) เป็นสตริงที่แทนบรรทัดที่ 2 ของสคริปต์จากนั้นในบรรทัดเดียวกันตั้งค่าองค์ประกอบที่ 4 (ดัชนี3) โดยใช้ข้อมูลโค้ด quine ที่ใช้ตัวดำเนินการรูปแบบ ( -f) เพื่อแทนที่ อินสแตนซ์บางตัวของอัญประกาศเดี่ยว ( [char]39) และสตริงแม่แบบการจัดรูปแบบเป็นของตัวเองเพื่อทำซ้ำทั้งหมดของบรรทัดที่ 3

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

Python 2, 104 73 67 ไบต์

ขอบคุณ Jonathan Allan ที่ช่วยประหยัด 6 ไบต์!

s=\
['print s[input()]or s', 's=\\', 0, 'exec s[', '0]']
exec s[
0]

แก้ไข:นับไบต์เดียวกัน แต่ฉันชอบวิธีนี้ดีกว่า

ลองออนไลน์!

รุ่นหลามของมูลค่าหมึกเป็นคำตอบทับทิม

คำตอบที่เก่ากว่า (67 ไบต์):

1
s=\
['print s[-input()]or s', 0, 's=\\', 1]
print s[-input()]or s

CJam , 19 18 17 ไบต์

1
{'_'~]ri(=}
_
~

ลองออนไลน์!

ขึ้นอยู่กับมาตรฐาน CJam-Quine การ{...}_~ดำเนินการ...กับบล็อกด้วยตัวเองบนสแต็ก (และในกรณีนี้ยัง1ต่ำกว่านั้น) จากนั้นเราจะ:

'_'~  e# Push the third and fourth line.
]     e# Wrap all four lines in a list.
ri    e# Read input and convert to integer.
(=    e# Use as index into the lines.

PHP, 261 ไบต์

<?php function f($l){
$a="aWYoJGw9PTEpJG09Ijw/cGhwIGZ1bmN0aW9uIGYoXCRsKXsiO2lmKCRsPT0yKSRtPSJcJGE9XCIkYVwiOyI7aWYoJGw9PTMpJG09IlwkYj1cIiR";
$b="iXCI7IjtpZigkbD09NCkkbT0iZXZhbChiYXNlNjRfZGVjb2RlKFwkYS5cJGIpKTt9Pz4iO2VjaG8gJG07";
eval(base64_decode($a.$b));}?>

ลองออนไลน์ !!

สตริงที่เข้ารหัสคือ:

if($l==1)$m="<?php function f(\$l){";
if($l==2)$m="\$a=\"$a\";
if($l==3)$m="\$b=\"$b\";
if($l==4)$m="eval(base64_decode(\$a.\$b));}?>";
echo $m;

Perl, 52 ไบต์

$_=q{print+(split/
/,"\$_=q{$_};
eval")[<>-1]};
eval

นี่คือรูปแบบที่เรียบง่ายใน quine คลาสสิก

$_=q{print"\$_=q{$_};eval"};eval

"payload" อยู่splitในบรรทัดใหม่และเลือกบรรทัดที่ถูกต้องโดยการจัดทำดัชนีลงในรายการผลลัพธ์

Perl, 49 48 ไบต์ (ไม่ใช่การแข่งขัน)

#!/usr/bin/perl -d:A
sub DB'DB{
print${"_<$0"}[<>]}
1

38 ไบต์สำหรับรหัส (ไม่รวม shebang แต่รวม-d:A) บวก 10 Devel/A.pmไบต์สำหรับชื่อไฟล์ซึ่งจะต้องเป็น ไดเรกทอรีจะต้องอยู่ในDevel@INC

ในทางเทคนิคแล้วสิ่งนี้ละเมิดกฎข้อที่ 4 เพราะ-d:Aทำให้ไฟล์ถูกแยกวิเคราะห์สองครั้งดังนั้นจึงเป็นวิธีแก้ปัญหาที่ไม่ใช่คู่แข่ง

มันใช้เบ็ดดีบั๊กในการเข้าถึงบรรทัดของไฟล์ซึ่ง perl เก็บใน@{"_<$filename"}อาร์เรย์ในเวลารวบรวม