«99 пляшок фізза»

55

Виклик

Напишіть програму, яка виводить тексти пісень до 99 пляшок пива, але замість "пива" виведіть "фіз", якщо кількість пляшок на стіні кратна 3, "гудіння", якщо це кратне 5, і "fizzbuzz", якщо це кратне 3 і кратне 5. Якщо кількість пляшок на стіні не кратна 3 або 5, просто виведіть "пиво", як зазвичай.

Лірика

99 bottles of fizz on the wall, 99 bottles of fizz.
Take one down and pass it around, 98 bottles of beer on the wall.

98 bottles of beer on the wall, 98 bottles of beer.
Take one down and pass it around, 97 bottles of beer on the wall.

97 bottles of beer on the wall, 97 bottles of beer.
Take one down and pass it around, 96 bottles of fizz on the wall.

96 bottles of fizz on the wall, 96 bottles of fizz.
Take one down and pass it around, 95 bottles of buzz on the wall.

95 bottles of buzz on the wall, 95 bottles of buzz.
Take one down and pass it around, 94 bottles of beer on the wall.

....

3 bottles of fizz on the wall, 3 bottles of fizz.
Take one down and pass it around, 2 bottles of beer on the wall.

2 bottles of beer on the wall, 2 bottles of beer.
Take one down and pass it around, 1 bottle of beer on the wall.

1 bottle of beer on the wall, 1 bottle of beer.
Go to the store and buy some more, 99 bottles of fizz on the wall.


Це код-гольф , тому виграє найкоротше подання на кожній мові.

code-golf  string  kolmogorov-complexity 
— музикант523
джерело
30
У мене є 95 пляшок фіз. Я його забираю. Зараз у мене 94 пляшки пива. Логіка.
— Okx
2
Чи можу я придбати пляшку з фізбіром?
— Стівен
1
Чи повинен бути новий рядок після 3-ї пляшки?
— Kritixi Lithos
2
Чи потрібна нова лінія між двома рядками? До редакції Kritixi Lithos не було жодної, а зараз є.
— dzaima
11
@Okx Ну, пиво є газованим і дає кайф ...
— Draco18s

Відповіді:

12

Python 2 , 263 253 245 байт

i=99
x=''
while i:x+=', %s on the wall.\n\n%s on the wall, %s.\n'%(('%d bottle%s of %s'%(i,'s'*(i>1),(i%3<1)*'fizz'+(i%5<1)*'buzz'or'beer'),)*3)+'GToa kteo  otnhee  dsotwonr ea nadn dp absusy  isto maer omuonrde'[i>1::2];i-=1
print x[35:]+x[:33]

Спробуйте в Інтернеті!

— Стрижень
джерело
Це круто! Чи можете ви пояснити, чому інтерполяція рядків є найкоротшим варіантом?
— музикант523
2
Наприклад, ['ab','cd'][x]можна переписати як 'acbd'[x::2], просто для збереження декількох байт
— Rod
7

C (GCC), 276 274 байт

Дякуємо Нілу за збереження двох байтів!

#define w" on the wall"
#define c(i)printf("%d bottle%s of %s",i,"s"+!~-i,i%3?i%5?"beer":"buzz":i%5?"fizz":"fizzbuzz"),printf(
i;f(){for(i=99;i;c((i?:99))w".\n\n"))c(i)w", "),c(i)".\n"),printf(--i?"Take one down and pass it around, ":"Go to the store and buy some more, ");}

Хто не любить неперевершені дужки в макророзширеннях?

Безголівки:

#define c(i)                               \
    printf(                                \
        "%d bottle%s of %s",               \
        i,                   /* Number  */ \
        i-1 ? "s" : "",      /* Plural  */ \
        i % 3                /* FizzBuzz*/ \
            ? i % 5                        \
                ? "beer"                   \
                : "buzz"                   \
            : i % 5                        \
                ? "fizz"                   \
                : "fizzbuzz"               \
    )

i;
f() {
    for(i = 99; i; ) {
        c(i); printf(" on the wall, ");
        c(i); printf(".\n");
        printf(
            --i
                ? "Take one down and pass it around, "
                : "Go to the store and buy some more, "
        );

        // This has been stuffed into the for increment
        c((i?:99)); printf(" on the wall.\n\n");
    }
}

