मेरे टर्मिनल में बारिश हो रही है!

Question

चुनौती का वर्णन

आपको टर्मिनल में बारिश का अनुकरण दिखाना होगा।

नीचे दिए गए उदाहरण में यादृच्छिक पर 100 रेनड्रॉप्स जोड़ने (डिफ़ॉल्ट यादृच्छिक फ़ंक्शन का उपयोग करें जो आपकी भाषा प्रदान करती है) समन्वय करती है, 0.2 सेकंड तक प्रतीक्षा करती है और फिर दिए गए समय समाप्त होने तक फिर से रीड्राविंग करती है। किसी भी चरित्र का उपयोग वर्षा की बूंद के प्रतिनिधित्व के लिए किया जा सकता है।

पैरामीटर

• सेकेंडों में पुनर्वितरण के बीच समय की प्रतीक्षा करें।
• समय जिसके लिए बारिश दिखाई देगी। यह पुनरावृत्तियों की संख्या का प्रतिनिधित्व करने वाला एक पूर्णांक है। [तो, शुद्ध समय जिसके लिए बारिश दिखाई देगी, यह पूर्णांक प्रतीक्षा समय से गुणा है]
• वर्षा समाप्त होने पर प्रदर्शित होने वाला संदेश। (यह केंद्रित किया जाना है)
• स्क्रीन पर प्रदर्शित होने वाली वर्षाबूंदों की संख्या।

नियम

• एक एकल बाइट का उपयोग बारिश की बूंद का प्रतिनिधित्व करने के लिए किया जाना चाहिए, और यह कुछ भी हो सकता है, यहां तक ​​कि बिल्लियों और कुत्ते भी।
• यह टर्मिनल आकार के लिए उत्तरदायी नहीं है जिसका अर्थ है कि आपको विभिन्न टर्मिनल आकारों के लिए बग को संभालना नहीं है। आप अपने दम पर टर्मिनल की चौड़ाई और ऊंचाई निर्दिष्ट कर सकते हैं।
• गोल्फिंग के मानक नियम लागू होते हैं।

कोड नमूना और आउटपुट

यह एक ungolfed संस्करण है जो अजगर 2.7 में ncurses का उपयोग करके लिखा गया है।

import curses
import random
import time

myscreen = curses.initscr()
curses.curs_set(0) # no cursor please 
HEIGHT, WIDTH = myscreen.getmaxyx() 
RAIN = '/' # this is what my rain drop looks like 
TIME = 10 

def make_it_rain(window, tot_time, msg, wait_time, num_drops):
    """
    window    :: curses window 
    time      :: Total time for which it rains
    msg       :: Message displayed when it stops raining
    wait_time :: Time between redrawing scene 
    num_drops :: Number of rain drops in the scene 
    """
    for _ in range(tot_time):
        for i in range(num_drops):
            x,y=random.randint(1, HEIGHT-2),random.randint(1,WIDTH-2)       
            window.addstr(x,y,RAIN)
        window.refresh()
        time.sleep(wait_time)
        window.erase()

    window.refresh()
    window.addstr(HEIGHT/2, int(WIDTH/2.7), msg)


if __name__ == '__main__':
    make_it_rain(myscreen, TIME, 'IT HAS STOPPED RAINING!', 0.2, 100)
    myscreen.getch()
    curses.endwin()

आउटपुट -

Comments

भविष्य में फिर से पोस्ट करने के बजाय मूल को संपादित करें। अगर लोगों को लगता है कि चश्मा स्पष्ट है तो वे इसे फिर से खोलने के लिए नामित करेंगे।

— गेहूं जादूगर

क्या पाठ को केंद्रित करना है? क्या यह बेतरतीब ढंग से बारिश हो रही है, बूंदों की प्रारंभिक स्थिति मायने रखती है? आप समय कैसे माप रहे हैं? मिलीसेकंड में, सेकंड, मिनट? "अतिरिक्त अंक" क्या है?

— मैजिक ऑक्टोपस Urn

यदि आप, ए । इकाइयों को निर्दिष्ट करते हैं। B. टर्मिनल आकार निर्दिष्ट करें या इसे इनपुट के रूप में लें। और सी। अतिरिक्त बिंदुओं के बारे में भाग निकालें; इस चुनौती को बेहतर तरीके से परिभाषित किया जाएगा।

— मैजिक ऑक्टोपस Urn

