Mój kolega niedawno przesłał mi jako żart następujący fragment JavaScript:

let butScript = (nrOfButs) => {
    for(var i = 0; i < nrOfButs; i++){
        if(i % 3 == 0){
            console.log("Yeah")
        }
        if(i % 2 == 0){
            console.log("But")
        }
        if(i % 3 == 1){
            console.log("No")
        }
    }
}

Ponieważ kod został napisany w godzinach pracy, było to oczywiście ogromne marnotrawstwo zasobów firmy. Aby zapobiec podobnym zdarzeniom w przyszłości, musimy zminimalizować marnowanie przepracowanych godzin. A ponieważ powszechnie wiadomo, że krótszy program jest szybszy do napisania, musimy zagrać w ten kod, aby był jak najkrótszy!

Wejście

Pojedyncza nieujemna liczba całkowita. Nie wolno obsługiwać błędnych danych wejściowych.

Wynik

Twój program musi generować dane wyjściowe identyczne jak w powyższym skrypcie. Powinieneś wypisać jedno słowo w wierszu, a liczba słów powinna być zgodna z oryginalnym skryptem.

Dozwolone jest umieszczanie znaków spacji nie-nowej linii na końcu każdej linii (ale nie na początku), ponieważ są one niewidoczne. Jeden dodatkowy znak nowej linii jest dozwolony na samym końcu danych wyjściowych.

Przykłady

Input: 0
Output:


Input: 1
Output:
Yeah
But

Input: 2
Output:
Yeah
But
No

Input: 10
Output:
Yeah
But
No
But
Yeah
But
No
Yeah
But
No
But
Yeah

Excel, 78 bajtów

Zakłada wejście w komórce A1 i formatowanie Wordwrap jest włączone dla komórki. Użyj Alt + Enter, aby dodać informacje o wierszach w ciągu i zwróć uwagę na białe znaki. Obsługuje tylko dane wejściowe do 3570 ze względu na limit funkcji REPT (powodzenia, aby komórka była tak wysoka).

