รักฉันอย่ารักฉัน

เกมสำหรับเด็กที่เรียบง่ายนี้เก่า แต่ยังคงได้รับความนิยม เนื่องจากเราอาศัยอยู่ในศตวรรษที่ 21 ตอนนี้มาแปลงเป็นดิจิทัล!

สเปค

โปรแกรมต้องไม่มีการป้อนข้อมูลยกเว้นว่าคุณกำลังใช้ภาษาที่ไม่สามารถสร้างเมล็ดพันธุ์แบบสุ่มในกรณีนี้คุณจะได้รับอนุญาตให้รับเมล็ดเป็นอินพุต งานของคุณคือการเขียนโปรแกรมที่จะให้ผลลัพธ์แบบสุ่มรวม 3 ถึง 20 บรรทัดรวม: "รักฉัน ... " และ "รักฉันไม่ ... " ในทางกลับกันเช่นเดียวกับในเกม (และอีกหนึ่งบรรทัด; การอ่าน)

อย่างไรก็ตามมีข้อ จำกัด บางประการ แต่ละบรรทัดควรขึ้นบรรทัดใหม่ บรรทัดแรกต้องเป็น "รักฉัน ... " บรรทัดสุดท้าย (เช่น "รักฉัน" หรือ "ไม่รักฉันไม่ได้") ควรลงท้ายด้วยเครื่องหมายอัศเจรีย์หรือจุดเดียวตามลำดับ หลังจากบรรทัดสุดท้ายคุณจะต้องส่งออกทั้งหัวใจ ( <3) หรือหัวใจที่แตกสลาย ( </3) ในบรรทัดใหม่ขึ้นอยู่กับว่า "รักฉัน!" หรือ "รักฉันไม่ได้" เป็นประโยคสุดท้าย

อนุญาตให้มีช่องว่างต่อท้ายได้

ตัวอย่างผลลัพธ์

เอาท์พุท:

รักฉัน ...
ไม่
รักฉัน ...
รักฉัน... รักฉันไม่ ...
รักฉัน!
<3

เอาท์พุทอื่น:

รักฉัน ...
ไม่
รักฉัน ...
รักฉัน... ไม่รักฉัน
</ 3

นี่คือรหัสกอล์ฟดังนั้นรายการที่สั้นที่สุดชนะ!

ความท้าทายแรกของฉัน :) ขอให้โชคดี!

Pyth, 54 53 51 50 48 ไบต์

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

CJam, 53 50 49 ไบต์

ขอบคุณ Dennis ที่ช่วยประหยัด 1 ไบต์

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

ทดสอบที่นี่

คำอธิบาย

โค้ดจะดัมพ์สตริงเป็นบิตและส่วนบนสแต็กซึ่งถูกพิมพ์โดยอัตโนมัติเมื่อสิ้นสุดโปรแกรม:

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 ไบต์ (ปัจจุบันไม่ถูกต้อง)

เพียงเพราะว่า. ฉันจะเพิ่มเวอร์ชันที่ไม่อัปโหลดในภายหลัง

รหัส

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

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"

ตัวอย่าง

เมื่อรันโปรแกรมจะเข้าสู่เซสชันแบบโต้ตอบเพื่อรออินพุต อินพุตควรเป็นตัวเลข หมายเลขนี้ใช้เป็นเมล็ด

เมล็ดพันธุ์: 1 (หมายเลขสุ่มคือ 5 ใช้เวลา 218,168,042 การดำเนินการ)

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

เมล็ดพันธุ์: 3 (หมายเลขสุ่มคือ 20 ใช้การดำเนินการ 463,253,048 ครั้ง)

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

ฉันขอแนะนำว่าคุณไม่ได้เพาะเมล็ด6เพราะจะต้อง2,105,900,375คำนวณซ้ำเพื่อให้ได้ผลลัพธ์ :)

รวบรวม / วิ่ง

คุณต้องการล่ามที่รวดเร็วสำหรับเรื่องนี้ ไม่มีล่ามออนไลน์ที่ฉันทดสอบไม่สามารถรองรับความเร็วในการทำงาน IP ที่ (ซ้ำต่อวินาที) 100,000,000ควรจะมากกว่า ดังนั้นฉันจึงคิดวิธีแก้ปัญหาอื่น

นี่คือคอมไพเลอร์ Brainfuck ถึง C ที่เขียนใน Brainfuck คุณสามารถใช้ล่ามออนไลน์ใด ๆ ที่ transpile รหัสของฉันที่จะบริสุทธิ์ซีผมขอแนะนำให้ใช้brainfuck.tk วางรหัสของฉันในอินพุต stdin ผ่านโค้ดนี้ในการป้อนรหัส:

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