जब आप "यादृच्छिक" कहते हैं, तो क्या हम मान सकते हैं कि इसका अर्थ "समान रूप से यादृच्छिक" है ?

— डिजिटल ट्रामा

सैंडबॉक्स में 1 दिन अक्सर पर्याप्त नहीं होता है। याद रखें कि लोग यहां मनोरंजक और विविध समय-क्षेत्र से हैं - तत्काल प्रतिक्रिया की उम्मीद नहीं की जानी चाहिए।

— डिजिटल ट्रामा

Answer 1

MATL , 52 बाइट्स

xxx:"1GY.Xx2e3Z@25eHG>~47*cD]Xx12:~c!3G80yn-H/kZ"why

इस क्रम में इनपुट हैं: अपडेट, ड्रॉप्स की संख्या, संदेश, दोहराव की संख्या के बीच ठहराव। मॉनिटर का आकार 80 × 25 अक्षर (हार्ड-कोडेड) है।

GIF या ऐसा नहीं हुआ! (जानकारी के साथ उदाहरण 0.2, 100, 'THE END', 30)

या इसे MATL ऑनलाइन पर आज़माएं ।

व्याख्या

xxx      % Take first three inputs implicitly and delete them (but they get
         % copied into clipboard G)
:"       % Take fourth input implicitly. Repeat that many times
  1G     %   Push first input (pause time)
  Y.     %   Pause that many seconds
  Xx     %   Clear screen
  2e3    %   Push 2000 (number of chars in the monitor, 80*25)
  Z@     %   Push random permutation of the integers from 1 to 2000
  25e    %   Reshape as a 25×80 matrix, which contains the numbers from 1 to 2000
         %   in random positions
  HG     %   Push second input (number of drops)
  >~     %   Set numbers that are <= second input to 1, and the rest to 0
  47*c   %   Multiply by 47 (ASCII for '/') and convert to char. Char 0 will
         %   be displayed as a space
  D      %   Display
]        % End
Xx       % Clear screen
12:~     % Push row vector of twelve zeros
c!       % Convert to char and transpose. This will produce 12 lines containing
         % a space, to vertically center the message in the 25-row monitor
3G       % Push third input (message string)
80       % Push 80
yn       % Duplicate message string and push its length
-        % Subtract
H/k      % Divide by 2 and round down
Z"       % Push string of that many spaces, to horizontally center the message 
         % in the 80-column monitor
w        % Swap
h        % Concatenate horizontally
y        % Duplicate the column vector of 12 spaces to fill the monitor
         % Implicitly display

Comments

मुझे यह पसंद है कि यह कैसे खत्म होता है why:)

— tkellehe

@tkellehe मुझे आपकी प्रोफ़ाइल पर विवरण पसंद है :-)

— लुइस मेंडो

धन्यवाद। आपकी भाषा पढ़ने में बहुत मजेदार है। (हां, मैं आपके MATL जवाबों को लोलक कर रहा हूं )

— tkellehe

Answer 2

जावास्क्रिप्ट (ईएस 6), 268 261 बाइट्स

t=
(o,f,d,r,m,g=(r,_,x=Math.random()*78|0,y=Math.random()*9|0)=>r?g(r-(d[y][x]<`/`),d[y][x]=`/`):d.map(a=>a.join``).join`
`)=>i=setInterval(_=>o.data=f--?g(r,d=[...Array(9)].map(_=>[...` `.repeat(78)])):`



`+` `.repeat(40-m.length/2,clearInterval(i))+m,d*1e3)

<input id=f size=10 placeholder="# of frames"><input id=d placeholder="Interval between frames"><input id=r size=10 placeholder="# of raindrops"><input id=m placeholder="End message"><input type=button value=Go onclick=t(o.firstChild,+f.value,+d.value,+r.value,m.value)><pre id=o>&nbsp;

कम से कम मेरे ब्राउज़र पर, आउटपुट को "पूर्ण पृष्ठ" जाने के बिना स्टैक स्निपेट क्षेत्र में फिट करने के लिए डिज़ाइन किया गया है, इसलिए यदि आप 702 से अधिक वर्षाबूंदों के लिए पूछें तो यह दुर्घटनाग्रस्त हो जाएगा।

संपादित करें: मेरे आउटपुट क्षेत्र के रूप में एक टेक्स्ट नोड का उपयोग करके 7 बाइट्स सहेजे गए।

Comments

