Su tarea hoy es implementar un límite de tiempo para obtener información, una tarea que he encontrado bastante molesta en la mayoría de los idiomas.

Creará una función de programa que solicita al usuario que ingrese. Inmediatamente después de que el usuario proporcione la entrada, imprima el mensaje input receivedy finalice la ejecución / devolución. Sin embargo, si el usuario espera más de 10 segundos para proporcionar información, envíe el mensaje no input receivedy finalice la ejecución / devolución.

La entrada debe ser de stdin(la consola) o equivalente, no argumentos de función o programa, sin embargo, la salida puede ser stdoutel valor de retorno de su función o cualquier otro método de salida aceptado.

Puede solicitar cualquier cantidad de entrada, puede ser un solo carácter, una línea, una palabra o cualquier método que sea más corto en su idioma siempre que espere al menos un carácter.

Debe emitir tan pronto como se reciba la entrada, no después de que hayan pasado los 10 segundos.

Después de que hayan pasado 10 segundos, debe finalizar, no puede continuar esperando la entrada después de que no input receivedse haya impreso.

Puede suponer que la entrada no se pasa en el tiempo transcurrido entre 10 segundos y el texto que se imprime en la pantalla, ya que esta es una ventana extremadamente pequeña. También puede suponer que el equivalente sleepintegrado de su idioma es consistentemente, absolutamente perfecto.

Este es el código de golf , ¡la menor cantidad de bytes gana!

bash, 38 bytes

read -t10||a=no;echo $a input received

Esto utiliza la -topción (tiempo de espera) para bash read, lo que hace que falle y devuelva un código de salida distinto de cero si no se proporciona ninguna entrada en el número de segundos especificado.

Haskell, 97 89 bytes

import System.Timeout
timeout(10^7)getChar>>=putStr.(++"input received").maybe"no "mempty

Si el timeouttiempo de espera regresa Nothingy Just Char( Charporque estamos usando getChar) de lo contrario. Este valor de retorno se convierte "no "ao ""por función maybe "no " mempty. Anexar "input received"e imprimir.

Editar: @BMO sugirió maybey guardó algunos bytes.

POSIX C99, 71 63 bytes

main(){puts("no input received"+3*poll((int[]){0,1},1,10000));}

Sin golf:

#include <unistd.h>
#include <poll.h>
#include <stdio.h>
int main()
{
  struct pollfd pfd; 
  pfd.fd = STDIN_FILENO; 
  pfd.events = POLLIN;  
  puts("no input received"+3*poll(&pfd,1,10000));
}

Como polldevolverá 1 en caso de éxito, multiplicamos el resultado por 3 y desplazamos la cadena en consecuencia. Luego, usamos el hecho de que struct pollfdtiene el siguiente diseño:

     struct pollfd {
     int    fd;       /* file descriptor */
     short  events;   /* events to look for */
     short  revents;  /* events returned */
 };

y STDIN_FILENOes 0, POLLINes 1reemplazar pfdcon int pfd[] = {0,1}, que finalmente hacemos un compuesto literal (según lo permitido por C99).

Apéndice, 113

Applescript realmente no lee de STDIN. Esperemos que a display dialogsea ​​aceptable aquí:

({"","no "}'s item((display dialog""default answer""giving up after 10)'s gave up as integer+1))&"input received"

APL (Dyalog) , 41 40 bytes

'no input received'↓⍨{3*⍨⎕RTL←10::0⋄3⊣⍞}

Esta es una función tácita anónima que necesita un argumento ficticio para ejecutarse .

'no input received' la cadena completa

↓⍨ suelte tantos caracteres desde el frente como el número devuelto por el

{ función explícita anónima ( ⍵denota el argumento)

 ⎕RTL←10 establecer R espuesta T ime L IMIT a segundos diez

 3*⍨ elevar ese número (diez) a la potencia de tres (mil significa "todos")

 :: con esas excepciones (todas),

  0 volver 0

 ⋄ tratar:

  ⍞ obtener entrada

  3⊣ descartar eso y en su lugar devolver 3

}fin de la función (tenga en cuenta que el argumento ⍵nunca se mencionó)

Perl , 74 67 bytes

$m="input received";$SIG{ALRM}=sub{die"no $m\n"};alarm 10;<>;say$m

Versión antigua

