Trong bất kỳ ngôn ngữ lập trình nào, hãy tạo một chương trình lấy đầu vào và tạo hiệu ứng cho văn bản được gõ trên bàn phím.

Độ trễ giữa mỗi ký tự sẽ khác nhau để mô phỏng việc gõ đúng trên bàn phím. Độ trễ sẽ là 0.1, 0.1, 0.5, 0.1, 0.1, 0.5 ...giây, cho đến khi ký tự cuối cùng được in. Đầu ra cuối cùng sẽ được để lại trên màn hình.

Bạn phải ghi đè lên dòng văn bản hiện tại mà bạn không thể in văn bản trên các hàng mới.

Ví dụ, đầu vào "Xin chào, PPCG! Tạm biệt Trái đất!" sẽ dẫn đến hoạt ảnh sau (lưu ý rằng tốc độ lấy mẫu của nhà sản xuất gif thấp, vì vậy kết quả thực sự hơi khác nhau):

Vì đây là mã golf, nên số byte nhỏ nhất sẽ thắng.

C 108 93 89 78 73 80 byte

f(char *s){for(int i=0;s[i];fflush(0),usleep(100000*(i++%3?1:5)))putchar(s[i]);}

Phiên bản bị đánh cắp:

 void f(char *s)
 {
  for( int i=0;s[i];)
  {
    putchar(s[i]);
    fflush(0);
    usleep(100000*(i++%3?1:5));
 }
}

@Kritixi Lithos @Metoniem Cảm ơn bạn đã đóng góp! lưu một số byte.

Bằng cách nào đó, chỉ int icho tôi một lỗi phân đoạn khi chạy, vì vậy tôi đã khởi tạo nó bằng 0.

Thạch , 13 byte

115D÷⁵ṁȮœS¥@"

Đây là một liên kết / chức năng đơn âm. Do đầu ra ngầm định, nó không hoạt động như một chương trình đầy đủ.

xác minh

Làm thế nào nó hoạt động

115D÷⁵ṁȮœS¥@"  Monadic link. Argument: s (string)

115            Set the return value to 115.
   D           Decimal; yield [1, 1, 5].
    ÷⁵         Divide all three integers by 10.
      ṁ        Mold; repeat the items of [0.1, 0.1, 0.5] as many times as
               necessary to match the length of s.
          ¥@"  Combine the two links to the left into a dyadic chain and apply it
               to each element in s and the corr. element of the last return value.
       Ȯ         Print the left argument of the chain (a character of s) and sleep
                 as many seconds as the right argument indicates (0.1 or 0.5).

MATLAB, 74 byte

c=input('');p=[1,1,5]/10;for i=c;fprintf('%s',i);p=p([2,3,1]);pause(p);end

Giải trình:

Tôi đã sử dụng khá nhiều thời gian để làm cho fprintfphiên bản ngắn hơn so disp()với clc. Bước đột phá là khi tôi phát hiện ra / nhớ rằng pausecó thể lấy một vectơ làm đối số, trong trường hợp đó nó sẽ chỉ chọn giá trị đầu tiên. Điều này làm cho nó có thể rời khỏi một quầy.

c=input('');    % Take input as 'Hello'
p=[.1,.1,.5];   % The various pause times

for i=c;            % For each of the characters in the input c
  fprintf('%s',i);  % Print the character i, without any trailing newline or whitespace
                    % No need to clear the screen, it will just append the new character 
                    % after the existing ones
  pause(p);         % pause for p(1) seconds. If the input to pause is a vector, 
                    % then it will choose the first value
  p=p([2,3,1]);     % Shift the pause times
end

Thời gian ngắn nhất tôi sử dụng displà 81 byte:

c=input('');p=[1,1,5]/10;for i=1:nnz(c),clc;disp(c(1:i));pause(p(mod(i,3)+1));end

JavaScript (ES6), 67 byte

f=(i,o,n=0)=>i[n]&&(o.data+=i[n],setTimeout(f,++n%3?100:500,i,o,n))

<form><input id=i><button onclick=f(i.value,o.firstChild)>Go!</button><pre id=o>

V , 20 19 18 byte

Lưu 1 byte nhờ @DJMcMayhem

lưu 1 byte bằng cách xóa òở cuối

òD1gÓulD1gÓulDgÓul

Vô duyên vô cùng, tôi biết, chính điều đó ukhiến tôi không thể sử dụng các vòng lặp lồng nhau.

Giải trình

Con trỏ bắt đầu ở phần đầu của bộ đệm, là ký tự đầu tiên của đầu vào.

