Beni seviyor, beni sevmiyor

Bu basit çocuk oyunu eski, ama hala popüler. Şimdi 21. yüzyılda yaşadığımız için, onu dijitalleştirelim!

Şartname

Rasgele tohum üretemeyen bir dil kullanmıyorsanız, program giriş yapmamalıdır - bu durumda tohumu bir girdi olarak kabul etmenize izin verilir. Göreviniz, rasgele toplam 3 ila 20 satırlık bir çıktı verecek bir program yazmaktır: “Beni seviyor ...” ve “Beni seviyor ...” sırayla oyunda olduğu gibi (ve bir satır daha; okuma).

Ancak bazı kısıtlamalar var. Her satırı newline takip etmelidir. İlk satır "Beni seviyor ..." olmalı. Son satır ("Beni seviyor" veya "Beni sevmiyor") sırasıyla ünlem işareti veya tek bir nokta ile bitmelidir. Son satırdan sonra, “Beni sev!” Olmasına bağlı olarak yeni satırda bir kalp ( <3) veya kırık bir kalp ( </3) basmanız gerekir. veya "Beni sevmiyor." son cümleydi.

İzleyen boşluklara izin verilir.

Örnek çıktı

Çıktı:

Beni seviyor ...
Beni sevmiyor ... Beni
seviyor ...
Beni sevmiyor ... Beni
seviyor!
<3

Başka bir çıktı:

Beni seviyor ...
Beni sevmiyor ... Beni
seviyor ...
Beni sevmiyor.
</ 3

Bu kod golf , bu yüzden en kısa giriş kazanır!

Ayrıca, ilk meydan okumam :) İyi şanslar!

Pyth, 54 53 51 50 48 bayt

pj+*3\.bm+W~!Z"Loves me"" not"+3O18@".!"Z%hZ"</3

CJam, 53 50 49 bayt

1 byte tasarruf için Dennis teşekkürler.