=LEFT(REPT("Yeah
But
No      
But     
Yeah    
But
No           
",595),A1*9)

Przedruk, z kropkami na białe znaki

=LEFT(REPT("Yeah
But
No......
But.....
Yeah....
But
No...........
",595),A1*9)

Jak to działa: wzór powtarza się co 6 liczb:

0 = Yeah and But      Yeah + linefeed + But + linefeed
1 = No                No + 6 whitespace + line feed
2 = But               But + 5 whitespace + linefeed
3 = Yeah              Yeah + 4 whitespace + linefeed
4 = But and No        But + linefeed + No + 3 whitespace
5 = Blank             8 whitespace + linefeed

Każdy z nich można wyrazić za pomocą 9 znaków, więc ciąg znaków składa się z 54 znaków (9 * 6), a następnie powtarzany tak długo, jak pozwala na to Excel. Następnie jako wynik przyjmuje lewe 9 * (liczba znaków wejściowych).

Podawanie wiersza dla „ale i nikt” nie jest umieszczane za pustym miejscem, tak że Yeah dla # 6, # 12, (itd.) Jest formatowany po lewej, a nie po prawej stronie, i że nie ma dodawanego pustego kanału co 6 linii dla tego przedmiotu.

JavaScript (ES6), 59 57 bajtów

f=n=>n?f(n-1)+[s=n&1?`But
`:'',`Yeah
`+s,s+`No
`][n%3]:''

Wypróbuj online!

W jaki sposób?

Używamy funkcji rekurencyjnej, która przechodzi od do 1 zamiast od 0 do n - 1 .$n$$1$$0$$n-1$

W rezultacie testy są wyłączone o porównaniu z kodem referencyjnym:$1$

• jeśli , „Tak”$n\equiv1\pmod 3$
• jeśli , „But”$n\equiv1\pmod 2$
• jeśli , wyjście „Nie”$n\equiv2\pmod 3$

Dzięki temu możemy zapisać prostszą wielkość liter jako pierwszy wpis w naszej tablicy odnośników, w której możemy zdefiniować : zmienną zawierającą jeden lub pusty ciąg znaków.$n\equiv0\pmod 3$$s$"But\n"

Dwa pozostałe wpisy są zdefiniowane odpowiednio "Yeah\n" + si s + "No\n".

Uwaga: Poprzez iterację od do , moglibyśmy również zdefiniować w pierwszym wpisie, ale to kosztowałoby dwa dodatkowe nawiasy .0 $n-1$$0$$s$

Skomentował

f = n =>            // n = input
  n ?               // if n is not equal to 0:
    f(n - 1) +      //   prepend the result of a recursive call with n - 1
    [               //   define our lookup array:
      s = n & 1 ?   //     1st entry: if n is odd:
        `But\n`     //       set s to "But"
      :             //     else:
        '',         //       set s to an empty string
      `Yeah\n` + s, //     2nd entry: "Yeah" followed by s
      s + `No\n`    //     3rd entry: s followed by "No"
    ][n % 3]        //   append the correct entry for this iteration
  :                 // else:
    ''              //   return an empty string and stop recursion

LOLCODE , 257 bajtów

HAI 1.2
I HAS A B
GIMMEH B
B IS NOW A NUMBR
I HAS A C ITZ 0
IM IN YR L UPPIN YR C TIL BOTH SAEM B AN C
I HAS A D ITZ MOD OF C AN 3
D
WTF?
OMG 0
VISIBLE "Yeah"
OIC
MOD OF C AN 2
WTF?
OMG 0
VISIBLE "But"
OIC
D
WTF?
OMG 1
VISIBLE "No"
OIC
IM OUTTA YR L
KTHXBYE

Wypróbuj online!

Biała spacja , 315 304 300 277 276 bajtów

Dzięki @JoKing za -11 bajtów (zmniejszenie liczby używanych etykiet z 8 do 7) i -24 dodatkowych bajtów (zmiana ogólnego przebiegu programu i zmniejszenie ilości używanych etykiet z 7 do 5 w procesie).

[S S S N
_Push_0][T  N
T   T   _Read_STDIN_as_integer][N
S S N
_Create_Label_LOOP][S S S N
_Push_0][T  T   T   _Retrieve][N
T   S S N
_If_negative_jump_to_Label_PRINT][S S S N
_Push_0][T  T   T   _Retrieve][S S S T  T   N
_Push_3][T  S T T   _Modulo][S S S T    S N
_Push_2][T  S S T   _Subtract][N
T   T   T   N
_If_negative_jump_to_Label_SKIP_NO][S S T   T   S T T   T   T   S N
_Push_-94_\n][S S S T   T   T   N
_Push_7_o][S S T    T   T   S T S N
_Push_-26_N][N
S S T   N
_Create_Label_SKIP_NO][S S S N
_Push_0][T  T   T   _Retrieve][S S S T  S N
_Push_2][T  S T T   _Modulo][N
T   S S S N
_If_0_jump_to_Label_SKIP_BUT][S S T T   S T T   T   T   S N
_Push_-94_\n][S S S T   T   S S N
_Push_12_t][S S S T T   S T N
_Push_13_u][S S T   T   S S T   T   S N
_Push_-38_B][N
S S S S N
_Create_Label_RETURN_FROM_BUT][S S S N
_Push_0][S N
S _Duplicate_0][S N
S _Duplicate_0][T   T   T   _Retrieve][S S S T  N
_Push_1][T  S S T   _Subtract][T    T   S _Store][T T   T   _Retrieve][S S S T  T   N
_Push_3][T  S T T   _Modulo][N
T   S S T   N
_If_0_jump_to_Label_YEAH][N
S N
N
_Jump_to_Label_LOOP][N
S S S T N
_Create_Label_YEAH][S S T   T   S T T   T   T   S N
_Push_-94_\n][S S S N
_Push_0_h][S S T    T   T   T   N
_Push_-7_a][S S T   T   T   N
_Push_-3_e][S S T   T   T   T   T   N
_Push_-15_Y][N
S N
N
_Jump_to_Label_LOOP][N
S S S N
_Create_Label_PRINT][S S S T    T   S T S S S N
_Push_104][T    S S S _Add][T   N
S S _Print_as_character][N
S N
N
_Jump_to_Label_LOOP]

Litery S(spacja), T(tab) i N(nowa linia) dodane tylko jako wyróżnienia.
[..._some_action]dodano tylko jako wyjaśnienie.

Wypróbuj online (tylko z surowymi spacjami, tabulatorami i nowymi wierszami).

Biała spacja zdecydowanie nie jest właściwym językiem dla tego wyzwania. W białej spacji zarówno pętle, jak i instrukcje if są tworzone za pomocą etykiet i skoków do etykiet, a ponieważ nie są to przypadki if-elseif-else, ale wiele przypadków if, oznacza to , że I będę musiał cofać się co każde, co czyni go dość długim , oznacza to, że będę musiał nieco zmodyfikować kontrole, aby pominąć niektóre odbitki (dzięki @JoKing ).

Objaśnienie w pseudo-kodzie:

Read STDIN as integer, and store it in the heap
Start LOOP:
  Integer i = retrieve integer from heap
  If(i is negative):
    Call function PRINT
  If(i modulo-3 is NOT 2):
    Jump to Label SKIP_NO
  Push "\noN" to the stack
  Label: SKIP_NO
  If(i modulo-2 is 0):
    Jump to Label SKIP_BUT
  Push "\ntuB" to the stack
  Label: SKIP_BUT
  i = i - 1
  Replace i in the heap with this updated value
  If(i modulo-3 is 0):
    Call function YEAH
  Go to next iteration of LOOP

function YEAH:
  Push "\nhaeY" to the stack
  Go to next iteration of LOOP

function PRINT:
  Print top of the stack as character to STDOUT
  Go to next iteration of LOOP (which will enter the if and then
                                comes back to this PRINT again)

Dodatkowe wyjaśnienie:

Ogólnie rzecz biorąc, pętla od wejścia w dół do 0, przesuwając nowy wiersz i słowo odwrócone (więc w kolejności „\ noN”, „\ ntuB”, „\ nhaeY” zamiast „Yeah \ n”, „Ale \ n ”,„ Nie \ n ”). A gdy wejście zapętli się do 0 i wszystkie znaki znajdą się na stosie, wydrukuje te znaki w odwrotnej kolejności (więc w prawidłowej kolejności wyjściowej).

Bardziej dogłębnie: chociaż musimy wydrukować słowa z zakresu (input, 0], zapętli się ono w zakresie [input, 0). Z tego powodu możemy użyć czeku if(i%3 == 2)dla „\ noN” (lub faktycznie if(i%3 != 2)pominąć wypychanie „\ noN”) i możemy użyć czeku if(i%2 != 1)dla „\ ntuB” (lub faktycznie if(i%2 == 0)pominąć naciśnięcie „\ ntuB” ). Dopiero po tych dwóch kontrolach zmniejszamy iterację io 1. Następnie wykonujemy if(i%3 == 0)czekanie, aby wypchnąć „\ nhaeY”, podobnie jak w przykładowym kodzie JS w opisie wyzwania. Pomijanie z czekami if-not zamiast przejścia do etykiety i powrót z etykiety z if-czekami zapisanymi 23 bajty.

Również w białych znakach wartości znaków są przechowywane na stosie jako ich wartości Unicode (tj. 10Dla nowych wierszy, 65dla „A”, 97dla „a” itd.). Ponieważ muszę już zapętlić stos, aby wydrukować znaki, mogę również użyć mojej białej końcówki, aby obniżyć liczbę bajtów, dodając stałą do wartości liczbowych, przed wydrukowaniem ich jako znaków.
Ta stała jest 104w tym przypadku generowana za pomocą tego programu Java , którego wcześniej użyłem również do gry w golfa w innej odpowiedzi Whitespace . To jest również powód, dla którego ta część kodu:

[S S T  T   S T T   T   T   S N
_Push_-94_\n][S S S T   T   T   N
_Push_7_o][S S T    T   T   S T S N
_Push_-26_N]

ma wartości -94dla nowej linii, 7dla „o” i -26dla „N”. Ponieważ dodanie stałą 104poprawnie dać nasze wartości Unicode 10, 111oraz 78dla tych znaków odpowiednio.

Python 3 , 85 82 bajtów

def f(n):
 for i in range(n):yield from['Yeah'][i%3:]+['But'][i%2:]+['No'][i%3^1:]

Wypróbuj online!

Python 3 , 79 76 bajtów

Port Keeta „s odpowiedź Excel .

lambda n:(f"""Yeah
But
No      
But     
Yeah    
But
No{'':11}
"""*n)[:9*n]

Wypróbuj online!

Perl 6 , 63 50 bajtów

{<<"Yeah But"No But Yeah"But No">>[^$_ X%6].words}

Wypróbuj online!

Anonimowy blok kodu, który pobiera liczbę i zwraca listę wierszy

Wyjaśnienie:

{                                                }   # Anonymous code block
 <<"Yeah But"No But Yeah"But No">>  # Create the list of strings:
                                     # Yeah But
                                     # No
                                     # But
                                     # Yeah
                                     # But No
                                  [       ]  # Index into this list
                                   ^$_  # The range from 0 to n-1
                                       X%6  # All modulo 6
                                           .words  # Convert the list to a string 
                                                   # Which joins by spaces
                                                   # And split by whitespace

C (gcc) , 75 bajtów

f(o,_){for(_=0;o-_;_++%3-1||puts("No"))_%3||puts("Yeah"),1&_||puts("But");}

Wypróbuj online!

C (gcc) , 60 + 11 = 71 bajtów (użycie -D$=||puts()

f(o,_){for(_=0;o-_;_++%3-1 $"No"))_%3 $"Yeah"),1&_ $"But");}

Wypróbuj online!

05AB1E (starsza wersja) , 27 25 24 bajtów

Zaoszczędził 1 bajt dzięki Kevinowi Cruijssenowi .

F”¥æ€³€¸”#N3ÖNÈN3%‚‚˜Ï`»

Wypróbuj online!

Wyjaśnienie

F                          # for N in [0 ... input] do:
 ”¥æ€³€¸”#                 # push ['Yeah', 'But', 'No']
          N3Ö              # push N % 3 == 0
             NÈ            # push N % 2 == 0
               N3%         # push N % 3
                  ‚‚˜      # add the 3 numbers to a list
                     Ï     # keep only the strings whose corresponding value  
                           # in the int list is true (1)
                      `»   # push strings separately to stack and join stack on newlines

Python 2 , 73 bajty

lambda n:'\n'.join((["Yeah\nBut","No","But","Yeah","But\nNo"]*n)[:n-n/6])

Wypróbuj online!

Python 2 , 97 95 92 90 83 81 bajtów

lambda n:[w for i in range(n)for w in'Yeah','But','No'if('N'in w)==i%(3-(w<'N'))]

Wypróbuj online!

_{-2 bajty, dzięki ovs}

Python 3 , 92 90 85 83 bajtów

lambda n:[w for i in range(n)for w in['Yeah','But','No']if('N'in w)==i%(3-(w<'N'))]

Wypróbuj online!

_{-4 bajty, dzięki ovs}

-4 bajty, dzięki Jo King

Płótno , 27 bajtów

｛╷⌐３％‽YeahＰ｝２％‽ButＰ｝３％╷‽NoＰ

Wypróbuj tutaj!

Groovy (funkcja), 79 bajtów

Od czasu przesłania mojej odpowiedzi przejrzałem tutaj kilka historycznych dyskusji na temat tego, co stanowi odpowiednią odpowiedź. Ponieważ wydaje się powszechnie akceptowane dostarczanie tylko metody w Javie (w tym deklaracji typu i deklaracji parametrów), oto krótsza, Groovy, metoda, której odpowiedzią jest wartość zwracana przez metodę. Zastosowaniedef oznacza, że ​​wywodzi się typ zwrotu.

def a(int n){n?a(--n)+(n%3?'':'Yeah\n')+(n%2?'':'But\n')+(n%3==1?'No\n':''):''}

W przeciwieństwie do oryginalnej odpowiedzi poniżej, która zapętla się od 0 do n-1, ta wywołuje się od n do 1, ale zmniejsza wejście dla reszty linii w wywołaniu rekurencyjnym.

Wypróbuj online!

Groovy (program), 87 bajtów

Skrypty Groovy nie wymagają pewnych wspólnych importów, więc może to być program drukujący odpowiedź na STDOUT Javy bez konieczności System.out.wcześniejszego deklarowania print. Zapewnia także niektóre typowe metody narzędzi, takie jak ta, toLong()która pozwala nam rozsądnie i dokładnie analizować argument wejściowy.

Zasadniczo odpowiedź na Javę 10, ale wykorzystując krótszą składnię pętli Groovy i zdolność do oceny prawdziwych stwierdzeń.

args[0].toLong().times{print((it%3?'':'Yeah\n')+(it%2?'':'But\n')+(it%3==1?'No\n':''))}

Wypróbuj online!

Retina 0.8.2 , 45 bajtów

.+
$*
1
$`Yeah¶$`But¶$`11No¶
+`11B
B
111

A`1

Wypróbuj online! Wyjaśnienie:

.+
$*

Przekształć dane wejściowe w jednoargumentowe.

1
$`Yeah¶$`But¶$`11No¶

Dla każdej liczby całkowitej 0...n-1wygeneruj trzy wiersze tekstu, po jednym dla każdego słowa, każdy ze i 1znakiem s przed nim, z wyjątkiem No, który ma dwa dodatkowe 1s, aby obliczyć, (i+2)%3==0który jest równoważny i%3==1.

+`11B
B

Usuń pary 1s przed Bs.

111

Usuń 1s w grupach po trzy wszędzie.

A`1

Usuń wszystkie linie, które nadal mają 1.

Java 10, 100 99 bajtów

n->{for(int i=0;i<n;)System.out.print((i%3<1?"Yeah\n":"")+(i%2<1?"But\n":"")+(++i%3>1?"No\n":""));}

-1 bajt dzięki @ OlivierGrégoire .

Wypróbuj online.

Wyjaśnienie:

n->{                   // Method with integer parameter and no return-type
  for(int i=0;i<n;)    //  Loop `i` in the range [0, `n`)
    System.out.print(  //   Print to STDOUT:
      (i%3<1?          //    If `i` is divisible by 3:
        "Yeah\n"       //     Print "Yeah" with newline
      :"")+(i%2<1?     //    If `i` is even:
        "But\n"        //     Print "But" with newline
      :"")+(++i%3>1?   //    If `i` modulo-3 is 1:
        "No\n"         //     Print "No" with newline
      :                //    If none of the above three if's applied to the current `i`:
       ""));}          //     Print nothing for the current `i`

PowerShell, 75 74 72 67 66 bajtów

-1 bajt dzięki TessellatingHeckler

param($n)(" Yeah
But No But Yeah But
No "*$n-split' ')[1..$n]-ne''

Skrypt testowy i objaśnienie:

$f = {

param($n)(" Yeah
But No But Yeah But
No "*$n-split' ')[1..$n]-ne''

# 1. repeat the string $n times
# 2. split by space
# 3. get elements from 1 to $n
# some elements are multiline strings, some elements are $null:
# ($null,"Yeah`nBut","But","No","But","Yeah","But`nNo",$null,...)
# 4. remove $null elements from result array

}

# Output results
@(
    0,1,2,10
) | % {
    &$f $_
    "======"
}

# Advanced test
@(
    ,(0,'')
    ,(1,'Yeah But')
    ,(2,'Yeah But No')
    ,(3,'Yeah But No But')
    ,(4,'Yeah But No But Yeah')
    ,(5,'Yeah But No But Yeah But No')
    ,(6,'Yeah But No But Yeah But No')
    ,(7,'Yeah But No But Yeah But No Yeah But')
    ,(8,'Yeah But No But Yeah But No Yeah But No')
    ,(9,'Yeah But No But Yeah But No Yeah But No But')
    ,(10,'Yeah But No But Yeah But No Yeah But No But Yeah')
    ,(20,'Yeah But No But Yeah But No Yeah But No But Yeah But No Yeah But No But Yeah But No Yeah But No')
) | % {
    $n,$e = $_
    $r = &$f $n
    $r = $r-split"`n"       # simplify test string
    "$($e-eq$r): $n : $r"
}

Wynik:

======
Yeah
But
======
Yeah
But
No
======
Yeah
But
No
But
Yeah
But
No
Yeah
But
No
But
Yeah
======
True: 0 :
True: 1 : Yeah But
True: 2 : Yeah But No
True: 3 : Yeah But No But
True: 4 : Yeah But No But Yeah
True: 5 : Yeah But No But Yeah But No
True: 6 : Yeah But No But Yeah But No
True: 7 : Yeah But No But Yeah But No Yeah But
True: 8 : Yeah But No But Yeah But No Yeah But No
True: 9 : Yeah But No But Yeah But No Yeah But No But
True: 10 : Yeah But No But Yeah But No Yeah But No But Yeah
True: 20 : Yeah But No But Yeah But No Yeah But No But Yeah But No Yeah But No But Yeah But No Yeah But No

Prosty skrypt, 72 bajty:

$args|?{$_}|%{0..--$_|%{@('Yeah')[$_%3]
@('But')[$_%2]
@{1='No'}[$_%3]}}

Haskell , 71 bajtów

f n=[1..n]>>=(3?1)"Yeah"<>(2?1)"But"<>(3?2)"No"
(a?b)c n=[c|n`mod`a==b]

Wypróbuj online!

Wyjaśnienie

Całkiem proste, zaoszczędzono dwa bajty, używając [1..n]zamiast [0..n-1]i dostosowano pozostałe: Operator(?) Testy przyjmują cztery argumenty, zwracając pustą listę lub podany ciąg znaków jako singleton, jeśli wynik jest poprawny.

Curryując czwarty argument (?), możemy skorzystać z (<>)konkatenacji wyników każdej funkcji, tj .:

(3?1)"Yeah" <> (2?1)"But" <> (3?2)"No" ≡ \i-> (3?1)"Yeah" i ++ (2?1)"But" i ++ (3?2)"No" i

C # (interaktywny kompilator Visual C #) , 105 99 94 96 89 bajtów

i=>{for(int x=0;x<i;)Write((x%3<1?"Yeah\n":"")+(x%2<1?"But\n":"")+(x++%3==1?"No\n":""));}

Wypróbuj online!

Pip , 37 35 33 bajtów

"But 
Yeah
No
"<>5@:^[t2io02x]@<a

(Zwróć uwagę na spację po But.) Pobiera dane wejściowe jako argument wiersza polecenia. Wypróbuj online!

Wyjaśnienie

To objaśnienie dotyczy poprzedniej wersji - dziennik zmian znajduje się poniżej

Zainspirowany odpowiedzią Jo Kinga na Perla 6 . Konstruujemy tę listę:

[
 "Yeah
 But
 ";
 "No
 ";
 "But
 ";
 "Yeah
 ";
 "But
 No
 ";
 ""
]

i wyślij pierwsze jego aelementy za pomocą cyklicznego indeksowania.

[t2io02x]R,3["But""Yeah""No"].n@<:a
                                     i is 0; o is 1; t is 10; x is ""; n is newline;
                                     a is 1st cmdline arg (implicit)
[       ]                            Construct this list of scalars:
 t                                    10
  2                                   2
   i                                  0
    o                                 1
     02                               02
       x                              <empty string>
         R                           Treating each of these as a string, we're going to
                                     replace:
          ,3                          0, 1, and 2 (respectively)
                                     with the corresponding values from this list:
            ["But""Yeah""No"].n       These strings, each with a newline appended
                                     We now have constructed the list shown above
                               @<:a  Take the first a elements from this list, with
                                     cyclical indexing (the : is for parsing reasons)
                                     Concatenate them together and print (implicit)

Aktualizacja: Zdałem sobie sprawę, że nie muszę używać zamieniać, aby zmienić 0/1/2 na ciągi - mogę użyć tych liczb, aby bezpośrednio zaindeksować listę. Aby to zrobić, musimy upewnić się, że liczby wielocyfrowe są podzielone na listy ich cyfr (w przeciwnym razie wybieramy indeks 10 zamiast indeksów 1 i 0). Na szczęście użycie arbitralnie zagnieżdżonej listy jako indeksu w Pipie działa zgodnie z oczekiwaniami, dając (zagnieżdżoną) listę wyników. Dla danych wejściowych 3 otrzymujemy postęp danych (gdzie _reprezentuje nowy wiersz):

"But _Yeah_No_"<>5                       ["But _"; "Yeah_"; "No_"]
                     [t2io02x]           [10; 2; 0; 1; 02; ""]
                              @<a        [10; 2; 0]
                    ^                    [[1; 0]; [2]; [0]]
                  @:                     [["Yeah_"; "But _"]; ["No_"]; ["But _"]]

Tak jak poprzednio, wynik końcowy jest łączony i drukowany automatycznie.

Attache , 48 bajtów

Flat##{Mask[_%3'2'3=0'0'1,$Yeah'$But'$No]}=>Iota

Wypróbuj online!

Wyjaśnienie

Flat##{Mask[_%3'2'3=0'0'1,$Yeah'$But'$No]}=>Iota   input: an integer
      {                                  }=>Iota   over each number from 0 to that integer exclusive
       Mask[             ,$Yeah'$But'$No]          select values from that array according to:
            _%3'2'3                                    whether or not the input mod 3, 2, 3
                   =0'0'1                              is 0, 0, 1
Flat##                                             flatten the intermediate results

C (gcc) , 77 71 74 72 69 bajtów

Jest już lepszy C odpowiedź , ale ta jest rekurencyjna i zajęło mi trochę czasu, aby wyprostować, więc publikuję.

Do 69 bajtów dzięki @ceilingcat i @JathanathanFrech

(Nigdy nie sądzę, aby używać n- ~ -i zamiast n-i + 1)

i;f(n){i=n&&n-i>=~n/6&&f(n,i++,puts(i%7%4?i%7%2?"But":"No":"Yeah"));}

Wypróbuj online!

Ruby, 69 lat 72 74 Bajty

->y{puts *(1..y).map{|i|[i%3==1&&:Yeah,i%2>0&&:But,i%3>1&&:No]-[!0]}}

Bardzo prosta odpowiedź, sprawdzająca teraz krótszą, rekurencyjną metodę.

Zaoszczędź dwa bajty dzięki @BWO :)

