Buat program kucing, alias program yang mengambil input dan mencetaknya.

... Kecuali, program ini akan secara acak mengambil karakter dari input Anda dan mencetaknya.

Setiap karakter dalam input harus memiliki peluang yang secara umum sama untuk dihapus dengan program, meskipun, karena sulit untuk membuatnya, peluang untuk setiap karakter dapat bervariasi paling banyak 10%.

Program Anda harus mengambil input, lalu menghapus karakter secara acak dari input, lalu mencetak versi itu lagi. (Anda dapat mencetak dengan mengikuti baris baru atau karakter lain jika bahasa Anda harus mencetak baris baru.)

Jika inputnya adalah BOOOWL, seharusnya tidak menghapus semua Os dengan peluang yang sama: setiap karakter (tidak unik) harus dipertimbangkan, jadi alih-alih setiap O yang digabungkan memiliki peluang 1/5 (misalnya), masing-masing O harus memiliki 1 / 5 kesempatan, jadi, bukannya ada menjadi 1/5 kesempatan BWL, harus ada 1/5 kesempatan BOWL, BOOWL.

Input dibatasi untuk STDIN atau yang setara terdekat.

Setiap karakter harus memiliki minimal 10% dan kesempatan maksimum 30% untuk dihapus.

Peluang setiap karakter harus dihitung secara individual.

Anda dapat menggunakan komponen apa pun dari bahasa Anda yang mendukung tindakan acak, baik itu fungsi atau lainnya.

Output harus melalui STDOUT atau yang setara terdekat. Jika bahasa Anda memiliki STDOUT, jangan output dengan cara lain apa pun. Jika bahasa Anda tidak dapat menampilkan string sebagai teks, gunakan setara terdekat (output array karakter C OK di sini).

Ini kode golf. Kemenangan program terpendek.

Japt -f , 2 byte

5ö

The -fbendera "menjalankan program pada setiap elemen pada input pertama, keluaran array mereka yang mengembalikan nilai truthy." 5ömengembalikan angka acak antara 0 (inklusif) dan 5 (eksklusif). Seperti JavaScript, 0 salah di Japt.

Cobalah

Python 3 , 63 byte

from random import*
for c in input():print(end=c[random()<.2:])

Cobalah online!

Python 2 , 67 65 byte

from random import*
print''.join(c for c in input()if.8>random())

Cobalah online!

Setiap karakter memiliki peluang 20% ​​untuk jatuh.

Pendekatan berbeda, panjangnya sama:

from random import*
print''.join(c[random()<.2:]for c in input())

Cobalah online!

Arang , 4 byte

ΦＳ‽⁵

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Penjelasan:

 Ｓ      Input a string
Φ       Filter where nonzero
  ‽⁵    Random number 0..4
        Implicitly print

Anda dapat menggunakan nomor apapun dari 4ke 10untuk mendapatkan peluang 25%untuk 10%masing-masing.

Befunge-98 (PyFunge) , 11 byte

>#@~3j4???,

Cobalah online!

Setiap karakter memiliki peluang 25% untuk dihapus. Keputusan ini dibuat berdasarkan tiga ?instruksi.

?mengatur penghitung program ke salah satu dari empat arah, dengan probabilitas yang sama. Dalam hal ini, bungkus atas & bawah kembali ke instruksi yang sama, sehingga kita dapat mengabaikannya sebagai opsi.

??$p_2 = 1/2$?$p_3 = 1/2 * 1 + 1/2 * p_2 = 3/4$?

Oktaf , 23 byte

Menghasilkan array dengan ukuran yang sama dengan input (string dalam Oktaf adalah array karakter), memeriksa setiap angka acak apakah lebih besar dari 0.2dan kemudian menggunakan pengindeksan logis untuk mengekstraksi karakter pada posisi yang sesuai.

@(s)s(rand(size(s))>.2)

Cobalah online!

Jelly , 9 5 byte

5X’µƇ

Cobalah online!

Monad yang menggunakan string Jelly sebagai argumennya dan mengembalikan string Jelly yang diproses. Ketika digunakan sebagai program lengkap, secara implisit mencetak hasilnya. Setiap karakter memiliki peluang 20% ​​untuk dihapus.