Дивіться це в прямому ефірі на Coliru!

Альтернативна версія (276 байт)

#define c(i)printf("%d bottle%s of %s",i,i-1?"s":"",i%3?i%5?"beer":"buzz":i%5?"fizz":"fizzbuzz"),printf(
i,*w=" on the wall";f(){for(i=99;i;c((i?:99))"%s.\n\n",w))c(i)"%s, ",w),c(i)".\n"),printf(--i?"Take one down and pass it around, ":"Go to the store and buy some more, ");}
— Квентін
джерело
Це супер круто! Мене завжди шокує те, наскільки хорошими відповідями на С можуть бути маніпуляції зі строками.
— музикант523
Збережіть кілька байт, змінивши #define w" on the wall"на *w=" on the wall".
— MD XF
@MDXF mmh, я отримую точно таке ж число байтів. Я щось пропускаю?
— Квентін
Я думаю , що вони мали в виду , ви можете замінити #define wз , *w=щоб зберегти байти там. Чесно кажучи, я не все добре знайомий з гольф C, але я здогадуюсь, що це робить wнеявно визначений глобальний знак *.
— музикант523
4
@ musicman523 проблема полягає в тому, що #defined w- це рядковий літерал, який автоматично вставляється з суміжними літеральними рядками. Якщо wце змінна, я повинен використовувати фактичне форматування рядків всередині printf.
— Квентін
6

PHP, 242 байт

function f($k){return"$k bottle".(s[$k<2])." of ".([fizz][$k%3].[buzz][$k%5]?:beer);}$w=" on the wall";for($b=f($c=99);$c;)echo"$b$w, $b.
",--$c?"Take one down and pass it around":"Go to the store and buy some more",", ",$b=f($c?:99),"$w.

";

Спробуйте в Інтернеті!

PHP, 244 байт

for($e=s,$b=fizz,$c=99;$c;)echo strtr("301245, 30124.
6, 708295.

",[" bottle",$e," of ",$c,$b," on the wall",--$c?"Take one down and pass it around":"Go to the store and buy some more",$k=$c?:99,$e=s[2>$k],$b=[fizz][$k%3].[buzz][$k%5]?:beer]);

Спробуйте в Інтернеті!

використовувати функцію strtr

PHP, 245 байт

$f=function($k)use(&$b){$b="$k bottle".(s[$k<2])." of ".([fizz][$k%3].[buzz][$k%5]?:beer);};for($w=" on the wall",$f($c=99);$c;)echo"$b$w, $b.
",--$c?"Take one down and pass it around":"Go to the store and buy some more",", {$f($c?:99)}$b$w.

";

Спробуйте в Інтернеті!

використовуйте функцію Anonymous у рядку, щоб отримати рядок залежно від цілого числа

Розширено

$f=function($k)use(&$b){$b="$k bottle".(s[$k<2])." of ".([fizz][$k%3].[buzz][$k%5]?:beer);};
for($w=" on the wall",$f($c=99);$c;)
echo"$b$w, $b.
",--$c?"Take one down and pass it around":"Go to the store and buy some more"
,", {$f($c?:99)}$b$w.

";
— Йорг Гюльсерманн
джерело
1
Якби я не прорахуватися ви можете зберегти 2 байти ( 250 байт в цілому): function x($n){return"$n bottle".($n-1?s:'')." of ".(($n%3?'':fizz).($n%5?'':buzz)?:beer);}$y=" on the wall";for($b=99;$b;){$c=x($b);echo"$c$y, $c.↵",--$b?"Take one down and pass it around":"Go to the store and buy some more",", ".x($b?:99)."$y.↵↵";}. :)
— вставтекористування туди
1
@insertusernamehere Ви маєте помилку з кількома змінами, це економить на 2 байти більше. Спасибі. І ви даєте мені трохи ідеї використовувати useв поєднанні з анонімною функцією, яка зберігає 1 байт у цій версії
— Jörg Hülsermann
5

05AB1E , 151 146 143 байт