$m="input received";$SIG{ALRM}=sub{die "no $m\n"};alarm 10;<stdin>;say $m;

(Ejecutar a través de perl -M5.10.1 ...)

Perl 6 ,  72  66 bytes

my $s='input received';Promise.in(10).then:{say "no $s";exit};get;say $s

Pruébalo sin entrada
Pruébalo con entrada

my$s='input received';start {sleep 10;say "no $s";exit};get;say $s

Pruébalo sin entrada
Pruébalo con entrada

my $s = 'input received'; # base message

start {         # create a Promise with a code block
                # that is run in parallel
  sleep 10;     # delay for 10 seconds
  say "no $s";  # say ｢no input received｣
  exit          # exit from the process
}

get;            # get a line from the input
say $s          # say ｢input received｣

C #, 180 171 148 131 bytes

()=>{var t=new System.Threading.Thread(()=>{System.Console.ReadKey();});t.Start();return(t.Join(10000)?"":"no ")+"input recieved";}

Guardado 17 bytes gracias a @VisualMelon.

Versión completa / formateada:

class P
{
    static void Main()
    {
        System.Func<string> f = () =>
        {
            var t = new System.Threading.Thread(() =>
            {
                System.Console.ReadKey();
            });
            t.Start();

            return (t.Join(10000) ? "" : "no ") + "input recieved";
        };

        System.Console.WriteLine(f());
        System.Console.ReadLine();
    }
}

TI-BASIC, 84 77 bytes

-7 gracias a @ kamoroso94

