Câu chuyện của nhà thơ


13

Viết một quine với 1 hoặc nhiều lược đồ vần từ http://en.wikipedia.org/wiki/Rhyme_scheme khi đọc. Các ký tự sau được nói to:

  • bất kỳ từ hoặc ký tự chữ và số không có trong một bình luận;
  • so sánh và các ký tự số học (+ cộng; - trừ; * lần, / chia cho, | hoặc, || hoặc, & và, && và, không, = bằng, == bằng, === bằng).

Những điều sau đây không được tính (không được nói to):

  • bất kỳ ký tự nào biểu thị sự bắt đầu hoặc kết thúc của chuỗi ký tự ("');
  • bất kỳ ký tự nào biểu thị sự bắt đầu hoặc kết thúc của các khối logic (() {} []);
  • bất kỳ ký tự nào biểu thị sự phân định một biến, hàm hoặc dòng mã (.,;).
  • bất kỳ nhân vật trong ý kiến;

Các quy tắc "nói to" luôn được áp dụng. các quy tắc "không được nói to" áp dụng cho tất cả các ngôn ngữ, ngoại trừ Brainfuck, K, J, APL, Befunge và Sclipting. Trong trường hợp của APL, Brainfuck, Befunge, K và J, bất kỳ nhân vật nào không được đề cập trong "quy tắc nói to" đều phải tuân theo quy tắc "chọn nhất quán" được nêu ở trên. Các ký tự sclipting được phát âm giống như nếu chúng là ký tự Trung Quốc đó, với sự lựa chọn miễn phí về cách phát âm mà bạn sử dụng.

Bất kỳ ký tự nào không được cho phép hoặc từ chối phát âm rõ ràng đều được tự do phát âm hoặc giữ im lặng. Tuy nhiên, một nhân vật cụ thể hoặc luôn luôn được phát âm hoặc luôn giữ im lặng. Bạn không được phát âm # dưới dạng hashtag trong một dòng và giữ # im lặng ở dòng tiếp theo.

Các từ có thể được phát âm theo bất kỳ phương ngữ hoặc ngôn ngữ nào, nhưng nó cần nhất quán trong cùng một khổ thơ (không có từ đầu tiên được phát âm theo cách của Scotland và thứ hai theo cách của người Wales).

Loại cuộc thi là cuộc thi phổ biến. Hạn chót là ngày 23 tháng 4 để vinh danh một trong những người nổi tiếng nhất, William Shakespeare, người được sinh ra và được cho là đã chết vào ngày đó. Người chiến thắng là người được nhiều phiếu nhất.

Chỉnh sửa: vì tôi không nghĩ sẽ có thêm bài dự thi nào nữa, tôi đã quyết định kết thúc cuộc thi sớm. Tôi sẽ đánh dấu người chiến thắng trong giây lát.


2
+1, công thức tốt. Tôi thích cách bạn gọi Sclipting như một trường hợp đặc biệt.
Kaya

Câu trả lời:


9

Mẻ AABBA (Limerick)

Đây là cố gắng tốt nhất của tôi, nhưng tôi chưa bao giờ giỏi bài thơ nào.

Mã số:

@Echo off || cd \.
If "this"=="a largeish" pot
Type %0 || chef
Color 7f
Goto :eof || shallot

Bằng tiếng Anh:

Echo off other CD slash dot
Nếu cái này bằng một cái nồi lớn
Loại 0 khác đầu bếp
Màu bảy f
Đi đến EOF khác hẹ


1

Fortran 95 (Khớp nối McCarron)

McCarron Couplet: "AABBABCCDDCDEEFFEF" một cách đương đại trên một mẫu vần cổ điển, được giới thiệu bởi James McCarron học thuật.

Mã của tôi (cần được lưu như all.f95để nó hoạt động):

character (LEN=100) :: &
bend; logical :: wondered
inquire(file="superstar &
&car",exist=wondered,number=i_r)

open(unit=100, &
file="superstar car")
if (.NOT.(.NOT.(wondered))) then
i_sum = 1; read(100,*) n

i_sum = n + i_sum
rewind(100); else; i_sum = 1
endif; write(100,*) i_sum, 10
codingThis = fun

write(bend,"(I5)") n; call &
SYSTEM ("copy all.f95 all"//&
TRIM(TRIM(ADJUSTL(bend)))//&

".f95"); open(access="append", &
unit=10,file="waterfall")
write(10,*) "foo bar"; end

Nó sẽ tự sao chép vào các tệp được đánh số, bắt đầu bằng all0.f95, sau đó all1.f95, all2.f95v.v.

Nó đọc:

character len equals hundred
bend logical wondered
inquire file superstar
car exist wondered, number equals IR

open unit equals hundred
file equals superstar car
if not not wondered then
I sum equals one, read hundred N

I sum equals N plus I sum
rewind hundred else I sum equals one
endif write hundred I sum ten
conding this equals fun

write bend I five N call
system copy all F point ninety five all
trim trim adjust L bend

point ninety five access append
open unit ten file waterfall
write ten foo bar end
Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookieChính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.