Zapisano kolejne trzy bajty, używając symboli zamiast ciągów

Python 3, 93 bajty

[print("Yeah\n"*(i%3<1)+"But\n"*(i%2<1)+"No\n"*(i%3==1),end="")for i in range(int(input()))]

To nie jest najlepsze rozwiązanie, ale to moje zdanie.

Wypróbuj online!

R, 65 bajtów

cat(c("yeah","but","no")[c(3,1:3,2,1,2)][1:scan()%%7+1],sep="\n")

Ze względu na fakt, że są replikowane nieco wadliwości programu (to zdobywa się co czwarty „ale” - należy przez to wykorzystali %4 == 1i %4 == 3zamiast %3warunkach), musimy użyć do niezręczną rozmowę ci pracę w bazie siedmiu. Mimo to jest krótszy niż LOLCODE ...

(Miałem nadzieję, że (3,1,2,3,2,1,2) lub podobna permutacja może pojawić się lhgdzieś w zestawie danych, ale tak nie wygląda)

sed -E ,179 150 bajtów

/^0/!s:$:g:
:l;y:abcdefg:bcdefga:
/[ae]/iYeah
/[bdf]/iBut
/[cg]/iNo
s:.$:-&:;:s;s:0-:-9:;ts;h
y:123456789:012345678:;G
s:.*(.)-.*\n(.*).-:\2\1:;tl;c\ 