99LRv'¬ž“fizzÒÖ“#y35SÖÏJ‚˜1(è©y“ƒ¶€µ„‹€ƒî倕…¡, ÿÏꀂ ÿ€‰€€íÒ.“ªõ®y“ÿÏꀂ ÿ€‰€€íÒ, “D#4£ðýs…ÿÿ.}‚‚˜'Ïê'±¥:`)¦¦¬#7£ðý¨“‚œ€„€€ƒï€ƒ‚¥€ä€£, ÿ.“ª)˜»

Спробуйте в Інтернеті!

— Емінья
джерело
4

SOGL , 136 135 134 133 131 байт

Ƨ, o▓k
"πFT+╔¡‘oW
³³q"'bμ⁸‘oH? so}5\;3\«+"ΞQv↑χāσκN⌡κYT¡‘_,S─‘oθwoX▓
MH∫}¹±{▓WkƧ.¶oH¡"sΗ─χpēGķ¶¾3Ζ^9f.⅟▒E┌Fρ_╬a→‘KΘw⁽oXH‽M}HkW">⁸‘p

Перш за все, 3-а функція:

                                    ▓  name this "▓" (example input: 15)                          [15]
³³                                     Create 4 extra copies of the top thing (number of things)  [15, 15, 15, 15, 15]
  q                                    output without popping one of them                         [15, 15, 15, 15, 15]
   "...‘o                              output " bottle"                                           [15, 15, 15, 15, 15]
         H?   }                        if pop-1 [isn't 0]                                         [15, 15, 15, 15]
            so                           output "s"                                               [15, 15, 15, 15]
               5\                      push if POP divides by 5                                   [15, 15, 15, 1]
                 ;                     swap [if divides & another number copy]                    [15, 15, 1, 15]
                  3\«                  push if POP divides by 3, multiplied by 2                  [15, 15, 1, 2]
                     +                 add those together                                         [15, 15, 3]
                      "...‘            push "buzz fizz fizzbuzz beer"                             [15, 15, 3, "buzz fizz fizzbuzz beer"]
                           ...‘o       output " of " (done over here to save a byte for a quote)  [15, 15, 3, "buzz fizz fizzbuzz beer"]
                                θ      split ["buzz fizz fizzbuzz beer"] on spaces                [15, 15, 3, ["buzz","fizz","fizzbuzz","beer"]]
                                 w     get the index (1-indexed, wrapping)                        [15, 15, ["buzz","fizz","fizzbuzz","beer"], "fizzbuzz"]
                                  o    output that string                                         [15, 15, ["buzz","fizz","fizzbuzz","beer"]]
                                   X   pop the array off of the stack                             [15, 15]

Перша функція:

Ƨ, o▓k
     k  name this "function" "k"
Ƨ, o    output ", "
    ▓   execute the "bottleify" function

Друга функція:

"πFT+╔¡‘oW
         W  call this "W"
"πFT+╔¡‘    push " on the wall"
        o   output it

І основна частина:

MH∫}                                     repeat 99 times, each time pushing index
    ¹                                    wrap in an array
     ±                                   reverse it
      {                                  iterate over it
       ▓                                 execute that function
        W                                execute that function
         k                               execute that function
          Ƨ.¶o                           output ".\n"
              H¡                         push if POP-1 isn't 0 (aka 1 if pop <> 1, 0 if pop == 1)
                "...‘                    push "Stake one down and pass it aroundSgo to the store and buy some more"
                     K                   push the first letter of that string
                      Θ                  split ["take one down and pass it aroundSgo to the store and buy some more" with "S"]
                       w                 gets the xth (1-indexed, wrapping) item of that array
                        ⁽o               uppercase the 1st letter and output
                          X              pop the array off
                           H‽            if pop-1 [isn't 0]
                             M           push 100
                              }          ENDIF
                               H         decrease POP
                                k        execute that function
                                 W       execute that function
                                  ">⁸‘p  output ".\n\n"

Втратили пару байтів через помилку, яка Oставить новий рядок до і після нього (І якимось чином це повертається до V0.9 (це код V0.11))

— дзайма
джерело
4

Java, 344 340 339 байт

(-4 байти після гольф-фізбузу; -1 байт видалення бродячих пробілів)

interface X{static void main(String[]a){for(int i=99;i>0;System.out.printf("%s on the wall, %s.%n%s, %s on the wall.%n%n",b(i),b(i--),i<1?"Go to the store and buy some more":"Take one down and pass it around",b(i<1?99:i)));}static String b(int i){return i+" bottle"+(i>1?"s":"")+" of "+(i%3<1?"fizz":"")+(i%5<1?"buzz":i%3<1?"":"beer");}}

Трохи невольф (використовуючи 1-пробільний відступ для усунення горизонтальної прокрутки):

interface X {
 static void main(String[]a){
  for(int i=99;i>0;System.out.printf("%s on the wall, %s.%n%s, %s on the wall.%n%n",
   b(i),b(i--),
   i<1?"Go to the store and buy some more":"Take one down and pass it around",
   b(i<1?99:i)));
 }
 static String b(int i){
  return i+" bottle"+(i>1?"s":"")+" of "+(i%3<1?"fizz":"")+(i%5<1?"buzz":i%3<1?"":"beer");
 }
}
— hjk
джерело
4

JavaScript (ES6), 316 309 байт

Це повна програма, а не функція. Нічого не дуже креативного, це просто наївний підхід (звідси і рахунковий рахунок!). Я використовую console.log()замість того, alert()що багато браузерів обмежують кількість символів, які можна відобразити за допомогою alert(). Зауважте, що потрібні всі пробіли та нові рядки.

a="";for(i=99;i>0;i--){b=j=>"bottle"+(j>1?"s":"");d=a=>(a%3?"":"fizz")+(a%5?"":"buzz")||"beer");w=" on the wall";o=" of ";a+=`${i+" "+b(i)+o+d(i)+w+", "+i+" "+b(i)+o+d(i)}.
${i>1?"Take one down and pass it around, ":"Go to the store and buy some more, "}${(y=i-1?i-1:99)+" "+b(y)+o+d(y)+w}.

`;}console.log(a)