Imr3+{"Loves me"X!:X" not"*'.3*N}*&"!."X=N'<'/X*3

Burada test et.

açıklama

Kod, dizgiyi bit ve parçalar halinde programın sonunda otomatik olarak basılan istifin üzerine döküyor:

Imr3+         e# Generate a random number in [3,20]
{             e# Execute this block that many times.
  "Loves me"  e#   Push "Loves me", we always need that.
  X!:X        e#   Toggle X (initially 1) between 0 and 1 and leave it on the stack.
  " not"*     e#   Repeat " not" that many times, removing it on every other line.
  '.3*N       e#   Push "..." and a newline.
}*
&             e# Set intersection of "..." and newline, turning them into an empty array.
"!."X=        e# Select "!" or "." based on the last value of X.
N'<           e# Push a newline and "<".
'/X*          e# Include "/" or not depending on the last value of X.
3             e# Push a 3.

Brainfuck, 2766 bayt (şu anda geçersiz)

Sadece çünkü Sonradan ungolfed versiyonunu ekleyeceğim.

kod

>+<+[>[>[-]+<-]>[<+>>+[->,----------[<+>[>>>>>>>>>+<<<<<<<<<-]>>>>>>>>>[>+<<<<<<<<<<+>>>>>>>>>-]<<<<<<<<<[>>>>>>>>>+<<<<<<<<<-]]<]<-]>>>>>>>>>>>>>>[<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>-]<<<<<<<<<<<<<<<[>[-]+<-]>[<+>>>>>>>>>>>>[<<<<<<<<<<+>>>>>>>>>>-]>[<<<<<<<<<<+>>>>>>>>>>-]<<<<<<<<+++++++[<+++++++++++>-]<[<<[>>>>>>>>>>+<<<<<<<+<<<-]>>>[<<<+>>>-]<<[>>>>>>>>>+<<<<<<<+>+<<<-]>>>[<<<+>>>-]<[>>>>>>>>+[<<<<<<<+>+>>>>>>-]<<<<<<[>>>>>>+<<<<<<-]+<[>-<[-]]>[>>>>>+<<<<<-]<<-]<-]++++++[>++++++++<-]>-[<<[>>>>>>>>>+<<<<<<<<+<-]>[<+>-]>-]<<<[-]>[-]+++++[<+++++>-]<[>>>>>>>>>>>+[<<<<<<<<<<+>+>>>>>>>>>-]<<<<<<<<<[>>>>>>>>>+<<<<<<<<<-]+<[>-<[-]]>[>>>>>>>>+<<<<<<<<-]<<-]++++++[>>>>>>>>>>+++++++++<<<<<<<<<<-]>>>>>>>>>>[<<+<<<<<<<<+>>>>>>>>>>-]<<<<<<<<<<[>>>>>>>>>>+<<<<<<<<<<-]>>>>>>>[-]>[<+<<<<<<<+>>>>>>>>-]<<<<<<<<[>>>>>>>>+<<<<<<<<-]>>>>>>>>>[-]++++++++++++++++++++<<[<<<+>>>-]>>[<<<<<<<<+>+<<+>>>>>>>>>-]<<<<<<<<<[>>>>>>>>>+<<<<<<<<<-]>>[>>[<+<<<+>>>>-]<<<<[>>>>+<<<<-]+>>>[<<->>>-<<<<->>>[-]]<<<[>>[-]+<<-]>>-]>>[>>>-<<<[-]]<<<[-]>>>>>>>>[-]<[>+<<<<<<<<<+>>>>>>>>-]<<<<<<<<[>>>>>>>>+<<<<<<<<-]>>>>>>>>>>>>[-]+++<<<[<<<<<+>>>>>-]>>>[<<<<<<<<<<<+>+<<+>>>>>>>>>>>>-]<<<<<<<<<<<<[>>>>>>>>>>>>+<<<<<<<<<<<<-]>>[>>[<+<<<+>>>>-]<<<<[>>>>+<<<<-]+>>>[<<->>>-<<<<->>>[-]]<<<[>>[-]+<<-]>>-]<[>>>>>>>>-<<<<<<<<[-]]>>>[-]>>>[<<<<<<<+>>>>>>>-]<<<<<<<[>>>>>>>-<<<<<<<[-]]>>>>>>>>>[<<<<<<<<<+>+>>>>>>>>-]<<<<<<<<[>>>>>>>>+<<<<<<<<-]<[>>>>>>>[-]-<<<<<<<[-]]>>>>>>>[>>>>>>+<<<<<<<<<<<<<<<->>>>>>>>>[-]]<<<<<<<<-]>>>>>>>>>>>>>>>[<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>-]<<<<<<<<<<<<<<<<[>[-]+<-]>[<+>>+++++++++++[>+++++++>++++++++++>+++++++++>+++>++++<<<<<-]>-.>+.+++++++.>++.<---.>>-.<<------.>.>>++...[-]<[-]<[-]<[-]<[-]<++++++++++.[-]>>>>>>>[-]>[<+<<<<<<<+>>>>>>>>-]<<<<<<<<[>>>>>>>>+<<<<<<<<-]>>>>>>>->[-]<[>+<-][-]>[<+<<<<<<<+>>>>>>>>-]<<<<<<<<[>>>>>>>>+<<<<<<<<-]>>>>>>>>>[-]<<[<<<<<<+>>>>>>-]->>[<<<<<<<<-<+>>>>>>>>>-]<<<<<<<<<[>>>>>>>>>+<<<<<<<<<-]>[>>>>>>+<<<<<<[-]]<->>>>>>>[<<<<<<<->>>>>>>-]<<<<<<<[>>>>>>>+<<<<<<<-]>>>>>>>[>>>>>>>>+<<<<<<<<<<<<<<<<<->>>>>>>>>[-]]<<<<<<<<-]<[>[-]+<-]>[<+>>++++++[>++++++++++<-]>.---------.[-]<<<-<->>-]>>>>>>>>>>>>>>>>[<<<<<<<<<<<<<<<<<+>>>>>>>>>>>>>>>>>-]<<<<<<<<<<<<<<<<<[>[-]+<-]>[<+>>+++++++++++[>+++++++>++++++++++>+++++++++>+++>++++<<<<<-]>-.>+.+++++++.>++.<---.>>-.<<------.>.>.<<+.+.+++++.>>>++...[-]<[-]<[-]<[-]<[-]<++++++++++.[-]>>>>>>>[-]>[<+<<<<<<<+>>>>>>>>-]<<<<<<<<[>>>>>>>>+<<<<<<<<-]>>>>>>>->[-]<[>+<-][-]>[<+<<<<<<<+>>>>>>>>-]<<<<<<<<[>>>>>>>>+<<<<<<<<-]>>>>>>>>>[-]<<[<<<<<<+>>>>>>-]->>[<<<<<<<<-<+>>>>>>>>>-]<<<<<<<<<[>>>>>>>>>+<<<<<<<<<-]>[>>>>>>+<<<<<<[-]]<->>>>>>>[<<<<<<<->>>>>>>-]<<<<<<<[>>>>>>>+<<<<<<<-]>>>>>>>[>>>>>>>+<<<<<<<<<<<<<<<<->>>>>>>>>[-]]<<<<<<<<-]<[>[-]+<-]>[<+>>++++++[>++++++++++<-]>.-------------.++++.<<<<->>-]<<]

pseudocode

loop
    get a random byte
until random byte is >2 and <21

point to byte
[
    output "Loves me..."
    decrease byte by 1
    if byte is 0
        output "<3"
        exit
    eif
    output "Loves me not..."
    decrease byte by 1
]
output "</3"

Numune

Çalıştırıldığında, program girişi bekleyen etkileşimli bir oturuma girer. Giriş bir sayı olmalıdır. Bu sayı bir tohum olarak kullanılır.

Tohum: 1 (rastgele sayı 5, 218.158.042 işlem alıyor)

1              
Loves me...    
Loves me not...
Loves me...    
Loves me not...
Loves me...    
<3             

Tohum: 3 (rastgele sayı 20, 463,253,048 işlem alır)

3
Loves me...
Loves me not...
(...)
Loves me...
Loves me not...
</3

Sonucu hesaplamanızı öneririm 6, çünkü 2,105,900,375sonucu hesaplamak için yinelemeler yapılır :).