आप फ़ंक्शन को स्ट्रिंग के रूप में पास करके कुछ बाइट्स बचा सकते हैं setInterval। इसके अलावा, आप textContentइसके बजाय क्यों उपयोग करते हैं innerHTML?

— ल्यूक

@ L.Serné एक आंतरिक फ़ंक्शन का उपयोग करके मुझे बाहरी फ़ंक्शन में चर का उल्लेख करने की अनुमति देता है।

— नील

उफ़, मेरा बुरा, उस पर ध्यान नहीं गया।

— ल्यूक

Answer 3

आर, 196 192 185 बाइट्स

केवल एक नकली संस्करण जो मैंने विवरण के आधार पर लिखा था। उम्मीद है कि यह कुछ हद तक ओपी की तलाश में था।

@Plannapus की बदौलत कुछ बाइट्स बचाए।

f=function(w,t,m,n){for(i in 1:t){x=matrix(" ",100,23);x[sample(2300,n)]="/";cat("\f",rbind(x,"\n"),sep="");Sys.sleep(w)};cat("\f",g<-rep("\n",11),rep(" ",(100-nchar(m))/2),m,g,sep="")}

तर्क:

• w: फ्रेम के बीच समय का इंतजार करें
• t: तख्ते की कुल संख्या
• m: सीमा शुल्क संदेश
• n: बारिश की बूंदों की संख्या

उदाहरण

ऐसा क्यों लगता है कि यह ऊपर की ओर बारिश हो रही है?

संपादित करें: मुझे यह उल्लेख करना चाहिए कि यह मेरा अनुकूलित 23x100 वर्ण आर-स्टूडियो कंसोल है। आयामों को फ़ंक्शन में हार्डकोड किया गया है, लेकिन सिद्धांत रूप में कोई भी getOption("width")इसे कंसोल आकार में लचीला बनाने के लिए उपयोग कर सकता है ।

अनगढ़ और समझाया गया

f=function(w,t,m,n){
    for(i in 1:t){
        x=matrix(" ",100,23);             # Initialize matrix of console size
        x[sample(2300,n)]="/";            # Insert t randomly sampled "/"
        cat("\f",rbind(x,"\n"),sep="");   # Add newlines and print one frame
        Sys.sleep(w)                      # Sleep 
    };
    cat("\f",g<-rep("\n",11),rep(" ",(100-nchar(m))/2),m,g,sep="")  # Print centered msg
}

Comments

यह पूरी तरह से ठीक लग रहा है! +1 और मुझे नहीं लगता कि इसकी ऊपर की तरफ यह सिर्फ आपकी धारणा है

— hashcode55

@plannapus। एहसास rep()स्वचालित रूप से timesतर्क को फर्श करता है, इसलिए इसकी कोई आवश्यकता नहीं है। एक और 7 बाइट्स बचाए!

— बिलीवोब

बहुत अच्छा उपाय है। आप तर्कों को कार्य करने के लिए कंसोल आकार को धक्का देकर एक बाइट बचा सकते हैं (यदि यह अनुमति है); आप मैट्रिक्स को बेतरतीब ढंग से आबाद करने के runifबजाय एक और बाइट बचा सकते हैं sample। जैसे:f=function(w,t,m,n,x,y){for(i in 1:t){r=matrix(" ",x,y);r[runif(n)*x*y]="/";cat("\f",rbind(r,"\n"),sep="");Sys.sleep(w)};cat("\f",g<-rep("\n",y/2),rep(" ",(x-nchar(m))/2),m,g,sep="")}

— rturnbull

Answer 4

सी 160 बाइट्स

f(v,d,w,char *s){i,j;char c='/';for(i=0;i<v;i++){for(j=0;j<d;j++)printf("%*c",(rand()%100),c);fflush(stdout);sleep(w);}system("clear");printf("%*s\n",1000,s);}

v-Time the raindrops are visible in seconds.
d-Number of drops per iteration
w-Wait time in seconds, before the next iteration
s-String to be passed on once its done

Ungolfed संस्करण:

void f(int v, int d, int w,char *s)
{ 

   char c='/';
   for(int i=0;i<v;i++)
   { 
      for(int j=0;j<d;j++)
         printf("%*c",(rand()%100),c);

      fflush(stdout);
      sleep(w); 
   }   
   system("clear");
   printf("%*s\n", 1000,s);
}