Безголівки:

let accumulator = "";
for(let i = 99; i>0; i--){
    let bottleString = j => "bottle"+(j>1?"s":""),
    drink = a =>(a%3?"":"fizz")+(a%5?"":"buzz")||"beer",
    wallString = " on the wall",
    of=" of ";
    accumulator += `${i+" "+bottleString(i)+of+drink(i)+wallString+", "+i+" "+bottleString(i)+of+drink(i)}.
${i>1?"Take one down and pass it around, ":"Go to the store and buy some more, "}${(y=i-1?i-1:99)+" "+bottleString(y)+of+drink(y)+wallString}.

`;
}

console.log(accumulator);

Ось фрагмент:

a="";for(i=99;i>0;i--){b=j=>"bottle"+(j>1?"s":"");d=a=>(a%3?"":"fizz")+(a%5?"":"buzz")||"beer";w=" on the wall";o=" of ";a+=`${i+" "+b(i)+o+d(i)+w+", "+i+" "+b(i)+o+d(i)}.
${i>1?"Take one down and pass it around, ":"Go to the store and buy some more, "}${(y=i-1?i-1:99)+" "+b(y)+o+d(y)+w}.

`;}console.log(a)
Розгорніть фрагмент

До речі, з цією відповіддю я заробив бронзовий знак у коді-гольф ! Ніколи не думав, що досягти цього колись (не те, що це велике досягнення.)

— Арджун
джерело
Ваша dфункція не потребує ()s, оскільки вона ?:є асоціативною, але ви можете зберегти ще більше байтів, використовуючи d=a=>(a%3?"":"fizz")+(a%5?"":"buzz")||"beer".
— Ніл
3

Сітківка , 230 байт


99$*_
_\B
Take one down and pass it around, $.'#.¶¶$.'#, $.'.¶
^
99#, 99.¶
_
Go to the store and buy some more, 99#.
#
 on the wall
1\b|(\d+)
$& bottle$#1$*s of $&$*_
\b(_{15})+\b
fizzbuzz
\b(_{5})+\b
buzz
\b(___)+\b
fizz
_+
beer

Спробуйте в Інтернеті! Пояснення:


99$*_

Вставляє 99 _с.

_\B
Take one down and pass it around, $.'#.¶¶$.'#, $.'.¶

Змінює всі, крім останнього, _рядки Take one down and pass it around, $.'#.¶¶$.'#, $.'.¶, де є новий рядок і $.'вважається кількість підкреслених підкреслень. Це фактично відлічує від 98 до 1.

