Bir kedi programı oluşturun, yani girdi alan ve basan bir program.

... Bunun dışında, program rasgele karakterleri girişinizden uzağa alır ve bunun yerine yazdırır.

Girişteki her karakter, programla kaldırılmak için genellikle eşit oranlara sahip olmalıdır, ancak bunu yapmak zor olduğundan, her karakter için oran en çok% 10 değişebilir.

Programınız girişi almalı, ardından girişten karakterleri rasgele kaldırmalı ve ardından bu sürümü tekrar yazdırmalıdır. (Dilinizin yeni satırları yazdırması gerekebileceği durumlarda takip eden yeni satırlarla veya diğer karakterlerle yazdırabilirsiniz.)

Girdi olsaydı, BOOOWLtüm Os'ları eşit şansla kaldırmamalıydı: her karakter (benzersiz değil) düşünülmeli, bu nedenle 1/5 şansı olan her O'nun yerine (örneğin), her O'nun 1 olması gerekir. / 5 şans, bu yüzden yerine orada olmanın bir 1/5 şans BWLbir 1/5 şans olmalı BOWL, BOOWL.

Giriş, STDIN veya en yakın eşdeğeri ile sınırlıdır.

Her karakter olmalıdır % 10 minimum ve% 30 şans maksimum kaldırılmalıdır.

Her karakterin oranları ayrı ayrı hesaplanmalıdır.

Dilinizin herhangi bir bileşenini, işlev görür ya da başka bir şey yapıp, rastgele eylemleri destekleyerek kullanabilirsiniz.