Najtrudniejsza część nie polegała na zbudowaniu listy, ale na analizie liczby dziesiętnej.

2 bajty mogą zostać zapisane, jeśli nowa linia na końcu nie jest wymagana: c\ → d.

Nadal wymaga optymalizacji.

Wypróbuj online .

Wyjaśnienie

/^0/!                            | if the input number doesn`t begin with a '0'…
     s:$:g:                      | …then append a 'g' to it and proceed
                                 |
:l;                              | loop label 'l':
   y:abcdefg:bcdefga:            | shift all occurences of [abcdef] 1 letter forward, and all 'g'-s to 'a'-s
                                 |
/[ae]/                           | if there`s an 'a' or 'e' in the input…
      iYeah                      | …output 'Yeah'
                                 |
/[bdf]/                          | if there`s a 'b' or 'd' or 'f' in the input…
       iBut                      | …output 'But'
                                 |
/[cg]/                           | if there`s a 'c' or 'g' in the input…
      iNo                        | …output 'No' 
                                 |
s:.$:-&:;                        | insert '-' before the last character
         :s;                     | loop label 's':
            s:0-:-9:;            | transform the next consecutive '0' in the end of the number to '9', if any
                     ts;         | loop to 's' if more consecutive zeroes are available
                        h        | copy the result to the temporary buffer
                                 |