^
99#, 99.¶

Додає перший рядок першого вірша у "компактному" форматі.

_
Go to the store and buy some more, 99#.

Додає другий рядок останнього вірша. Чому мені потрібен стрибок через обручі для використання _не знаю, але, $схоже, збігається двічі, тому я не можу це використовувати. Піди розберися.

#
 on the wall

Замінює рядок, який кілька разів з’являється у вірші.

1\b|(\d+)
$& bottle$#1$*s of $&$*_

Це відповідає цілим числам у віршах і суфіксам відповідної пляшки (-ів) і знову повертається до одинарних під час підготовки вибору напою. ( 99Цим способом я зберігаю 1 байт на s.)

\b(_{15})+\b
fizzbuzz
\b(_{5})+\b
buzz
\b(___)+\b
fizz
_+
beer

Точні кратні замініть відповідним напоєм.

— Ніл
джерело
2

sed , 468 459 456 байт

s:^:99 bottles of fizz on the wall, 99 bottles of fizz.:
p
s:99:I8:g
s:fizz:XYYZ:g
x
s:^:Take one down and pass it around, I8 bottles of XYYZ on the wall.\n:
G
x
:
g
s:XXX:fizz:g
s:Y{5}:buzz:g
s:\bX*Y*Z:beer:g
s:[XYZ]::g
y:ABCDEFGHI:123456789:
s:\b0::g
/ 1 /bq
p
x
s:^::
tc
:c
s:(\S)0:\1@:g
Td
y:ABCDEFGHI:0ABCDEFGH:
:d
y:123456789@:0123456789:
s:(XXX)*(Y{5})*(Y*Z):XY\3:g
x
b
:q
s:es:e:g
aGo to the store and buy some more, 99 bottles of fizz on the wall.

Спробуйте в Інтернеті!

Потрібен -rпрапор.

Пояснення

Простір утримує зображення двох повторюваних ліній з цифрами, представленими у вигляді [A-I][0-9](окремі цифри для десятків і одиниць) та видом напою, представленим як X*Y*Z, де Xслідкує -N mod 3, і Yяк -N mod 5.

На кожній наступній ітерації цифри зменшуються, а Xs і Ys оновлюються. Потім утримуваний простір копіюється в простір візерунка, перетворюється на рядки пісні та друкується.

— eush77
джерело
2

C, 349 345 344 байт

#define b(x)x^1?" bottles":" bottle"
#define g i-1?"Take one down and pass it around":"Go to the store and buy some more"
*w=" on the wall";*s(x){return x?x%15?x%5?x%3?"beer":"fizz":"buzz":"fizzbuzz":"fizz";}i=100;main(){while(--i){printf("%d%s of %s%s, %d%s of %s.\n%s, %d%s of %s%s.\n",i,b(i),s(i),w,i,b(i),s(i),g,i-1?i-1:99,b(i-1),s(i-1),w);}}

Ну, ось ти. Це зайняло годину.

Спробуйте в Інтернеті!

— MD XF
джерело
2

Javascript (ES6), 236 234 233 232 байт

for(i=99;i;console.log(z()+`, ${z(_)}.
${--i?'Take one down and pass it around':'Go to the store and buy some more'}, ${z()}.

`))z=(o=' on the wall',j=i||99)=>j+` bottle${j>1?'s':_} of `+((j%3?_:'fizz')+(j%5?_='':'buzz')||'beer')+o

Демо

// replace console.log to avoid 50-log limit in snippets:
console.log=_=>document.write(`<pre>${_}</pre>`)

for(i=99;i;console.log(z()+`, ${z(_)}.
${--i?'Take one down and pass it around':'Go to the store and buy some more'}, ${z()}.

`))z=(o=' on the wall',j=i||99)=>j+` bottle${j>1?'s':_} of `+((j%3?_:'fizz')+(j%5?_='':'buzz')||'beer')+o
Розгорніть фрагмент

Безумовно

i = 99  // start counter at 99

