สร้างโปรแกรม cat หรือที่เรียกว่าโปรแกรมที่รับอินพุตและพิมพ์

... ยกเว้นโปรแกรมจะสุ่มตัวละครออกจากอินพุตของคุณและพิมพ์แทน

อักขระแต่ละตัวในอินพุตควรมีอัตราต่อรองที่เท่ากันโดยทั่วไปเพื่อลบออกด้วยโปรแกรม แต่เนื่องจากยากต่อการทำเช่นนั้นโอกาสสำหรับแต่ละอักขระอาจแตกต่างกันมากที่สุด 10%

โปรแกรมของคุณควรรับอินพุตจากนั้นสุ่มลบอักขระจากอินพุตจากนั้นพิมพ์เวอร์ชันนั้นอีกครั้ง (คุณสามารถพิมพ์ด้วยการขึ้นบรรทัดใหม่หรืออักขระอื่น ๆ ในกรณีที่ภาษาของคุณต้องพิมพ์บรรทัดใหม่)

หากอินพุตBOOOWLนั้นไม่ควรลบ Os ทั้งหมดที่มีโอกาสเท่ากัน: ควรพิจารณาตัวละครแต่ละตัว (ไม่ซ้ำกัน) ดังนั้นแทนที่จะเป็น O ทุกตัวที่มีโอกาส 1/5 (ตัวอย่าง) แต่ละ O ควรมี 1 / 5 โอกาสดังนั้นแทนที่จะมีการโอกาสที่ 1/5 ของBWLควรจะมีโอกาสที่ 1/5 ของ,BOWLBOOWL

อินพุตถูก จำกัด ที่ STDIN หรือเทียบเท่าที่ใกล้เคียงที่สุด

ตัวละครแต่ละตัวจะต้องมีอย่างน้อย 10% และมีโอกาสสูงสุดที่จะลบออกได้ 30%

อัตราต่อรองของตัวละครแต่ละตัวควรคำนวณแยกกัน

คุณสามารถใช้องค์ประกอบใด ๆ ในภาษาของคุณที่สนับสนุนการกระทำแบบสุ่มไม่ว่าจะเป็นฟังก์ชั่นหรืออย่างอื่น

เอาต์พุตจะต้องผ่าน STDOUT หรือใกล้เคียงที่สุด หากภาษาของคุณมี STDOUT อย่าส่งออกด้วยวิธีอื่นใด หากภาษาของคุณไม่สามารถส่งออกสตริงเป็นข้อความได้ให้ใช้การเทียบเท่าที่ใกล้เคียงที่สุด (เอาต์พุตอักขระอาร์เรย์ของ C ตกลงที่นี่)

นี่คือรหัสกอล์ฟ โปรแกรมที่สั้นที่สุดชนะ

Japtap -f , 2 ไบต์

5ö

การ-fตั้งค่าสถานะ "เรียกใช้โปรแกรมในแต่ละองค์ประกอบในอินพุตแรกส่งออกอาร์เรย์ขององค์ประกอบที่ส่งกลับค่าความจริง" 5öส่งกลับตัวเลขสุ่มระหว่าง 0 (รวม) และ 5 (พิเศษ) เช่นเดียวกับ JavaScript 0 เป็นเท็จใน Japt

ลองมัน

Python 3 , 63 ไบต์

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

ลองออนไลน์!

Python 2 , 67 65 ไบต์

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

ลองออนไลน์!

ตัวละครแต่ละตัวมีโอกาส 20% ที่ผึ้งจะหลุด

วิธีการที่แตกต่างกันความยาวเดียวกัน:

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

ลองออนไลน์!

ถ่าน 4 ไบต์

ΦＳ‽⁵

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

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

คุณสามารถใช้หมายเลขใด ๆ จาก4การ10ที่จะได้รับโอกาสในการ25%ไป10%ตามลำดับ

Befunge-98 (PyFunge) 11 ไบต์

>#@~3j4???,

ลองออนไลน์!

ตัวละครแต่ละตัวมีโอกาส 25% ที่จะถูกลบออก การตัดสินใจนี้ทำในสาม?คำแนะนำ