v - 5 seconds
d - 100 drops
w - 1 second wait time
s - "Raining Blood" :)

Answer 5

आर, 163 चार

f=function(w,t,n,m){for(i in 1:t){cat("\f",sample(rep(c("/"," "),c(n,1920-n))),sep="");Sys.sleep(w)};cat("\f",g<-rep("\n",12),rep(" ",(80-nchar(m))/2),m,g,sep="")}

इंडेंट और न्यूलाइन्स के साथ:

f=function(w,t,n,m){
    for(i in 1:t){
        cat("\f",sample(rep(c("/"," "),c(n,1920-n))),sep="")
        Sys.sleep(w)
    }
    cat("\f",g<-rep("\n",12),rep(" ",(80-nchar(m))/2),m,g,sep="")
}

यह 80 कॉलम द्वारा 24 लाइनों के एक टर्मिनल आकार के लिए अनुकूलित है। wप्रतीक्षा समय, tफ़्रेमों nकी संख्या, वर्षावनों की संख्या और mअंतिम संदेश है।

यह अलग- अलग उपयोग में @ billywob के उत्तर से भिन्न होता है sample: यदि आउटपुट आकार छोड़ा जाता है, sampleतो इनपुट वेक्टर (यहां एक वेक्टर जिसमें बारिश की बूंदों की आवश्यक संख्या और रिक्त स्थान की एक समान संख्या होती है, इस तथ्य के लिए धन्यवाद देता timesहै) फ़ंक्शन repसदिश है)। जैसा कि वेक्टर का आकार स्क्रीन के आकार से बिल्कुल मेल खाता है, इसमें नई रूपरेखाओं को जोड़ने, या इसे एक मैट्रिक्स में मजबूर करने की आवश्यकता नहीं है।

Answer 6

नोडजेएस: 691 158 148 बाइट्स

संपादित करें

जैसा कि अनुरोध किया गया है, अतिरिक्त सुविधाओं को हटा दिया गया है और golf'd।

s=[];setInterval(()=>{s=s.slice(L='',9);for(;!L[30];)L+=' |'[Math.random()*10&1];s.unshift(L);console.log("\u001b[2J\u001b[0;0H"+s.join('\n'))},99)

नियम आकार के लिए उपेक्षा करते हैं, लेकिन इस संस्करण में पहले कुछ फ़्रेमों के लिए एक गड़बड़ शामिल है। यह 129 बाइट्स है।

s='';setInterval(()=>{for(s='\n'+s.slice(0,290);!s[300];)s=' |'[Math.random()*10&1]+s;console.log("\u001b[2J\u001b[0;0H"+s)},99)

---

पिछला उत्तर

शायद सबसे अच्छा गोल्फ नहीं है, लेकिन मैं थोड़ा दूर ले गया। इसमें वैकल्पिक हवा की दिशा और बारिश का कारक है।

node rain.js 0 0.3

var H=process.stdout.rows-2, W=process.stdout.columns,wnd=(arg=process.argv)[2]||0, rf=arg[3]||0.3, s=[];
let clr=()=>{ console.log("\u001b[2J\u001b[0;0H") }
let nc=()=>{ return ~~(Math.random()*1+rf) }
let nl=()=>{ L=[];for(i=0;i<W;i++)L.push(nc()); return L}
let itrl=(l)=>{ for(w=0;w<wnd;w++){l.pop();l.unshift(nc())}for(w=0;w>wnd;w--){l.shift();l.push(nc())};return l }
let itrs=()=>{ if(s.length>H)s.pop();s.unshift(nl());s.map(v=>itrl(v)) }
let d=(c,i)=>{if(!c)return ' ';if(i==H)return '*';if(wnd<0)return '/';if(wnd>0)return '\\';return '|'}
let drw=(s)=>{ console.log(s.map((v,i)=>{ return v.map(  c=>d(c,i)  ).join('') }).join('\r\n')) }
setInterval(()=>{itrs();clr();drw(s)},100)

इसका वेबम यहां काम करते देखें

Answer 7

नूडल , 44 बाइट्स को नॉनकंपेट करना

मेरे पास भाषा बनाने के लिए मेरी चीजों की सूची पर पाठ केंद्रित था ... लेकिन, मैं आलसी था और इस चुनौती के बाद तक नहीं जोड़ा। तो, यहाँ मैं प्रतिस्पर्धा नहीं कर रहा हूँ, लेकिन चुनौती के साथ मज़ेदार था :)

