Kurallar

Tercih ettiğiniz dilde bir yazma hızı testi yapma zamanı!

1 . Seçili sözlük içeren bir dosya sağlarsınız (içindeki her 'kelime' yeni satırla sınırlandırılmalıdır). Aracılığıyla ekleyin stdinveya adını komut satırı bağımsız değişkeni olarak sağlayın.

bir
yapabilmek
hakkında
yukarıda
yokluk
...

2 . Dosyadan 10 rastgele kelime seçin (kopyalara izin verilmemelidir) ve bunları aşağıdaki şekilde yazdırın:

-> doğrudan
-> zemin
-> sonraki
-> beş
...

3 . Artık harcanan zamanı ölçmeye başlayın!

4 . Kullanıcının on kelimenin tümünü olabildiğince hızlı yazmasına izin verin (satır başı ile sona erdi). Baskı OKEğer bir eşleşme olduğunda, baskı WRONGbir yazım hatası var (ya da kelime zaten başarıyla bu dönemde yazılan) ne zaman.

5 . Saatleri durdur! Şimdi yazdırmak CPM : aşağıdaki şekilde hesaplanır kriter, (dakika başına karakter kavramı) (sum of the characters of the chosen words / time spent typing (seconds)) * 60. En yakın tam sayıya yuvarlayın ve aşağıdaki (örnek) çıktıyı çoğaltın:

-> 344 BGBM kazandınız!

Örnek bir çalışma

-> yerleşmek
-> yan
-> açık
-> bakan
-> risk
-> renk
-> gemi
-> aynı
-> boyut
-> kılıç
yerleşmek
tamam
yan
tamam
açık
tamam
# ...................... bazı çizgiler kesildi ......................
sözcük
YANLIŞ
kılıç
tamam
-> 298 BGBM kazandınız!

Kazanan

Bu kod colf, en kısa giriş (kaynak kodu karakter sayısı) kazanır, eğlenin!

K, 146

Geçerli çalışma dizininde 'd' adlı sözlük dosyasını varsayar.

{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 karakter

Kazanmayacak ama eğlenceliydi

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!

Şimdi 200 karakterden az!

Sözcük listesi dosyasını bağımsız değişken olarak alır Şimdi standart girdi üzerindeki sözcük listesini alır. Terminale yapıştırın ve ^ D tuşuna basın

Yapıtlardan gelen öneri

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)

Oldukça basit, eminim yapılacak iyileştirmeler var. Sözlüğün dosya adını komut satırı bağımsız değişkeni olarak alır.

DÜZENLEME : Yeni satırları sözlükten uzak tutmak için birkaç küçük değişiklik. Sonuç olarak, dosyanın düzgün çalışması için sondaki bir satırsonu gerekir.

Cı, 305 309 347 karakter

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

@Ugoren'a iyileştirme ipuçları için teşekkürler. Gelen sözlük girişlerini atmak için bir "11. kelime" kullanmak, seçtiğim önceki strcpy yaklaşımım üzerinde büyük bir kazançtı.

İşte ungolfed kaynağı:

#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!");}

Burada sürüm çalışıyor: 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))

Bu python 2.x'te, 3.x'te print fonksiyonunu kullanarak 4 karakteri daha tıraş edebilirim.

Yeni satırlar dahil

PHP 187 bayt

Netlik için yeni satırlar eklendi:

<?$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!

Sözlük dosya adını komut satırı bağımsız değişkeni olarak kabul eder. Sözlük dosyası bir satırsonu ile bitmelidir.

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!")