18 번째 수정본 소스 보기 : CodeGolf/99BottlesOfBeer
마지막으로 [b]
-- Loading page list... --
내용출력
로그인[l]
Diary
[f]
최근변경내역
[r]
페이지목록[i]
횡설수설[2]
게시판[3]
링크
수정할 수 없습니다: CodeGolf/99BottlesOfBeer 는 읽기 전용 페이지입니다.
[http://codegolf.com/99-bottles-of-beer Code Golf | 99 Bottles Of Beer] [[주인장]] 혼자 끙끙댄 걸로는 [[Perl]] 223바이트가 한계. 1등은 170바이트인데 도대체 53글자를 어디서 줄인다냐 -_-; {{{#!vim perl # 줄바꿈을 전부 없애면 223바이트 $B=" on the wall"; sub b{"$_[0] bottle".(($_[0]>1)?"s":"")." of beer"} print b($_),"$B, ",b($_),".\n", (($_>1)?"Take one down and pass it around, ":"Go to the store and buy some more, "), b($_-1||99),"$B.\n\n" for reverse(1..99) }}}
이건 안된다는군요... {{{#!vim perl #!/usr/bin/perl use LWP::Simple; my $a=get "http://codegolf.com/competition/output/99-bottles-of-beer"; $a=~s/\<.+\>//g; print $a; }}}
음 역시나 찾아보니 "You will be unable to import/require/include any modules or files in your solution. You have to write all the code yourself, and it has to be in the code file you upload."
http://99-bottles-of-beer.net/language-perl-737.html
: 아 Alternative Versions 는 보지 마시길.
저는 역시 길이 없는 데서 길을 만드는 건 못하는 것 같아요 흐... 일단 방향이 주어지면 거기서 어떻게든 줄이는 건 하겠는데.
Alternative Versions를 참고해서 196자까지는 만들어봤습니다.
{{{#!vim perl $y=99; $B=" on the wall"; sub b{$n=$y||99;"$n bottle"."s"x!!--$n." of beer"} print b,"$B, ",b,".\n", --$y?"Take one down and pass it around, ":"Go to the store and buy some more, ", b,"$B.\n\n" while $y }}} 오오 조프님 불타오르시는군요!
"s"x!!(--$n) 이라니... 절로 고개가 숙여지는군요.
: 그게 위에 올린 사이트에 있던 소스입니다...
----
---- [[기타분류]]
CodeGolf/99BottlesOfBeer
페이지로 돌아가기 |
다른 수정본 보기