ØGQÆ×Øæ3/×Æ3I_ȥ⁻¤×⁺Æ1Ḷḋŀ÷25¶İÇæḍ€Æ1uụC¶×12⁺ß

कंसोल का आकार हार्ड कोड 25x50 है जो ऑनलाइन संपादक में अच्छा नहीं लगता है, लेकिन स्निपेट के लिए है।

कोशिश करो:)

---

यह काम किस प्रकार करता है

Ø                                            # Pushes all of the inputs from the stack directly back into the stdin since it is the first token.

 GQÆ×Ø                                       # Turns the seconds into milliseconds since can only delay by milliseconds.
 GQ                                          # Pushes on the string "GQ" onto the top of the stack.
   Æ                                         # Consumes from stdin the value in the front and pushes it onto the stack which is the number of seconds to delay.
    ×                                        # Multiplies the two items on top of the stack.
                                             # Since the top of the stack is a number, the second parameter will be converted into a number. But, this will fail for the string "GQ" therein treated as a base 98 number producing 1000.
     Ø                                       # Pops off the new value, and pushes it into the front of stdin.

      æ3/×Æ3I_ȥ⁻¤×⁺                          # Creates the correct amount of rain drops and spaces to be displayed in a 50x25 console.
      æ3                                     # Copies the forth parameter (the number of rain drops).
        /                                    # Pushes the character "/" as the rain drop character.
         ×                                   # Repeats the rain drop character the specified number of times provided.
          Æ3                                 # Consumes the number of rain drops from stdin.
            I_                               # Pushes the string "I_" onto the stack.
              ȥ                              # Converts the string into a number as if it were a base 98 number producing 25 * 50 = 1250.
               ⁻                             # Subtract 1250 - [number rain drops] to get the number of spaces.
                ¤                            # Pushes on the string "¤" which for Noodel is a space.
                 ×                           # Replicate the "¤" that number of times.
                  ⁺                          # Concatenate the spaces with the rain drops.

                   Æ1Ḷḋŀ÷25¬İÇæḍ€            # Handles the animation of the rain drops.
                   Æ1                        # Consumes and pushes on the number of times to loop the animation.
                     Ḷ                       # Pops off the number of times to loop and loops the following code that many times.
                      ḋ                      # Duplicate the string with the rain drops and spaces.
                       ŀ                     # Shuffle the string using Fisher-Yates algorithm.
                        ÷25                  # Divide it into 25 equal parts and push on an array containing those parts.
                           ¶                 # Pushes on the string "¶" which is a new line.
                            İ                # Join the array by the given character.
                             Ç               # Clear the screen and display the rain.
                              æ              # Copy what is on the front of stdin onto the stack which is the number of milliseconds to delay.
                               ḍ             # Delay for the specified number of milliseconds.
                                €            # End of the loop.

                                 Æ1uụC¶×12⁺ß # Creates the centered text that is displayed at the end.
                                 Æ1          # Pushes on the final output string.
                                   u         # Pushes on the string "u" onto the top.
                                    ụC       # Convert the string on the top of the stack to an integer (which will fail and default to base 98 which is 50) then center the input string based off of that width.
                                      ¶      # Push on a the string "¶" which is a new line.
                                       ×12   # Repeat it 12 times.
                                          ⁺  # Append the input string that has been centered to the new lines.
                                           ß # Clear the screen.
                                             # Implicitly push on what is on the top of the stack which is the final output.

---

<div id="noodel" code="ØGQÆ×Øæ3/×Æ3I_ȥ⁻¤×⁺Æ1Ḷḋŀ÷25¶İÇæḍ€Æ1uụC¶×12⁺ß" input='0.2, 50, "Game Over", 30' cols="50" rows="25"></div>

<script src="https://tkellehe.github.io/noodel/noodel-latest.js"></script>
<script src="https://tkellehe.github.io/noodel/ppcg.min.js"></script>

Comments

आह मेरे टूलबॉक्स में करने के लिए एक शांत भाषा है! वैसे भी, खुशी है कि आपको चुनौती पसंद है :) +1

— हैशकोड 55

Answer 8

रूबी + जीएनयू कोर यूटिल्स, 169 बाइट्स

फ़ंक्शन के पैरामीटर उस क्रम में प्रतीक्षा समय, पुनरावृत्तियों, संदेश और वर्षा की संख्या की संख्या हैं। पठनीयता के लिए नई कहानियाँ।

