詩人の馬


13

読まれたらhttp://en.wikipedia.org/wiki/Rhyme_schemeから1つ以上の韻体系でクインを書きます。次のキャラクターが声を出して話します:

  • コメントにない英数字の単語または文字。
  • 比較および算術文字(+プラス;-マイナス; *回、/で除算、|または、||または、&および、&&および!なし、=等しい、==等しい、===等しい)。

以下は考慮されていません(声を出して話されていません):

  • 文字列リテラルの開始または終了を示す文字( "')。
  • 論理ブロックの開始または終了を示す文字((){} []);
  • 変数、関数、またはコード行(。、;)の線引きを示す文字。
  • コメント内の任意の文字。

「声に出して」ルールが常に適用されます。「声に出さない」ルールは、Brainfuck、K、J、APL、Befunge、およびScliptingを除くすべての言語に適用されます。APL、Brainfuck、Befunge、K、およびJの場合、「口頭での発言ルール」で言及されていないキャラクターはすべて、上記で概説した「一貫して選択」ルールに従います。スクリプティングキャラクターは、その中国語のキャラクターのように発音され、使用する発音を自由に選択できます。

明示的に発音が許可または拒否されていない文字は、発音したり黙ったりすることができます。ただし、特定のキャラクターは常に発音されるか、常に沈黙します。1行でハッシュタグとして#を発音せず、次の行で#黙ってはいけません。

単語は方言や言語で発音できますが、同じスタンザ内で一貫している必要があります(最初の単語をスコットランド語で、2番目の単語をウェールズ語で発音させないでください)。

コンテストタイプは人気コンテストです。締め切りは、最も有名な吟遊詩人の1人であるウィリアムシェークスピアに敬意を表して4月23日です。勝者は、最も票を得た人です。

編集:私はこれ以上提出があるとは思わないので、私はコンテストを早期に終了することにしました。勝者を一時的にマークします。


2
+1、よく処方されています。Scliptingを特別なケースとして呼んだ方法が気に入っています。
カヤ14年

回答:


9

バッチAABBA(リメリック)

これは私の最善の試みですが、私は詩が得意ではありませんでした。

コード:

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

英語で:


エコーオフelse CDスラッシュドットこれが大きなポットに等しい場合
タイプ0 elseシェフ
カラー7 f
EOFに移動else elseot


1

Fortran 95(マカロンカプレット)

マッカーロン・カプレット:「AABBABCCDDCDEEFFEF」は、学者のジェームズ・マッカーロンによって紹介された、古典的な韻を踏むパターンを現代的に取り入れたものです。

私のコード(機能all.f95するために保存する必要があります):

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

それは始まる、番号を付けたファイルに自身をコピーしますall0.f95、その後、all1.f95all2.f95、のように...

それは読みます:

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
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.