ดาวน์โหลดแหล่งที่มาและรวบรวม:

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

นอกจากนี้คุณยังสามารถเรียกใช้สำเนารหัส C ออนไลน์ได้ที่นี่: ผ่าน CodingGround

การเพิ่มประสิทธิภาพ

ยังคงมีงานที่ต้องทำ แต่เซลล์กลับมาใช้ใหม่เกือบจะดีที่สุด

หมายเหตุ

คุณสามารถใช้คำหรือวลีเป็นเมล็ด:

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 ไบต์

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]

ใช้from random import*แทนimport randomและrandintแทนที่จะrandrangeบันทึกสองสามไบต์ อาจมีบางไบต์เหลือที่จะตีกอล์ฟ

Javascript (ES6), 110 102 ไบต์

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

นี่เป็นความท้าทายเล็กน้อยที่สั้น แต่สนุก อาจเป็นไปได้ที่จะย่อให้สั้นลง ขอบคุณ Mwr247 สำหรับเทคนิคการประหยัดไบต์!

เวอร์ชันอื่นที่ใช้repeat()105 ไบต์:

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 ชื่อในตัว โอ้ดี ยินดีต้อนรับข้อเสนอแนะ!

Perl, 85

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

Ruby, 91 ไบต์

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

Lisp สามัญ106 104 ไบต์

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

ใช้งานได้เฉพาะกับ lisps ที่ไม่ตรวจสอบลำดับที่เหมาะสม (เช่น cmucl, sbcl, clisp) ccl จะตรวจสอบการเวียนและข้อผิดพลาดในระดับความปลอดภัยเริ่มต้น ecl จะวนซ้ำตลอดไป

คำอธิบาย:

#1=(1 0 . #1#)สร้างรายการวงกลมที่มี1และ0และsubseqใช้เพื่อสร้างรายการความยาว [3,20] (นี่เป็นเพียงส่วนที่ไม่สามารถพกพาsubseqได้เท่านั้นตามที่มาตรฐานกำหนดให้ทำงานกับรายการที่เหมาะสม (เช่นไม่ใช่วงกลม)

รูปแบบของเรากำลังทำงานในรายการ1 0 1 0...ความยาว [3,20]

คำอธิบายของformatคำสั่ง:

~{ วนซ้ำในรายการนี้

~[ตามด้วยหมายเลขใด ๆ~;และถูกยกเลิกด้วย~]จะเลือกรายการ Nth ตามค่าของอาร์กิวเมนต์รูปแบบ นี่ใช้ที่นี่เพื่อให้ไอเท็มแรกใน a ~[จะเป็นเคส "love me not" และอันที่สองเป็นเคส "love me" โปรดทราบว่าด้วย~[ตัวคั่นของ~:;เลือกกรณีเริ่มต้น

~#[ทำงานเหมือน~[ยกเว้นอาร์กิวเมนต์คือจำนวนของอาร์กิวเมนต์ที่เหลือ 0 อาร์กิวเมนต์ที่เหลือหมายความว่าเราอยู่ท้ายที่สุดกรณีเริ่มต้นคือการพิมพ์...

~:* สำรองรายการอาร์กิวเมนต์หนึ่งตำแหน่งซึ่งช่วยให้เราสามารถพิมพ์ตัวอย่างที่ถูกต้อง

Julia ขนาด 98 ไบต์

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 ขนาด 193 ไบต์

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 ไบต์

• พลิกi%2==0ไปที่i%2<1
• { ... }วงเล็บปีกกาที่ถูกตัดสำหรับfor-loop, ย้ายeการประกาศไปที่ลูป
• สั่งใหม่เงื่อนไข
• ลบตัวดัดแปลงและวงเล็บที่ไม่จำเป็นRandomการใช้งานที่ทำใหม่และการเพิ่มขึ้นสำหรับi

หมายเหตุ: มีการเพิ่มบรรทัดใหม่ด้านล่างสำหรับการจัดรูปแบบบนไซต์นี้การนับด้านบนใช้สำหรับบรรทัดเดียว

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 ตัวอักษร (108 ไบต์)

(โกงนิดหน่อย♥♥♥♥♥♥)

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"));}

นอกจากนี้ยังมีหัวใจที่แตกสลายจุด Unicode ที่ 1f494 แต่ฉันมีปัญหาในการหาตัวอักษรซึ่งการดำเนินการนั้น

Python 2, 161 159 156 144 ไบต์

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]

เป็น 39 ไบต์เพียงเพื่อให้ได้ตัวเลขสุ่ม

ขอบคุณมากสำหรับmuddyfish , fryamtheeggmanและorlpสำหรับความช่วยเหลือของพวกเขา

PYG , 109 ไบต์

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 ไบต์

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

_{แก้ไข - สั้นกว่าจริง ๆ เพื่อรวมไว้อย่างชัดเจน"Loves me"แทนที่จะประกาศ$l}

_{แก้ไข 2 - ลืมไปเลยว่าฉันสามารถตีfor()ห่วงได้โดยการวางท่อ ... durr ...}

ไม่โทรมเกินไป ใช้บล็อกการดำเนินการแบบอินไลน์$(...)เพื่อปรับสตริงที่พิมพ์แบบไดนามิกในขณะที่เรากำลังfor()-loop โปรดทราบว่าเนื่องจากการใช้งานนี้โดยปริยายGet-ในด้านหน้าของRandomเพื่อประหยัดไบต์คู่นี้อาจทำงานช้ามากในรุ่น PowerShell บางอย่าง การอ้างอิง

ขยายด้านล่างเพื่อความกระจ่าง:

# 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 ไบต์

ใน C ++ .. เพราะ .. ทำไมล่ะ :)

#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");}

มีชีวิต: 210 193 184 168

หวังว่าการเปลี่ยนแปลงใด ๆ ของฉันจะไม่ขึ้นอยู่กับแพลตฟอร์ม

ขอบคุณBen Voigtสำหรับความช่วยเหลือ ขอบคุณทุกความคิดเห็นพวกเขามีประโยชน์มาก

Groovy ขนาด 110 ไบต์

ความรักชนิดแรงกล้า:

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 ไบต์

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]