y:123456789:012345678:;          | decrement all digits except '0' (N.B.: digits, not numbers)
                       G         | append the temporary buffer to the result
                                 |
s:.*(.)-.*\n(.*).-:\2\1:;        | cut and replace the digit left to the last consecutive 0 in the original
                                 | number pasted from the temporary buffer, then discard all other digits decremented
                         tl;     | …then loop to 'l' if the number is ≥0
                            c\   | insert a carriage return and exit

Czysty , 116 bajtów

import StdEnv,Data.List
r=cycle
$n=[e\\_<-[1..n]&a<-r["Yeah","",""]&b<-r["But",""]&c<-r["","No",""],e<-[a,b,c]|e>""]

Wypróbuj online!

F #, 108 106 bajtów

let v p=seq{for i=1 to p do
 if i%3=1 then yield"Yeah"
 if i%2=1 then yield"But"
 if i%3=2 then yield"No"}

Wypróbuj online!

-2 bajtów zmienia się od i=0 to p-1celu i=1 to pi dostosowanie modulos. Poza tym całkiem proste.

PHP, 65 68 bajtów

while($i<$argn)echo["Yeah
"][$i%3],["But
"][$i%2],["No
"][~-$i++%3];

Uruchom jako potok z -nRlub spróbuj online .

VBA (Excel), 105, 101, 99 bajtów

Edycja: -4 bajty z Keety! Dzięki!

Edytuj 2: -2 bajty z Chronocidal! Woot! (Zdałem sobie sprawę, że przypadki testowe działały tylko dla 10. Naprawiono teraz)

Tak, tym razem Excel pokonał VBA. Cokolwiek. (Idziemy po ciebie)

d=vbCr:For i=1To[a1]:a=i Mod 3:?IIf(a=1,"Yeah"+d,"")IIf(i/2=i\2,"","But"+d)IIf(a=2,"No"+d,"");:Next

^ Jest to wklejane do okna Natychmiastowe i generowane do okna debugowania

Bez golfa

d = vbCr
'For 1 to the value in A1 (using 0 gave extra values, and VBA skips the for loop if 0)
For i = 1 To [a1]    'aka: Range("A1").value
    a = i mod 3
    '? is the same as Print (Debug.Print when not in the Immediate Window)
    Print IIf(a = 1, "Yeah" + d, "") _ '<-- Just a line continuation
          'Keeta taught me that the \ operator is division with truncation,
          '     so if they are equal then there is no remainder!
          IIf(i / 2 = i \ 2, "", "But" + d) _
          IIf(a = 2, "No" + d, "");
    'Print usually prints a newline, but it still outputs if the string is blank...
    '   So we append a newline -if true- and use a semi-colon to kill the newline
Next

Galaretka , 22 bajty

5Rż7FṚṁị“'⁴\ÆẓNƇ»ḲŒP¤Ẏ

Monadyczny link dający listę linii (co wydaje się być dozwolone w komentarzach)

Wypróbuj online! (stopka wywołuje łącze za pomocąÇi łączy się z użyciem nowego wiersza,Yponieważ niejawne drukowanie w galaretce rozbija wszystko, jeśli to możliwe)

W jaki sposób?

$2\times3=6$

Teraz zauważ, że pierwsze sześć wartości to:

["Yeah", "But"]
["No"]
["But"]
["Yeah"]
["But", "No"]
[]

Tak więc wynikową listą wierszy powinny być te wartości powtórzone (lub obcięte) do długości npołączone razem.

Zauważ teraz, że zestawem mocy "Yeah", "But", "No"jest:

[]
["Yeah"]
["But"]
["No"]
["Yeah", "But"]
["Yeah", "No"]
["But", "No"]
["Yeah", "But", "No"]

Więc każdy okres to te 1-indeksowane wartości zestawu mocy "Yeah", "But", "No":

5, 4, 3, 2, 7, 1

Kod tworzy tę listę, formuje ją na długość n, indeksuje do zestawu mocy, a następnie usuwa wewnętrzne listy (co również usuwa puste ciągi, ponieważ ciągi są listami w Galaretce) ...

5Rż7FṚṁị“'⁴\ÆẓNƇ»ḲŒP¤Ẏ - Link: integer, n   e.g. 10
5                      - literal five            5
 R                     - range                   [1,2,3,4,5]
   7                   - literal seven           7
  ż                    - zip together            [[1,7],[2],[3],[4],[5]]
    F                  - flatten                 [1,7,2,3,4,5]
     Ṛ                 - reverse                 [5,4,3,2,7,1]
      ṁ                - mould like (n)          [5,4,3,2,7,1,5,4,3,2]
                    ¤  - nilad followed by link(s) as a nilad:
        “'⁴\ÆẓNƇ»      -   compressed string     "Yeah But No"
                 Ḳ     -   split at spaces       ["Yeah","But","No"]
                  ŒP   -   power-set             [[],["Yeah"],["But"],["No"],["Yeah","But"],["Yeah","No"],["But","No"],["Yeah","But","No"]]
       ị               - index into              [["Yeah","But"],["No"],["But"],["Yeah"],["But","No"],[],["Yeah","But"],["No"],["But"],["Yeah"]]
                     Ẏ - tighten                 ["Yeah","But","No","But","Yeah","But","No","Yeah","But","No","But","Yeah"]

Python 2 , 93 92 83 bajty

lambda i:''.join('Yeah\n'*(x%3<1)+'But\n'*(x%2<1)+'No\n'*(x%3==1)for x in range(i))

Wypróbuj online!

Oszczędność 9 bajtów dzięki @Jonathan Frech