Mi problema

En mi lugar actual de empleo, solo (solo con dos manos porque no me faltan extremidades) mantengo aproximadamente 700 computadoras portátiles. Debido a la naturaleza y frecuencia de su uso, a menudo encuentro que son devueltos con un poco de daño. Para este problema, mi principal preocupación es cuando una computadora portátil se devuelve con un teclado roto o apagado. Cuando el reparador de hardware repara estos teclados rotos, se hace necesario probarlos. La prueba implica el uso de cada ... y ... cada ... tecla ... individual. ¿Qué arrastre, verdad? El problema es que a veces pierdo el rastro de si escribí una tecla o no.

¿Una solución?

Escriba un programa / script que:

1. Toma la entrada del usuario
2. Tras el envío (de la forma que considere adecuada), determina si se presionó cada tecla.
3. Emite sí o no o cualquier forma de indicar que o bien tuve éxito al presionar todas las teclas o no. (Indique en su respuesta las dos salidas posibles si no es algo obvio).

Suposiciones

1. ¿Mayúsculas, minúsculas, ambas? De cualquier forma que consideres adecuada. Siempre que sea [AZ], [az] o [A-Za-z]. Lo mismo ocurre con los números y otros símbolos. (Entonces, si =se escribió,+ no importa). Su elección si desea incluir caracteres desplazados o no.
2. No necesita preocuparse por pestañas o espacios
3. No necesita teclas de función, CTRL, ALT, Esc ni ninguna otra tecla que no muestre algo en la pantalla
4. Esto supone un teclado EN-US y las computadoras portátiles no incluyen un teclado numérico.
5. Sistema operativo independiente, cualquier idioma que prefiera
6. No importa si la tecla se ha presionado varias veces (para cuando el probador simplemente se vuelve flojo y comienza a romper el botón como si fuera Mortal Kombat)

Aquí hay un conjunto de entrada potencial que devolvería verdadero (o sí, o "¡Lo hiciste!")

`1234567890-=qwertyuiop[]\asdfghjkl;'zxcvbnm,./

El ganador está determinado por el menor número de caracteres.

GolfScript, 6 bytes

.&,94=

Si todos los caracteres ASCII con códigos entre 33 y 127 están presentes, imprime 1. De lo contrario, imprime 0.

Este enfoque fallará si la entrada contiene otros caracteres (incluida una nueva línea final), lo que ha sido permitido por el OP y también es cierto para la solución GolfScript existente.

Uso

$ echo -n '!"#$%&'"'"'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~' |
> golfscript <(echo '.&,94=')
1

Cómo funciona

.&  # Compute the intersection of the input string with itself. This removes duplicates.
,   # Compute the length of the resulting string.
94= # Push 1 if the length is 94, otherwise push 0.

GolfScript, 11

Imprimir ASCII no es tan interesante ...

127,32,-^,!

Rubí, 68

Con bandera -rsetpara 4 personajes.

p Set.new(?`..?z)+(?,..?9)+%w{[ ] \\ ; '}==Set.new(gets.split'')

y

Pitón 3, 76

print(set("`1234567890-=qwertyuiop[]\\asdfghjkl;'zxcvbnm,./")==set(input()))

JavaScript - 62 70

alert(!(47-prompt().match(/([',-\/\d;=a-z\[-\]`]?)(?!.*\1)/g).length))

Y un poco más corto:

alert(!!prompt().match(/([',-\/\d;=a-z\[-\]`])(?!.*\1)/g)[46])

CJam - 9

',33>q-!

Comprueba también los caracteres "desplazados" (incluidas las letras mayúsculas).
Pruébalo en http://cjam.aditsu.net/

Nota: hay un carácter invisible (con código 127) después del apóstrofe.

PHP

    foreach (str_split("`1234567890-=qwertyuiop[]\asdfghjkl;'zxcvbnm,./") as $v) {
        if (strpos($_GET['i'],$v)!==false)die(NO);
    }

$_GET['i'] es la entrada

Python 72:

f=lambda x:set(x)==set("`1234567890-=qwertyuiop[]\asdfghjkl;'zxcvbnm,./")

Haskell, 41 (dos soluciones)

interact(\y->show$all(`elem`y)[' '..'`'])

o (estilo sin puntos)

interact$show.(`all`[' '..'`']).flip elem

Necesita ingresar al menos estos caracteres:

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`

en cualquier orden, cualquier cantidad de veces. Se permiten caracteres adicionales. Ejecutar en un intérprete. Debe presionar Enter cuando haya terminado, pero si presiona Enter antes de terminar, puede seguir ingresando caracteres y presionar Enter nuevamente. Se imprimirá Truesi golpeó a cada personaje, de lo contrario no imprimirá nada.

Perl, 70 caracteres.

say[sort grep!$s{$_}++,<>=~/\S/g]~~[sort"',-./;=[\]`"=~/./g,0..9,a..z]

Uso:

echo `134223423567890-=qwertyuiop[]\asdfghjkl;'zxcvbnm,./ | perl -E 'say[sort grep!$s{$_}++,pop=~/\S/g]~~[sort"',-./;=[\]`"=~/./g,0..9,a..z]'

Imprime 1 si están presentes todas las pulsaciones de teclas, de lo contrario no imprime nada.

C, 97 caracteres

main(long a,char**u){a=0xfb0000000750003d;for(u++;**u;a|=2L<<*(*u)++-39);a=48+!~a;write(1,&a,1);}

Necesita llamar al programa con un argumento que contenga al menos las letras:

`1234567890-=AZERTYUIOPQSDFGHJKLMWXCVBN[]\;',./

y obtenga la respuesta 1 (verdadero). El juego de caracteres se puede cambiar cambiando el valor de inicialización de a.