สังเกตว่าทุกคนLoves me( not)?ตามมาด้วย...และขึ้นบรรทัดใหม่ยกเว้นบรรทัดสุดท้าย joinดังนั้นลักษณะเช่นนี้งานสำหรับ

R, 141 132 128 114 111 109 ไบต์

รหัส

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

แก้ไข 1: ตอนนี้รหัสถูกต้องแสดงเครื่องหมายวรรคตอนสุดท้ายอย่างถูกต้องตามที่มาร์ติน
แก้ไข 2: เปลี่ยนสำหรับลูปเป็น sapply และรวมหัวใจภายในสตริงบรรทัดสุดท้าย
แก้ไข 3: ลบ{}และเปลี่ยน+(x==k)*2เป็น+2*!x<k
แก้ไข 4: กลับไปที่สำหรับลูปและลบออก()จาก(i%%2)+1
แก้ไข 5: เขียนme4 ครั้งและลบsep=""

R, 119 111 105 ไบต์

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"))

แก้ไข 1,2: การเข้ารหัสสองตัวเลือกอย่างชัดเจนคือประหยัดพื้นที่

C 226 ไบต์

#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)?"":"/");}

(พร้อมการจัดรูปแบบ)

#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 ไบต์

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 ไบต์

$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";
    }
}

48,49 ไบต์สำหรับ pyth และ cjam ... ว้าว :)

mSL, 178 176 156 154 ไบต์

แก้ไข 1: เปลี่ยน== 0เป็น< 1
แก้ไข 2: ลบช่องว่างที่ไม่จำเป็นออกขอบคุณ AlexA!
แก้ไข 3: ลบวงเล็บ

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 ไบต์

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

รุ่นที่อ่านได้:

$_="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

ฮัสเซียม , 265 ไบต์

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");}}

คำตอบได้รับการ golfed

C # (160)

รหัสได้แรงบันดาลใจจากคำตอบจากhjkเครดิตไปให้เขา

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 ไบต์

อาจจะสามารถเล่นกอล์ฟได้มากขึ้น แต่ตอนนี้เป็นตอนนี้:

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

คำอธิบายรหัสและไม่ได้รับเกียรติ:

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

แก้ไข: ตัดช่องว่างบางส่วนออก

Jelly , 55 ไบต์ (ไม่แข่งขัน)

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

ลองออนไลน์!

ตามปกติเยลลี่จะดูดกับสตริง

PowerShell , 85 88 ไบต์

+3 ไบต์ขอบคุณ Veskah: นั่นเป็นจุดที่ดี

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

ลองออนไลน์!