?กำหนดตัวนับโปรแกรมเป็นหนึ่งในสี่ทิศทางด้วยความน่าจะเป็นที่เท่ากัน ในกรณีนี้ขึ้นและลงกลับไปที่คำสั่งเดียวกันดังนั้นเราจึงไม่สนใจตัวเลือกเหล่านั้น

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

อ็อกเทฟ 23 ไบต์

สร้างอาร์เรย์ที่มีขนาดเดียวกับอินพุต (สตริงใน Octave คืออาร์เรย์อักขระ) ตรวจสอบตัวเลขสุ่มแต่ละตัวว่ามีค่ามากกว่า0.2หรือไม่จากนั้นใช้การทำดัชนีเชิงตรรกะเพื่อแยกอักขระที่ตำแหน่งที่สอดคล้องกัน

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

ลองออนไลน์!

เยลลี่ , 9 5 ไบต์

5X’µƇ

ลองออนไลน์!

Monad ที่รับสตริง Jelly เป็นอาร์กิวเมนต์และส่งคืนสตริง Jelly ประมวลผล เมื่อใช้เป็นโปรแกรมแบบเต็มจะพิมพ์ผลลัพธ์โดยนัย ตัวละครแต่ละตัวมีโอกาสที่จะถูกลบ 20%

คำอธิบาย

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

Japt , 3 ไบต์

ตัวละครแต่ละตัวมีโอกาส 1 ใน 5 ที่จะถูกลบออก 5สามารถเปลี่ยนเป็นอะไรระหว่าง4และ9รวมหรือAสำหรับ10การเปลี่ยนแปลงราคา

Æ5ö

ลองมัน

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

ภาษา Wolfram (Mathematica)ขนาด 24 ไบต์

Select[RandomReal[]>.2&]

ลองออนไลน์!

ใช้รายการอักขระเป็นอินพุต ตัวละครแต่ละตัวมี.2โอกาสที่จะถูกลบออก

05AB1E , 5 4 ไบต์

ʒ₄Ω≠

-1 ขอบคุณไบต์@Grimy

ลองมันออนไลน์หรือเรียกใช้โปรแกรมเดียวกัน 10 ครั้ง

ตัวละครแต่ละตัวมีการเปลี่ยนแปลงลดลง 25%

คำอธิบาย:

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

≠อาจเป็น_( ==0)

MATL , 9 ไบต์

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

ลองออนไลน์!

Pyth , 8 5 ไบต์

sfO4Q

ลองออนไลน์!

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

รุ่นก่อนหน้า 8 ไบต์:

s*Vm!!O4

ลองออนไลน์!

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

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

ลองออนไลน์!

นานกว่าที่ฉันคาดหวังเพราะฉันไม่มี ops จำนวนมากที่ฉันไม่สามารถกำจัดได้ โอกาสในการดรอปอักขระคือ 25% ฉันคิดว่ามันโอเค

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

ดูมันทำงาน

คำอธิบายสั้น ๆ :

• A|A สิ่งนี้เริ่มต้นสแต็ก, อินพุตทั้งหมด, สะท้อนกลับ, อินพุตทั้งหมด (เพียง EOI -1)
• ;? pop to of stack ทดสอบ EOI (-1)
• _?@ ถ้าเป็นลบให้สะท้อนกลับไปสู่การทดสอบและสิ้นสุดในการหยุด
• $Dกระโดด\เข้าไปใน setter ทิศทางแบบสุ่ม
  • จากตัวตั้งค่าทิศทาง, 3 ทิศทางนำไปสู่oสำหรับเอาต์พุตจากนั้นกลับเข้าไปในลูปหนึ่งจะพลาดoในพา ธ ของมันและตรงไปที่ลูป

APL (dzaima / APL) , 10 9 ไบต์^SBCS

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ ตัวละครแต่ละตัวมีโอกาสถูกลบ 20%

⊢⌿⍨4≥∘?5¨

ลองออนไลน์!

5¨ ศูนย์สำหรับอักขระแต่ละตัว

? จำนวนเต็มแบบสุ่มช่วง 1–5 สำหรับแต่ละอักขระ

4≥ บูลีนมาสก์สำหรับจำนวนเต็มที่น้อยกว่าหรือเท่ากับ 4

⊢⌿⍨ กรองอาร์กิวเมนต์โดยใช้หน้ากากนั้น

เรติน่า 15 ไบต์

