Il contatore di parole molto strano


13

INPUT: qualsiasi stringa costituita esclusivamente da lettere minuscole tramite argomento della funzione, argomento della riga di comando, STDIN o simile.

OUTPUT: stampa o restituisce un numero che rappresenterà la somma delle distanze delle lettere in base alla seguente metrica:

Prendi la prima e la seconda lettera e conti la distanza tra loro. La distanza è definita dal layout della tastiera QWERTY, dove ogni lettera adiacente nella stessa riga ha la distanza 1 e ogni lettera adiacente nella stessa colonna ha la distanza 2. Per misurare la distanza tra le lettere che non sono adiacenti, prendi il percorso più breve tra i due.

Esempi:

q->w is 1 distance apart
q->e is 2 distance
q->a is 2 distance
q->s is 3 distance (q->a->s or q->w->s)
q->m is 10 distance

Quindi prendi la seconda e la terza lettera, quindi la terza e la quarta, ecc., Fino a raggiungere la fine dell'input. L'output è la somma di tutte quelle distanze.

Esempio di input e output:

INPUT: qwer
OUTPUT: 3

INPUT: qsx
OUTPUT: 5

INPUT: qmq
OUTPUT: 20

INPUT: tttt
OUTPUT: 0

Ecco un'immagine che mostra quali lettere si trovano nella stessa colonna:

lettere in colonna

Questo è il codice golf, quindi vince il codice più breve in byte!


1
Penso che q-> m siano solo 8 tasti ...
SuperJedi224

2
se scendi di una riga, conta come 2 distanza, non conti la distanza chiave
Vajura,

è anche lì :)
Vajura,

Possiamo presumere che la stringa di input sarà sempre non vuota?
Alex A.

Questo è abbastanza simile a codegolf.stackexchange.com/questions/50722/… . Solo che questo usa lettere, mentre l'altro usava numeri.
Reto Koradi,

Risposte:


2

CJam, 50 byte

r{i",ÙZ°^ªýx´|"257b27b=A+Ab}%2ew::.-::z2fb:+

Si noti che il codice contiene caratteri non stampabili.

Provalo online nell'interprete CJam . Se il permalink non funziona, copia il codice da questo incolla .

sfondo

Iniziamo ad assegnare le posizioni da 0 a 9 alle lettere nella riga superiore, da 10 a 18 alle lettere nella riga home e da 20 a 26 alle lettere nella riga inferiore.

Le posizioni di tutte le 26 lettere, in ordine alfabetico, sono

[10 24 22 12 2 13 14 15 7 16 17 18 26 25 8 9 0 3 11 4 6 23 1 21 5 20]

Questa è una matrice di lunghezza 26. Poiché le matrici si avvolgono in CJam e il punto di codice della lettera h è 104 = 4 × 26 , ruotiamo la matrice di 7 unità a sinistra, in modo che sia possibile accedere alla posizione di ogni lettera dalla sua punto di codice.

[15 7 16 17 18 26 25 8 9 0 3 11 4 6 23 1 21 5 20 10 24 22 12 2 13 14]

Ora codifichiamo questo array considerando le cifre degli elementi di un numero di base 27 e convertiamo l'intero risultante in base 257.

[6 153 44 8 217 90 176 156 94 24 170 253 147 120 180 124]

Sostituendo ogni numero intero con il corrispondente carattere Unicode, otteniamo la stringa dal codice sorgente.

Come funziona

r              e# Read a whitespace separated token from STDIN.
{              e# For each character:
  i            e#   Push its code point.
  ",ÙZ°^ªýx´|" e#   Push that string.
  257b27b      e#   Convert from base 257 to base 27.
  A+Ab         e#   Add 10 and convert to base 10.
               e#   Examples: 7 -> [1 7], 24 -> [3 4]
}%             e#
2ew            e# Push all overlapping slices of length 2.
::.-           e# Subtract the corresponding components of the pairs in each slice.
::z            e# Apply absolute value to the results.
2fb            e# Convert each to integer (base 2).
               e# Example: [2 5] -> 2 × 2 + 5 = 9