Çıktı STDOUT ya da en yakın eşdeğerde olmalıdır. Dilinizde STDOUT varsa, hiçbir şekilde çıkış yapmayın. Diliniz metin olarak metin çıkarıyorsa, en yakın eşdeğerini kullanın (C'nin karakter dizisi çıktısı burada TAMAM).

Bu kod golfü. En kısa program kazanır.

Japt -f , 2 bayt

5ö

Bu -fbayrak "programı ilk girişteki her bir öğe üzerinde çalıştırır, bir truthy değeri döndürenlerin bir dizisini çıkarır." 5ö0 (dahil) ve 5 (özel) arasında rasgele bir sayı döndürür. JavaScript gibi, 0 da Japt’da sahtedir.

Dene

Python 3 , 63 bayt

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

Çevrimiçi deneyin!

Python 2 , 67 65 bayt

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

Çevrimiçi deneyin!

Her karakterin% 20 arı yetiştirme şansı düştü.

Farklı yaklaşım, aynı uzunluk:

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

Çevrimiçi deneyin!

Kömür , 4 bayt

ΦＳ‽⁵

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı bir versiyonudur. Açıklama:

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

Sen herhangi bir numarayı kullanabilirsiniz 4için 10şansını elde etmek 25%için 10%sırasıyla.

Befunge-98 (PyFunge) , 11 bayt

>#@~3j4???,

Çevrimiçi deneyin!

Her karakterin kaldırılma şansı% 25'tir. Bu karar üç ?talimatla verilir.

?program sayacını eşit olasılıkla dört yönden birine ayarlar. Bu durumda, yukarı ve aşağı aynı talimatlara geri sarılır, böylece bunları seçenek olarak görmezden gelebiliriz.

?S ormanından çıkmanın iki yolu vardır : sağa (çıkış) ve sola (çıkış yok). Bu durum, bu nedenle ortadan başlayarak ise, simetrik ?bir orada $p_2 = 1/2$ çıkış olarak şansı. Sağdan başlayarak eğer çıkışı şansı ?olan . Bu nedenle, bir karakteri okuduktan sonra, çıkıp çıkmayacağını belirlemek için en sağa atlarız .$p_3 = 1/2 * 1 + 1/2 * p_2 = 3/4$?

Octave , 23 bayt

Girdiyle aynı boyutta bir dizi oluşturur (Octave'deki dizeler karakter dizileridir), rastgele sayılardan büyük olup olmadığını kontrol eder 0.2ve ardından karakterleri karşılık gelen konumlara çıkarmak için mantıksal dizin oluşturma kullanır.

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

Çevrimiçi deneyin!

Jöle , 9 5 bayt

5X’µƇ

Çevrimiçi deneyin!

Jelly dizesini bağımsız değişken olarak alan ve işlenen Jelly dizesini döndüren bir monad. Tam bir program olarak kullanıldığında çıktıyı dolaylı olarak yazdırır. Her karakterin kaldırılma şansı% 20'dir.

açıklama

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

Japt , 3 bayt

Her karakterin çıkarılma şansı 1'de birdir. 5Arasındaki şey değiştirilebilir 4& 9dahil, ya Ailişkin 10oran değiştirmek için.

Æ5ö

Dene

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

Wolfram Dili (Mathematica) , 24 bayt

Select[RandomReal[]>.2&]

Çevrimiçi deneyin!

Girdi olarak bir karakter listesi alır. Her karakterin .2kaldırılma şansı var.

05AB1E , 5 4 bayt

ʒ₄Ω≠

@Grimy sayesinde -1 bayt .

Çevrimiçi deneyin veya aynı programı 10 kez çalıştırın .

Her karakterin bırakılma% 25 oranında değişmiştir.

Açıklama:

ʒ     # 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)

≠ayrıca olabilir _( ==0).

MATL , 9 bayt

t&n&r.2>)

Exaplanation:

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

Çevrimiçi deneyin!

Pyth , 8 5 bayt

sfO4Q

Çevrimiçi deneyin!

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

Önceki sürüm, 8 bayt:

s*Vm!!O4

Çevrimiçi deneyin!

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 bayt

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

Çevrimiçi deneyin!

Kurtulmayı başaramayacağım bir takım no-op'larım olduğu için beklediğimden daha uzun. Karakter bırakma şansı% 25'tir. Bunun tamam olduğunu varsayıyorum.

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

Çalıştırılmasını izle

Kısa açıklama:

• A|A bu, yığını başlatır, Tümünü gir, geri yansıt, Tümünü gir (sadece bir EOI -1)
• ;? yığının pop, EOI (-1) için test edin.
• _?@ eğer negatifse, teste geri yansıtın ve durduğunda bitin
• $D\rastgele yön belirleyicisine atla .
  • yön belirleyiciden 3 yön ofor çıkışa, sonra tekrar tekrar ilmeğe doğru ilerler, biri oyolunda özlüyor ve doğrudan döngüye gidiyor.

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

Anonim zımni önek işlevi. Her karakterin tamamen% 20 kaldırılması şansı var.

⊢⌿⍨4≥∘?5¨

Çevrimiçi deneyin!

5¨ her karakter için sıfır

? her karakter için rastgele tam sayı aralığı 1-5

4≥ 4 veya daha küçük olan tam sayılar için Boole maskesi

⊢⌿⍨ bu maskeyi kullanarak argümanı süz

Retina , 15 bayt

/./_?(`.

Çevrimiçi deneyin! Açıklama:

/./_

Her karakteri ayrı ayrı işleyin.

?(`

Rasgele bir değiştirme yapın. İlk ikame karakteri silerken, diğer üçü değişmeden bırakarak 25%karakteri silme şansını verir . Bu, ilave yeni satır çiftleri eklenerek gerektiği gibi azaltılabilir.

R , 32 23 bayt

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

Çevrimiçi deneyin!

Bir karakter vektörünü girdi olarak alan ve işlenmiş bir karakter vektörünü döndüren bir işlev. Her karakterin kaldırılma şansı% 20'dir.

7 bayt tasarrufunda yardımcı olmak için @Roland ve @Gieppeeppe'ye, ayrıca 2 tane daha @JDL'ye teşekkürler!

T-SQL 2012, 83 bayt

0 veya 1 karakter kaldırarak giriş boyunca sağdan sola döngü.

Her karakterin kaldırılması için% 25 şans.

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

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

Açıklama:

rand()*2stuffkomutta kullanılamayan bir kayan nokta döndürür .

Bu str, en yakın tam sayıya yuvarlama işleminden sonra bir değişkene dönüştürür. Şamandıra bir değişkene dönüştürülüyor (bu, stuffher ikisinde de üçüncü parametre olarak izin verilmiyor ).

Bu varchar% 25 '2',% 50 '1',% 25 '' 0 '' olma şansına sahiptir. 2'ye bölerek, sonuç olarak% 25 sonuç elde etme şansı vardır. Bu bölüm varchar'ı bir tam sayıya dönüştürür.

Tamsayı, stuffişlevde beklenen üçüncü parametredir .

Çevrimiçi deneyin

J , 10 bayt

#~5>6?@$~#

Çevrimiçi deneyin!

Adam'ın APL cevabına benzer şekilde, aslında ona bakmadan önce yazdım.

• 6.. $~ #Giriş uzunluğu alın #ve şekil $~uzun bir liste halinde numara 6.
• ?@Bu listedeki her altı kişiye bir kalıp gibi davranın ve yuvarlayın ?.
• >5Kalıp 5'ten az mı (olası değerler 0,5'tir)? Bir bit maskesi oluşturmak için bu boolean sonucu kullanın.
• #~ Girişi o maskeyle filtreleyin.

Perl 5 -p , 18 bayt

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

Çevrimiçi deneyin!

Her karakterin% 20 düşme şansı var.

Javascript,  46   44  51 bayt

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

Eklenen STDOUT gereksinimi nedeniyle +7 bayt

Birjolaxew'a -2 bayt teşekkür

orijinal cevap: STDOUT gereksinimi olmadan 44 bayt

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

Scala , 51 46 30 bayt

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

Çevrimiçi deneyin!

PS. Diğer birçok çözümde olduğu gibi, kömür düşürme olasılığı% 20'dir.

Güncelleştirme:

-5 bayt flatMap Option [String] yerine String kullanarak

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

Filtre kullanarak 30 bayt

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

C # (Visual C # Etkileşimli Derleyici) , 71 bayt

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

Çevrimiçi deneyin!

PHP , 43 42 bayt

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

Çevrimiçi deneyin!

Her karakterin kaldırılma şansı% 20'dir.

C (gcc) , 50 bayt

Bu program% 20 oranında bir mektup bırakma şansına sahiptir. Ne yazık ki rasgele sayı üreteci ekilmiyor, bu yüzden her çalıştırmada aynı diziyi elde ediyorsunuz. Temel olarak tek numara, EOF'deki döngüyü durdurmak için giriş karakterini tersine çevirmektir.

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

Çevrimiçi deneyin!

C (gcc) , 64 59 bayt

-5 bayt için ceilingcat sayesinde.

Eğer RNG her seferinde seribaşı istiyorsa.

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

Çevrimiçi deneyin!

Lua , 69 68 bayt

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

Çevrimiçi deneyin!

Çok basit, ama en kısa sürüm gibi görünüyor: karakterin üzerine stdin karakterini yineleyin ( io.lines… adında yanıltıcıdır), daha sonra rastgele değere göre bir ya da boş dize yazdırın (örneğin hiçbir şey).

Java

Sonlanmayan: 82 bayt

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

Sonlandırma (TIO): 105 bayt

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 bayt

_{-12 , GammaFunction sayesinde}

41 bayt: çevrimiçi deneyin!

Karakter dizisi girdi dönüştürür, sonra her eleman yazdırmaya çalışan co yemiş sürece tarafından, ((RANDOM%4))yanlış değerlendirmek!

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

53 bayt: çevrimiçi deneyin!

Dize uzunluğu üzerinde daha basit, ancak ayrıntılı bir yineleme.

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

Zsh , 50 bayt

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

Çevrimiçi deneyin!

RobLogic'in cevabına benzer, ancak giriş gereksinimlerini daha yakından takip etmek ve ters eğik çizgi içeren girişlerde çalışır.

"$(<&0)"yerine "<&0"veya $(<&0)ikisinin yerine geçmediği için ikincisi yenileri yer. -nEBayrakları çıkış sekansları olarak incelene tersbölüleri önlemek ve yeni satırlar yerleştirilmiş önlemek için gereklidir.

echo -nE

MathGolf , 5 bayt

æƒ√∞*

Çevrimiçi deneyin!

açıklama

æ       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

Her karakter, rastgele değere bağlı olarak 0 veya 1 kez tekrarlanır. Karekökten sonra beklenen değer değiştirildiğinden, her karakterin çıkarılma olasılığı% 25'tir.

Alternatif 5 bayt

gÉ;4w

Karakterleri [0, 4] 'te rasgele bir sayı ile filtreleyin. Filtrelemenin nasıl çalıştığı nedeniyle, 1 byte ekleyen filtre döngüsündeki gerçek karakteri atmam gerekiyor.

GFortran , 120 bayt

Çok kötü değil RAN(), sözde -random olan kullanım dışı fonksiyonu kullanırsak, yani her seferinde aynı sırayı alırsınız. Gfortran rasgele sayı üretmek için uygun yolu ile CALL RANDOM_SEED()ve CALL RANDOM_NUMBER(R)ancak bayt demek!

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

Çevrimiçi deneyin!

Oracle SQL, 133 bayt

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)

Girdi verilerinin t (x) tablosunda saklandığı varsayımıyla çalışır, örn.

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