z = (   // define function z which takes arguments with defaults:
   o = ' on the wall', // o = defaults to ' on the wall'
   j = i || 99         // j = defaults to value of counter i - or 99 when i == 0
) => 
    j +                 // our current j counter
    ' bottle' +
    (j > 1 ? 's' : _) + // choose 's' when we have more than 1 bottle, or blank _
    (
        (j % 3 ? _ : 'fizz') +      // if j % 3 is 0, add 'fizz', otherwise blank _
        (j % 5 ? _ = '' : 'buzz')   // if j % 5 is 0, add 'buzz', otherwise blank _
                                    // _ gets defined here since it's the first place it's used
            ||                      // if no fizz or buzz, result is a falsey empty string
        'beer'                      // replace falsey value with 'beer'
    ) +
    o                               // append o

while (i) {         // while counter is non-zero
    console.log(    // output string:
        z() +       // call z without o argument
        ', ' +
        z(_) +      // call z with blank _ for o to block ' on the wall' here
        '.\n' +
        ( --i       // decrement i, if still non-zero:
            ? 'Take one down and pass it around'
                    // otherwise:
            : 'Go to the store and buy some more'
        ) + 
        ', ' +
        z() +       // another call to z without o
        '.\n\n'
    )
}
— nderscore
джерело
1

shortC , 314 312 байт

Db(x)x^1?" bottles":" bottle"
Dg i-1?"Take one down and pass it around":"Go to the store and buy some more"
*w=" on the wall";*s(x){Tx?x%15?x%5?x%3?"beer":"fizz":"buzz":"fizzbuzz":"fizz";}i=100;AW--i){R"%d%s of %s%s, %d%s of %s.\n%s, %d%s of %s%s.\n",i,b(i),s(i),w,i,b(i),s(i),g,i-1?i-1:99,b(i-1),s(i-1),w

Вибачте, пояснення немає, але я зовсім забув, як це працює.

— MD XF
джерело
Вам слід розглянути можливість додавання ще однієї відповіді в шорт-коді, яка слідує логіці цієї відповіді, щоб побачити, як це гольфи. Крім того, схоже, що в обох ваших відповідях ви використовуєте макрос для g лише один раз, ви зможете
— вкласти
Чи можете ви розмістити розширену версію?
— CalculatorFeline
@CalculatorFeline Еквівалентний код C вже тут , якщо це те, що ви просите
— musicman523
1

Вугілля деревне , 307 297 байт

Ａ”｜‽2?{:×G↗”¦αＡ“6«eMηOU¶¿”¦ζＡ“9“e▷·gqε-g}”¦βＡ“9Ｂ{⦃⁺Ｂφ=；λO”¦ωＡfizz¦φＡbuzz¦γＡbeer¦ηＡ”↶C▶▶d℅d¬r·ＵS\λＴθＮevＴ◧→GM⁸ω┦τＡ“M↧k↓⁺*f÷,ψＺ¢▶\¿｜Ｐ“№κ×υpξＸoＷ”¦σＡ.¶πＦ⮌…¹¦¹⁰⁰«Ａ⎇⁻ι¹αζθ¿∧¬﹪鳬﹪ι⁵Ａ⁺φγ﹪ι³Ａφ﹪ι⁵ＡγεＡηε⁺⁺⁺⁺⁺⁺⁺ＩιθεβＩιθεπ¿⁻ι¹Ａ⁻ι¹λＡ⁹⁹λＡ⎇⁻λ¹αζθ¿∧¬﹪볬﹪λ⁵Ａ⁺φγ﹪λ³Ａφ﹪λ⁵ＡγεＡηε¿⁻ι¹ＡτδＡσδ⁺⁺⁺⁺δλθεω

Спробуйте в Інтернеті!

ТАК, МИ МОЖЕМО! Посилання на багатослівну версію, це можна багато в гольфі, я впевнений.

— Чарлі
джерело
На жаль, ви забули насправді посилання на багатослівну версію, але ця робота з ⁺s виглядає підозріло ...
— Ніл
1

tcl, 298

proc B i {set x " bottle[expr $i>1?"s":""] of [expr $i%3?$i%5?"beer":"":"fizz"][expr $i%5?"":"buzz"]"}
set i 99
time {puts "$i[B $i][set w " on the wall"], $i[B $i].
Take one down and pass it around, [incr i -1][B $i]$w."} 98
puts "1[B $i]$w, 1[B $i].
Go to the store and buy some more, 99[B 9]$w."

демонстрація

— сергіол
джерело
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.