Derleme / Çalıştırma

Bunun için hızlı bir tercümana ihtiyacınız var. Test ettiğim hiçbir çevrimiçi tercüman çalıştırma hızını kaldıramaz. İps (saniye başına yineleme) daha fazla olmalıdır 100,000,000. Bu yüzden başka bir çözüm buldum.

Bu, Brainfuck'ta yazılmış, C'ye derleyici olan bir Brainfuck. Sen kullanmanızı öneririz saf C. I kodumu transpile için herhangi bir çevrimiçi tercüman kullanabilirsiniz brainfuck.tk . Kodumu stdin girişine yapıştırın, bu kodu kod girişine yapıştırın:

+++[>+++++<-]>>+<[>>++++>++>+++++>+++++>+>>+<++[++<]>---]>++++.>>>.+++++.>------.<--.+++++++++.>+.+.<<<<---.[>]<<.<<<.-------.>++++.<+++++.+.>-----.>+.<++++.>>++.>-----.<<<-----.+++++.-------.<--.<<<.>>>.<<+.>------.-..--.+++.-----<++.<--[>+<-]>>>>>--.--.<++++.>>-.<<<.>>>--.>.<<<<-----.>----.++++++++.----<+.+++++++++>>--.+.++<<<<.[>]<.>>,[>>+++[<+++++++>-]<[<[-[-<]]>>[>]<-]<[<+++++>-[<+++>-[<-->-[<+++>-[<++++[>[->>]<[>>]<<-]>[<+++>-[<--->-[<++++>-[<+++[>[-[-[-[->>]]]]<[>>]<<-]>[<+>-[<->-[<++>-[<[-]>-]]]]]]]]]]]]]<[-[-[>+<-]>]<[<<<<.>+++.+.+++.-------.>---.++.<.>-.++<<<<.[>]>>>>>>>>>]<[[<]>++.--[>]>>>>>>>>]<[<<++..-->>>>>>]<[<<..>>>>>]<[<<..-.+>>>>]<[<<++..---.+>>>]<[<<<.>>.>>>>>]<[<<<<-----.+++++>.----.+++.+>---.<<<-.[>]>]<[<<<<.-----.>++++.<++.+++>----.>---.<<<.-[>]]<[<<<<<----.>>.<<.+++++.>>>+.++>.>>]<.>]>,]<<<<<.<+.>++++.<----.>>---.<<<-.>>>+.>.>.[<]>++.[>]<.>[.---->.---,....]

Kaynağı indirin ve derleyin:

gcc.exe -c main.c -o main.o
gcc.exe main.o -o loveme.exe