:+             e# Add the distances.

1
amico, come funziona
Vajura,

@Vajura Dennis di solito si mette in giro per aggiungere spiegazioni, se aspetti che probabilmente ne aggiunga uno :) Se vuoi una spiegazione più vaga / di base, usandfriends ha creato uno spiegatore CJam che puoi usare qui.
Kade,

@Vajura: ho modificato la mia risposta.
Dennis,

7

Python 2, 220 ... 124 119 byte

Enorme grazie a Sp3000 per aver salvato molti byte.

f='qwertyuiopasdfghjkl zxcvbnm'.find
g=lambda i:sum(abs(f(x)%10-f(y)%10)+2*abs(f(x)/10-f(y)/10)for x,y in zip(i,i[1:]))

Uso:

g("tttt") -> 0

Controllalo qui.

Leggermente ungolfed + spiegazione:

f='qwertyuiopasdfghjkl zxcvbnm'.find  # Defining keyboard rows and aliasing find
g=lambda i:                           # Defining a function g which takes variable i
    sum(                              # Sum of 
        abs(f(x)%10-f(y)%10)          # horizontal distance, and
        + 2*abs(f(x)/10-f(y)/10)      # vertical distance,
        for x,y in zip(i,i[1:]))      # for each pair in the zipped list

# Example of zipping for those unaware:
# Let i = asksis, therefore i[1:] = sksis, and zip would make
# the list of pairs [(a,s),(s,k),(k,s),(s,i),(i,s)].

5

Java, 266 byte

int c(String q){String[]r={"qwertyuiop","asdfghjkl","zxcvbnm"};int v=0,l=q.length();int[][]p=new int[l][2];for(int i=0;i<l;i++){while(p[i][0]<1)p[i][0]=r[p[i][1]++].indexOf(q.charAt(i))+1;v+=i<1?0:Math.abs(p[i][0]-p[i-1][0])+2*Math.abs(p[i][1]-p[i-1][1]);}return v;}

Versione non golfata:

int c(String q) {
    String[] r = {
        "qwertyuiop",
        "asdfghjkl",
        "zxcvbnm"
    };
    int v = 0, l = q.length(); // v=return value, l = a shorter way to refer to input length
    int[][] p = new int[l][2]; // an array containing two values for each
                               // letter in the input: first its position
                               // within the row, then its row number (both
                               // 1 indexed for golfy reasons)
    for(int i = 0; i<l; i++) { // loops through each letter of the input
        while (p[i][0] < 1) // this loop populates both values of p[i]
            p[i][0] = r[p[i][1]++].indexOf(q.charAt(i))+1;
        v += (i<1) ? 0 : Math.abs(p[i][0]-p[i-1][0])+2*Math.abs(p[i][1]-p[i-1][1]); // adds onto return value
    }
    return v;
}

È possibile salvare alcuni byte utilizzandoint v=0,l=q.length(),p[][]=new int[l][2];
Ypnypn

3

SWI-prolog, 162 byte

a(A):-a(A,0).
a([A,B|C],T):-Z=`qwertyuiopasdfghjkl0zxcvbnm`,nth0(X,Z,A),nth0(Y,Z,B),R is T+(2*abs(Y//10-X//10)+abs(Y mod 10-X mod 10)),(C=[],print(R);a([B|C],R)).

Esempio: a(`qmq`)output 20(E truedopo, ma non c'è niente che io possa fare al riguardo).

Modificare: dovuto usare altri 3 byte. Il mio programma originale ha superato i casi di test forniti ma in realtà non era corretto (i valori assoluti erano fuori posto / mancanti)

Nota: se vuoi usarlo su dire Ideone , devi sostituire tutti i backquotes `con doppie virgolette ". I backquotes nel mio caso (che è lo standard attuale in SWI-Prolog) rappresentano un elenco di codici per stringhe e stringhe di caratteri tra virgolette doppie, ma questo è diverso nelle versioni precedenti di SWI-Prolog.

Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.