Les règles

Il est temps de créer un test de vitesse de frappe dans la langue de votre choix!

1 . Vous fournissez un fichier avec un dictionnaire de choix (chaque «mot» qu'il contient doit être délimité par des sauts de ligne). Canalisez-le via stdinou fournissez son nom comme argument de ligne de commande.

une
capable
sur
au dessus de
absence
...

2 . Choisissez 10 mots au hasard dans le fichier (aucun doublon ne doit être autorisé) et imprimez-les de la manière suivante:

-> direct
-> moulu
-> suivant
-> cinq
...

3 . Commencez à mesurer le temps passé à partir de maintenant!

4 . Laissez l'utilisateur saisir les dix mots le plus rapidement possible (terminé par un retour chariot). Imprimez OKlorsque vous avez une correspondance, imprimez WRONGlorsque nous avons une erreur de frappe (ou que le mot a déjà été correctement saisi lors de cette exécution).

5 . Arrêter les pendules! Maintenant imprimer le CPM (par minute caracters) de référence, qui est calculé comme suit: (sum of the characters of the chosen words / time spent typing (seconds)) * 60. Arrondissez à l'entier le plus proche et reproduisez la sortie (exemple) suivante:

-> Vous avez marqué 344 CPM!

Un échantillon

-> s'installer
-> côté
-> ouvert
-> ministre
-> risque
-> couleur
-> bateau
-> pareil
-> taille
-> épée
régler
D'accord
côté
D'accord
ouvert
D'accord
# ...................... quelques lignes coupées ......................
mot
FAUX
épée
D'accord
-> Vous avez marqué 298 CPM!

Le gagnant

C'est le code colf, l'entrée la plus courte (en nombre de caractères du code source) gagne, amusez-vous!

K, 146

Suppose un fichier de dictionnaire appelé «d» dans le répertoire de travail actuel.

{b:+/#:'a:10?_0:`:d;-1"-> ",/:a;s:.z.t;while[#a;$[(,/0:0)~*a;[a:1_a;-1"OK"];-1"WRONG"]];-1"--> You have scored ",($(60000*b)%"i"$.z.t-s)," CPM!";}

Bash - 217 212 199 196 caractères

Je ne vais pas gagner mais c'était amusant

declare -A W
for w in `shuf -n10`;do C+=$w;echo -\> $w;W[$w]=OK;done
SECONDS=0
for((;${#W[*]};));do read r;echo ${W[$r]-WRONG};unset W[$r];done
echo --\> You have scored $((60*${#C}/SECONDS)) CPM!

Moins de 200 caractères maintenant!

Prend le fichier de liste de mots comme argument Prend maintenant la liste de mots sur l'entrée standard. Collez-le dans le terminal et appuyez sur ^ D

Suggestion mise en œuvre à partir de manatwork

Ruby (189 178 171 168)

$><<t=['',d=[*$<.lines].sample(10)]*'-> '
s=Time.now
puts d.delete($stdin.gets)?:OK:'WRONG'while d[0]
puts'--> You have scored %i CPM!'%((t.size-40)/(Time.now-s)*60)

Assez basique, je suis sûr qu'il y a des améliorations à apporter. Prend le nom de fichier du dictionnaire comme argument de ligne de commande.

EDIT : quelques ajustements mineurs, principalement autour de la conservation des nouvelles lignes du dictionnaire. Par conséquent, le fichier aura besoin d'une nouvelle ligne de fin pour fonctionner correctement.

C, 305 309 347 caractères

char*stdin,w[11][99];long i,t;main(int n,char**v){v=fopen(v[1],"r");
for(srand(time(&t));fgets(w[i++>9?(n=rand()%i)>10?0:n:i],99,v););
for(i=n=0;i<10;n+=printf("-> %s",w[++i])-4);
for(;i;puts(!strcmp(*w,w[11-i])?--i,"OK":"WRONG"))fgets(*w,99,stdin);
printf("--> You have scored %ld CPM!\n",n*60/(time(0)-t));}

Merci à @ugoren pour les conseils d'amélioration. L'utilisation d'un "11ème mot" pour éliminer les entrées de dictionnaire entrantes a été une grande victoire par rapport à mon approche précédente strcpy-si-choisie.

Voici la source non golfée:

#define _GNU_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

static char words[11][99];
static long i, t;

int main(int argc, char *argv[])
{
    FILE *fp;
    int n;

    fp = fopen(argv[1], "r");
    srand(time(0));
    for (i = 0 ; fgets(words[0], sizeof words[0], fp) ; ++i) {
        n = i < 10 ? i : rand() % i;
        if (n < 10)
            strcpy(words[n + 1], words[0]);
    }
    fclose(fp);

    n = 0;
    for (i = 1 ; i <= 10 ; ++i)
        n += printf("-> %s", words[i]) - 4;
    t = time(0);
    i = 1;
    while (i <= 10 && fgets(words[0], sizeof words[0], stdin)) {
        if (strcmp(words[0], words[i])) {
            puts("WRONG");
        } else {
            puts("OK");
            ++i;
        }
    }
    if (i > 9)
        printf("-> You have scored %ld CPM!\n", n * 60 / (time(0) - t));

    return argc - argc;
}

C # 401

void T(){
Action<string>C=Console.WriteLine;Func<string>R=Console.ReadLine;
var w=new List<string>();
for(var l=R();l!="";l=R())w.Add(l);
var s=w.OrderBy(_=>Guid.NewGuid()).Take(10).ToList();
s.ForEach(x=>C("=> "+x));
var t=s.Select(x=>x.Length).Sum();
var c=Stopwatch.StartNew();
while(s.Any()){C(s.Remove(R())?"OK":"WRONG");}
c.Stop();
C("--> You have scored "+c.Elapsed.TotalSeconds*60/t+" CPM!");}

Version en cours d'exécution ici: http://ideone.com/Nt6Id

Python ( 256 235)

import time as t,random as r
def p(x):print x
c=r.sample(input().split("\n"),10)
z=lambda x:p(("WRONG","OK")[raw_input()==x])or len(x)
p("--> "+"\n--> ".join(c))
_=t.time()
p("--> You have scored %d CPM!"%(sum(map(z,c))/(t.time()-_)*60))

C'est en python 2.x, en 3.x je peux raser 4 caractères supplémentaires en utilisant la fonction d'impression.

Newlines inclus

PHP 187 octets

Des nouvelles lignes ont été ajoutées pour plus de clarté:

<?$s=file($argv[1]);
for(shuffle($s);$i++<10;$l+=strlen($$i))echo~ÒÁß,$$i=$s[$i];
for($t=time();$j++<10;)echo$$j==fgets(STDIN)?OK:WRONG,~õ?>
--> You have scored <?=0|$l/(time()-$t)*60?> CPM!

Accepte le nom de fichier du dictionnaire comme argument de ligne de commande. Le fichier de dictionnaire doit se terminer par une nouvelle ligne.

Scala ( 319 306 304 302)

var s=util.Random.shuffle(io.Source.fromFile(args(0)).getLines.toSet)take 10
def?(a:Any)=println(a)
var l=(0/:s){_+_.size}
s map{"-> "+_}map?
def n=System.nanoTime
val t=n
while(s.size!=0){val m=readLine
if(s contains m)?("OK")else?("WRONG");s-=m}
?("--> You have scored "+l*60000000000L/(n-t)+" CPM!")