Ayrıca çevrimiçi olarak C kodunun bir kopyasını da çalıştırabilirsiniz: via. CodingGround .

optimizasyonları

Hala yapılacak bazı işler var, ancak hücrenin yeniden kullanımı neredeyse en uygun seviyede.

Uyarılar

Kelimeleri veya cümleleri tohum olarak kullanabilirsiniz:

Programming Puzzles & Code Golf
Loves me...
Loves me not...
Loves me...
Loves me not...
Loves me...
Loves me not...
Loves me...
Loves me not...
Loves me...
Loves me not...
Loves me...
Loves me not...
Loves me...
Loves me not...
Loves me...
Loves me not...
Loves me...
<3

Javascript (ES6), 119 104 99 98 bayt

for(i=new Date%18+3,s=i&1?`!
<3`:`.
</3`;i--;)s=`...
Loves me`+(i&1?' not':'')+s
alert(s.slice(4))

Python, 147

from random import*;t=randint(3,20)
print"\n".join("LLoovveess  mmee  n o t"[i%2::2].strip()+"..."*(i<t-1)for i in range(t))+"!.\n\n<<3/ 3"[t%2::2]

Kullanımları from random import*yerine import randomve randintyerine randrangebirkaç byte kaydedin. Muhtemelen golf oynamak için bazı baytlar kalmıştır.

Javascript (ES6), 110 102 bayt

a='';for(i=j=new Date%18+3;i--;)a+='Loves me'+(j-i&1?'':' not')+(i?`...
`:j&1?`!
<3`:`.
</3`);alert(a)

Bu kısa ama eğlenceli küçük bir meydan okumaydı. Daha fazla kısaltmak mümkün olabilir. Bazı bayt tasarruf püf noktaları için Mwr247'ye teşekkürler!

repeat()105 bayt kullanan alternatif sürüm :

a='';for(i=j=new Date%18+3;i;)a+='Loves me'+' not'.repeat(j-i--&1)+(i?`...
`:j&1?`!
<3`:`.
</3`);alert(a)

Darn JS 5 + -char yerleşik isimler. Oh iyi. Önerilerinizi bekliyoruz!

Perl, 85

print$_?'...
':'','Loves me',$c=$_%2?' not':''for 0..3+rand 18;print$c?'.
</3':'!
<3'

Ruby, 91 bayt