Penjelasan

   µƇ | Filter using the following as a monad for each character:
5X    | - Random number between 1 and 5
  ’   | - Decreased by 1

Japt , 3 byte

Setiap karakter memiliki peluang 1 dalam 5 dihapus. The 5dapat diubah ke apapun antara 4& 9, inklusif, atau Auntuk 10mengubah peluang.

Æ5ö

Cobalah

Æ5ö     :Implicit input of string
Æ       :Filter by
 5ö     :  Random integer in the range [0,5), with 0 being falsey

Bahasa Wolfram (Mathematica) , 24 byte

Select[RandomReal[]>.2&]

Cobalah online!

Mengambil daftar karakter sebagai input. Setiap karakter memiliki .2peluang untuk dihapus.

05AB1E , 5 4 byte

ʒ₄Ω≠

-1 byte terima kasih kepada @Grimy .

Cobalah online atau jalankan program yang sama 10 kali .

Setiap karakter memiliki perubahan 25% saat dijatuhkan.

Penjelasan:

ʒ     # Filter the characters of the (implicit) input-string by:
 ₄    #  Push 1000
  Ω   #  Pop and push a random digit from it
   ≠  #  And check that it's NOT 1 (!=1)
      # (after which the result is output implicitly)

≠bisa juga menjadi _( ==0).

MATL , 9 byte

t&n&r.2>)

Penjelajahan:

t         implicitly take input and duplicate it
 &n       compute the size of the input and...
   &r     generate a random array of that size
     .2>  check which entries of that array are greater than 0.2
        ) and use the result using logical indices to extract certain characters of the input

Cobalah online!

Pyth , 8 5 byte

sfO4Q

Cobalah online!

sfO4Q   Implicit: Q=eval(input())
 f  Q   Filter characters of Q where the following is truthy:
  O4      Random number in the range [0-4)
          Any non-zero value is truthy, so this will drop characters 25% of the time
s       Concatenate into string, implicit print

Versi sebelumnya, 8 byte:

s*Vm!!O4

Cobalah online!

s*Vm!!O4QQ   Implicit: Q=eval(input())
             Trailing QQ inferred
   m    Q    Map each character in Q using:
      O4       Choose random integer in [0-4)
    !!         Logical NOT twice - maps 0 to 0, anything else to 1
             The result is a list of 0s and 1s, with 0 having 25% chance to appear
 *V      Q   Vectorised multiplication of the above with Q
s            Concatenate into string, implicit print

Cubix , 20 byte

u$w\A|UDw@?;...>o._U

Cobalah online!

Lebih lama daripada yang saya harapkan karena saya memiliki sejumlah no-op yang sepertinya tidak bisa saya hilangkan. Peluang untuk menjatuhkan karakter adalah 25%. Saya menganggap ini baik-baik saja.

    u $
    w \
A | U D w @ ? ;
. . . > o . _ U
    . .
    . .

Lihat saja

Penjelasan singkat:

• A|A ini menginisialisasi tumpukan, Masukan semua, pantulkan kembali, Masukan semua (hanya EOI -1)
• ;? pop to of stack, uji untuk EOI (-1).
• _?@ jika negatif, refleksikan kembali ke tes dan akhiri
• $Dlompat \ke setter arah acak.
  • dari setter arah, 3 arah mengarah ke ooutput lalu kembali ke loop, satu meleset odi jalur itu dan langsung ke loop.

APL (dzaima / APL) , 10 9 byte ^SBCS

Fungsi awalan diam-diam anonim. Setiap karakter memiliki peluang 20% ​​untuk dihapus.

⊢⌿⍨4≥∘?5¨

Cobalah online!

5¨ nol untuk setiap karakter

? rentang integer acak 1-5 untuk setiap karakter

4≥ Topeng Boolean untuk bilangan bulat yang kurang dari atau sama dengan 4

⊢⌿⍨ saring argumen menggunakan topeng itu

Retina , 15 byte