/./_?(`.

ลองออนไลน์! คำอธิบาย:

/./_

ประมวลผลตัวละครแต่ละตัวเป็นรายบุคคล

?(`

ทำการทดแทนโดยการสุ่ม การทดแทนครั้งแรกจะลบตัวอักขระในขณะที่อีกสามตัวที่เหลือจะไม่เปลี่ยนแปลงดังนั้นจึงมี25%โอกาสในการลบตัวอักษร สิ่งนี้สามารถลดลงได้ตามความจำเป็นโดยต่อท้ายคู่บรรทัดใหม่เพิ่มเติม

R , 32 23 ไบต์

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

ลองออนไลน์!

ฟังก์ชันที่ใช้เวกเตอร์อักขระเป็นอินพุตและส่งคืนเวกเตอร์อักขระที่ประมวลผล ตัวละครแต่ละตัวมีโอกาสที่จะถูกลบ 20%

ขอบคุณ @Roland และ @Gi Portugueseppe ที่ช่วยประหยัดได้ 7 ไบต์และ @JDL สำหรับอีก 2!

T-SQL 2012, 83 ไบต์

วนลูปผ่านอินพุตจากขวาไปซ้ายการลบอักขระ 0 หรือ 1

โอกาส 25% สำหรับการลบตัวละครแต่ละตัว

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

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

คำอธิบาย:

rand()*2ส่งกลับทุ่นซึ่งไม่สามารถใช้ในstuffคำสั่ง

การstrแปลงนี้เป็น varchar หลังจากปัดเศษเป็นจำนวนเต็มที่ใกล้ที่สุด การลอยจะถูกแปลงเป็น varchar (ซึ่งไม่ได้รับอนุญาตเป็นพารามิเตอร์ที่สามในstuffอย่างใดอย่างหนึ่ง)

varchar นี้มีโอกาส 25% ที่จะเป็น '2' โอกาส 50% ที่จะเป็น '1' และโอกาส 25% ที่จะเป็น '0' การหารด้วย 2 จะมีโอกาส 25% ที่ผลลัพธ์จะเป็น 1 ส่วนนี้จะแปลง varchar ให้เป็นจำนวนเต็ม

จำนวนเต็มเป็นพารามิเตอร์ตัวที่สามที่คาดไว้ในstuffฟังก์ชั่น

ลองออนไลน์

J , 10 ไบต์

#~5>6?@$~#

ลองออนไลน์!

คล้ายกับคำตอบ APL ของอดัม แต่ฉันเขียนไว้จริง ๆ ก่อนที่จะดูเขา

• 6.. $~ #ใช้ความยาวของอินพุต#และจัดรูปร่าง$~หมายเลข 6 ลงในรายการที่มีความยาว
• ?@ปฏิบัติต่อกันหกในรายการที่เป็นตายและม้วน?มัน
• >5ตายน้อยกว่า 5 (ค่าที่เป็นไปได้คือ 0..5) หรือไม่ ใช้ผลบูลีนที่สร้างบิตมาสก์
• #~ กรองอินพุตด้วยมาสก์นั้น

Perl 5 -p , 18 ไบต์

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

ลองออนไลน์!

ตัวละครแต่ละตัวมีโอกาสถูกทิ้ง 20%

Javascript,  46   44  51 ไบต์

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

+7 ไบต์เนื่องจากข้อกำหนด STDOUT ที่เพิ่มเข้ามา

-2 ไบต์ขอบคุณ Birjolaxew

คำตอบเดิม: 44 ไบต์โดยไม่มีข้อกำหนด STDOUT

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

สกาลา , 51 46 30 ไบต์

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

ลองออนไลน์!

PS เช่นเดียวกับโซลูชันอื่น ๆ ความน่าจะเป็นที่จะทิ้งถ่านคือ 20%

ปรับปรุง:

-5 ไบต์โดยใช้ String แทน Option [String] ใน flatMap

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

30 ไบต์โดยใช้ตัวกรอง

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

C # (Visual C # Interactive คอมไพเลอร์) , 71 ไบต์

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

ลองออนไลน์!

PHP , 43 42 ไบต์

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

ลองออนไลน์!

ตัวละครแต่ละตัวมีโอกาส 20% ที่จะถูกลบออก

C (gcc) , 50 ไบต์

โปรแกรมนี้มีโอกาส 20% ที่จะส่งจดหมาย น่าเสียดายที่ตัวสร้างตัวเลขสุ่มไม่ได้ถูก seeded ดังนั้นคุณจะได้รับลำดับที่เหมือนกันในการวิ่งแต่ละครั้ง โดยพื้นฐานแล้วกลอุบายเพียงอย่างเดียวคือการคว่ำอักขระอินพุตเพื่อหยุดการวนซ้ำบน EOF

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

ลองออนไลน์!

C (gcc) , 64 59 ไบต์

ขอบคุณ ceilingcat สำหรับ -5 ไบต์

หากคุณต้องการ RNG seeded ในการรันแต่ละครั้ง

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

ลองออนไลน์!

Lua , 69 68 ไบต์

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

ลองออนไลน์!

ค่อนข้างตรงไปตรงมา แต่ดูเหมือนว่าจะเป็นเวอร์ชั่นที่สั้นที่สุด: วนซ้ำ stdin char โดย char (ด้วยio.lines…ชื่อนั้นทำให้เข้าใจผิด) จากนั้นตามค่าสุ่มไม่ว่าจะพิมพ์สตริงใดสตริงหนึ่งหรือเปล่า (เช่นไม่มีอะไร)

ชวา

ไม่สิ้นสุด: 82 ไบต์

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

การยุติ (TIO): 105 ไบต์

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

_{-12ขอบคุณ GammaFunction}

41 ไบต์: ลองออนไลน์!

แปลงอินพุตเป็นอาร์เรย์ของอักขระจากนั้นพยายามพิมพ์แต่ละองค์ประกอบcยกเว้นว่ามันถูกกินโดยการ((RANDOM%4))ประเมินเป็นเท็จ!

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

53 ไบต์: ลองออนไลน์!

ตรงไปตรงมามากขึ้น แต่ verbose ซ้ำผ่านสายยาว

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

Zsh , 50 ไบต์

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

ลองออนไลน์!

คล้ายกับคำตอบของ RobLogic แต่ทำตามข้อกำหนดอินพุตอย่างใกล้ชิดยิ่งขึ้นและทำงานกับอินพุตด้วยแบ็กสแลช

"$(<&0)"แทนที่จะเป็น"<&0"หรือ$(<&0)เพราะอันแรกไม่สามารถใช้แทนได้และอันที่สองกินบรรทัดใหม่ -nEธงที่มีความจำเป็นเพื่อป้องกันไม่ให้ทับขวาจากการถูกแยกวิเคราะห์เป็นลำดับหนีและเพื่อป้องกันการขึ้นบรรทัดใหม่ถูกแทรก

echo -nE

MathGolf 5 ไบต์

æƒ√∞*

ลองออนไลน์!

คำอธิบาย

æ       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

ตัวละครแต่ละตัวจะถูกทำซ้ำ 0 หรือ 1 ครั้งขึ้นอยู่กับค่าสุ่ม เนื่องจากค่าที่คาดไว้หลังรากที่สองจะถูกเลื่อนมีความน่าจะเป็น 25% ที่ตัวละครแต่ละตัวจะถูกลบออก

ทางเลือก 5-byter

gÉ;4w

กรองอักขระตามตัวเลขสุ่มใน [0, 4] เนื่องจากวิธีการทำงานของการกรองฉันจึงต้องละทิ้งอักขระจริงภายในลูปตัวกรองซึ่งเพิ่ม 1 ไบต์

GFortran , 120 ไบต์

ไม่เลวเกินไปถ้าเราใช้RAN()ฟังก์ชั่นที่เลิกใช้แล้วซึ่งเป็นแบบหลอก -สุ่มนั่นคือคุณจะได้รับลำดับที่เหมือนกันทุกครั้ง วิธีการที่เหมาะสมในการสร้างตัวเลขสุ่มใน gfortran อยู่กับCALL RANDOM_SEED()และCALL RANDOM_NUMBER(R)แต่ที่มากของไบต์!

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

ลองออนไลน์!

Oracle SQL, 133 ไบต์

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)

มันทำงานได้โดยมีสมมติฐานว่าข้อมูลอินพุตถูกเก็บไว้ในตาราง t (x) เช่น

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