ò                      " Start recursion
 D                     " Deletes everything from the cursor's position to the end of line
  1gÓ                  " Sleep for 100ms
     u                 " Undo (now the deletion is reverted)
      l                " Move cursor one to the right
       D1gÓul          " Do it again
             D         " Same as before but...
              gÓ       " Sleep for 500ms this time
                ul     " Then undo and move right
                       " Implicit ò

Gif sắp ra mắt ...

MATL , 16 byte

"@&htDTT5hX@)&Xx

Hãy thử nó tại MATL Online!

Giải trình

"        % Implicitly input string. For each char of it
  @      %   Push current char
  &h     %   Concatenate everything so far into a string
  tD     %   Duplicate and display
  TT5h   %   Push array [1 1 5]
  X@)    %   Get the k-th element modularly, where k is current iteration.
         %   So this gives 1, 1, 5 cyclically
  &Xx    %   Pause for that many tenths of a second and clear screen
         % Implicit end. Implicitly display the final string, again (screen
         % was deleted at the end of the last iteration)

Noodel , 18 byte

ʋ115ṡḶƙÞṡạḌ100.ṡ€ß

Thử nó:)

Làm thế nào nó hoạt động

                   # Input is automatically pushed to the stack.
ʋ                  # Vectorize the string into an array of characters.
 115               # Push on the string literal "115" to be used to create the delays.
    ṡ              # Swap the two items on the stack.

     ḶƙÞṡạḌ100.ṡ€  # The main loop for the animation.
     Ḷ             # Loops the following code based off of the length of the string.
      ƙ            # Push on the current iteration's element of the character array (essentially a foreach).
       Þ           # Pop off of the stack and push to the screen.
        ṡ          # Swap the string "115" and he array of characters (this is done because need array of characters on the top for the loop to know how many times to loop)
         ạ         # Grab the next character in the string "115" (essentially a natural animation cmd that every time called on the same object will access the next item looping)
                   # Also, turns the string into an array of characters.
          Ḍ100.    # Pop the character off and convert to a number then multiply by 100 to get the correct delay. Then delay for that many ms.
               ṡ   # Swap the items again to compensate for the one earlier.
                €  # The end of the loop.

                 ß # Clears the screen such that when implicit popping of the stack occurs it will display the correct output.

Đoạn mã 19 byte lặp lại vô tận.

<div id="noodel" cols="30" rows="2" code="ʋ115ṡḷḶƙÞṡạḌ100.ṡ€ß" input='"Hello, PPCG! Goodbye Earth!"'/>
<script src="https://tkellehe.github.io/noodel/release/noodel-2.5.js"></script>
<script src="https://tkellehe.github.io/noodel/ppcg.min.js"></script>

APL, 23 byte

⊢{⍞←⍺⊣⎕DL⍵÷10}¨1 1 5⍴⍨⍴

Giải trình:

               1 1 5⍴⍨⍴  ⍝ repeat the values [1,1,5] to match the input length
⊢                        ⍝ the input itself
 {           }¨          ⍝ pairwise map
      ⎕DL⍵÷10            ⍝ wait ⍵÷10 seconds, where ⍵ is the number
     ⊣                   ⍝ ignore that value, and
  ⍞←⍺                    ⍝ output the character   

C #, 131 byte

Không có nhiều để giải thích. Nó chỉ lấy một chuỗi (được bọc trong "") làm đối số và in từng ký tự bằng cách sử dụng mẫu trễ chính xác. Sau khi hình ảnh động xuất hiện với một OutOfRangeExceptionvì vòng lặp không dừng lại sau khi nó lặp trên tất cả các ký tự. Vì đó là một vòng lặp vô hạn, điều đó cũng có nghĩa là tôi có thể sử dụng int Mainthay vì void Main;-)

Chơi gôn

class C{static int Main(string[]a){for(int i=0;){System.Console.Write(a[0][i]);System.Threading.Thread.Sleep(i++%3<1?500:100);}}}

Ung dung

class C
{
    static int Main(string[] a)
    {
        for (int i = 0; ;)
        {
            System.Console.Write(a[0][i]);
            System.Threading.Thread.Sleep(i++ % 3 < 1 ? 500 : 100);
        }
    }
}

Chỉnh sửa

• Đã lưu 1 byte bằng cách di chuyển gia tăng ibên trong Sleep()phương thức thay vì trong forvòng lặp. (Cảm ơn Maliafo )

SmileBASIC, 61 byte

LINPUT S$FOR I=0TO LEN(S$)-1?S$[I];
WAIT 6+24*(I MOD 3>1)NEXT

Tôi nghĩ việc tính toán độ trễ có thể ngắn hơn rất nhiều.