/./_?(`.

Cobalah online! Penjelasan:

/./_

Memproses setiap karakter secara individual.

?(`

Lakukan penggantian secara acak. Substitusi pertama menghapus karakter, sementara tiga lainnya membiarkannya tidak berubah, sehingga memberikan 25%kesempatan untuk menghapus karakter. Ini dapat dikurangi seperlunya dengan menambahkan pasangan baris baru.

R , 32 23 byte

function(x)x[rt(x,3)<1]

Cobalah online!

Fungsi mengambil vektor karakter sebagai input dan mengembalikan vektor karakter yang diproses. Setiap karakter memiliki peluang 20% ​​untuk dihapus.

Terima kasih kepada @Roland dan @Giueseppe karena membantu menghemat 7 byte, dan @JDL untuk 2 lebih lanjut!

T-SQL 2012, 83 byte

Looping melalui input dari kanan ke kiri menghapus 0 atau 1 karakter.

Kesempatan 25% untuk setiap karakter dihapus.

DECLARE @i varchar(max)='The cat ate my homework'

DECLARE @ int=len(@i)WHILE @>0SELECT
@i=stuff(@i,@,str(rand()*2)/2,''),@-=1PRINT @i

Penjelasan:

rand()*2mengembalikan float, yang tidak bisa digunakan dalam stuffperintah.

The strmengkonversi ini menjadi varchar setelah pembulatan ke angka terdekat. Float sedang dikonversi ke varchar (yang juga tidak diizinkan sebagai parameter ketiga stuff).

Varchar ini memiliki peluang 25% menjadi '2', 50% peluang menjadi '1', 25% peluang menjadi '0'. Dibagi dengan 2, ada kemungkinan hasil 25% menjadi 1. Divisi ini mengubah varchar menjadi integer.

Integer adalah parameter ketiga yang diharapkan dalam stufffungsi.

Cobalah online

J , 10 byte

#~5>6?@$~#

Cobalah online!

Mirip dengan jawaban APL Adam, meskipun saya benar-benar menulisnya sebelum melihatnya.

• 6.. $~ #Ambil panjang input #dan bentuk $~angka 6 ke dalam daftar yang panjang.
• ?@Perlakukan masing-masing enam dalam daftar itu sebagai dadu dan gulung ?.
• >5Apakah die kurang dari 5 (nilai yang mungkin adalah 0..5)? Gunakan hasil boolean itu untuk membuat topeng bit.
• #~ Saring input dengan mask itu.

Perl 5 -p , 18 byte

s/./.2<rand&&$&/ge

Cobalah online!

Setiap karakter memiliki peluang 20% ​​untuk dijatuhkan.

Javascript,  46   44  51 byte

i=>alert([...i].filter(c=>Math.random()>.2).join``)

+7 byte karena persyaratan STDOUT yang ditambahkan

-2 byte terima kasih kepada Birjolaxew

jawaban asli: 44 byte tanpa persyaratan STDOUT

i=>[...i].filter(c=>Math.random()>.2).join``

Scala , 51 46 30 byte

s=>s.flatMap(x=>if(math.random>.2)Some(x)else None)

Cobalah online!

PS. Seperti di banyak solusi lain, probabilitas menjatuhkan char adalah 20%.

Memperbarui:

-5 byte dengan menggunakan String sebagai ganti Option [String] di flatMap

s=>s.flatMap(x=>if(math.random>.2)x+""else "")

30 byte dengan menggunakan filter

s=>s.filter(x=>math.random>.2)

C # (Visual C # Interactive Compiler) , 71 byte

var y=new Random();foreach(var k in ReadLine())if(y.Next(5)<4)Write(k);

Cobalah online!

PHP , 43 42 byte

for(;''<$l=$argn[$i++];rand()%5&&print$l);

Cobalah online!

Setiap karakter memiliki 20% peluang untuk dihapus.

C (gcc) , 50 byte

Program ini memiliki peluang 20% ​​untuk menjatuhkan surat. Sayangnya generator angka acak tidak diunggulkan sehingga Anda mendapatkan urutan yang sama pada setiap putaran. Pada dasarnya satu-satunya trik adalah membalik karakter input untuk menghentikan loop pada EOF.

main(c){for(;c=~getchar();rand()%5&&putchar(~c));}

Cobalah online!

C (gcc) , 64 59 byte

Berkat ceilingcat untuk -5 byte.

Jika Anda ingin RNG diunggulkan di setiap putaran.

main(c){for(srand(&c);c=~getchar();rand()%5&&putchar(~c));}

Cobalah online!

Lua , 69 68 byte

for c in io.lines(nil,1)do io.write(math.random()>.2 and c or '')end

Cobalah online!

Agak langsung, tetapi tampaknya versi terpendek: iterate over stdin char oleh char (dengan io.lines... nama itu menyesatkan), kemudian berdasarkan nilai acak baik cetak satu atau string kosong (misalnya tidak ada).

Jawa

Non-terminating: 82 byte

v->{for(int i;;i=System.in.read(),System.out.print(Math.random()<.2?"":(char)i));}

Terminating (TIO): 105 byte

v->{var n=System.in;for(int i;n.available()>0;i=n.read(),System.out.print(Math.random()<.2?"":(char)i));}

Zsh , 53 41 byte

_{-12 , terima kasih untuk GammaFunction}

41 byte: coba online!

Mengonversi input ke array karakter, lalu mencoba untuk mencetak setiap elemen c, kecuali jika dimakan oleh ((RANDOM%4))evaluasi menjadi false!

for c (${(s::)1})((RANDOM%4))&&echo $c\\c

53 byte: coba online!

Iterasi yang lebih mudah, tetapi verbose, melebihi panjang string.

for ((;i<$#1;i++)){((RANDOM%4>0))&&echo "${1[i]}\c";}

Zsh , 50 byte

for c (${(s::)"$(<&0)"})
((RANDOM%5))&&echo -nE $c

Cobalah online!

Mirip dengan jawaban RobLogic, tetapi mengikuti persyaratan input lebih dekat, dan bekerja untuk input dengan garis miring terbalik.

"$(<&0)"bukannya "<&0"atau $(<&0)karena yang pertama tidak berfungsi dalam pergantian, dan yang kedua makan baris baru. The -nEbendera diperlukan untuk mencegah backslashes dari yang diuraikan sebagai escape sequence, dan untuk mencegah baris yang dimasukkan.

echo -nE

MathGolf , 5 byte

æƒ√∞*

Cobalah online!

Penjelasan

æ       foreach character...
 ƒ      random float in range [0,1)
  √     take square root (making P(x < 0.5) = 0.25)
   ∞    pop a, push 2*a
    *   repeat character int(x) times

Setiap karakter akan diulang 0 atau 1 kali, tergantung pada nilai acak. Karena nilai yang diharapkan setelah akar kuadrat digeser, ada kemungkinan 25% bahwa setiap karakter dihapus.

Alternatif 5-byter

gÉ;4w

Saring karakter dengan angka acak dalam [0, 4]. Karena cara kerja penyaringan, saya harus membuang karakter aktual dalam loop filter, yang menambahkan 1 byte.

GFortran , 120 byte

Tidak terlalu buruk, jika kita menggunakan RAN()fungsi yang sudah tidak digunakan lagi , yaitu pseudo -random, yaitu Anda mendapatkan urutan yang sama setiap kali. Cara yang tepat untuk menghasilkan angka acak di GFortran adalah dengan CALL RANDOM_SEED()dan CALL RANDOM_NUMBER(R)tapi itu banyak byte!

character(99)S;read(*,'(A)')S;do i=1,len_trim(S)
if(ran(0)*5.gt.1)then;write(*,'(A)',advance="no")S(i:i)
endif;enddo;end

Cobalah online!

Oracle SQL, 133 byte

select listagg(decode(sign(dbms_random.value-0.2),1,substr(x,level,1)))within group(order by level)from t connect by level<=length(x)

Ia bekerja dengan asumsi bahwa data input disimpan dalam tabel t (x), misalnya

with t(x) as (select 'The cat ate my homework' from dual)