Beberapa orang di sini mungkin adalah pembaca XKCD yang rajin. Jadi, saya pikir saya akan menantang kalian untuk melakukan sesuatu yang bisa dilakukan Megan dengan mudah: membuat skrip yang menghasilkan ribuan perumpamaan yang meyakinkan tentang apa yang tidak bisa dilakukan komputer.

Skrip Anda

• Dapat ditulis dalam bahasa apa pun
• Harus kode-golf
• Harus mengambil input (pada stdinatau setara dengan bahasa Anda) pada jumlah perumpamaan yang akan dimuntahkan (Anda dapat menganggap ini tidak akan melebihi MAX_INTatau setara).
• Akan menampilkan sejumlah perumpamaan yang dibuat secara acak .

Perumpamaannya adalah sebagai berikut

• Dimulai dengan 'Computers will never '
• Berikutnya, salah satu dari 16 kata kerja bahasa Inggris unik yang dapat Anda pilih secara bebas untuk mengoptimalkan program Anda, tetapi harus menyertakan code-golfdan understand.
• Selanjutnya, salah satu dari 16 kata benda bahasa Inggris unik yang lagi-lagi, Anda dapat memilih dengan bebas untuk mengoptimalkan program Anda, tetapi harus menyertakan a saladdan an octopus.
• Selanjutnya, salah satu dari 16 klausa bahasa Inggris unik yang dapat Anda pilih secara bebas untuk mengoptimalkan program Anda, tetapi harus menyertakan for fundan after lunch.
• Berakhir dengan karakter baris baru ( \natau setara)

Jadi, misalnya, jika inputnya adalah 2, output yang valid adalah

Computers will never code-golf a salad for lunch
Computers will never hug a tree in vain

Ukuran program dihitung dalam byte, bukan karakter (jadi tidak ada unicode omong kosong). Tidak ada celah standar .

Ini adalah tantangan pertama saya, jadi jika saya harus membuat beberapa perubahan yang jelas, mohon komentar.

Sunting: Saya berpikir untuk mengurangi ukuran kamus dari jumlah byte, untuk mendorong kamus 'kompresi'. Saya akan melihat dari jawaban di masa depan jika ini layak; jika ya, Anda dapat mengandalkan bonus.

CJam, 238 232 (atau 209) byte

