태그 보관물: quine

quine

시인의 퀴네 라인 (.,;)을

읽을 때 http://en.wikipedia.org/wiki/Rhyme_scheme 에서 하나 이상의 운율 체계를 가진 퀴네를 작성하십시오 . 다음과 같은 문자가 큰 소리로 말해집니다.

  • 주석에없는 영숫자 단어 또는 문자
  • 비교 및 산술 문자 (+ 더하기;-빼기; * 시간, /로 나눈 | 또는 | || 또는, & 및 && 및,! not, = 같음, == 같음, === 같음).

다음은 설명되지 않았다 (소리내어 말하지 않음).

  • 문자열 리터럴의 시작 또는 끝을 나타내는 모든 문자 ( ” ‘);
  • 논리 블록의 시작 또는 끝을 나타내는 문자 (() {} []);
  • 변수, 함수 또는 코드 라인 (.,;)을 나타내는 모든 문자
  • 주석의 모든 문자;

“큰 소리로 말하기”규칙이 항상 적용됩니다. “소리내어 말하지 않음”규칙은 Brainfuck, K, J, APL, Befunge 및 Sclipting을 제외한 모든 언어에 적용됩니다. APL, Brainfuck, Befunge, K 및 J의 경우, “음성 규칙”에 언급되지 않은 모든 문자에는 위에서 설명한 “일관되게 선택”규칙이 적용됩니다. 자르는 문자는 한자 인 경우와 같이 발음되며 발음하는 발음을 자유롭게 선택할 수 있습니다.

발음을 명확하게 허용하거나 거부하지 않은 문자는 자유롭게 발음하거나 침묵 할 수 있습니다. 그러나 특정 문자는 항상 발음되거나 침묵을 유지합니다. 한 줄에서 #을 해시 태그로 발음하지 말고 다음 줄에서 # 침묵을 유지하십시오.

단어는 어떤 방언이나 언어로 발음 될 수 있지만 같은 스탠자 내에서 일관성이 있어야합니다 (첫 번째 단어는 스코틀랜드 방식으로 발음되고 두 번째 단어는 웨일스 어 방식으로 발음되지 않음).

콘테스트 유형은 인기 콘테스트입니다. 마감일은 4 월 23 일로 가장 유명한 바드 중 하나 인 윌리엄 셰익스피어 (William Shakespeare)가 그 날 태어나고 사망했다고합니다. 가장 많은 표를 얻은 사람이 승자입니다.

편집 : 더 이상 제출이 없을 것이라고 생각하기 때문에 대회를 조기에 끝내기로 결정했습니다. 승자를 잠시 표시하겠습니다.



답변

배치 AABBA (리머 릭)

이것은 최선의 노력이지만시를 잘한 적은 없었습니다.

암호:

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

영어로:

그렇지 않으면 CD 슬래시 도트
제거이 포트가 큰 냄비와 같은 경우
0을 입력하십시오. 요리사
색상 7 f
EOF로 이동 else shallot


답변

포트란 95 (맥 캐런 커플 렛)

McCarron Couplet : “AABBABCCDDCDEEFFEF”는 학계 제임스 맥 캐런 (James McCarron)이 소개 한 고전적인 리듬 패턴을 현대적으로 표현한 것입니다.

내 코드 ( 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.f95,all2.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


답변