(n=3+rand(18)).times{|i|puts"Loves me"+[""," not"][i%2]+(i<n-1?"...":i%2>0?".
</3":"!
<3")}

Ortak Lisp 106 104 bayt

(format t"~{Loves me~[ not~]~#[~:*~[.~%</~;!~%<~]3~:;...~]~%~}"(subseq'#1=(1 0 . #1#)0(+ 3(random 18))))

Bu, yalnızca uygun bir sırayı (örn. Cmucl, sbcl, clisp) kontrol etmeyen lisp'ler üzerinde çalışır, ccl, varsayılan güvenlik seviyesinde daireselliği kontrol eder ve hata verir. ecl sonsuza dek döngüde kalacak.

Açıklama:

#1=(1 0 . #1#)ihtiva eden bir yuvarlak bir liste üretir, 1ve 0ve subsequzunluğu [3,20] listesini (bu şekilde, sadece taşınabilir olmayan parçası yapmak için kullanılan subseqsadece (örneğin, dairesel olmayan) listelerinde çalışmak için standart gereklidir).

Formatımız şimdi bir 1 0 1 0...uzunluk listesi üzerinde çalışıyor [3,20]

formatYönergelerin açıklaması :

~{ bu listeyi tekrar eder

~[ve ardından herhangi bir sayı ~;ile sonlandırılırsa ~], format argümanının değerini temel alarak Nth öğesini seçer. Bu, burada bir ~[irade içindeki ilk maddenin “beni sevmiyor” davası ve ikincisi “beni seviyor” olacağı için kullanılır. ~[Bir ayırıcıyla birlikte ~:;varsayılan bir durum seçildiğini unutmayın.

~#[~[argüman hariç gibi çalışır , kalan argüman sayısıdır. 0 kalan argüman sonunda olduğumuz anlamına gelir, varsayılan durum yazdırmaktır...

~:* argüman listesini bir konum yedekler, bu da doğru karavanı basmamızı sağlar.

Julia, 98 bayt

r=rand(3:20)
for i=1:r println("Loves me"*(i%2>0?" not":"")*(i<r?"...":i%2>0?".\n</3":"!\n<3"))end

Ungolfed:

# Define a random number 3 ≤ r ≤ 20
r = rand(3:20)

for i = 1:r
    # The loveless lines occur when i is even
    println("Loves me" *
            (i % 2 > 0 ? " not" : "") *
            (i < r ? "..." : i % 2 > 0 ? ".\n</3" : "!\n<3"))
end

UNIX kabuğu, 193 bayt

t=$(seq 2 19|shuf|head -1)
l=t
p=...
while [ $t -ge 0 ];do
case $l:$t in t:0)p=!;h=\<3;;f:0)p=.;h=\</3;;esac
case $l in t)l=f;n=;; f)l=t;n=\ not;;esac
t=$((t-1))
echo Loves me$n$p
done
echo $h

Java, 210 209 203 200 177 bayt

• çevrilmiş i%2==0içini%2<1
• Döngü { ... }için kesilmiş parantez for, hareketlie bildirimi döngüye
• yeniden sipariş edilen şartlamalar
• kaldırılmış değiştiricileri ve gereksiz parantezleri, elden geçirilmiş Randomkullanım ve artışi

Not: Bu sitede biçimlendirme için aşağıya newline eklenir, yukarıdaki sayı tek satırdır.

class F{public static void main(String[]a){for(int e=3+(int)(Math.random()*18),i=0;++i<=e;)
System.out.println("Loves me"+(i%2>0?i<e?"...":"!\n<3":" not."+(i<e?"..":"\n</3")));}}

Ungolfed:

class F {
    public static void main(String[] a) {
        for (int e = 3 + (int) (Math.random() * 18), i = 0; ++i <= e; )
            System.out.println("Loves me" + (i % 2 > 0 ? i < e ? "..." : "!\n<3"
                    : " not." + (i < e ? ".." : "\n</3")));
    }
}

C, 123, 121, 109 106 karakter (108 bayt)

(biraz ♥♥♥ hile ile ♥♥♥)

O;main(o){for(o=time(O)%18+3;o-O++;printf("Loves me%s%s\n",O&1?"":" not",o-O?"...":O%2?"!\n♥":".\n</3"));}

Ayrıca 1f494'te kırılmış bir kalp Unicode noktası var, ancak onu uygulayan bir yazı tipi bulmakta zorluk çektim.

Python 2, 161 159 156 144 bayt

from random import*;a=randrange(3,21)
for i in range(a):print'Loves me'+i%2*' not'+('...'if i!=a-1 else'.'if i%2 else'!')
print['<3','</3'][i%2]

Bu sadece rastgele sayıyı almak için 39 bayt.

Çamurlu deniz hayvanlarına , fryamtheeggman'a ve orlp'e yardımları için teşekkür ederim .

PYG , 109 bayt

a=RR(3,21)
for i in R(a):P('Loves me'+i%2*' not'+('...'if i!=a-1 else'.'if i%2 else'!'))
P(['<3','</3'][i%2])

PowerShell, 121 119 111 Bayt

$i=2..19|Random;1..$i|%{"Loves me$(if(!($_%2)){" not"})..."};"Loves me$(if(!($i%2)){"!`n<"}else{" not.`n</"})3"

_{Düzenleme - aslında "Loves me"beyan etmek yerine açıkça belirtilmesi daha kısadır$l}

_{Edit2 - for()boru hatları ile golf döngüleri olabilir unuttum ... durr ...}

O kadar da eski püskü değil. $(...)Basılı dizgiyi dinamik olarak ayarlamak için satır içi kod yürütme bloklarını kullanır for(). Bunun bir kaç baytı kurtarmak için Get-önünde bir örtülü kullanması nedeniyle Random, bunun bazı PowerShell sürümlerinde son derece yavaş çalışabileceğini unutmayın. Referans

Açıklama için aşağıda genişletilmiş:

# Create a collection of (2,3,4,...18,19) and pipe it as input to Get-Random
$i = 2..19 | Get-Random

# Create a collection of (1,2,...$i-1,$i) and pipe it to seed a ForEach-Object loop
1..$i | ForEach-Object {
  if(!($_%2)) {
    # If the input number is even, we're on an even line
    Write-Output "Loves me not..."
  }
  Else {
    # The input number is odd
    Write-Output "Loves me..."
  }
}
If(!($i%2)) {
  # Our random number is odd
  Write-Output "Loves me!"
  Write-Output "<3"
}
Else {
  # Our random number is even
  Write-Output "Loves me not."
  Write-Output "</3"
}

C ++ 210 193 184 168 bayt

C ++ da .. çünkü .. Neden olmasın? :)

#include <iostream>
main(){auto&c=std::cout;srand(time(0));int i,j=3+rand()%18;while(i++<j)c<<"Loves me"<<(i%2?"":" not")<<(i==j?"":"...\n");c<<(j%2?"!\n<3":".\n</3");}

Canlı: 210 193 184 168

Umarım değişikliklerimden herhangi birinin platforma bağlı olmadığını umuyorum.

Yardım için Ben Voigt'e teşekkürler . Ayrıca tüm yorumlar sayesinde çok yardımcı oldular.

Groovy, 110 bayt

Harika bir aşk türü:

int r=Math.random()*18;print((0..r+2).collect{"Loves me"+" not"*(it%2)}.join('...\n')+['!\n<3','.\n</3'][r%2])

Python 2, 117 bayt

from random import*
n=randint(3,20)
print"...\n".join("Loves me"+i%2*" not"for i in range(n))+[".\n</3","!\n<3"][n%2]

Sonuncusu hariç her Loves me( not)?birinin ...ve yeni bir satırın geldiğini gözlemleyin . Yani bu bir işe benziyor join.

R, 141 132 128 114 111 109 bayt

kod

k=sample(3:23,1);for(i in 1:k)cat("Loves",c("me not...\n","me...\n","me not.\n</3","me!\n<3")[1+i%%2+2*!i<k])

Ungolfed

k <- sample(3:23, 1)        # Generates random "k" number from 3 to 23
for(i in 1:k) {             # Loop this block increasing i from 1 until k by 1
  cat                       # Concatenate and paste everything inside this block
  ("Loves",                 # Push "Loves" on every iterations of the loop
      c(                    # Create a vector of strings
        "me not...\n",      # Push string to the index "1" of vector
        "me...\n",          #   to the index "2"
        "me not.\n</3",     #   to the index "3"
        "me!\n<3"           #   to the index "4"
        )[1+i%%2            # Subset the vector by the index (1 or 2)
          +2*!i<k])}        #   if final iteration of loop then index += 2 (3 or 4)

Eric Brooks kodundan ilham aldım .

Düzenleme 1: Şimdi kod, Martin'nin işaret ettiği gibi son noktalama işaretini doğru şekilde verir
Düzenleme 2: for döngüsünü saf bir şekilde değiştirdi ve kalpleri son satır dizisine dahil etti.
Düzenleme 3: Kaldırılan {}ve değiştirilen +(x==k)*2için +2*!x<k
Edit 4: döngü için Geri kaldırıldı ()gelen (i%%2)+1
Edit 5: Yazdı me4 kez kaldırıldısep=""

R, 119 111 105 bayt

x<-sample(3:20,1);cat(rep(c("Loves me...\n","Loves me not...\n"),x)[1:x]);cat(ifelse(x%%2==1,"<3","</3"))

Düzenlemeler 1,2: İki seçeneğin kodlanması açıkça yer tasarrufu sağlıyor.

C 226 bayt

#include<stdio.h>
#include<stdlib.h>
#include<time.h>
void main(){srand(time(NULL));int i=rand()%18+3;int j;for(j=0;j<i;j++)printf("Loves me%s%s\n",(j%2)?" not":"",(j==i-1)?(j%2)?".":"!":"...");printf("<%s3\n",(j%2)?"":"/");}

(Biçimlendirme ile)

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

int main() {
    srand(time(NULL));
    int i = rand()%18 + 3;
    int j;
    for (j = 0; j < i; j++)
        printf("Loves me%s%s\n", (j % 2) ? " not" : "", (j==i-1) ? (j % 2) ? "." : "!" : "...");
    printf("<%s3\n", (j%2) ? "" : "/");
    return 0;
}

Python 2, 115 bayt

from random import*
n=randint(2,20)
print'...\n'.join('Loves me'+i%2*' not'for i in range(n))+'.!\n\n<</33'[n%2::2]

PHP, 191 187 146 165 Bayt

$x=rand(5,22);for($i=2;++$i<=$x;){echo"\nLoves me";if($i%2<1)echo" not";if($i<$x)echo"...";if($i==$x&&$i%2<1){echo".\n</3\n";}elseif($i==$x&&$i%2>0){echo"!\n<3\n";}}

Ungolfed:

$x=rand(5,22);
for($i=2;++$i<=$x;){
    echo "\nLoves me";
    if($i%2<1) echo " not";
    if($i<$x) echo "...";
    if($i==$x && $i%2<1){
        echo ".\n</3\n";
    }
    elseif($i==$x && $i%2>0){
        echo "!\n<3\n";
    }
}

Pyth ve cjam için 48,49 bayt ... vay :)

mSL, 178 176 156 154 bayt

Düzenleme 1: Değiştirildi == 0için < 1
Edit 2: Kaldırılan gereksiz boşluk, teşekkürler Alexa!
Düzen 3: Kaldırılan parantezler

alias l {
var %n 1
while %n <= $rand(3,20) {
var %m $+(Love me,$iif($calc(%n % 2) < 1,$chr(32) $+ not),...)
echo %m
inc %n
}
echo $iif(n isin %m,</3,<3)
}

Perl, 97 bayt

$_='She loves me...
'x(3+rand 18);s/(me.*?)me/$1me not/gs;s/e...
$/e!
<3/;s/t...
$/t.
<\/3/;print

Okunabilir sürüm:

$_="She loves me...\n"x(3+rand 18);
s/(me.*?)me/$1me not/gs;
s/e...$/e!\n<3/;
s/t...$/t.\n<\/3/;
print

Hassium , 265 Bayt

func main(){rnd=new Random();times=rnd.next(3,21);println("Loves me...");for(x=0;x<times-1;x++){if(x%2==0)println("Loves me not...");else println("Loves me...");}if((times-1)%2==0){println("Loves me not.");println("</3");}else{println("Loves me!");println("<3");}}

Cevap golf oynadı.

C # (160)

Kod esinlenerek cevap dan HJK , kredi ona gider.

class P{static void Main(){for(int e=3+new Random().Next(0,18),i=0;++i<=e;)Console.WriteLine("Loves me"+(i%2>0?i<e?"...":"!\n<3":" not."+(i<e?"..":"\n</3")));}}

Ungolfed:

class P
{
    private static void Main()
    {
        for (int e = 3 + new Random().Next(0, 18), i = 0; ++i <= e;)
            Console.WriteLine("Loves me" + (i % 2 > 0 ? i < e ? "..." : "!\n<3" : " not." + (i < e ? ".." : "\n</3")));
    }
}

Lua, 137 132 bayt

Muhtemelen çok daha fazla golf oynayabilir, ama şimdi burada:

t=math.random(3,20)for i=1,t do io.write(i%2==0 and"Loves me"or"Loves me not")print(i==t and(i%2==0 and"!\n<3"or".\n</3")or"...")end

Kod açıklaması ve asılsız olanlar:

t=math.random(3,20) --Generates a random number between 1 and 30. We need to assign it to a variable to check if the loop is over later.
for i=1,t do
  io.write(i%2==0 and"Loves me"or"Loves me not") --If i%2 is 0 write without a newline Loves me, if not print Loves me not.
  print(i==t and (i%2==0 and"!\n<3" or ".\n</3") or "...") --If it is not the end of the loop, put ..., else if we ended on an even print ! a newline, and then a heart, but if we ended on an odd put ., a newline and a broken heart :(
end

Düzenleme: Bir boşluk bıraktı.

Jöle , 55 byte (rekabet etmeyen?)

“¢zḞzƘFq»,;¥“ not”ṁ18X+2¤j“...¶”µċ⁷Ḃ©”/ẋ;3⁾¶<;®ị⁾.!¤;⁸;

Çevrimiçi deneyin!

Her zamanki gibi Jelly dizeleriyle berbat.

PowerShell , 85 88 bayt

+3 bayt teşekkürler Veskah: Bu iyi bir nokta.

0..(1..19|Random)|%{($l='Loves me')+' not'*($n=$_%2)+'...'}
$l+('!
<3',' not.
</3')[!$n]

Çevrimiçi deneyin!