:startTmr→T         //Start Timer, 5 bytes
:Repeat checkTmr(T)=10 or abs(int(.1K)-8)≤1 and 1≥abs(3-10fPart(.1K  //Loop until the timer is 10 seconds or a number key is pressed, 32 bytes
:getKey→K           //get key code, 4 bytes
:End                //end loop, 2 bytes
:"NO INPUT RECEIVED //Push string "NO INPUT RECEIVED" to Ans, 18 bytes
:If K               //If input was received, 3 bytes
:Disp sub(Ans,3,15  //Diplay "INPUT RECEIVED", 9 bytes
:If not(K           //If no input, 3 bytes
:Ans                //Display "NO INPUT RECEIVED", 1 byte

Espera hasta que se presione un número.

Estoy tratando de descubrir cómo jugar golf en la secuencia {72,73,74,82,83,84,92,93,94}. Está ocupando mucho espacio.

Nodejs, 105 103 101 bytes

-2 bytes gracias a @apsillers
-2 bytes moviéndose console.log()aexit()

with(process)stdin.on('data',r=x=>exit(console.log((x?'':'no ')+'input received'))),setTimeout(r,1e4)

Ejecútelo guardando en un archivo y ejecútelo con el nodo o ejecútelo directamente desde la línea de comandos haciendo node -e "<code>"

JavaScript (ES6) + HTML, 86 84 82 79 + 11 = 97 95 93 90 bytes

setTimeout(oninput=_=>i.remove(alert(`${i.value?"":"no "}input received`)),1e4)

<input id=i

• ¡2 bytes guardados gracias a los apsillers que señalan que soy tonto!

Intentalo

Requiere un cierre >en el inputpara trabajar en un fragmento.

setTimeout(oninput=_=>i.remove(alert(`${i.value?"":"no "}input received`)),1e4)

<input id=i>

VB.Net - 174 bytes

Module M
Sub Main()
Dim t=New Threading.Thread(Sub()Console.Read()):t.Start():Console.WriteLine(If(t.Join(10000),"","no ") & "input received"):End
End Sub
End Module

La versión de COBOL llegará mañana ;-)

Go, 149 bytes

package main
import(
."fmt"
."time"
."os"
)
func main(){
o:="input received"
go func(){Sleep(1e10)
Print("no "+o)
Exit(0)}()
i:=""
Scan(&i)
Print(o)}

AHK , 67 65 bytes

^{2 bytes guardados por Blauhirn}

InputBox,o,,,,,,,,,10
s:=ErrorLevel?"no ":
Send %s%input received

AHK tiene un tiempo de espera incorporado para cuadros de entrada.
Intenté ser inteligente y usar en !olugar de, ErrorLevelpero eso falla si el usuario ingresa un valor falso.
Casi la mitad de la respuesta son solo los nombres de los comandos y el texto fijo.

Python3, 100 89 83 71 bytes

import pty
print("no input received"[3*any(pty.select([0],[],[],10)):])

Primero intente jugar al golf.

-4 para any() , -7 por rebanar, gracias @ user2357112!

-6, obtener select()de en ptylugar de select.

PowerShell, 110 bytes

$s1=date;while(![console]::KeyAvailable-and($i=((date)-$s1).seconds-lt10)){}
"{0}input received"-f(,'no ')[$i]

Python 3, 158 bytes

import os,threading as t,time
def k(t=10):time.sleep(t);print("No input received"[(10-t)//3:]);os.kill(os.getpid(),t)
t.Thread(None,k).start()
if input():k(0)

Intenté ejecutar la respuesta de Seth Python 3 pero en Windows arrojaModuleNotFoundError: No module named 'termios' , y como no puedo comentar su respuesta al respecto, decidí encontrar una solución que debería ser independiente de la plataforma.

Es mi primera vez jugando al golf, así que estoy seguro de que podría mejorarse.

Tcl, 99 bytes

after 10000 {set () no}
vwait [fileevent stdin r {gets stdin (x)}]
puts [lappend () input received]

SmileBASIC 3, 74 bytes

"Acepta la entrada" esperando que se presione cualquier botón (eso debería contar como entrada).

M=MAINCNT@L
N=MAINCNT-M>599CLS?"NO "*N;"INPUT RECEIVED
ON N+BUTTON()GOTO@L

Scratch 2 / 3.x, 41 puntos ( Explicación )

1: cuando GF hizo clic

1: pregunta [] y espera

1 + 14 caracteres: decir [entrada recibida]

1: detener [todos v] (nota: dado que "todos" era su configuración predeterminada, conté el bloque como 1)

1 + 2 dígitos: espera (10) segundos

1 + 17 caracteres: decir [no se recibió entrada]

1: detener [todos v]

> <> , 43 + 6 = 49 bytes

a/!/i0(?\~"input recieved"r>o<
o "\?:-1/r"n

Pruébalo en línea!

+5 para la -t.08bandera, que establece el tick en 0.08 segundos, y +1 para la abandera, que cuenta los espacios en blanco y las instrucciones omitidas como ticks.

El programa verifica la entrada aproximadamente una vez por segundo y sale del bucle si se detecta una entrada. Si no se recibe la entrada, sale del bucle desde la parte inferior, agregando noal comienzo de la cadena. La inicial /es garantizar que la última verificación de entrada esté exactamente en la marca de 10 segundos.

Luego toma unos 5-6 segundos para imprimir la cadena en sí.

Java 1.4+, 284 bytes

import static java.lang.System.*;public class X{public static void main(String[]x){new Thread(){public void run(){try{Thread.sleep(10000L);}catch(Exception e){}out.print("no input recieved");exit(0);}}.start();new java.util.Scanner(System.in).nextLine();out.print("input recieved");}}

Sin golf:

import static java.lang.System.*;

public class InputAndWait {
    public static void main(String[] x) {
        new Thread() {
            public void run() {
                try {
                    Thread.sleep(10000L);
                } catch (Exception e) {
                }
                out.print("no input recieved");
                exit(0);
            }
        }.start();
        new java.util.Scanner(System.in).nextLine();
        out.print("input recieved");
    }
}

No sugiera mejoras de Java específicas de la versión, esta es una respuesta genérica de Java que funciona en todos los entornos Java estables actualmente (1.4 y superiores).

Muy jodidamente prolijo ... Se requiere la captura, no se puede lanzar. La importación del sistema se reduce como 5 bytes ... La sobrecarga también es prolija, por lo que termina siendo un desastre desordenado y mal parecido al golf.

Julia 0.6 , 78 bytes

Más de lo que esperaba. Vea los comentarios para el enlace TIO "no se recibió entrada".

s="input recieved"
Timer(x->(show("no "*s);exit()),10)
readline(STDIN)
show(s)

Pruébalo en línea!

SmileBASIC, 74 73 bytes

M=MAINCNT
WHILE!I*M>MAINCNT-600I=INKEY$()>"
WEND?"no "*!I;"input received

Toma 1 carácter de entrada.

Y una solución de 39 bytes que probablemente no sea válida (en realidad no acepta ingreso de texto, solo tiene un OKbotón que puede presionar)

?"no "*!DIALOG("",,,10);"input received