任意のプログラミング言語で、入力を受け取り、キーボードで入力されるテキストをアニメーション化するプログラムを作成します。

キーボードでの真のタイピングをシミュレートするには、各文字間の遅延を変化させる必要があります。遅延は0.1, 0.1, 0.5, 0.1, 0.1, 0.5 ...、最後の文字が印刷されるまでの秒数です。最終出力は画面に残されます。

テキストを新しい行に印刷できないようにするには、現在のテキスト行を上書きする必要があります。

例、入力 "Hello、PPCG！Goodbye Earth！" 次のアニメーションが生成されます（gif-makerのサンプリングレートが低かったため、実際の結果はわずかに異なります）。

これはコードゴルフであるため、バイトの最小量が勝ちます。

C 108 93 89 78 73 80バイト

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

ゴルフされていないバージョン：

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

@Kritixi Lithos @Metoniemご意見ありがとうございます！いくつかのバイトを節約しました。

どういうわけか、int i実行時にセグメンテーションエラーが発生したため、0で初期化しました。

ゼリー、13バイト

115D÷⁵ṁȮœS¥@"

これは単項リンク/関数です。暗黙的な出力のため、完全なプログラムとしては機能しません。

検証

使い方

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バイト

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

説明：

私は作るためにかなり時間が使用さfprintfよりもバージョンが短いdisp()とclc。ブレークスルーは、pause引数としてベクトルを取ることができることを発見/記憶したときでした。その場合、最初の値を選択するだけです。これにより、カウンターを省くことができます。

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

私が使用しdispた最短は81バイトでした。

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バイト

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バイト

@DJMcMayhemのおかげで1バイト節約

ò最後に削除して1バイトを節約

òD1gÓulD1gÓulDgÓul

ひどくウンゴルフィ、私は知っている、それはちょうどuネストされたループを使用することを妨げるその厳密なndo です。

説明

カーソルは、入力の最初の文字であるバッファーの先頭から始まります。

ò                      " 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 ...

MATL、16バイト

"@&htDTT5hX@)&Xx

MATL Onlineでお試しください！

説明

"        % 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 バイト

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

それを試してみてください：）

使い方

                   # 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.

無限にループする19バイトのコードスニペット。

<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バイト

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

説明：

               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バイト

あまり説明しません。引数として文字列（ ""でラップ）を受け取り、正しい遅延パターンを使用して各文字を出力します。アニメーションが終了すると、OutOfRangeExceptionすべてのキャラクターをループした後にループが停止しないため、で終了します。無限ループなので、これint Mainはvoid Main;-)の代わりに使用できることも意味します

ゴルフ

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);}}}

非ゴルフ

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);
        }
    }
}

編集

• ループではなくメソッドi内でインクリメントを移動することで1バイトを節約しSleep()ましたfor。（Maliafoに感謝）

SmileBASIC、61バイト

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

遅延計算はもっと短くなると思います。

Clojure、81バイト

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

の無限リストで圧縮された入力文字列をループします[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（+ユーティリティ）、32バイト

注意してください、これはプロセスでビープ音を鳴らしますが、提出物は派手な効果音を持つことができないと言った人！

ゴルフ

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

デモ

Pythonの3、83の 75バイト

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

オンラインでお試しください！

Powershell、66 65 63バイト

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

-1は後に不要な空白を削除しました -m

-2 AdmBorkBorkに感謝-使用し1,1,5、使用*する100代わりに最終結果100,100,500

$args文字配列として受け取り、指定さWrite-Hostれた-Nとおりにスリープをループします。oNewline引数を使用して、同じ行に文字を書き込みます。

改善点？

• 1バイトを節約する[0..99]代わりに使用[char[]]しますが、100文字を超える文字列では機能しません。
• 使用100,500します[(++$i%3)-gt1]が、なんとか短くします。
• 単一の文字列に結合し、出力間をクリアして、長い Write-Host

最後の2つを機能させる方法を見つけることができず、最初の2つは特定のルールによって有効ではありません。

Perl、63バイト

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

Python 3、88バイト

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

Rebol、65バイト

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

ゴルフをしていない：

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

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

Bash + coreutils、57バイト

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

Java 7、151 149バイト

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バイト、@ KritixiLithosに感謝します。

説明：

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
    }
  }
}

使用法：

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

処理中、133 131バイト

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);}}

代わりにargs[0]引数を実行してラップしようとしました""が、何らかの理由で機能しません。

とにかく...これは引数を取る処理プログラムを書いたのは初めてです。Javaとは異なり、を使用して引数を宣言する必要はありませんString[]argsが、変数argsは自動的に引数に初期化されます。

sketch_name.pdeというフォルダーの下にあるファイルに保存しますsketch_name（はい、フォルダーとスケッチの同じ名前）。次のように呼び出します：

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