कोर Utils tputऔर के लिए आवश्यक थे clear।

->w,t,m,n{x=`tput cols`.to_i;z=x*h=`tput lines`.to_i
t.times{s=' '*z;[*0...z].sample(n).map{|i|s[i]=?/};puts`clear`+s;sleep w}
puts`clear`+$/*(h/2),' '*(x/2-m.size/2)+m}

Answer 9

पायथन 2.7, 254 251 बाइट्स

यह ncurses का उपयोग किए बिना मेरी अपनी कोशिश है।

from time import*;from random import*;u=range;y=randint
def m(t,m,w,n):
    for _ in u(t):
        r=[[' 'for _ in u(40)]for _ in u(40)]
        for i in u(n):r[y(0,39)][y(0,39)]='/'
        print'\n'.join(map(lambda k:' '.join(k),r));sleep(w);print '<esc>[2J'
    print' '*33+m

मुझे बाइट ठीक करने और बचाने के लिए @ErikTheOutgolfer का शुक्रिया।

Comments

आप forएक पंक्ति में लूप नहीं डाल सकते हैं (जैसे आपके पास है 40)];for i in u()। '[2J'मेरे विचार में आपको ESC char की भी आवश्यकता है। साथ ही, इसमें एक अतिरिक्त जगह थी u(n): r[y। मुझे नहीं पता कि आपने 249 की गिनती कैसे की। मुझे मिले सभी मुद्दे यहां तय किए गए थे ।

— आउटगॉल्फ

मेरे द्वारा पोस्ट किया गया कोड मेरे लिए काम कर रहा है। और हाँ, मैंने वास्तव में इसे गलत गिना था, मैंने सफेद इंडेंटेड स्पेस की गिनती नहीं की थी, मुझे इसके बारे में पता नहीं था। लिंक के लिए धन्यवाद! मैं इसे संपादित करूंगा।

— 55

@ EriktheOutgolfer ओह और हाँ उस ESC चार के बारे में, कोई बच अनुक्रम की जरूरत नहीं है। यह सिर्फ 'ईएससी [2 जे' को प्रभावी ढंग से प्रिंट करता है, जो स्क्रीन को साफ करने के लिए एनी एस्केप अनुक्रम है। हालांकि यह कर्सर स्थिति को रीसेट नहीं करता है।

— हैशकोड 55

आप इसे और भी अधिक बढ़ा सकते हैं :) लेकिन आपको अपने कोड के नीचे एक नोट जोड़ने की आवश्यकता है जो निर्दिष्ट करता है कि <esc>एक शाब्दिक 0x1B ईएससी बाइट को दर्शाता है। बाइट की गिनती 242 है , 246 नहीं है।

— एर्ग आउटफॉल्फ

@EriktheOutgolfer ओह धन्यवाद!

— 55

Answer 10

स्माइलबासिक, 114 बाइट्स

INPUT W,T,M$,N
FOR I=1TO T
VSYNC W*60CLS
FOR J=1TO N
LOCATE RND(50),RND(30)?7;
NEXT
NEXT
LOCATE 25-LEN(M$)/2,15?M$

कंसोल का आकार हमेशा 50 * 30 होता है।

Answer 11

पर्ल 5, 156 बाइट्स

154 बाइट्स कोड + 2 के लिए -pl।

$M=$_;$W=<>;$I=<>;$R=<>;$_=$"x8e3;{eval'$-=rand 8e3;s!.{$-}\K !/!;'x$R;print;select$a,$a,$a,$W;y!/! !;--$I&&redo}$-=3920-($l=length$M)/2;s;.{$-}\K.{$l};$M

160x50 के निश्चित आकार का उपयोग करता है।

इसे ऑनलाइन देखें!

---

पर्ल 5, 203 बाइट्स

201 बाइट्स कोड + 2 के लिए -pl।

$M=$_;$W=<>;$I=<>;$R=<>;$_=$"x($z=($x=`tput cols`)*($y=`tput lines`));{eval'$-=rand$z;s!.{$-}\K !/!;'x$R;print;select$a,$a,$a,$W;y!/! !;--$I&&redo}$-=$x*($y+!($y%2))/2-($l=length$M)/2;s;.{$-}\K.{$l};$M

tputटर्मिनल का आकार निर्धारित करने के लिए उपयोग करता है।