Clojure, 81 byte

#(doseq[[c d](map vector %(cycle[100 100 500]))](Thread/sleep d)(print c)(flush))

Vòng lặp trên chuỗi đầu vào được nén với một danh sách vô hạn [100 100 500].

(defn typer [input]
  ; (map vector... is generally how you zip lists in Clojure 
  (doseq [[chr delay] (map vector input (cycle [100 100 500]))]
    (Thread/sleep delay)
    (print chr) (flush)))

Bash (+ tiện ích), 32 byte

Lưu ý, điều này sẽ phát ra tiếng bíp trong quá trình, nhưng ai nói bài nộp không thể có hiệu ứng âm thanh lạ mắt!

Chơi gôn

sed 's/.../&\a\a\a\a/g'|pv -qL10

Bản giới thiệu

Python 3 , 83 75 byte

import time;i=0
for c in input():i+=1;print(end=c);time.sleep(i%3and.1or.5)

Hãy thử trực tuyến!

Powershell, 66 65 63 Byte

[char[]]$args|%{sleep -m((1,1,5)[++$i%3]*100);Write-Host $_ -N}

-1 loại bỏ khoảng trắng không cần thiết sau -m

-2 cảm ơn admBorkBork - đã sử dụng 1,1,5và *kết quả cuối cùng bằng cách 100thay vì sử dụng100,100,500

mất $argsnhư một mảng char, các vòng lặp thông qua việc ngủ như được chỉ định, Write-Hostvới-N đối số oNewline được sử dụng để viết các ký tự ra trên cùng một dòng.

Cải tiến?

• sử dụng [0..99]thay vì[char[]] để lưu 1 byte, nhưng sẽ không hoạt động trên chuỗi hơn 100 ký tự.
• sử dụng 100,500và[(++$i%3)-gt1] làm cho nó ngắn hơn bằng cách nào đó.
• kết hợp nó thành một chuỗi duy nhất và xóa giữa các đầu ra, loại bỏ dài Write-Host

không thể tìm thấy bất kỳ cách nào để làm cho hai công việc cuối cùng và cách thứ nhất không hợp lệ theo bất kỳ quy tắc cụ thể nào.

Perl, 63 byte

foreach(split//,pop){$|=++$i;print;select('','','',$i%3?.1:.5)}

Python 3, 88 byte

import time;s=''
for x in input():s+=x;time.sleep(.1+.4*(len(s)%3==0));print('\n'*25+s)

Rebol, 65 byte

s: input t:[.1 .1 .5]forall s[prin s/1 wait last append t take t]

Ung dung:

s: input
t: [.1 .1 .5]

forall s [
    prin s/1
    wait last append t take t
]

Bash + coreutils, 57 byte

for((;k<${#1};k++)){ echo -n ${1:k:1};sleep .$[2&k%3|1];}

Java 7, 151 149 byte

class M{public static void main(String[]a)throws Exception{int n=0;for(String c:a[0].split("")){System.out.print(c);Thread.sleep(n++%3>0?100:500);}}}

-2 byte nhờ @KritixiLithos cho một cái gì đó tôi luôn quên ..

Giải trình:

class M{
  public static void main(String[] a) throws Exception{ // throws Exception is required due to the Thread.sleep
    int n = 0;                                          // Initialize counter (and set to 0)
    for(String c : a[0].split("")){                     // Loop over the characters of the input
      System.out.print(c);                              // Print the character
      Thread.sleep(n++ % 3 > 0 ?                        // if (n modulo 3 != 0)
                                 100                    //   Use 100 ms
                               :                        // else (n modulo 3 == 0):
                                 500);                  //   Use 500 ms
    }
  }
}

Sử dụng:

java -jar M.jar "Hello, PPCG! Goodbye Earth!"

Chế biến, 133 131 byte

int i;void setup(){for(String c:String.join("",args).split(""))p{try{Thread.sleep(i++%3<1?500:100);}catch(Exception e){}print(c);}}

Tôi đã thử làm args[0] và gói các đối số trong"" thay vào đó, nhưng nó không hoạt động vì một số lý do.

Dù sao ... đây là lần đầu tiên tôi viết chương trình Xử lý có đối số. Không giống như Java, bạn không cần phải khai báo các đối số bằng cách sử dụngString[]args , nhưng biến argssẽ tự động được khởi tạo cho các đối số.

Đặt nó trong một tệp được gọi sketch_name.pdedưới một thư mục được gọi sketch_name(có, cùng tên cho thư mục và phác họa). Gọi nó như:

processing-java --sketch=/full/path/to/sketch/folder --run input text here