ri{'C"!fmQ$h/q6fW*LC*hBd11(kA>.TfqJ0++#<>A]XThJkY b~os;vMg_D-}zYX%_,PozNxe5_8`}$H;2IUZ]&$c+m~HJ*|!n\A^:W-*O\"V-/8Kg ,_b(N#M/1Zh6*%\#t22'#|\"BJN=Za2_.R"32f-96b28b" -"'{,W%+f=)/(\[G/~["for ""after "]\m*\(a\"a "f{\+}+\]{mr0=}%S*N}*

Ini menggunakan banyak kata kerja / kata benda / klausa dari jawaban yang sudah diposting tetapi beberapa juga baru. Saya telah mengkonversi basis karakter untuk mencukur beberapa byte tambahan.

String yang dikonversi dasar dapat di-golf 24 byte lebih (untuk mendapatkan solusi 209 byte ; Perhatikan bahwa Anda harus mempertimbangkan jumlah karakter alih-alih jumlah byte karena semua karakter memiliki kode ASCII kurang dari 255 tetapi situs masih menganggap beberapa memiliki kode unik ) tetapi saya ingin string hanya terdiri dari karakter ASCII yang dapat dicetak.

Hanya untuk referensi, berikut adalah versi 209 byte:

ri{'C"9óßÂ/ÃC eG?dcÅoø£gaC#Yä©Ï¡áq¶hm)ð­aâ%ØNo=óÏrbÁz´¾;q·u¬&ñ*±äô©@6W±U¹¥¢)·«Åx¶óV¬¬dhja¼ ª\"r[çË74Äãгî,ó3gÈ$AïL"32f-222b28b" -"'{,W%+f=)/(\[G/~["for ""after "]\m*\(a\"a "f{\+}+\]{mr0=}%S*N}*

Mengambil jumlah baris untuk dicetak dari STDIN seperti:

12

Keluaran:

Computers will never code-golf an octopus for fun
Computers will never code-golf a bag after za
Computers will never eat a hem after tip
Computers will never eat an octopus for tip
Computers will never get a fax for you
Computers will never dry a gym for za
Computers will never get a guy for tip
Computers will never do a pen for fun
Computers will never see a bar after you
Computers will never tax a pen for ex
Computers will never get a hem for lunch
Computers will never win a pen for ex

Cobalah online di sini

Inilah pendekatan yang sedikit berbeda:

Python, 368 308 297 byte

EDIT, saya benar-benar bermain golf kali ini. Memotong 60 karakter.

from random import*
from en import*
C=choice
v=["code-golf","understand","go","do"]
n=["salad","octopus","fun","lunch"]
for f,l in("verbs",v),("nouns",n):exec"l.append(str(C(wordnet.all_"+f+"()))[:-4]);"*12
exec'print"Computers will never",C(v),noun.article(C(n)),C(("for","after")),C(n);'*input()

Inilah trik golf yang paling saya banggakan:

for f,l in("all_verbs",v),("all_nouns",n):

Saya bahkan tidak tahu python bisa melakukan itu! Berikut penjelasan yang lebih sederhana:

for (a, b) in ((0, 1), (1, 2), (2, 3)):

menetapkan a dan b ke 0 dan 1, dan kemudian ke 1 dan 2, dan kemudian ke 2 dan 3.

Ini menggunakan linguistik perpustakaan NodeBox untuk menghasilkan daftar kata kerja / kata benda / klausa, dan kemudian secara acak memilih dari mereka.

Perpustakaan ini tidak terlalu bagus untuk menghasilkan kata-kata acak (karena itu 368 byte), tetapi hal yang menyenangkan tentang pendekatan ini adalah Anda mendapatkan beberapa perumpamaan meyakinkan yang cukup acak dengannya. Inilah yang saya maksud.

Computers will never attempt a syria for synchronization.
Computers will never understand a salad for change of mind.
Computers will never brim an electric company for synchronization.
Computers will never pivot a dusk for fun.
Computers will never bedaze an electric company for genus osmerus.
Computers will never brim a salad for vital principle.
Computers will never attempt an erythroxylum after lunch.
Computers will never understand an uuq for water birch.
Computers will never brim an ictiobus for change of mind.
Computers will never brim an ictiobus for 17.
Computers will never lie in an octopus for change of mind.
Computers will never happen upon a toothpowder for water birch.
Computers will never typeset an electric company for change of mind.
Computers will never brim a french oceania after lunch.
Computers will never bring out an ictiobus for glossodia.
Computers will never bedazzle an animal fancier for ash cake.
Computers will never attempt a dusk for genus osmerus.
Computers will never understand an animal fancier for genus osmerus.
Computers will never accredit a prickly pear cactus for 17.
Computers will never typeset an erythroxylum for water birch.

Tapi, hei, saya tidak berpikir program orang lain akan menghasilkan pepatah: "Komputer tidak akan pernah membedakan peternak hewan untuk kue abu."

Berikut adalah versi yang tidak dikoleksi (574 bytes):

import random
import en

v = ["code-golf", "understand"]#list of verbs
n = ["a salad", "an octopus"]#list of nouns
c = ["for fun", "after lunch"]#list of clauses
for i in range(14):
    v.append(str(random.choice(en.wordnet.all_verbs()))[:-4])
    n.append(en.noun.article(str(random.choice(en.wordnet.all_nouns()))[:-4]))
    c.append("for "+str(random.choice(en.wordnet.all_verbs()))[:-4])

N=input("Enter the number of reassuring phrases you want: ")
for i in range(N):
    print "Computers will never"+' '+random.choice(v)+' '+random.choice(n)+' '+random.choice(c )+'.' 

Dan yang terakhir tapi pasti yang tidak kalah pentingnya, berikut adalah beberapa perumpamaan meyakinkan favorit saya, yang saya prediksi akan menjadi frase-catch catch yang sangat populer dalam 10-15 tahun ke depan.

Computers will never move around a methenamine for godwin austen.
Computers will never conk an adzuki bean for bitterwood tree.
Computers will never jaywalk a cross-dresser for fun.
Computers will never hyperbolize an accessory after the fact for norfolk island pine.
Computers will never dissolve a salad for earth wax.
Computers will never acetylise an incontrovertibility for dictatorship.
Computers will never reciprocate a strizostedion vitreum glaucum for commelinaceae.
Computers will never goose an action replay for star chamber.
Computers will never veto a bottom lurkers for jackboot.
Computers will never reciprocate a visual cortex for oleaginousness.
Computers will never baptise a special relativity after lunch.
Computers will never understand a gipsywort for citrus tangelo.
Computers will never get it a brand-name drug for electronic computer.
Computers will never deforest a paperboy after lunch.
Computers will never bundle up a nazi for repurchase.
Computers will never elapse a bernhard riemann for counterproposal.

dan favorit pribadi saya:

Computers will never romanticise a cockatoo parrot for cross-fertilization.

JavaScript ES6, 331 336 byte

n=prompt(a='')
r=s=>s+Math.random()*16>>0
p=q=>'OctopusSaladCutCueBatJamKidPenDogFanHemDotTaxSowDyeDigCode-golfUnderstandLunchFunMeYouUsItAdsPaZaMenTwoIceJamWarRumWax'.match(/[A-Z][^A-Z]+/g)[q].toLowerCase()
while(n-->0)y=r(0),z=r(18),a+=`Computers will never ${p(r(2))} a${y?'':'n'} ${p(y)} ${z<18?'afte':'fo'}r ${p(z)}
`
alert(a)

n=prompt()
a=''
function r(s){return s+Math.random()*16>>0}
function p(q){return' '+'OctopusSaladCutCueBatJamKidPenDogFanHemDotTaxSowDyeDigCode-golf\
UnderstandLunchFunMeYouUsItAds\
PaZaMenTwoIceJamWarRumWax'.match(/[A-Z][^A-Z]+/g)[q].toLowerCase()}
while(n-->0)
  y=r(0),z=r(18),
  a+='Computers will never'+p(r(2))+(y?' a':' an')+p(y)+(z<18?' after':' for')+p(z)+'\n'
alert(a)

Saya memilih kata-kata yang berfungsi sebagai kata kerja dan kata benda untuk mempersingkat daftar, tetapi beri tahu saya jika itu tidak diizinkan. Cobalah di atas menggunakan Cuplikan Stack (Kode di sana telah diformat untuk menggunakan ES5) atau di http://jsfiddle.net/5eq4knp3/2/ . Berikut adalah contoh output:

Computers will never hem a cut for ads
Computers will never dot a pen after lunch
Computers will never code-golf a bat for free
Computers will never sow a dog for me
Computers will never cut an octopus for fun

Python - 390 385 383

from pylab import*
S=str.split
n=input()
while n:n-=1;i,j,k=randint(0,16,3);print"Computers will never",S("buy cut dry eat fax get pay rob see sue tax tow wax win code-golf understand")[i],"a"+"n"*(j<1),S("octopus salad bag bar bee bow boy bra dad fax gym guy hat man mom pet")[j],"for "*(k>2)+S("after lunch,naked,ever,fun,me,you,us,tip,gas,cash,air,oil,beer,love,food,dope",",")[k]

Output contoh acak:

Computers will never pay an octopus for oil
Computers will never cut a bra for beer
Computers will never eat a bee for us
Computers will never rob a pet for you
Computers will never tax a pet for tip
Computers will never buy a salad for cash
Computers will never sue a boy naked
Computers will never see a bar for you
Computers will never wax a bra for beer
Computers will never sue an octopus for us

Perl - 366

@w="Code-golfUnderstandBeDoTieSeeSawEatCutCapSitSetHateZapSipLoveSaladOctopusSeaBeeCatDogHatBatJobManLapCapRapMapDotAnt0fun1that1noon1work0good0sure0reason0nothing0you1you1lunch1all0me0nowToday1me"=~s/\d/("For ","After ")[$&]/reg=~/([A-Z][^A-Z]+)/g;print"Computers will never ".lc"$w[rand 16] a".$w[16+rand 16]=~s/^[AO]?/(n)[!$&]." $&"/re." $w[32+rand 16]
"for 1..<>

Ini tesnya:

$ perl ./parables.pl <<<3
Computers will never do an ant after noon
Computers will never do a lap after all
Computers will never love an octopus for sure

CJam, 353 317 301 byte

Saya menggunakan daftar kata Falko, untuk keadilan, sehingga satu-satunya perbedaan dalam golf adalah karena bahasa dan bukan isinya (saya mungkin mengubah daftar kata jika orang-orang mulai bermain golf konten juga).

"Computers will never ""buy
cut
dry
eat
fax
get
pay
rob
see
sue
tax
tow
wax
win
code-golf
understand"N/[" an octopus"" a ""salad
bag
bar
bee
bow
boy
bra
dad
fax
gym
guy
hat
man
mom
pet"{N/\f{\+}~]}:F~S["after lunch""naked""ever""for ""fun
me
you
us
tip
gas
cash
air
oil
beer
love
food
dope"Fm*m*m*mr0=

NetLogo, 396

Saya juga menggunakan daftar kata Falko, dengan dua pengecualian (yang tidak mengubah panjang program).

to f let a["after lunch""ever""alone"]type(word"Computers will never "one-of["buy""cut""dry""eat""fax""get""pay""rob""see""sue""tax""tow""wax""win""code-golf""understand"]" a"one-of["n ocotpus"" salad"" bag"" bar"" bee"" bow"" boy"" bun"" dad"" fax"" gym"" guy"" hat"" man"" mom"" pet"]" "one-of fput word"for "one-of["fun""me""you""us""tip""gas""cash""air""oil""beer""love""food""dope"]a"\n")end

Bergantung pada bagaimana Anda mendefinisikan "program", Anda dapat menghapus lima pertama dan tiga karakter terakhir, sehingga skor 388.