Dans n'importe quel langage de programmation, créez un programme qui prend en entrée et anime le texte tapé sur un clavier.

Le délai entre chaque caractère doit être variable pour simuler la véritable frappe sur un clavier. Le délai est de 0.1, 0.1, 0.5, 0.1, 0.1, 0.5 ...quelques secondes, jusqu'à ce que le dernier caractère soit imprimé. Le résultat final doit être laissé sur l'écran.

Vous devez remplacer la ligne de texte actuelle, vous ne pouvez pas faire imprimer le texte sur de nouvelles lignes.

Exemple, l'entrée "Bonjour, PPCG! Au revoir la Terre!" devrait entraîner l'animation suivante (notez que le taux d'échantillonnage du générateur de gif était faible, donc le vrai résultat est légèrement différent):

Puisqu'il s'agit de golf de code, le plus petit nombre d'octets gagne.

C 108 93 89 78 73 80 octets

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

Version non golfée:

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

@Kritixi Lithos @Metoniem Merci pour votre contribution! enregistré quelques octets.

D'une certaine manière, je viens de int ime donner une erreur de segmentation lors de l'exécution, donc je l'ai initialisée avec 0.

Gelée , 13 octets

115D÷⁵ṁȮœS¥@"

Il s'agit d'un lien / fonction monadique. En raison de la sortie implicite, il ne fonctionne pas comme un programme complet.

Vérification

Comment ça fonctionne

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 octets

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

Explication:

J'ai utilisé un bon moment pour rendre la fprintfversion plus courte disp()qu'avec clc. La percée a été lorsque j'ai découvert / retenu que je pouvais pauseprendre un vecteur comme argument, auquel cas il choisirait simplement la première valeur. Cela permet de laisser de côté un comptoir.

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

Le plus court que j'ai pu utiliser dispétait de 81 octets:

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 octets

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 octets

1 octet enregistré grâce à @DJMcMayhem

enregistré 1 octet en supprimant òà la fin

òD1gÓulD1gÓulDgÓul

Terriblement impuissant, je sais, c'est juste que strict u ndo m'empêche d'utiliser des boucles imbriquées.

Explication

Le curseur démarre au début du tampon, qui est le premier caractère de l'entrée.

ò                      " 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 à venir bientôt ...

MATL , 16 octets

"@&htDTT5hX@)&Xx

Essayez-le sur MATL Online!

Explication

"        % 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 octets

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

Essayez-le :)

Comment ça fonctionne

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

Extrait de code de 19 octets qui boucle sans fin.

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

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

Explication:

               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 octets

Pas grand chose à expliquer. Il prend juste une chaîne (entourée de "") comme argument et imprime chaque caractère en utilisant le motif de retard correct. Après l'animation, elle se termine par un OutOfRangeExceptioncar la boucle ne s'arrête pas après avoir bouclé sur tous les personnages. Puisqu'il s'agit d'une boucle infinie, cela signifie également que je peux utiliser à la int Mainplace de void Main;-)

Golfé

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

Non golfé

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

Modifications

• Enregistré 1 octet en déplaçant l'incrémentation à l' iintérieur de la Sleep()méthode plutôt que dans la forboucle. (Merci Maliafo )

SmileBASIC, 61 octets

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

Je pense que le calcul du retard pourrait être beaucoup plus court.

Clojure, 81 octets

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

Boucles sur la chaîne d'entrée zippée avec une liste infinie de [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 (+ utilitaires), 32 octets

Notez que cela émettra un bip dans le processus, mais qui a dit que les soumissions ne pouvaient pas avoir d'effets sonores fantaisistes!

Golfé

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

Démo

Python 3 , 83 75 octets

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

Essayez-le en ligne!

Powershell, 66 65 63 octets

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

-1 espace blanc inutile supprimé après -m

-2 grâce à AdmBorkBork - utilisé 1,1,5et *résultat final au 100lieu d'utiliser100,100,500

prend $argscomme un tableau de caractères, passe en veille comme spécifié, Write-Hostavec l' -Nargument oNewline est utilisé pour écrire les caractères sur la même ligne.

Des améliorations?

• utiliser [0..99]au lieu de [char[]]pour enregistrer 1 octet, mais ne fonctionnera pas sur les chaînes de plus de 100 caractères.
• utiliser 100,500et [(++$i%3)-gt1]mais le raccourcir en quelque sorte.
• le combiner en une seule chaîne et effacer entre les sorties, éliminant le long Write-Host

ne trouve aucun moyen de faire fonctionner les deux derniers, et le premier n'est valide par aucune règle particulière.

Perl, 63 bytes

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

Python 3, 88 Bytes

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

Rebol, 65 bytes

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

Ungolfed:

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

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

Bash + coreutils, 57 bytes

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

Java 7, 151 149 bytes

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 bytes thanks to @KritixiLithos for something I always forget..

Explanation:

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

Usage:

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

Processing, 133 131 bytes

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

I tried doing args[0] and wrapping the argument in "" instead, but it does not work for some reason.

Anyways... this is the first time I've written a Processing program that takes arguments. Unlike Java, you don't need to declare the arguments using String[]args, but the variable args will automatically be initialised to the arguments.

Put it in a file called sketch_name.pde under a folder called sketch_name (yes, same name for folder and sketch). Call it like:

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